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
» Dessin 2D: largeur de trait
par papydall Hier à 23:31

» Projet de planétarium virtuel.
par Jean Claude Hier à 21:59

» PanExpress : l'éditeur Panoramic avec création d'objet
par Jean Claude Hier à 20:32

» Animation: Feux de signalisation
par Minibug Hier à 20:28

» Quantité de mémoire utilisée par un exe
par Jack Mar 19 Juin 2018 - 16:39

» Problème avec 'file_load'.
par Pedro Alvarez Lun 18 Juin 2018 - 8:12

» Version instantanée V 0.9.28i20 du 13/06/2018
par jjn4 Sam 16 Juin 2018 - 14:25

» string$(0,chr$(32)) sans erreur
par silverman Ven 15 Juin 2018 - 19:56

» Version instantanée V 0.9.28i19 du 13/06/2018
par Minibug Ven 15 Juin 2018 - 19:14

» Mes souhaits d'amélioration de Panoramic.
par Pedro Alvarez Jeu 14 Juin 2018 - 20:17

» [RÉSOLU] Message d'erreur impossible à indentifier
par Minibug Mer 13 Juin 2018 - 20:52

» Cadre pour image
par Jean Claude Mar 12 Juin 2018 - 16:31

» Créateur d'objets Panoramic
par Minibug Mar 12 Juin 2018 - 14:02

» Planétarium gratuit.
par Jean Claude Sam 9 Juin 2018 - 18:50

» Comment afficher une image sans fond.
par JL35 Sam 9 Juin 2018 - 14:16

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2018
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 Planning mensuel

Aller en bas 
AuteurMessage
JL35



Nombre de messages : 6275
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

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: