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
» un nouveau editeur panobasic
par pascal10000 Hier à 21:52

» COMPILATEUR V 0.9 beta 7 du 10 aout 2017
par Jack Hier à 20:23

» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Hier à 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Hier à 19:58

» Compilateur FBPano
par jean_debord Hier à 8:49

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

» Troncature dans une image
par JL35 Mer 9 Aoû 2017 - 13:45

» A chacun son point de vue
par papydall Mar 8 Aoû 2017 - 17:20

» Problème avec les chaines de caractères
par bignono Dim 6 Aoû 2017 - 9:33

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Un petit calendrier à feuilleter

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : 1, 2  Suivant
AuteurMessage
JL35



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

MessageSujet: Un petit calendrier à feuilleter   Mer 12 Juin 2013 - 23:57

Code:
LABEL Afdat, Aff2, Rbk, Suivant, Precedent, Saut, Saut1, Masks, Crayon, Evnt
DIM ws, wf, hf, h1, h2, h3, h4, mg, mc, mh, rs, gs, bs, x, y, i%, j%, a$, b$, c$, f$
DIM nm$(12),jo$(7), lm(12), Jour, Mois, Annee, nj$, m$, j$, wt, ht, sz2%, nc2%, ht2%
DIM svm%, pre$, bisex, la, x1
DIM fet$: fet$ = "C:\TEXTES\Fetes.txt"
DIM fev$: fev$ = "C:\TEXTES\Evnt"

DATA "Janvier","Février","Mars","Avril","Mai","Juin","Juillet","Août"
DATA "Septembre","Octobre","Novembre","Décembre"
DATA "Dimanche", "Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi"
DATA 31,28,31,30,31,30,31,31,30,31,30,31
FOR i% = 1 TO 12: READ nm$(i%): NEXT i%
FOR i% = 0 TO 6: READ jo$(i%): NEXT i%
FOR i% = 1 TO 12: READ lm(i%): NEXT i%
wf = 100: h1 = 25: h2 = 60: h3 = 25: h4 = 20
hf = h1 + h2 + h3  + h4
mg = 10: mc = 10: mh = 10: ' marges gauche et droite, centre, haut
ws = mg+wf+mc+wf+mg: ' largeur du socle
rs = 164: gs = 92: bs = 0: ' couleur du socle

WIDTH 0,ws+16: BORDER_SMALL 0
PICTURE 1: TOP 1,0: LEFT 1,0: WIDTH 1,ws: HEIGHT 1,mh+hf+30: ' socle
COLOR 1,rs,gs,bs
2D_TARGET_IS 1: 2D_PEN_WIDTH 16: 2D_PEN_COLOR rs+20,gs+20,bs
2D_LINE mg+5,HEIGHT(1)-15,WIDTH(1)-mg-5,HEIGHT(1)-15
ON_CLICK 1,Saut
GOSUB Crayon

FORM 50: TOP 50,TOP(1)+mh+hf+28: LEFT 50,wf/2+7: WIDTH 50,wf+10: HEIGHT 50,95
BORDER_HIDE 50: FONT_BOLD 50: COLOR 50,255,0,0: TO_FOREGROUND 50: HIDE 50
BUTTON 51: PARENT 51,50: TOP 51,0: LEFT 51,0: WIDTH 51,wf/2+16: CAPTION 51,"<-10 jours"
BUTTON 52: PARENT 52,50: TOP 52,TOP(51)+25: LEFT 52,LEFT(51): WIDTH 52,WIDTH(51): CAPTION 52,"< -1 mois"
BUTTON 53: PARENT 53,50: TOP 53,TOP(52)+25: LEFT 53,LEFT(51): WIDTH 53,WIDTH(51): CAPTION 53,"< -1 an"
BUTTON 54: PARENT 54,50: TOP 54,0: LEFT 54,LEFT(51)+WIDTH(51): WIDTH 54,WIDTH(51): CAPTION 54,"+10 jours>"
BUTTON 55: PARENT 55,50: TOP 55,TOP(54)+25: LEFT 55,LEFT(54): WIDTH 55,WIDTH(51): CAPTION 55,"+1 mois >"
BUTTON 56: PARENT 56,50: TOP 56,TOP(55)+25: LEFT 56,LEFT(54): WIDTH 56,WIDTH(51): CAPTION 56,"+1 an >"
FOR i% = 51 TO 56: ON_CLICK i%, Saut1: NEXT i%
BUTTON 57: PARENT 57,50: TOP 57,TOP(56)+26: LEFT 57,0: WIDTH 57,WIDTH(50): HEIGHT 57,18
CAPTION 57,"OK": ON_CLICK 57,Masks

PICTURE 2: TOP 2,TOP(1)+mh: LEFT 2,LEFT(1)+mg: WIDTH 2,wf: HEIGHT 2,hf: ' feuillets gauche
ON_CLICK 2,Precedent
sz2% = 8: ' taille caractères dans le Picture 2
FONT_NAME 2, "Arial": FONT_SIZE 2,sz2%: i% = TEXT_WIDTH("AabcBdefCghiDjklEmno",2)
nc2% = INT(20*(wf-5)/i%): ' nb de caractères par ligne dans picture 2
ht2% = TEXT_HEIGHT("AabcBdefCghiDjklEmno",2)

PICTURE 3: TOP 3,TOP(2): LEFT 3,LEFT(2)+wf+mc: WIDTH 3,wf: HEIGHT 3,HEIGHT(2): ' feuillets droite
ON_CLICK 3,Suivant

BUTTON 5: TOP 5,TOP(2)+HEIGHT(2)-15: LEFT 5,LEFT(2)+35: WIDTH 5,30: HEIGHT 5,16
CAPTION 5,"Evt": ON_CLICK 5,Evnt

PICTURE 10: TOP 10,TOP(3)+hf/4: LEFT 10,LEFT(3)-mc-20: WIDTH 10,mc+40: HEIGHT 10,20
PICTURE 11: TOP 11,TOP(3)+2.5*hf/4: LEFT 11,LEFT(10): WIDTH 11,WIDTH(10): HEIGHT 11,HEIGHT(10)

2D_TARGET_IS 10: 2D_PEN_COLOR rs,gs,bs: 2D_FILL_COLOR rs,gs,bs
2D_RECTANGLE 20,0,mc+20,20
2D_PEN_COLOR 0,0,0: 2D_CIRCLE 10,10,5: 2D_CIRCLE mc+30,10,5
2D_PEN_COLOR 164,164,164: 2D_PEN_WIDTH 5: 2D_LINE 10,10,mc+30,10
2D_TARGET_IS 11: 2D_PEN_COLOR rs,gs,bs: 2D_FILL_COLOR rs,gs,bs
2D_RECTANGLE 20,0,mc+20,20
2D_PEN_COLOR 0,0,0: 2D_CIRCLE 10,10,5: 2D_CIRCLE mc+30,10,5
2D_PEN_COLOR 164,164,164: 2D_PEN_WIDTH 5: 2D_LINE 10,10,mc+30,10

HEIGHT 0,hf+74
Jour=VAL(LEFT$(DATE$,2)): Mois=VAL(MID$(DATE$,4,2)): Annee=VAL(RIGHT$(DATE$,4))
bisex = 0: la = 365: lm(2) = 28
IF (FRAC(Annee/4)=0 AND FRAC(Annee/100)>0) OR FRAC(Annee/400)=0
    lm(2) = 29: bisex = 1: la = 366
END_IF
QPaques(Annee)
pre$ = ""
GOSUB Afdat: ' date du jour
END
' ==============================================================================
Afdat:
Jmq(Annee,Mois,Jour): ' quantième de l'année rs_qa%
JourSem(Annee,Mois,Jour): nj$ = jo$(rs_js%): ' nom du jour
m$ = nm$(Mois): ' nom du mois
j$ = STR$(Jour): ' nombre jour
2D_TARGET_IS 2: CLS: PRINT_TARGET_IS 2: FONT_NAME 2,"Arial"
FONT_SIZE 2,7: PRINT_LOCATE 5,5: PRINT nj$+" "+STR$(Jour)+" "+m$
2D_TARGET_IS 3: CLS: PRINT_TARGET_IS 3: FONT_NAME 3, "Arial"
FONT_SIZE 3,15: FONT_COLOR 3,0,0,0
wt = TEXT_WIDTH(m$,3): ht = TEXT_HEIGHT(m$,3): ' taille texte à afficher
x = 5+(wf-wt)/2: y = (h1-ht)/2
PRINT_LOCATE x, y: PRINT m$
FONT_SIZE 3,46: FONT_COLOR 3,255,0,0: FONT_BOLD 3
wt = TEXT_WIDTH(j$,3): ht = TEXT_HEIGHT(j$,3)
x = 5+(wf-wt)/2: y = h1+(h2-ht)/2
PRINT_LOCATE x, y: PRINT j$
FONT_SIZE 3,13: FONT_COLOR 3,0,0,0: FONT_BOLD_OFF 3
wt = TEXT_WIDTH(nj$,3): ht = TEXT_HEIGHT(nj$,3)
x = 5+(wf-wt)/2: y = h1+h2+(h3-ht)/2
PRINT_LOCATE x, y: PRINT nj$
CAPTION 0, STRING$(25," ")+"- ANNÉE "+STR$(Annee)+" -"
' Fête du jour
b$ = RIGHT$("0"+STR$(Mois),2) + RIGHT$("0"+STR$(Jour),2)
IF FILE_EXISTS(fet$) = 1
    FILE_OPEN_READ 1, fet$
    WHILE FILE_EOF(1) = 0
        FILE_READLN 1, a$: IF LEFT$(a$,4) = b$ THEN a$ = MID$(a$,6,50): EXIT_WHILE
    END_WHIlE
    FILE_CLOSE 1
    FONT_SIZE 3,7: FONT_ITALIC 3: wt = TEXT_wIDTH(a$,3): ht = TEXT_HEIGHT(a$,3)
    x = (wf-wt)/2: y = h1+h2+h3+(h4-ht)/2
    PRINT_LOCATE x, y: PRINT a$: FONT_ITALIC_OFF 3
END_IF
' Fêtes mobiles + Événements du jour dans Picture 2
y = 25: x = 5
IF rs_qa%=rs_qpa OR rs_qa%=rs_qas OR rs_qa%=rs_qpe
    IF rs_qa% = rs_qpa THEN a$ = "PAQUES"
    IF rs_qa% = rs_qas THEN a$ = "ASCENSION"
    IF rs_qa% = rs_qpe THEN a$ = "PENTECOTE"
    GOSUB Aff2
END_IF
IF pre$ <> "" THEN a$ = pre$: GOSUB Aff2: pre$ = "": ' heures été et hiver

f$ = fev$ + STR$(Annee) + ".txt": ' fichier des événements de l'année courante
' articles de la forme MMJJ ...libellé (court)...
a$ = ""
IF FILE_EXISTS(f$) = 1
    FILE_OPEN_READ 1, f$
    WHILE FILE_EOF(1) = 0
        FILE_READLN 1, c$
        i% = INSTR(c$, b$ + " ")
        IF i%>0 AND i%<7 THEN a$ = a$+MID$(c$, i%+5, 50)+CHR$(13)+CHR$(10)
    END_WHIlE
    FILE_CLOSE 1
    IF a$ <> "" THEN a$ = LEFT$(a$,LEN(a$)-2): GOSUB Aff2
END_IF
TO_FOREGROUND 50
RETURN
' ==============================================================================
Aff2:
' a$ -> Picture 2 en x,y
PRINT_TARGET_IS 2
Rbk:
i% = INSTR(a$, CHR$(13)+CHR$(10))
IF i% > 0
    b$ = LEFT$(a$, i%-1): a$ = MID$(a$, i%+2,100)
ELSE
    b$ = a$: a$ = ""
END_IF
WHILE LEN(b$) > nc2%
    FOR j% = nc2% TO 1 STEP -1
        IF MID$(b$, j%, 1) = " " THEN EXIT_FOR
    NEXT j%
    PRINT_LOCATE x, y: PRINT LEFT$(b$, j%-1): b$ = MID$(b$, j%+1,50)
    y = y + ht2%
END_WHILE
IF b$ <> "" THEN PRINT_LOCATE x,y: PRINT b$: y = y + ht2%
IF a$ <> "" THEN GOTO Rbk
y = y + 16
RETURN
' ==============================================================================
Suivant:
Jour = Jour + 1
svm% = Mois
IF Jour > lm(Mois)
    Jour = 1: Mois = Mois + 1
    IF Mois > 12
        Mois = 1: Annee = Annee + 1: QPaques(Annee)
        IF (FRAC(Annee/4)=0 AND FRAC(Annee/100)>0) OR FRAC(Annee/400)=0
            bisex = 1: lm(2) = 29: la = 366: ' bissextile
        ELSE
            bisex = 0: lm(2) = 28: la = 365
        END_IF
    END_IF
END_IF
pre$ = ""
IF Mois <> svm% AND (Mois = 3 OR Mois = 10)
    Ete_Hiver(Annee,Mois)
    IF Jour = jeh%
        IF Mois = 3
            pre$ = "Heure d'Été à 2H -> 3H"
        ELSE
            pre$ = "Heure d'Hiver à 3H -> 2H"
        END_IF
    END_IF
END_IF
2D_TARGET_IS 3: 2D_PEN_COLOR 192,192,192: 2D_FILL_COLOR 255,255,255
FOR i% = WIDTH(3) TO 0 STEP -3
    2D_RECTANGLE i%,0,WIDTH(3),HEIGHT(3): WAIT 10
NEXT i%
CLS
GOSUB Afdat
RETURN
' ==============================================================================
Precedent:
Jour = Jour - 1
svm% = Mois
IF Jour < 1
    Mois = Mois - 1
    IF Mois < 1
        Mois = 12: Annee = Annee - 1: QPaques(Annee)
        IF (FRAC(Annee/4)=0 AND FRAC(Annee/100)>0) OR FRAC(Annee/400)=0
            bisex = 1: lm(2) = 29: la = 366: ' bissextile
        ELSE
            bisex = 0: lm(2) = 28: la = 365
        END_IF
    END_IF
    Jour = lm(Mois)
END_IF
pre$ = ""
IF Mois <> svm% AND (Mois = 3 OR Mois = 10)
    Ete_Hiver(Annee,Mois)
    IF Jour = jeh%
        IF Mois = 3
            pre$ = "Heure d'Été à 2H -> 3H"
        ELSE
            pre$ = "Heure d'Hiver à 3H -> 2H"
        END_IF
    END_IF
END_IF
2D_TARGET_IS 2: 2D_PEN_WIDTH 5: 2D_PEN_COLOR 192,192,192
FOR i% = 0 TO wf step 4
    2D_LINE i%,0,i%,HEIGHT(2): WAIT 10
    CLS
NEXT i%
GOSUB Afdat
RETURN
' ==============================================================================
Saut:
SHOW 50: TO_FOREGROUND 50
RETURN
' ==============================================================================
Saut1:
i% = NUMBER_CLICK
SELECT i%
    CASE 53: Annee = Annee-1
    CASE 52: Mois = Mois-1: IF Mois < 1 THEN Mois = 12 : Annee = Annee-1
    CASE 51: rs_qa% = rs_qa%-10
            IF rs_qa% < 1
                Jour = 1
            ELSE
                Qjm(Annee,rs_qa%)
            END_IF
    CASE 54: rs_qa% = rs_qa%+10
            IF rs_qa% > la
                Jour = 31
            ELSE
                Qjm(Annee,rs_qa%)
            END_IF
    CASE 55: Mois = Mois+1: IF Mois > 12 THEN Mois = 1: Annee = Annee+1
    CASE 56: Annee = Annee+1
END_SELECT
GOSUB Afdat
RETURN
' ==============================================================================
Masks:
HIDE 50
RETURN
' ==============================================================================
Crayon:
2D_TARGET_IS 1: 2D_PEN_COLOR 0,0,0: 2D_PEN_WIDTH 1
x = 12: y = HEIGHT(1)-24: x1 = WIDTH(1)-15
2D_LINE x,y+8,x+20,y: 2D_POLY_TO x1,y: 2D_POLY_TO x1,y+16: 2D_POLY_TO x+20,y+16
2D_POLY_TO x+23,y+12: 2D_POLY_TO x1,y+12: 2D_POLY_TO x1,y+4: 2D_POLY_TO x+22,y+4
2D_POLY_TO x+20,y: 2D_POLY_TO x+23,y+4
2D_POLY_TO x+23,y+4: 2D_POLY_TO x+23,y+12: 2D_POLY_TO x+20,y+16: 2D_POLY_TO x,y+8
2D_FLOOD x+30,y+8,255,255,0: 2D_FLOOD x+30,y+14,164,164,0: 2D_FLOOD x+30,y+2,192,192,0
2D_FLOOD x+5,y+8,220,196,196: 2D_LINE x,y+8,x+7,y+8
PRINT_TARGET_IS 1: FONT_NAME 1,"Arial": FONT_SIZE 1,5: FONT_ITALIC 1: 2D_FILL_COLOR 255,255,0
FONT_COLOR 1,80,80,80: PRINT_LOCATE x1-25,y+5: PRINT "CLIC"
RETURN
' ==============================================================================
Evnt:
' gestion du fichier des événements
IF FILE_EXISTS(fev$ + STR$(Annee)+".txt") = 0
    FILE_OPEN_WRITE 1,fev$ + STR$(Annee)+".txt"
    a$ = "* Fichier des événements " + STR$(Annee) + ", articles de la forme "
    a$ = a$ + "#AAAAMMJJ[espace]texte de l'événement du jour"
    FILE_WRITELN 1, a$
    FILE_CLOSE 1
END_IF
EXECUTE_WAIT "Notepad.exe " + fev$ + STR$(Annee)+".txt"
RETURN
' ==============================================================================
SUB JourSem(Annee,Mois,Jour)
' Jour de la semaine d'une date donnée (0= Dimanche à 6= Samedi) -> rs_js%
DIM_LOCAL js_d
IF VARIABLE("rs_js%") = 0 THEN DIM rs_js%
js_d = Annee
IF Mois<3 THEN js_d = js_d-1
js_d=INT(23*Mois/9)+Jour+4+Annee+INT(js_d/4)-INT(js_d/100)+INT(js_d/400)
IF Mois>=3 THEN js_d = js_d-2
rs_js% = js_d-7*INT(js_d/7)
END_SUB
' ==============================================================================
SUB QPaques(Annee)
' Quantièmes de Pâques, Ascension, Pentecôte en fonction de Annee
' Résultats dans rs_qpa, rs_qas, rs_qpe
DIM_LOCAL qp_a,qp_b,qp_c,qp_d,qp_e,qp_f,qp_g,qp_h,qp_i,qp_k,qp_l,qp_m
DIM_LOCAL qp_bi,qp_ci,qp_cj
IF VARIABLE("rs_qpa") = 0 THEN DIM rs_qpa
IF VARIABLE("rs_qas") = 0 THEN DIM rs_qas
IF VARIABLE("rs_qpe") = 0 THEN DIM rs_qpe
qp_a = 19*FRAC(Annee/19)
qp_b = INT(Annee/100)
qp_c = 100*FRAC(Annee/100)
qp_ci = 4*FRAC(Annee/4)
qp_cj = 400*FRAC(Annee/400)
qp_bi = 0: IF qp_ci = 0 AND (qp_c <> 0 OR qp_cj = 0) THEN qp_bi = 1
qp_d = INT(qp_b/4)
qp_e = 4*FRAC(qp_b/4)
qp_f = INT((qp_b + 8) / 25)
qp_g = INT((qp_b - qp_f + 1) / 3)
qp_h = 30*FRAC((19 * qp_a + qp_b - qp_d - qp_g + 15)/30)
qp_i = INT(qp_c/4)
qp_k = 4*FRAC(qp_c/4)
qp_l = 7*FRAC((32 + 2 * qp_e + 2 * qp_i - qp_h - qp_k)/7)
qp_m = INT((qp_a + 11 * qp_h + 22 * qp_l) / 451)
rs_qpa = qp_h + qp_l - 7 * qp_m + 81 + qp_bi
rs_qpa = INT(rs_qpa + .1)
rs_qas = rs_qpa + 39: rs_qpe = rs_qpa + 49
END_SUB
' ==============================================================================
SUB Jmq(Annee,Mois,Jour)
' Quantième de l'année en fonction de Annee, Mois, Jour -> rs_qa%
DIM_LOCAL Jm_Q, Jm_m
IF VARIABLE("rs_qa%") = 0 THEN DIM rs_qa%
Jm_Q = 0
IF Mois > 1
    FOR Jm_m = 1 TO Mois - 1
        SELECT Jm_m
            CASE 1: Jm_Q = Jm_Q+31
            CASE 2: Jm_Q = Jm_Q+28
IF (FRAC(Annee/4)=0 AND FRAC(Annee/100)>0) OR FRAC(Annee/400)=0 THEN Jm_Q=Jm_Q+1
            CASE 3: Jm_Q = Jm_Q+31
            CASE 4: Jm_Q = Jm_Q+30
            CASE 5: Jm_Q = Jm_Q+31
            CASE 6: Jm_Q = Jm_Q+30
            CASE 7: Jm_Q = Jm_Q+31
            CASE 8: Jm_Q = Jm_Q+31
            CASE 9: Jm_Q = Jm_Q+30
            CASE 10: Jm_Q = Jm_Q+31
            CASE 11: Jm_Q = Jm_Q+30
        END_SELECT
    NEXT Jm_m
END_IF
rs_qa% = Jm_Q+Jour
END_SUB
' ==============================================================================
SUB Qjm(Annee,Q)
' Mois et jour en fonction du quantième -> Mois, Jour
DIM_LOCAL qj_bi%, qj_qt%, qj_lm%
qj_bi% = 0: qj_qt% = 0
IF (FRAC(Annee/4)=0 AND FRAC(Annee/100)>0) OR FRAC(Annee/400)=0 THEN qj_bi%=1
Mois = 1: qj_qt% = 31
IF Q<32
    Jour = Q
ELSE
    WHILE Q > qj_qt%
        Mois = Mois + 1
        IF Mois = 4 OR Mois = 6 OR Mois = 9 OR Mois = 11
            qj_lm% = 30
        ELSE
            IF Mois = 2
                qj_lm% = 28 + qj_bi%
            ELSE
                qj_lm% = 31
            END_IF
        END_IF
        qj_qt% = qj_qt% + qj_lm%
    END_WHILE
    Jour = Q - qj_qt% + qj_lm%
END_IF
END_SUB
' ==============================================================================
SUB Ete_Hiver(annee%,mois%)
' quantième j% de Mars (heure d'été) ou Octobre (heure d'hiver) de l'année donnée
' (c'est le dernier dimanche du mois donné, été: +1/heure, hiver -1/heure)
IF VARIABLE("jeh%") = 0 THEN DIM jeh%
DIM_LOCAL a_h%, b_h%, s_h%
mois% = mois%-2
s_h% = INT(annee%/100): a_h% = annee% - s_h%*100
b_h% = INT(2.6*mois% - .19) + 31 + a_h%+INT(a_h%/4)+INT(s_h%/4)-s_h%*2
jeh% = 31-INT((b_h%/7-INT(b_h%/7))*7+.1)
END_SUB
' ==============================================================================
Bon, d'accord, ça ne sert pas à grand chose, c'est pour ça que je l'ai mis ici.
Clic à droite: jour suivant, à gauche: jour précédent.
Mise à jour du 14/06:
- Ajout de la possibilité de se déplacer dans le temps par sauts de 10 jours, 1 mois ou 1 an:
cliquer sur le crayon en bas (on peut toujours se déplacer d'un jour avant ou arrière en cliquant sur les feuillets.
- Ajout de l'affichage de la fête du jour (en plus des fêtes mobiles), mais il faut disposer du fichier (facultatif) des fêtes, je le mettrai ici sur demande.
- Affichage des événements du jour, dans la même logique le précédent calendrier, un fichier des événements par année, à créer et gérer pour le moment dans un éditeur (Notepad)
Mise à jour 15/6:
- Ajout d'un bouton 'Evt' pour gestion sommaire d'un fichier des événements par année, qui sera créé s'il n'existe pas, les modifications se faisant avec le Notepad.
Structure d'un article (court):
#AAAAMMJJ texte succinct de l'événement


Dernière édition par JL35 le Mar 18 Juin 2013 - 16:20, édité 8 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7961
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Jeu 13 Juin 2013 - 0:32

C' est rigolo et çà mérite quelques fonctions en plus...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Un petit calendrier à feuilleter   Jeu 13 Juin 2013 - 0:35

J'ai déjà fait une petite modif (simplification) !
C'est vrai qu'on peut rajouter plein de choses, notamment les fêtes du jour, fixes et mobiles, et sur la page de gauche on pourrait afficher les événements du jour, pense-bête, etc., à stocker dans un fichier à part...
Mais bon, il ne faut pas que ça devienne trop utile, sinon il faudrait le changer de catégorie ! Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5849
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Un petit calendrier à feuilleter   Jeu 13 Juin 2013 - 0:41

JL35, tu sais bien que tu finis toujours par le rendre plus utile ou l'améliorer une fois ou deux
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Un petit calendrier à feuilleter   Jeu 13 Juin 2013 - 0:54

Quel cafteur !
Bon, d'accord, j'ai déjà fait des petits trucs, mais ça reste confidentiel ! Very Happy
Tiens, ça t'apprendra, j'ai ajouté une tentative assez pitoyable de simuler la rotation des pages...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5849
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Un petit calendrier à feuilleter   Jeu 13 Juin 2013 - 0:59

Pas pour longtemps je suis sûr que la v2 ne va pas tarder, tu attendais dejà les éloges sur la beauté de la v1, mais on te connais... Smile
En tout cas c'est vrai qu'il est beau ce calendrier (moins pratique que celui d'avant pour quand on veut se 'promener' dans le temps par contre) mais tellement proche des bon vieux calendrier où l'on retirait le jour passé.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Un petit calendrier à feuilleter   Jeu 13 Juin 2013 - 1:03

Eh oui, j'avais un truc comme ça au bureau, maintenant tout le monde a au moins un pc...
J'aurais bien fait aussi le truc qu'on accrochait au mur avec une feuille détachable par jour, et un dessin humoristique (plus ou moins...) par jour, mais je manque d'histoires drôles, et bonjour la quantité de dessins (eh bien... 365 ou 366 !)...

Tiens d'ailleurs dans ma modif précédente j'avais même rajouté un petit bug (manquait un ':' avant une apostrophe), corrigé.

Et je vous donne le socle en prime:
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Un petit calendrier à feuilleter   Ven 14 Juin 2013 - 19:37

Pour donner raison à Jicehel, j'ai fait quelques petits ajouts à mon inutilitaire:
- possibilité de faire des sauts dans le temps (en plus du jour par jour), par bonds de 10 jours, 1 mois ou 1 an, dans les deux sens: pour faire apparaître le choix, cliquer sur le crayon au-dessous.
- affichage des fêtes du jour, si on dispose du fichier des fêtes.
- affichage des événements du jour, sur la page de gauche, le fichier des événements (un par année) étant le même que dans le calendrier précédent, mais ici il n'est pas prévu de maintenance (mise à jour) du fichier par le programme.

Je vous livre ici le fichier des fêtes, à écrire dans un fichier Fetes.txt:

Code:
0101,JOUR DE L'AN
0102,St Basile
0103,Ste Geneviève
0104,St Odilon
0105,St Edouard
0106,Ste Mélaine
0107,St Raymond
0108,St Lucien
0109,St Alix
0110,St Guillaume
0111,St Paulin
0112,Ste Tatiana
0113,Ste Yvette
0114,Ste Nina
0115,St Rémi
0116,St Marcel
0117,Ste Roseline
0118,Ste Prisca
0119,St Marius
0120,St Sébastien
0121,Ste Agnès
0122,St Vincent
0123,St Barnard
0124,St François de Sales
0125,St Apollos
0126,Ste Paule
0127,Ste Angèle
0128,St Thomas d'Aquin
0129,St Gildas
0130,Ste Martine
0131,Ste Marcelle
*
0201,Ste Ella
0202,Prés. Seigneur
0203,St Blaise
0204,Ste Véronique
0205,Ste Agathe
0206,St Gaston
0207,Ste Eugénie
0208,Ste Jacqueline
0209,Ste Apolline
0210,St Arnaud
0211,ND de Lourdes
0212,St Félix
0213,Ste Béatrice
0214,St Valentin
0215,St Claude
0216,Ste Julienne
0217,St Alexis
0218,Ste Bernadette
0219,St Gabin
0220,Ste Aimée
0221,St Damien
0222,Ste Isabelle
0223,St Lazare
0224,St Modeste
0225,St Roméo
0226,St Nestor
0227,Ste Honorine
0228,St Romain
0229,St Auguste
*
0301,St Aubin
0302,St Charles le Bon
0303,St Guénolé
0304,St Casimir
0305,Ste Olivia
0306,Ste Colette
0307,Ste Félicité
0308,St Jean de Dieu
0309,Ste Françoise
0310,St Vivien
0311,Ste Rosine
0312,Ste Justine
0313,St Rodrigue
0314,Ste Mathilde
0315,Ste Louise
0316,Ste Bénédicte
0317,St Patrice
0318,St Cyrille
0319,St Joseph
0320,PRINTEMPS,St Herbert
0321,Ste Clémence
0322,Ste Léa
0323,St Victorien
0324,Ste Catherine de Suède
0325,Annonciation
0326,Ste Larissa
0327,St Habib
0328,St Gontran
0329,Ste Gwladys
0330,St Amédée
0331,St Benjamin
*
0401,St Hugues
0402,Ste Sandrine
0403,St Richard
0404,St Isidore
0405,Ste Irène
0406,St Marcellin
0407,St Jean-Baptiste de la Salle
0408,Ste Julie
0409,St Gautier
0410,St Fulbert
0411,St Stanislas
0412,St Jules
0413,Ste Ida
0414,St Maxime
0415,St Paterne
0416,St Benoît-Joseph
0417,St Anicet
0418,St Parfait
0419,Ste Emma
0420,Ste Odette
0421,St Anselme
0422,St Alexandre
0423,St Georges
0424,St Fidèle
0425,St Marc
0426,Ste Alida
0427,Ste Zita
0428,Ste Valérie
0429,Ste Catherine de Sienne
0430,St Robert
*
0501,FETE DU TRAVAIL
0502,St Boris
0503,St Philippe/Jacques
0504,St Sylvain
0505,Ste Judith
0506,Ste Prudence
0507,Ste Gisèle
0508,VICTOIRE 1945
0509,Ste Pacôme
0510,Ste Solange
0511,Ste Estelle
0512,St Achille
0513,Ste Rolande
0514,St Mathias
0515,Ste Denise
0516,St Honoré
0517,St Pascal
0518,St Eric
0519,St Yves
0520,St Bernardin
0521,St Constantin
0522,St Emile
0523,St Didier
0524,St Donatien
0525,Ste Sophie
0526,St Bérenger
0527,St Augustin de C.
0528,St Germain
0529,St Aymar
0530,St Ferdinand
0531,Visitation
*
0601,St Justin
0602,Ste Blandine
0603,St Kévin
0604,Ste Clotilde
0605,St Boniface
0605,St Igor
0606,St Norbert
0607,St Gilbert
0608,St Médard
0609,Ste Diane
0610,St Landry
0611,St Barnabé
0612,St Guy
0613,St Antoine de Padoue
0614,St Elisée
0615,Ste Germaine
0616,St J.F. Régis
0617,St Hervé
0618,St Léonce
0619,St Romuald
0620,St Silvère
0621,ETE,St Rodolphe
0622,St Alban
0623,Ste Audrey
0624,St Jean-Baptiste
0625,St Salomon
0626,St Anthelme
0627,St Fernand
0628,St Irénée
0629,St Pierre et Paul
0630,St Martial
*
0701,St Thierry
0702,St Martinien
0703,St Thomas
0704,St Florent
0705,St Antoine
0706,Ste Mariette
0707,ST Raoul
0708,St Thibaut
0709,Ste Amandine
0710,St Ulrich
0711,St Benoît
0712,St Olivier
0713,St Henri Joël
0714,FETE NATIONALE
0715,St Donald
0716,ND du Mt Carmel
0717,Ste Charlotte
0718,St Frédéric
0719,St Arsène
0720,Ste Marina
0721,St Victor
0722,Ste Marie-Madeleine
0723,Ste Brigitte
0724,Ste Christine
0725,St Jacques
0726,Ste Anne
0727,Ste Nathalie
0728,St Samson
0729,Ste Marthe
0730,Ste Juliette
0731,St Ignace de Loyola
*
0801,St Alphonse
0802,St Julien-Eymard
0803,Ste Lydie
0804,St Jean-Marie Vianney
0805,St Abel
0806,Transfiguration
0807,St Gaétan
0808,St Dominique
0809,St Amour
0810,St Laurent
0811,Ste Claire
0812,Ste Clarisse
0813,St Hippolyte
0814,St Evrard
0815,ASSOMPTION
0816,St Armel
0817,St Hyacinthe
0818,Ste Hélène
0819,St Jean Eudes
0820,St Bernard
0821,St Christophe
0822,St Fabrice
0823,Ste Rose de lima
0824,St Barthélémy
0825,St Louis
0826,Ste Natacha
0827,Ste Monique
0828,St Augustin
0829,Ste Sabine
0830,St Fiacre
0831,St Aristide
*
0901,St Gilles
0902,Ste Ingrid
0903,Grégoire
0904,Ste Rosalie
0905,Ste Raïssa
0906,St Bertrand
0907,Ste Reine
0908,Nativité ND
0909,St Alain
0910,Ste Inès
0911,St Adelphe
0912,St Apollinaire
0913,St Aimé
0914,Ste Croix
0915,St Roland
0916,Ste Edith
0917,St Renaud
0918,Ste Nadège
0919,Ste Emilie
0920,St Davy
0921,St Matthieu
0922,St Maurice
0923,AUTOMNE,St Constant
0924,Ste Thècle
0925,St Hermann
0926,St Côme Damien
0927,St Vincent de Paul
0928,St Venceslas
0929,St Michel Gabriel
0930,St Jérôme
*
1001,Ste Thérèse E.J.
1002,St Léger
1003,St Gérard
1004,St François d'Assise
1005,Ste Fleur
1006,St Bruno
1007,St Serge
1008,Ste Pélagie
1009,St Denis
1010,St Ghislain
1011,St Firmin
1012,St Wilfried
1013,St Géraud
1014,St Juste
1015,Ste Thérèse d'Avila
1016,Ste Edwige
1017,St Baudouin
1018,St Luc
1019,St René
1020,Ste Adeline
1021,Ste Céline
1022,Ste Salomé
1023,St Jean de Capistran
1024,St Florentin
1025,St Enguerrand
1026,St Dimitri
1027,Ste Emeline
1028,St Simon
1029,St Narcisse
1030,Ste Bienvenue
1031,St Quentin
*
1101,TOUSSAINT
1102,Défunts
1103,St Hubert
1104,St Charles
1105,Ste Sylvie
1106,Ste Bertille
1107,Ste Carine
1108,St Geoffroy
1109,St Théodore
1110,St Léon
1111,ARMISTICE 1918
1112,St Christian
1113,St Brice
1114,Ste Sidoine
1115,St Albert
1116,Ste Marguerite
1117,Ste Elisabeth
1118,Ste Aude
1119,St Tanguy
1120,St Edmond
1121,Présentation de Marie
1122,Ste Cécile
1123,St Clément
1124,Ste Flora
1125,Ste Catherine Labouré
1126,Ste Delphine
1127,St Séverin
1128,St Jacques de la Marche
1129,St Saturnin
1130,St André
*
1201,Ste Florence
1202,Ste Viviane
1203,St François Xavier
1204,Ste Barbara
1205,St Gérald
1206,St Nicolas
1207,St Ambroise
1208,Immaculée Conception
1209,St Pierre Fourier
1210,St Romaric
1211,St Daniel
1212,Ste Jeanne Françoise Chantal
1213,Ste Lucie
1214,Ste Odile
1215,Ste Ninon
1216,Ste Alice
1217,St Judicaël
1218,St Gatien
1219,St Urbain
1220,St Théophile
1221,HIVER
1222,Ste Fr.-Xavière
1223,St Armand
1224,Ste Adèle
1225,NOËL
1226,St Etienne
1227,St Jean Apôtre
1228,Sts Innocents
1229,St David
1230,St Roger
1231,St Sylvestre
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 4988
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Un petit calendrier à feuilleter   Ven 14 Juin 2013 - 22:54

Dommage que tu ne l'ai pas intégrer dans ton code tout la haut.
Voilà un petit programme sympa qui pourrait faire l'affaire de Cosmos pour son dernier poste.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5849
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Un petit calendrier à feuilleter   Ven 14 Juin 2013 - 23:01

Magnifique JL35, maintenant pour moi, plus rien à ajouter. On peut naviguer et les fêtes rendent très bien. Un exe a partager et programme à mettre dans le suivi du forum.
Bravo JL35, belle créativité.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Un petit calendrier à feuilleter   Sam 15 Juin 2013 - 0:36

Merci les gars ! (je rentre seulement, j'étais parti boire un coup de limonade Very Happy chez le voisin, ça s'est un peu prolongé).
@Jean Claude je n'ai pas mis les fêtes dans le programme pour ne pas surcharger, ça pourrait se faire mais ça fait beaucoup de datas.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7961
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 15 Juin 2013 - 2:37

Il faudra me poster le programme.
JL35 n' a pas de webdav.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Un petit calendrier à feuilleter   Sam 15 Juin 2013 - 22:06

J'avoue, je n'ai pas de webdav Embarassed  et je ne sais même pas trop ce que c'est, bref je m'en passe, pour ce que je fais le forum me suffit.
Mais qu'est-ce que tu entends ygeronimi par te poster le programme ? tu ne peux pas le prendre directement ici ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7961
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 15 Juin 2013 - 22:13

Si, je peux prendre ici et même là Very Happy
mais je pensais que ton calendrier avait eu des améliorations que tu n' avais mises sur le forum...( mea culpa )

Même si tu n'as pas de webdav, tu peux mettre des fichiers dans le dossier du mag sur le mien.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Un petit calendrier à feuilleter   Sam 15 Juin 2013 - 22:40

OK merci ygeronimi, j'en tiendrai compte. Et ma version tout en haut est à jour. Pour le moment Very Happy
(d'ailleurs pour le moment je ne vois pas grand chose à ajouter à part peut-être la gestion e la mise à jour des événements, mais bon, ce n'est qu'un inutilitaire pour s'amuser, pas la peine de trop compliquer).
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5849
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Un petit calendrier à feuilleter   Sam 15 Juin 2013 - 22:47

Je suis d'accord, il est complet.
Après tu peux toujours rajouter des notes dessus (genre un trombone et quand tu cliques dessus, ça t'ouvres un post-it) mais ce n'est déjà plus le même programme (on sort un peu du calendrier)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7961
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 15 Juin 2013 - 23:00

...en combinant avec BDR.dll de klaus, tu peux...

lol!lol!lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Un petit calendrier à feuilleter   Sam 15 Juin 2013 - 23:05

Oui, tu as tout à fait raison ! mais bon, j'ai pas envie... Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Un petit calendrier à feuilleter   Sam 15 Juin 2013 - 23:50

Finalement j'ai ajouté une gestion sommaire des événements:
Un bouton 'Evt' qui lance le Notepad pour éditer le fichier des événements de l'année (s'il n'existe pas, le fichier sera préalablement créé vide par le programme, dans le dossier C:\TEXTES qui doit exister).
La structure des articles est décrite en tête du fichier, chaque article étant très court, quelques mots, c'est plutôt un pense-bête qu'un morceau de littérature.
Remarquez aussi que le programme affiche les dates de passage aux heures d'été et d'hiver, le jour venu.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 4988
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Un petit calendrier à feuilleter   Dim 16 Juin 2013 - 0:52

J'en crois pas mes oreilles et mes yeux, y a des mecs qui préfèrent le forum à un concert de Johny...

afrolol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Un petit calendrier à feuilleter   Dim 16 Juin 2013 - 12:19

C'est que j'ai longuement hésité ! Very Happy  mais j'espère bien ne pas rater son centenaire ! (enfin, si je suis encore là...)
je pense que toi aussi tu as eu un empêchement majeur...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 4988
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Un petit calendrier à feuilleter   Dim 16 Juin 2013 - 12:43

Non, je n'ai pas eu d'empêchement, j'ai écouter le concert et je suis venu sur forum, après.

à 70 Balais, il tient encore la route le vieux rockeur. Wink

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5501
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Un petit calendrier à feuilleter   Dim 16 Juin 2013 - 13:21

Je vois qu’il a l’air bien  l’air du concert que tu as écouter avec un R à l’infinitif !
Jean Claude, à la prochaine !

D’ici là, je me tais ou plutôt j’arrête de torturer mon clavier !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 4988
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Un petit calendrier à feuilleter   Dim 16 Juin 2013 - 14:25

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Un petit calendrier à feuilleter   Dim 16 Juin 2013 - 15:23

Moi je préfère les chanteurs de mon époque, Caruso, tout ça...
En tout cas, papydall ne t'a pas loupé ! (je remets un peu d'huile... sur le feu)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Un petit calendrier à feuilleter   

Revenir en haut Aller en bas
 
Un petit calendrier à feuilleter
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 2Aller à la page : 1, 2  Suivant
 Sujets similaires
-
» Un petit calendrier à feuilleter
» Un petit calendrier vite fait
» Calendrier plus petit
» calendrier date du jour
» Un petit bonjour / bonsoir !

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 :: Les inutilitaires-
Sauter vers: