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
» Détection connexion internet (résolu)
par JL35 Hier à 13:55

» Le parcours du cavalier sur un échiquier 8 x 8
par pascal10000 Dim 23 Juil 2017 - 13:26

» Casse-tête : Echanger les positions des cavaliers
par papydall Sam 22 Juil 2017 - 19:42

» Compilateur FBPano
par jean_debord Sam 22 Juil 2017 - 10:54

» demande pour recuperer un text speciale
par pascal10000 Ven 21 Juil 2017 - 22:04

» KGF_dll - nouvelles versions
par Klaus Ven 21 Juil 2017 - 14:29

» Amélioration de la commande HINT
par papydall Mer 19 Juil 2017 - 3:30

» TEST SUR SHAPE
par papydall Mer 19 Juil 2017 - 1:17

» Un challenge à relever
par papydall Mar 18 Juil 2017 - 21:25

» Astuce : Indenter plusieurs lignes de code à la fois
par papydall Mar 18 Juil 2017 - 1:32

» Suggestion pour le forum
par papydall Lun 17 Juil 2017 - 20:28

» Truver les handles des onglets de Panoramic Editor
par Klaus Lun 17 Juil 2017 - 18:20

» Synedit_Editor - nouvelles versions
par Klaus Lun 17 Juil 2017 - 13:46

» Détermine si oui ou non un objet est PARENT d'un autre objet
par Klaus Dim 16 Juil 2017 - 11:58

» Une autre façon de terminer une application.
par papydall Dim 16 Juil 2017 - 3:53

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2017
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
31      
CalendrierCalendrier

Partagez | 
 

 Planning mensuel

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



Nombre de messages : 5896
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
» PLanning Pub recherche Staff
» [Widget] Calendrier : Événements (Mensuel/hebdomadaire/...)
» BESOIN D'AIDE signature trop longue
» Agenda programmable

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