FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Crash récurent de l'éditeur
par Oscaribout Aujourd'hui à 8:39

» amelioration de digit1
par pascal10000 Aujourd'hui à 8:25

» Demande de correction de la commande instr_right.
par pascal10000 Aujourd'hui à 7:54

» Et encore un éditeur...
par Minibug Aujourd'hui à 7:06

» Recherche de texte AVANT/ARRIERE dans un SYNEDIT
par silverman Hier à 18:51

» molette de la souris
par Fredisland Hier à 17:57

» Plusieurs fonctions pour la souris
par Fredisland Hier à 17:47

» resulta incomplet
par Marc Hier à 13:33

» Make_exe
par JL35 Dim 22 Avr 2018 - 20:10

» [RÉSOLU] MESSAGE_ERROR_YES_NO idem à deux autres
par Fredisland Dim 22 Avr 2018 - 14:29

» Logiciel de traduction: dernières avancées.
par pascal10000 Dim 22 Avr 2018 - 9:43

» Convertir un fichier BAS panoramic en fichier EXE
par Klaus Sam 21 Avr 2018 - 23:16

» Astuce dans un string
par Marc Sam 21 Avr 2018 - 18:42

» TRACE_ON problème
par Oscaribout Sam 21 Avr 2018 - 17:55

» [RÉSOLU] Priorité affichage des objets : comment la définir?
par Minibug Sam 21 Avr 2018 - 17:43

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Avril 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
30      
CalendrierCalendrier

Partagez | 
 

 Planning mensuel

Aller en bas 
AuteurMessage
JL35



Nombre de messages : 6214
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Planning mensuel   Lun 10 Nov 2014 - 21:36

Ca pourrait se faire assez facilement en Tout-Panoramic, mais je suis allé le chercher (le planning) sur un site web: téléchargement et impression d'une page de planning mensuel. Pour le moment ça ne marche que jusqu'à fin 2015, mais je suppose que c'est actualisé chaque année.
(Remarquez la sub de téléchargement d'un fichier, en vb script).
Les images chargées sont au format png.
Le programme fait appel à IrfanView pour la visualisation/Impression de la page, l'impression se faisant en orientation 'paysage', sans marges, 'ajuster à la page' pour un remplissage optimum.
Code:
' Télécharger une page de planning mensuel (pour impression)
LABEL Downl, Voir
DIM i%,opta,optm,u$,iv$,ms$(12),a$,m$,rtm$,url$,fr$
u$="http://icalendrier.fr/media/imprimer/aaaa/mensuel/mmmm/calendrier-mmmm-aaaa.png"
iv$ = "C:\Progra~2\Irfanv~1\i_view32.exe": ' <<<<<<<<<< IRFAN_VIEW <<<<<<<<<<<<<
rtm$ = "C:\TEMP": ' répertoire de stockage des images téléchargées

ms$(1)="janvier":ms$(2)="fevrier":ms$(3)="mars":ms$(4)="avril":ms$(5)="mai"
ms$(6)="juin":ms$(7)="juillet":ms$(8)="aout":ms$(9)="septembre":ms$(10)="octobre"
ms$(11)="novembre":ms$(12)="decembre": ' sans les accents

WIDTH 0,200: HEIGHT 0,325: BORDER_SMALL 0: FONT_BOLD 0
COLOR 0,190,255,255
CAPTION 0, "  -  PLANNING  MENSUEL  -"
i% = 10: opta = i%
CONTAINER_OPTION i%: TOP i%,3: LEFT i%,5: HEIGHT i%,260: WIDTH i%,70
    CAPTION i%," ANNÉE : ": COLOR i%,255,255,180
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,18: LEFT i%,10: CAPTION i%,"2014"
MARK_ON i%
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2015"
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2016"
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2017"
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2018"
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2019"
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2020"
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2021"
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2022"
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2023"
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2024"
i%=i%+1: OPTION i%: PARENT i%,opta: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"2025"

i% = 30: optm = i%
CONTAINER_OPTION i%: TOP i%,TOP(opta): LEFT i%,LEFT(opta)+WIDTH(opta)+3: HEIGHT i%,HEIGHT(opta)
    WIDTH i%,100: CAPTION i%," MOIS : ": COLOR i%,255,255,180
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,18: LEFT i%,10: CAPTION i%,"Janvier"
MARK_ON i%
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Février"
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Mars"
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Avril"
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Mai"
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Juin"
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Juillet"
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Août"
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Septembre"
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Octobre"
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Novembre"
i%=i%+1: OPTION i%: PARENT i%,optm: TOP i%,TOP(i%-1)+20: LEFT i%,10: CAPTION i%,"Décembre"

BUTTON 50: TOP 50,TOP(opta)+HEIGHT(opta)+2: LEFT 50,0: WIDTH 50,80: CAPTION 50,"Télécharger"
ON_CLICK 50,Downl
BUTTON 51: TOP 51,TOP(50): LEFT 51,LEFT(50)+WIDTH(50): WIDTH 51,100
CAPTION 51,"Voir/Imprimer": ON_CLICK 51,Voir

END
' ==============================================================================
Downl:
FOR i% = opta+1 TO opta+12
    IF CHECKED(i%) = 1 THEN EXIT_FOR
NEXT i%
i% = i%-opta: a$ = STR$(i%+2013): ' année choisie
FOR i% = optm+1 TO optm+12
    IF CHECKED(i%) = 1 THEN EXIT_FOR
NEXT i%
i% = i%-optm: m$ = ms$(i%): ' mois choisi (et non pas choix moisi)
url$ = u$
' mise en place de l'année dans l'url
i% = INSTR(url$,"aaaa"): url$ = LEFT$(url$,i%-1)+a$+RIGHT_POS$(url$,i%+4)
i% = INSTR(url$,"aaaa"): url$ = LEFT$(url$,i%-1)+a$+RIGHT_POS$(url$,i%+4)
' mise en place du mois dans l'url
i% = INSTR(url$,"mmmm"): url$ = LEFT$(url$,i%-1)+m$+RIGHT_POS$(url$,i%+4)
i% = INSTR(url$,"mmmm"): url$ = LEFT$(url$,i%-1)+m$+RIGHT_POS$(url$,i%+4)
fr$ = rtm$+a$+m$+".png"
WebLoadFic(url$,fr$)
IF FILE_EXISTS(fr$) = 0
    MESSAGE "          Échec !"+CHR$(10)+"(année non encore implémentée)"
END_IF
RETURN
' ==============================================================================
Voir:
EXECUTE_WAIT iv$ + " " + fr$
RETURN
' ==============================================================================
SUB WebLoadFic(url$,fr$)
' Téléchargement d'un fichier web donné par son url -> fr$
' (affichage d'une fenêtre noire temporaire jusqu'à la fin de l'opération).
DIM_LOCAL q$,fvb$: fvb$ = "Z:\Download.vbs": q$ = CHR$(34)
FILE_OPEN_WRITE 9,fvb$
FILE_WRITELN 9,"strFileURL = "+q$+url$+q$
FILE_WRITELN 9,"strHDLocation = "+q$+fr$+q$
FILE_WRITELN 9,"Set objXMLHTTP = CreateObject("+q$+"MSXML2.XMLHTTP"+q$+")"
FILE_WRITELN 9,"objXMLHTTP.open "+q$+"GET"+q$+", strFileURL, false"
FILE_WRITELN 9,"objXMLHTTP.send()"
FILE_WRITELN 9,"If objXMLHTTP.Status = 200 Then"
FILE_WRITELN 9,"Set objADOStream = CreateObject("+q$+"ADODB.Stream"+q$+")"
FILE_WRITELN 9,"objADOStream.Open"
FILE_WRITELN 9,"objADOStream.Type = 1"
FILE_WRITELN 9,"objADOStream.Write objXMLHTTP.ResponseBody"
FILE_WRITELN 9,"objADOStream.Position = 0"
FILE_WRITELN 9,"Set objFSO = Createobject("+q$+"Scripting.FileSystemObject"+q$+")"
FILE_WRITELN 9,"If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation"
FILE_WRITELN 9,"Set objFSO = Nothing"
FILE_WRITELN 9,"objADOStream.SaveToFile strHDLocation"
FILE_WRITELN 9,"objADOStream.Close"
FILE_WRITELN 9,"Set objADOStream = Nothing"
FILE_WRITELN 9,"End if"
FILE_WRITELN 9,"Set objXMLHTTP = Nothing"
FILE_CLOSE 9
EXECUTE_WAIT "cscript.exe " + fvb$
FILE_DELETE fvb$
END_SUB
' ==============================================================================
J'ai mis ça ici plutôt que dans 'Vos sources...', c'est un peu gadget Smile
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Planning mensuel
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Planning mensuel
» LA REVUE DU FORUM - Magazine Mensuel sous forme de PDF

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Présentation et bavardage-
Sauter vers: