T0z1:p=200;490 d=18 sty=gras cf=20,20,20 cc=0,255,0 t= les éléments interactifs ont ici un fond vert ! T0z2:p=200;525 d=14 sty=italique cf=20,222,220,0.9,Ss cc=240,10,10 t= ceci est codé en 'GAMIN' uniquement ! (Evolutions prévues ...) ! P3:p=200;450 ! R3:p1=P3.x-5;P3.y-22 dM=500;28 cc=180,0,180 cf=230,230,0,0.3,Ss ! T3dn:p=P3.x+260;P3.y d=14 cc=22,10,22 t= date de naissance: ! P4:p=200;420 ! $V4ixlst: type=nombre(1,0,9) ! $V5i_aine: type=nombre(2,0,9) ! $V5i_cadet: type=nombre(3,0,9) ! T4list:p=P4 d=18 cf=20,222,20 cc=220,10,20 t= liste de noms ! $V4dates: type=liste(21/05/1948~10/03/1957~15/10/1965~23/09/1977~14/01/2000~?,10,3) ! $V4list: type=liste(MARTIN~AKIM~DAO~POPEYE~DULCINEE~BEBE,25,3) ! //__ CMD4bidon: # $V7x.v=P1bb.y+100 !>>; $V7x.Revol(1) !>> ; # //_CMD4lmj: # T4list.t=$V4list.select !>>; # E4add:p1=P4.x+260;P4.y-18 dM=70;24 cc=20,200,70 cf=20,222,20,0.7,Ss ! T4add:p=P4.x+270;P4.y d=16 cc=0,20,220 t=ajouter ! //E4del:p1=P4.x+360;P4.y-18 dM=90;24 cc=20,200,70 cf=20,222,20,0.7,Ss ! G4del:cc=20,200,70 cf=20,222,20,0.7,Ss pts=_P4.x+360;P4.y+5! e-7!_88;0| e5!_0;-24| e-9!_-88;0| e-5!_0;24| &# T4del:p=P4.x+370;P4.y d=16 cc=0,20,220 t=supprimer ! P1:p=170;350 VU_N ! R5:p1=P1.x+220;P3.y-220 dM=320;100 cc=180,0,180 cf=230,230,0,0.3,Ss ! T5aine:p=P1.x+225;P3.y-190 d=18 cf=20,222,20 cc=bleu t= aîné ! T5cadet:p=P1.x+225;P3.y-140 d=18 cf=20,222,20 cc=gris t= cadet ! T5date:p=P1.x+225;P3.y-165 d=14 cc=130,130,0 sty=italique t=aîné 2 fois plus âgé le: ! //$V0a: type=nombre(10,0,111) ! $V0a: type=decimal(10,0,111) ! T0:p=470;80 d=16 t= 0 < écart âges < 111 ! T0dbl:p=220;50 d=18 cc=180,180,20 t=(âge doublé) ! //CMD0dbl: # T0dbl.f_Tourn(0.245,0.0,0.0,0.0) ! //CMD1: # T0dbl.tourner($V3+$V4,..P2) !>>; //=** $V3nom: type=texte(MORTON,25) ! $V3nom: type=texte($V4list.selObj|BIDON,25) # T3nom:p=P3 d=18 cc=220,10,20 cf=20,222,20 t=$V3nom # //$V3date: type=date(21/05/1984,dd/MM/yyyy,fr) ! $V3date: type=date($V4dates[$V4list.selInd]|02/02/2222,dd/MM/yyyy,fr) # //CMD4maj: # $V4dates.select($V4list.selInd) !>>; # T3date:p=P3.x+390;P3.y d=18 cc=220,10,20 cf=20,222,20 t=$V3date # B3nom: frm=T3nom CLICK=gm1.saisir(25,1,$V3nom,ERR[STATUT&MODOP]) ! B3date: frm=T3date CLICK=gm1.saisir(10,1,$V3date,ERR[STATUT&MODOP]) ! B4liste: frm=T4list CLICK=gm1.saisir(25,1,$V4list,ERR[STATUT&MODOP],$V4ixlst) ! B5aine: frm=T5aine CLICK=gm1.saisir(25,1,$V4list,ERR[STATUT&MODOP],$V5i_aine) ! B5cadet: frm=T5cadet CLICK=gm1.saisir(25,1,$V4list,ERR[STATUT&MODOP],$V5i_cadet) ! $V5dat_a: type=date($V4dates[$V5i_aine],dd/MM/yyyy,fr) # T5dat_a:p=P1.x+430;P3.y-190 d=12 cc=20,20,20 t=$V5dat_a # $V5dat_c: type=date($V4dates[$V5i_cadet],dd/MM/yyyy,fr) # T5dat_c:p=P1.x+430;P3.y-140 d=12 cc=20,20,20 t=$V5dat_c # $V5dat_dbl: type=date(MS($V5dat_c*2-$V5dat_a),dd/MM/yyyy,fr) # //CMD5dchg: # $V5dat_dbl.Format(EEEEE dd MMMM yyyy,fr) !>>; # CMD5dchg: # $V5dat_dbl.Format(EEEEE dd MMMM yyyy,fr) # T5dat_dbl:p=P1.x+375;P3.y-165 d=12 sty=gras cc=120,120,0 t=$V5dat_dbl # //T5dat_dbl:p=P1.x+440;P3.y-165 d=12 cc=20,20,20 t=11/11/1111 # T0ai0:p=10;50 cc=bleu sty=italique d=14 t=âge de l'aîné = # T0b:p=445;170 cc=gris d=16 t=âge du cadet : ! $V0c0: type=decimal(20,0,111) ! $V0ecar: type=decimal(MS($V5dat_c-$V5dat_a)/31557600000,0,111) # A0:p=450;180 t=120 bo=0;230 va=$V0c0*2 # //A1:p=450;90 t=120 bo=0;140 va=$V0a*2 # A1:p=450;90 t=120 bo=0;140 va=$V0ecar*2 # //$V1a: type=nombre(A1.va,0,111) # $V1a: type=decimal(A1.va,0,111) # $V0date: type=date(?,' le :' EEEEE dd MMMM yyyy 'à' HH'h'mm' 'ss's ',fr) # T0date:p=P1.x+240;P1.y-4 d=14 sty=gras cc=blanc cf=rouge t=$V0date # //$V0dcad: type=date(MS(A0.va*31536000000+$V5dat_c),'au :' EEEEE dd MMMM yyyy 'à' HH'h'mm,fr) # //$V0dcad: type=date(MS(A0.va*15768000000+$V5dat_c),'au :' EEEEE dd MMMM yyyy 'à' HH'h'mm,fr) # $V0dcad: type=date(MS(A0.va*15778800000+$V5dat_c)),'au :' dd MMMM yyyy 'à' HH'h'mm ss's',fr) # T0dcad:p=450;140 d=14 sty=gras cc=magenta cf=vert t=$V0dcad # $V0dvie: type=date(MS($V0dcad)),'au :' EEEEE dd MMMM yyyy 'à' HH'h'mm,fr) # T0dvie:p=P1.x+230;P1.y+15 d=14 cc=170,70,170 t=$V0dvie # B0dcad: frm=T0dcad CLICK=gm1.saisir(26,1,$V0dcad,ERR[STATUT&MODOP]) ! //$V0c: type=decimal(A0.va*0.5,0,111) # $V0c: type=decimal(MS($V0dcad-$V5dat_c)/31557600000,0,111) # T0b2:p=575;170 cf=20,222,20,0.9,Ss cc=40,10,40 d=16 t=$V0c # //$V0ag_c: type=decimal(MS($V0date-$V5dat_c)/31536000000,0,111) # $V0ag_c: type=decimal(MS($V0date-$V5dat_c)/31557600000,0,111) # G0date:cc=rouge pts=_P1.x+$V0ag_c*2+10;P1.y-12! e4!_-10;12| e4!_-10;-12| e5!_20;0| e-15!_P1.x+240;P1.y-9! # P5a:p=P1.x;P1.y-A1.va # P5b:p=P5a.x+400;P5a.y-400 # D1:p1=P1 p2=P1.x+600;P1.y cc=50,50,50 # D2:p1=P1 L(D1) cc=100,50,100 # D3:p1=P1 p2=P1.x+400;P1.y-400 cc=gris # //G3:cc=100,100,100 sk=3.5,CAP_SQUARE,JOIN_MITER,2,[9,5],10 pts=_P1! _P1.x+200;P1.y-200! # D4:p1=P1 p2=P1.x+200;P1.y-400 cc=180,180,20 # D5:p1=P5a p2=P5b cc=0,40,250 # T1:p=200;385 d=14 cc=180,180,20 sty=italique t=(âge doublé => âge du cadet+écart =2*âge du cadet ) ! T1a:p=5;P1.y-$V1a d=12 t=écart âges = # ///D1alien:p1=100;P1.y-$V1a p2=P1.x;P1.y-$V1a cc=240,240,30 # G1alien:cc=190,190,30 pts=_P1.x;P1.y-$V1a! _-9;-5| e-5!_0;6| _P1.x;P1.y-$V1a! e9!_100;P1.y-$V1a! # ///T1b:p=75;P1.y-$V1a sty=italique d=20 fnt=serif cf=20,222,20,0.9,Ss cc=40,10,40 t= ..? # T1b:p=75;P1.y-$V1a sty=italique d=20 cf=20,222,20,0.9,Ss cc=40,10,40 t= ..? # C1:D4*D5 # P6:p=C1[0] # D6a:p1=P6 p2=P6.x;P1.y cc=160,160,10 # D6b:p1=P6 p2=P1.x;P6.y cc=160,160,10 # T2a:p=P6.x-30;P1.y+12 d=14 cc=160,160,10 t=cadet= # $V1b: type=decimal(A1.va*0.5,0,111) # T2a2:p=P6.x+12;P1.y+12 d=14 t=$V1b # T2b1:p=P1.x-70;P6.y-3 cc=160,160,10 sty=italique d=14 t=aîné= # T2b2:p=P1.x-35;P6.y-3 cc=160,160,10 sty=italique d=14 t=$V1a # //B1a: frm=T1b CLICK=gm1.saisir(3,1,$V0a,ERR[STATUT&MODOP]) ! B1a: frm=T1b CLICK=gm1.saisir(3,1,$V0ecar,ERR[STATUT&MODOP]) ! //B1a: frm=T1b CLICK=gm1.saisir(5,2,$V0a,ERR[STATUT]) ! B1c: frm=T0b2 CLICK=gm1.saisir(3,1,$V0c0,ERR[MODOP]) ! //D9age:p1=P1.x+A0.va;P1.y L(D1) cc=244,100,244 # D9age:p1=P1.x+$V0c*2;P1.y L(D1) cc=244,100,244 # R0vie:c=D9age.p1.x;P1.y+20 dM=4;4 cf=200,90,200 # G0vie:cc=200,90,200 pts=_D9age.p1.x;P1.y+20! e5!_P1.x+230;P1.y+10! # C1c:D3*D9age # C1a:D5*D9age # //D9a1:p1=435;165 p2=C1c[0] cc=rouge # // _9;-3| _6;3| _C1c[0]! G9a1:cc=244,180,244 pts=_C1c[0]! e20!_435;165! # E9a1:c=435;165 dM=8;7 cf=244,180,244 # P9a1:p=C1a[0] # P9a2:p=P1.y-P9a1.y;0 VU_N # $V0age: type=nombre(P9a2.x*0.5,0,111) # //D9a2:p1=75;60 p2=C1a[0] cc=244,180,244 # G9a2:cc=244,180,244 pts=_C1a[0]! e30!_75;60! # E9a2:c=75;60 dM=8;7 cf=244,180,244 # T0ai1:p=115;50 cc=bleu sty=italique d=14 t=$V0age # //B4ajou: frm=E4add CLICK=gm1.faire($V4cmd.v=1,ERR[STATUT&MODOP],erreur ajout liste) ! B4ajou: frm=E4add CLICK=gm1.faire($V4cmd.v=1,ERR[STATUT]) ! $V4cmd: type=nombre(0,0,3) ! CMD4a0: #-> ?=($V4cmd=1) # //CMD4a1: # $V3nom.v=Toti_Bidon 1>>; # CMD4a3: # $V4dates.Plus(T3date.t) # CMD4a2: # $V4list.Plus(T3nom.t) # CMD4a5: # $V4cmd.v=0 # CMD4a6: #<- ?=(NON) # B4del: frm=G4del CLICK=gm1.faire($V4cmd.v=2,ERR[MODOP]) ! CMD4b0: #-> ?=($V4cmd=2) # //CMD4b2: # $V4dates.Moins($V4ixlst.v) # CMD4b2: # $V4dates.Moins($V4ixlst) # CMD4b3: # $V4list.Moins($V4ixlst) # CMD4b5: # $V4cmd.v=0 # CMD4b6: #<- ?=(NON) #