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
» Animations : Livres et leçons sur le français
par papydall Aujourd'hui à 1:06

» Animations FLASH pour différentes branches de la Science
par papydall Hier à 20:25

» Problème avec scene3d.
par papydall Hier à 20:11

» Question ?
par papydall Hier à 19:39

» Calculus
par JL35 Hier à 15:43

» plus de caractères avec chr$()
par Marc Hier à 14:59

» @ Jack : lapsus clavis
par Marc Sam 20 Jan 2018 - 19:19

» Quelques nouvelles ...
par Ouf_ca_passe Ven 19 Jan 2018 - 18:07

» Mah-Jong français
par Jicehel Ven 19 Jan 2018 - 11:10

» Rotation d'une image d'un angle quelconque
par JL35 Jeu 18 Jan 2018 - 16:09

» StratégoV8 et V9
par Jean Claude Jeu 18 Jan 2018 - 14:22

» GRID_LOAD
par Jean Claude Mer 17 Jan 2018 - 21:04

» HVIEWER
par Yannick Mer 17 Jan 2018 - 20:31

» KGF_dll - nouvelles versions
par Klaus Mar 16 Jan 2018 - 21:28

» Déformation d'image en trapèze
par mindstorm Mar 16 Jan 2018 - 21:06

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Janvier 2018
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
CalendrierCalendrier

Partagez | 
 

 Planning mensuel

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
JL35



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

MessageSujet: Planning mensuel   Lun 10 Nov 2014 - 23: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
Voir le sujet précédent Voir le sujet suivant 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: