Quelques lignes de code plus tard....

"Ce n'est pas la force, mais la persévérance, qui fait les grandes œuvres"

@ papydall ,

Ben...alors... , ca doit être un sacré monument mon truc.... lol!

@ Nardo ,

J'ai regardé ton code pour la verif de date , dès que je retrouve toutes mes lignes ... Laughing

...je l'insère , c'est promis ! Laughing

@ygeronimi

Tu en doute Question

Y croix dur comme fer, persévères et…. tu ne peux qu’y arriver ! Idea

Alors bon courage, tu en auras besoin. farao

Voilà .... et ca marche !

( à moins qu'un petit Twisted Evil

efface une virgule ou un point par si par là )

Code:: rem ' les variables d'affichages
dim x,L%,L$,C1$,C2$,C3$,C4$,sep%,m,F7%,F8%
dim Dossier$,Inf%,Option%
dim verif%
rem ' Les variables de calcul
rem ' Les variables fixes
dim G_ht,Ehc_ht,Ehp_ht,Tx_Tva1,Tx_Tva2,G_CTA,E_CTA,TDC,TMC,CoefG,CSPE
rem ' Les variables de facturation
dim D$(5),DebG%,FinG%,DebE_hc%,FinE_hc%,DebE_hp%,FinE_hp%
dim T$(5)
rem ' Les variables de relevé
dim RG%,RE_hc%,RE_hp%
rem ' Les variables calculés
dim fichier$,Conf%,res%
dim format$,xstr$,result%
dim D%(5),J%,M%,A%
dim Njfg%,Njfe%,Njrg%,Njre%
dim ConsoG,ConsoE_hc,ConsoE_hp
dim ConsoG2,ConsoE_hc2,ConsoE_hp2
dim NbreJ1,NbreJ2,NbreJ3,NbreJ4
dim ConsoG3,ConsoE_hc3,ConsoE_hp3
dim MFG,MFE_hc,MFE_hp
dim MRG,MRE_hc,MRE_hp
dim DiffG,DiffE_hc,DiffE_hp
dim a$,b$,c%,c$,f%,e%,z$,entree%,N_entree%,x1
rem ' les fonctions du menu
label init, Nouveau,Visu,Quitter,Compar,Param_Voir,Param_Modif,APP
rem ' les fonctions du container 100
label Enrgt_R,Annul_R,Verif_R
rem ' les fonctions du container 200
label Remp_Grid,Graph,Dessin
rem ' les fonctions de container 300
label Compar_2
rem ' les fonctions de container 350
label Calcul,Cache700,Charge
rem ' les fonctions du container 500
label Init_Var
rem ' les fonctions du container 700
label Remp_700
label CtrlDate,Test
rem ' fenetre principale
Application_title "GDF Suez"
caption 0,"GDF Suez"
width 0,500 : height 0,300 :left 0,(screen_x-500)/2 : top 0,(screen_y-300)/2

main_menu 1
sub_menu 2 :parent 2,1 :caption 2,"Fichiers"
sub_menu 3 :parent 3,2 :caption 3,"Nouveau relevé" :on_click 3,Nouveau
sub_menu 4 :parent 4,2 :caption 4,"Visualiser un relevé" :on_click 4,Visu
sub_menu 5 :parent 5,2 :caption 5,"--------------------"
sub_menu 6 :parent 6,2 :caption 6,""
sub_menu 7 :parent 7,2 :caption 7,"Quitter" :on_click 7,Quitter
sub_menu 8 :parent 8,1 :caption 8,"Outils"
sub_menu 9 :parent 9,8 :caption 9,"Comparateur" :on_click 9,Compar
sub_menu 10:parent 10,1 :caption 10,"Paramètres"
sub_menu 11:parent 11,10:caption 11,"Voir" :on_click 11,Param_Voir
sub_menu 12:parent 12,10:caption 12,"Modifier" :on_click 12,Param_Modif
sub_menu 13:parent 13,1 :caption 13,"A Propos..." :on_click 13,APP

Container 100:caption 100," Nouveau relevé " :hide 100
top 100,10 :left 100,10 :width 100,465 :height 100,220 :font_name 100,"Times new roman":font_size 100,10
Alpha 101:parent 101,100:top 101,25 :left 101,25 :caption 101,"Date"
Alpha 102:parent 102,100:top 102,90 :left 102,25 :caption 102,"Compteur Gaz"
Alpha 103:parent 103,100:top 103,90 :left 103,135 :caption 103,"Compteur EDF Hc"
Alpha 104:parent 104,100:top 104,90 :left 104,260 :caption 104,"Compteur EDF Hp"
Edit 105 :parent 105,100:top 105,45 :left 105,25 :width 105,80
hint 105,"format jj/mm/aaaa"
Edit 106 :parent 106,100:top 106,110:left 106,25 :width 106,90
Edit 107 :parent 107,100:top 107,110:left 107,135 :width 107,90
Edit 108 :parent 108,100:top 108,110:left 108,260 :width 108,90
Button 109:parent 109,100:top 109,190:left 109,300:caption 109,"Enregistrer":cursor_point 109:on_click 109,Verif_R
Button 110:parent 110,100:top 110,190:left 110,380:caption 110,"Annuler" :cursor_point 110:on_click 110,Annul_R

Container 200:caption 200," Mes relevés " :hide 200
top 200,10 :left 200,10 :width 200,465 :height 200,220 :font_name 200,"Times new roman":font_size 200,10
Grid 201:parent 201,200:top 201,25:left 201,5:width 201,450:height 201,150:grid_column 201,7:grid_row 201,2
Grid_column_width 201,60
grid_write 201,1,1,"Date" :grid_write 201,1,2,"Gaz" :grid_write 201,1,3,"Elec. Hc":grid_write 201,1,4,"Elec. Hp"
grid_write 201,1,5,"C.Gaz":grid_write 201,1,6,"C. Elec hc":grid_write 201,1,7,"C. Elec hp"
grid_row_height 201,20
Button 202:parent 202,200:top 202,190:left 202,380:caption 202,"Graphique" :cursor_point 202:on_click 202,Graph

Container 300:caption 300," Comparateur - La Facture " :hide 300
top 300,10 :left 300,10 :width 300,465 :height 300,220 :font_name 300,"Times new roman":font_size 300,10
alpha 301:parent 301,300:top 301,25:left 301,10:caption 301,"Facture :":font_color 301,125,25,7
alpha 302:parent 302,300:top 302,55:left 302,50:caption 302,"Dates début Dates fin"
alpha 303:parent 303,300:top 303,55:left 303,250:caption 303,"Index début"
alpha 304:parent 304,300:top 304,55:left 304,350:caption 304,"Index fin"
alpha 305:parent 305,300:top 305,75:left 305,10:caption 305,"Gaz"
alpha 306:parent 306,300:top 306,105:left 306,10:caption 306,"Elec."
edit 307:parent 307,300:top 307,72:left 307,50:width 307,65
hint 307,"format jj/mm/aaaa"
edit 308:parent 308,300:top 308,72:left 308,130:width 308,65
hint 308,"format jj/mm/aaaa"
edit 311:parent 311,300:top 311,72:left 311,250:width 311,90
edit 312:parent 312,300:top 312,72:left 312,350:width 312,90
edit 309:parent 309,300:top 309,103:left 309,50:width 309,65
hint 309,"format jj/mm/aaaa"
edit 310:parent 310,300:top 310,103:left 310,130:width 310,65
hint 310,"format jj/mm/aaaa"
edit 313:parent 313,300:top 313,103:left 313,250:width 313,90
edit 314:parent 314,300:top 314,103:left 314,350:width 314,90
edit 315:parent 315,300:top 315,134:left 315,250:width 315,90
edit 316:parent 316,300:top 316,134:left 316,350:width 316,90
alpha 317:parent 317,300:top 317,105:left 317,230:caption 317,"Hc":font_italic 317
alpha 318:parent 318,300:top 318,134:left 318,230:caption 318,"Hp":font_italic 318
Button 349:parent 349,300:top 349,190:left 349,380:caption 349,"Mon relevé" :cursor_point 349:on_click 349,Compar_2

Container 350:caption 350," Comparateur - Mon relevé " :hide 350
top 350,10 :left 350,10 :width 350,465 :height 350,220 :font_name 350,"Times new roman":font_size 350,10
alpha 351:parent 351,350:top 351,25:left 351,10:caption 351,"Mon relevé :":font_color 351,125,25,7
alpha 352:parent 352,350:top 352,55:left 352,50:caption 352,"Date"
alpha 353:parent 353,350:top 353,55:left 353,250:caption 353,"Relevé"
edit 354:parent 354,350:top 354,72:left 354,50:width 354,65
hint 354,"format jj/mm/aaaa"
edit 355:parent 355,350:top 355,72:left 355,250:width 355,90
edit 356:parent 356,350:top 356,103:left 356,250:width 356,90
edit 357:parent 357,350:top 357,134:left 357,250:width 357,90
alpha 358:parent 358,350:top 358,105:left 358,230:caption 358,"Hc":font_italic 358
alpha 359:parent 359,350:top 359,134:left 359,230:caption 359,"Hp":font_italic 359
Button 398:parent 398,350:top 398,190:left 398,260:caption 398,"Charger" :cursor_point 398:on_click 398,Charge
hint 398,"Charge le dernier relevé enregistré"
Button 399:parent 399,350:top 399,190:left 399,380:caption 399,"Calculer" :cursor_point 399:on_click 399,Calcul

Container 400:caption 400," Mes Paramètres " :hide 400
top 400,10 :left 400,10 :width 400,465 :height 400,220 :font_name 400,"Times new roman":font_size 400,10
alpha 401:parent 401,400:top 401,35:left 401,10:caption 401,"Tarif Gaz Kwh Ht :"
alpha 402:parent 402,400:top 402,65:left 402,10:caption 402,"Tarif Elec.(Hc) Kwh Ht :"
alpha 403:parent 403,400:top 403,95:left 403,10:caption 403,"Tarif Elec.(Hp) Kwh Ht :"
alpha 404:parent 404,400:top 404,125:left 404,10:caption 404,"Tx TVA 1 :"
alpha 405:parent 405,400:top 405,155:left 405,10:caption 405,"Tx TVA 2 :"
alpha 406:parent 406,400:top 406,35:left 406,250:caption 406,"CTA Gaz Ht :"
alpha 407:parent 407,400:top 407,65:left 407,250:caption 407,"CTA Elec. Ht :"
alpha 408:parent 408,400:top 408,95:left 408,250:caption 408,"TDC Ht :"
alpha 409:parent 409,400:top 409,125:left 409,250:caption 409,"TMC Ht :"
alpha 421:parent 421,400:top 421,155:left 421,250:caption 421,"Coef Gaz :"
alpha 422:parent 422,400:top 422,185:left 422,250:caption 422,"CSPE :"
alpha 410:parent 410,400:top 410,35:left 410,150 :font_color 410,188,5,11
alpha 411:parent 411,400:top 411,65:left 411,150 :font_color 411,188,5,11
alpha 412:parent 412,400:top 412,95:left 412,150 :font_color 412,188,5,11
alpha 413:parent 413,400:top 413,125:left 413,150:font_color 413,188,5,11
alpha 414:parent 414,400:top 414,155:left 414,150:font_color 414,188,5,11
alpha 415:parent 415,400:top 415,35:left 415,350 :font_color 415,188,5,11
alpha 416:parent 416,400:top 416,65:left 416,350 :font_color 416,188,5,11
alpha 417:parent 417,400:top 417,95:left 417,350 :font_color 417,188,5,11
alpha 418:parent 418,400:top 418,125:left 418,350:font_color 418,188,5,11
alpha 419:parent 419,400:top 419,155:left 419,350:font_color 419,188,5,11
alpha 420:parent 420,400:top 420,185:left 420,350:font_color 420,188,5,11
alpha 423:parent 423,400:top 423,125:left 423,180:caption 423,"%"
alpha 424:parent 424,400:top 424,155:left 424,180:caption 424,"%"

Container 500:caption 500," Modifier les Paramètres ":hide 500
top 500,10 :left 500,10 :width 500,465 :height 500,220 :font_name 500,"Times new roman":font_size 500,10
alpha 501:parent 501,500:top 501,35:left 501,10:caption 501,"Tarif Gaz Kwh Ht :"
alpha 502:parent 502,500:top 502,65:left 502,10:caption 502,"Tarif Elec.(Hc) Kwh Ht :"
alpha 503:parent 503,500:top 503,95:left 503,10:caption 503,"Tarif Elec.(Hp) Kwh Ht :"
alpha 504:parent 504,500:top 504,125:left 504,10:caption 504,"Tx TVA 1 :"
alpha 505:parent 505,500:top 505,155:left 505,10:caption 505,"Tx TVA 2 :"
alpha 506:parent 506,500:top 506,35:left 506,250:caption 506,"CTA Gaz Ht :"
alpha 507:parent 507,500:top 507,65:left 507,250:caption 507,"CTA Elec. Ht :"
alpha 508:parent 508,500:top 508,95:left 508,250:caption 508,"TDC Ht :"
alpha 509:parent 509,500:top 509,125:left 509,250:caption 509,"TMC Ht :"
alpha 521:parent 521,500:top 521,155:left 521,250:caption 521,"Coef Gaz :"
alpha 522:parent 522,500:top 522,185:left 522,10:caption 522,"CSPE :"
edit 510:parent 510,500:top 510,32:left 510,150:width 510,80
edit 511:parent 511,500:top 511,62:left 511,150:width 511,80
edit 512:parent 512,500:top 512,92:left 512,150:width 512,80
edit 513:parent 513,500:top 513,122:left 513,150:width 513,50
edit 514:parent 514,500:top 514,152:left 514,150:width 514,50
edit 515:parent 515,500:top 515,32:left 515,350:width 515,80
edit 516:parent 516,500:top 516,62:left 516,350:width 516,80
edit 517:parent 517,500:top 517,92:left 517,350:width 517,80
edit 518:parent 518,500:top 518,122:left 518,350:width 518,80
edit 519:parent 519,500:top 519,152:left 519,350:width 519,80
edit 520:parent 520,500:top 520,182:left 520,150:width 520,80
alpha 523:parent 523,500:top 523,125:left 523,205:caption 523,"%"
alpha 524:parent 524,500:top 524,155:left 524,205:caption 524,"%"

Button 599:parent 599,500:top 599,190:left 599,380:caption 599,"Enregistrer" :cursor_point 599:on_click 599,Init_Var

Container 600:caption 600," A Propos... ":hide 600
top 600,10 :left 600,10 :width 600,465 :height 600,220 :font_name 600,"Times new roman":font_size 600,10
alpha 601:parent 601,600:top 601,100:left 601,20
dlist 98
dlist 99

gosub init
end

init:
Dossier$=dir_current$
if file_exists(Dossier$+"\Suez.inf")=1
file_load 99,Dossier$+"\Suez.inf"
if count(99)>0
G_ht=val(item_read$(99,1))
Ehc_ht=val(item_read$(99,2))
Ehp_ht=val(item_read$(99,3))
Tx_Tva1=val(item_read$(99,4))
Tx_Tva2=val(item_read$(99,5))
G_CTA=val(item_read$(99,6))
E_CTA=val(item_read$(99,7))
TDC=val(item_read$(99,8))
TMC=val(item_read$(99,9))
CoefG=val(item_read$(99,10))
CSPE=val(item_read$(99,11))
else
if message_information_yes_no("Le fichier des paramètres de calcul est vide"+chr$(10)+"Voulez vous entrez les paramètres maintenant ?")=1
gosub Param_Modif
else
Inactive 9
inactive 11
end_if
end_if
else
file_open_write 97,Dossier$+"\Suez.inf"
file_close 97
if message_information_yes_no("Vous Utilisez cette application pour la première fois"+chr$(13)+"Voulez vous enregistrer vos paramètres ?")=1
gosub Param_Modif
else
Inactive 9
inactive 11
end_if
end_if
if file_exists(Dossier$+"\user\Releves.txt")=1 then file_load 98,Dossier$+"\user\Releves.txt"
gosub Remp_grid

return

Nouveau:
show 100:hide 200:hide 300:hide 400:hide 500:hide 600:hide 350
set_focus 105
text 105,date$
return

Verif_R:
verif%=0
for x=106 to 108
if text$(x)=""
verif%=1
Exit_for
else
if instr(text$(x),",")>0
verif%=2
exit_for
end_if
end_if
next x
if verif%>0
if verif% =1 then message "Tous les champs doivent être remplis"
if verif% =2 then message "Format invalide"+chr$(10)+"La virgule doit être remplacée par un point"
end_if
gosub Test
if x=0 then gosub Enrgt_R
return

Enrgt_R:
item_add 98,text$(105)+";"+text$(106)+";"+text$(107)+";"+text$(108)
if dir_exists(Dossier$+"\user")=0 then dir_make Dossier$+"\user"
file_save 98,Dossier$+"\user\Releves.txt"
for x=105 to 108
text x,""
next x
hide 100
command_target_is 0
if file_exists(Dossier$+"\Graph.txt")=1
file_delete Dossier$+"\Graph.txt"
end_if
gosub Remp_Grid
return

Annul_R:
for x=105 to 108
text x,""
next x
hide 100
return

Visu:
show 200:hide 100:hide 300:hide 400:hide 500:hide 600:hide 350
return

Remp_Grid:
if count(98)<2 then grid_row 201,2
if file_exists(Dossier$+"\user\Releves.txt")=1
L%=1
for x=1 to count(98)
L%=L%+1
grid_row 201,L%
L$=item_read$(98,x)
sep%=instr(L$,";")
C1$=Left$(L$,sep%-1)
grid_write 201,L%,1,C1$
L$=right$(L$,len(L$)-sep%)
sep%=instr(L$,";")
C2$=Left$(L$,sep%-1)
grid_write 201,L%,2,C2$
L$=right$(L$,len(L$)-sep%)
sep%=instr(L$,";")
C3$=Left$(L$,sep%-1)
grid_write 201,L%,3,C3$
C4$=right$(L$,len(L$)-sep%)
grid_write 201,L%,4,C4$
if L%>2
grid_write 201,L%,5,str$(val(C2$)-val(grid_read$(201,L%-1,2)))
grid_write 201,L%,6,str$(val(C3$)-val(grid_read$(201,L%-1,3)))
grid_write 201,L%,7,str$(val(C4$)-val(grid_read$(201,L%-1,4)))
else
grid_write 201,L%,5,"0"
grid_write 201,L%,6,"0"
grid_write 201,L%,7,"0"
end_if
next x
end_if
return

Graph:
if count(98)>2
file_open_write 97,"Graph.txt"
file_writeln 97,"#Légendes"
file_writeln 97,"#Type=BAR"
file_writeln 97,"#Largeur=15"
file_writeln 97,"#Séries=3"
file_writeln 97,"#Valeurs="+str$(count(98)-1)
file_writeln 97,"#Données=1"
for x=3 to count(98)+1
file_writeln 97,grid_read$(201,x,5)
next x
file_writeln 97,"#Données=2"
for x=3 to count(98)+1
file_writeln 97,grid_read$(201,x,6)
next x
file_writeln 97,"#Données=3"
for x=3 to count(98)+1
file_writeln 97,grid_read$(201,x,7)
next x
file_writeln 97,"#Titres"
file_writeln 97,"Haut=Evolution des consommations"
file_writeln 97,"Gauche=Conso. en kWh"
file_writeln 97,"Bas=Relevés"
file_writeln 97,"Droite=Divers"
file_writeln 97,"#Légendes séries"
file_writeln 97,"Gaz"
file_writeln 97,"Electricité hc"
file_writeln 97,"Electricité hp"
file_writeln 97,"#Légendes valeurs"
for x=3 to count(98)+1
file_writeln 97,grid_read$(201,x,1)
next x
file_writeln 97,"#Fin"
file_close 97
gosub Dessin
else
message "Données insuffisantes pour créer un graphique"
end_if
return

Dessin:
Fichier$=Dossier$+"\Graph.txt"
Conf%=4
dll_on "histo.dll"
res%=dll_call2("HistogrammeEX",adr(Fichier$),Conf%)
dll_off
return

Compar:
show 300:hide 100:hide 200:hide 400:hide 500:hide 600:hide 350
set_focus 307
return

Compar_2:
gosub Test
if x=0
for x1=311 to 316
if text$(x1)=""
x=1
if message_error_ok("Vous avez oubliez de remplir une case...")=1 then exit_for
else
if instr(text$(x1),",")>0
x=1
if message_error_ok("Format incorrect"+chr$(10)+"Remplacez la virgule par un point")=1 then exit_for
else
x=0
end_if
end_if
next x1
end_if
if x=0
D$(1)=text$(307)
D$(2)=text$(308)
D$(3)=text$(309)
D$(4)=text$(310)
DebG%= val(text$(311))
FinG%= val(text$(312))
DebE_hc%= val(text$(313))
FinE_hc%= val(text$(314))
DebE_hp%= val(text$(315))
FinE_hp%= val(text$(316))
show 350:hide 100:hide 200:hide 400:hide 500:hide 600:hide 300
set_focus 354
for x= 307 to 316
text x,""
next x
end_if
return

Calcul:
gosub Test

if x=0
for x1= 354 to 357
if text$(x1)=""
if message_error_ok("Vous avez oubliez de remplir une case...")=1
m=1
exit_for
else
m=0
end_if
end_if
next x1

if m=0

D$(5)=text$(354)
RG%=val(text$(355))
RE_hc%=val(text$(356))
RE_hp%=val(text$(357))

dll_on "YGF.dll"
for x=1 to 5
J%=left$(D$(x),2)
M%=mid$(D$(x),4,2)
A%=right$(D$(x),4)
D%(x)=dll_call3("NbJours",J%,M%,A%)
next x
dll_off

Njfg%=D%(2)-D%(1)
Njfe%=D%(4)-D%(3)
Njrg%=D%(5)-D%(1)
Njre%=D%(5)-D%(1)

dll_on "format.dll"
rem ' conso sur facture
ConsoG=int((FinG%-DebG%)*CoefG)

ConsoE_hc=FinE_hc%-DebE_hc%
format$="0000000.00"
xstr$=format$
result%=dll_call3("print_format",adr(ConsoE_hc),adr(format$),adr(xstr$))
ConsoE_hc=val(xstr$)

ConsoE_hp=FinE_hp%-DebE_hp%
format$="0000000.00"
xstr$=format$
result%=dll_call3("print_format",adr(ConsoE_hp),adr(format$),adr(xstr$))
ConsoE_hp=val(xstr$)

rem ' conso sur relevé
ConsoG2=int((RG%-DebG%)*CoefG)

ConsoE_hc2=RE_hc%-DebE_hc%
format$="0000000.00"
xstr$=format$
result%=dll_call3("print_format",adr(ConsoE_hc2),adr(format$),adr(xstr$))
ConsoE_hc2=val(xstr$)

ConsoE_hp2=RE_hp%-DebE_hp%
format$="0000000.00"
xstr$=format$
result%=dll_call3("print_format",adr(ConsoE_hp2),adr(format$),adr(xstr$))
ConsoE_hp2=val(xstr$)

rem ' conso estimée
ConsoG3=int((ConsoG2/Njrg%)*Njfg%)

ConsoE_hc3=(ConsoE_hc2/Njre%)*Njfe%
format$="0000000.00"
xstr$=format$
result%=dll_call3("print_format",adr(ConsoE_hc3),adr(format$),adr(xstr$))
ConsoE_hc3=val(xstr$)

ConsoE_hp3=(ConsoE_hp2/Njre%)*Njfe%
format$="0000000.00"
xstr$=format$
result%=dll_call3("print_format",adr(ConsoE_hp3),adr(format$),adr(xstr$))
ConsoE_hp3=val(xstr$)

dll_off

rem ' facture ttc
MFG=(int((ConsoG*G_ht*Tx_Tva2)*100)/100)+(int((G_CTA*Tx_Tva1)*100)/100)
MFE_hc=(int((ConsoE_hc*Ehc_ht*Tx_Tva2)*100)/100)+(int((E_CTA*Tx_Tva1)*100)/100)+(int((ConsoE_hc*TDC*Tx_Tva2)*100)/100)+(int((ConsoE_hc*TMC*Tx_Tva2)*100)/100)+(int((ConsoE_hc*CSPE*Tx_Tva2)*100)/100)
MFE_hp=(int((ConsoE_hp*Ehc_ht*Tx_Tva2)*100)/100)+(int((E_CTA*Tx_Tva1)*100)/100)+(int((ConsoE_hp*TDC*Tx_Tva2)*100)/100)+(int((ConsoE_hp*TMC*Tx_Tva2)*100)/100)+(int((ConsoE_hp*CSPE*Tx_Tva2)*100)/100)

rem ' Evaluation
MRG=(int((ConsoG3*G_ht*Tx_Tva2)*100)/100)+(int((G_CTA*Tx_Tva1)*100)/100)
MRE_hc=(int((ConsoE_hc3*Ehc_ht*Tx_Tva2)*100)/100)+(int((E_CTA*Tx_Tva1)*100)/100)+(int((ConsoE_hc3*TDC*Tx_Tva2)*100)/100)+(int((ConsoE_hc3*TMC*Tx_Tva2)*100)/100)+(int((ConsoE_hc3*CSPE*Tx_Tva2)*100)/100)
MRE_hp=(int((ConsoE_hp3*Ehc_ht*Tx_Tva2)*100)/100)+(int((E_CTA*Tx_Tva1)*100)/100)+(int((ConsoE_hp3*TDC*Tx_Tva2)*100)/100)+(int((ConsoE_hp3*TMC*Tx_Tva2)*100)/100)+(int((ConsoE_hp3*CSPE*Tx_Tva2)*100)/100)

rem ' Differences
DiffG=int((ConsoG-ConsoG3)*100)/100
DiffE_hc=int((ConsoE_hc-ConsoE_hc3)*100)/100
DiffE_hp=int((ConsoE_hp-ConsoE_hp3)*100)/100

rem ' Fenetre de communication des résultats
if F7%=1
top 0,0:left 0,0
show 700
else
F7%=1
top 0,0:left 0,0
Form 700:caption 700,"Résultat de la comparaison":width 700,700:height 700,600:top 700,(screen_y-600)/2 :left 700,(screen_x-700)/2
command_target_is 700
container 701:top 701,10:left 701,10:height 701,300:width 701,320:caption 701," Votre Facture ":font_name 701,"Times new roman":font_bold 701:font_size 701,10
alpha 702:parent 702,701:top 702,40:left 702,20 :caption 702,"Consommation Gaz en kWh : "
alpha 703:parent 703,701:top 703,65:left 703,20 :caption 703,"Montant facturé TTC : "
alpha 704:parent 704,701:top 704,105:left 704,20 :caption 704,"Consommation Elec. HC en kWh : "
alpha 705:parent 705,701:top 705,130:left 705,20:caption 705,"Montant facturé TTC : "
alpha 706:parent 706,701:top 706,180:left 706,20:caption 706,"Consommation Elec. HP en kWh : "
alpha 707:parent 707,701:top 707,205:left 707,20:caption 707,"Montant facturé TTC : "
alpha 708:parent 708,701:top 708,40:left 708,210:font_color 708,140,2,4
alpha 709:parent 709,701:top 709,65:left 709,210:font_color 709,140,2,4
alpha 710:parent 710,701:top 710,105:left 710,210:font_color 710,140,2,4
alpha 711:parent 711,701:top 711,130:left 711,210:font_color 711,140,2,4
alpha 712:parent 712,701:top 712,180:left 712,210:font_color 712,140,2,4
alpha 713:parent 713,701:top 713,205:left 713,210:font_color 713,140,2,4
container 720:top 720,10:left 720,340:height 720,300:width 720,320:caption 720," Estimation ":font_name 720,"Times new roman":font_bold 720:font_size 720,10
alpha 722:parent 722,720:top 722,40:left 722,20 :caption 722,"Consommation Gaz en kWh : "
alpha 723:parent 723,720:top 723,65:left 723,20 :caption 723,"Montant Estimé TTC : "
alpha 724:parent 724,720:top 724,105:left 724,20 :caption 724,"Consommation Elec. HC en kWh : "
alpha 725:parent 725,720:top 725,130:left 725,20:caption 725,"Montant Estimé TTC : "
alpha 726:parent 726,720:top 726,180:left 726,20:caption 726,"Consommation Elec. HP en kWh : "
alpha 727:parent 727,720:top 727,205:left 727,20:caption 727,"Montant Estimé TTC : "
alpha 728:parent 728,720:top 728,40:left 728,210:font_color 728,7,142,4
alpha 729:parent 729,720:top 729,65:left 729,210:font_color 729,7,142,4
alpha 730:parent 730,720:top 730,105:left 730,210:font_color 730,7,142,4
alpha 731:parent 731,720:top 731,130:left 731,210:font_color 731,7,142,4
alpha 732:parent 732,720:top 732,180:left 732,210:font_color 732,7,142,4
alpha 733:parent 733,720:top 733,205:left 733,210:font_color 733,7,142,4
container 740:top 740,320:left 740,10:height 740,200:width 740,650:caption 740," Comparaison ":font_name 740,"Times new roman":font_bold 740:font_size 740,10
alpha 742:parent 742,740:top 742,40:left 742,20
alpha 743:parent 743,740:top 743,70:left 743,20
alpha 744:parent 744,740:top 744,100:left 744,20
Button 798:top 798,530 :left 798,490:caption 798,"Imprimer":cursor_point 798
Button 799:top 799,530 :left 799,590:caption 799,"Quitter" :cursor_point 799:on_click 799,Cache700
end_if
gosub Remp_700
end_if
end_if
return

Remp_700:
caption 708,str$(ConsoG)
caption 709,str$(MFG)
caption 710,str$(ConsoE_hc)
caption 711,str$(MFE_hc)
caption 712,str$(ConsoE_hp)
caption 713,str$(MFE_hp)
caption 728,str$(ConsoG3)
caption 729,str$(MRG)
caption 730,str$(ConsoE_hc3)
caption 731,str$(MRE_hc)
caption 732,str$(ConsoE_hp3)
caption 733,str$(MRE_hp)

if MFG > MRG
caption 742,"Vous avez été surfacturé de : "+str$(MFG-MRG)+" Euro"
end_if

if MFE_hc > MRE_hc
caption 743,"Vous avez été surfacturé de : "+str$(MFE_hc-MRE_hc)+" Euro"
end_if

if MFE_hp > MRE_hp
caption 744,"Vous avez été surfacturé de : "+str$(MFE_hp-MRE_hp)+" Euro"
end_if
return

Cache700:
hide 700:left 0,(screen_x-500)/2 : top 0,(screen_y-300)/2
command_target_is 0
for x=354 to 357
text x,""
next x
hide 350
return

Charge:
if count(98)>0
x =count(98)
L$=item_read$(98,x)
sep%=instr(L$,";")
C1$=Left$(L$,sep%-1)
text 354,C1$
L$=right$(L$,len(L$)-sep%)
sep%=instr(L$,";")
C2$=Left$(L$,sep%-1)
text 355,C2$
L$=right$(L$,len(L$)-sep%)
sep%=instr(L$,";")
C3$=Left$(L$,sep%-1)
text 356,C3$
C4$=right$(L$,len(L$)-sep%)
text 357,C4$
end_if
return

Param_Voir:
show 400:hide 100:hide 200:hide 300:hide 500:hide 600:hide 350
for x=410 to 420
caption x,item_read$(99,(x-409))
next x
return

Param_Modif:
show 500:hide 100:hide 200:hide 300:hide 400:hide 600:hide 350
if count(99)>0
for x=510 to 520
text x,item_read$(99,x-509)
next x
end_if
return

Init_Var:
b%=0
if inactive(9)=1 and inactive(11)=1
active 9
active 11
end_if
clear 99
for x=1 to 11
if text$(509+x)<>""
if instr(text$(509+x),",")>0
b%=1
if message_error_ok("Format incorrect"+chr$(10)+"Remplacez la virgule par un point")=1
if file_exists(Dossier$+"\Suez.inf")=1 then file_load 99,Dossier$+"\Suez.inf"
exit_for
end_if
else
item_add 99,text$(509+x)
end_if
else
b%=0
item_add 99,"0.00"
end_if
next x
if b%=0
file_save 99,Dossier$+"\Suez.inf"
G_ht= val(item_read$(99,1))
Ehc_ht= val(item_read$(99,2))
Ehp_ht= val(item_read$(99,3))
Tx_Tva1= (val(item_read$(99,4))/100)+1
Tx_Tva2= (val(item_read$(99,5))/100)+1
G_CTA= val(item_read$(99,6))
E_CTA= val(item_read$(99,7))
TDC= val(item_read$(99,8))
TMC= val(item_read$(99,9))
CoefG= val(item_read$(99,10))
CSPE= val(item_read$(99,11))
hide 500
end_if
return

APP:
show 600:hide 100:hide 200:hide 300:hide 400:hide 500:hide 350
caption 601,"En cours d'élaboration..."
return

Test:
GOSUB CtrlDate
IF x <> 0
MESSAGE "Format de date incorrect"+chr$(10)+"jj/mm/aaaa"
END_IF
RETURN

CtrlDate:
if show(100)=1
entree%=105-1
N_entree%=1
end_if
if show(300)=1
entree%=307-1
N_entree%=4
end_if
if show(350)=1
entree%=354-1
N_entree%=1
end_if
FOR x = 1 TO N_entree%
T$(x) = TEXT$(entree%+x)
IF LEN(T$(x))<>10 THEN X=entree%+x:EXIT_FOR
IF MID$(T$(x),3,1)<>"/" OR MID$(T$(x),6,1)<>"/" THEN x = entree% + x:EXIT_FOR
' on test les valeurs numerique
IF NUMERIC(LEFT$(T$(x),2)+MID$(T$(x),4,2)+RIGHT$(T$(x),4))=0 THEN x = x + entree% :EXIT_FOR
' test du jour
IF VAL(LEFT$(T$(x),2))<1 OR VAL(LEFT$(T$(x),2))>31 THEN x = x + entree% : EXIT_FOR
' test du mois
IF VAL(MID$(T$(x),4,2))<1 OR VAL(MID$(T$(x),4,2))>12 THEN x = x + entree% : EXIT_FOR
' pas de test sur l'année... je laisse libre... ;) à toi de voir...
NEXT x
IF x < entree% THEN x = 0
RETURN

Quitter:
Terminate

J'ai réussi à m'auto piégé Twisted Evil

et du coup une modif pour éviter un plantage.... Laughing

~~Voilà .... et ca marche !~~

~~( à moins qu'un petit efface une virgule ou un point par si par là )~~

Et quelques jours plus tard.... Laughing

CA Y EST !!!

GDF Suez est dispo sur mon webdev : http://www.mydrive.ch/

login : panoramicien@ygeronimi_panoramic
Mot de passe: panoramic123

cheers

Un grand Merci à tous ceux qui ont participé ou contribué à cette application cheers

PS: Je rappelle que sont obligatoires au fonctionnement "GDF Suez.bas" , "Histo.dll" , "Format.dll" , "YGF.dll" , "Img.jpg" placés dans le répertoire source.
Les autres se créent automatiquement ou sont proposé à la création pendant l'éxécution.
La configuration de l'ordi nécessite "CFX32.ocx" dans vôtre système.

Voilà qui est intéressant !

Ah !
Je vais aller tester ca alors Smile

Bravo ygeronimi.

« Face à la roche, le ruisseau l’emporte toujours, non pas par la force mais par la persévérance. »

sunny

Merci , j'attends vos appréciations avec impatience...

un petit truc qui est dommage , c'est de pas avoir la possibilité d'aligné à droite pour les nombres,
celà nuit un peu au visuel.

Pour aligner à droite, il y a un truc simple: d'abord, choisir une police non proporetinnelle, comme Courier, par exemple.

Puis, tu définis la largeur de ton affichage
dim largeur_affichage% : largeur_affichage% = 10 : ' xxxxxxx,xx
(adapter tout s'il faut 3 chiffres après la virgule...)

Une variable pour détecter le point décimal, si besoin:
dim pnt%

Une variable pour la chaîne numérique à mettre en forme:
dim s$

Convertir une valeur numérique en chaîne:
s$ = str$(valeur)

Localiser le point décimal:
pnt% = instr(s$,'.')

Si pas de point, ajouter ",00"
if pnt%=0 then s$ = s$ + ",00"

Remplacer un point décimal éventel par une virgule:
if pnt%>0 then s$ = left$(s$,pnt%-1) + "," + mid$(s$,pnt%+1,len(s$))

Tronquer s'il y a plus de 2 décimales
if pnt%<len(s$)-2 then s$ = left$(s$,pnt%+2)

Ajouter un 0 s'il n'y a qu'une décimale:
if pnt%=len(s$)-1 then s$ = s$ + "0"

Enfin, cadrer à droite:
s$ = right$(string$(largeur_affichage%," ")+s$,largeur_affichage%)

Maintenant, tu peux utiliser s$ qui a toujours une taille de largeur_affichage% caractères, avec les données cadrées à droite. Et comme tu utiliseras une police non proportionnelle, tout sera bien justifié à droite.

Je vais mettre çà en application pour aligner à droite...
Le remplacement de la virgule je l'ai mis en place dans mon truc vicieux pour éviter
les messages à répétition "format invalide"
(sur deux ou trois edit ca passe mais quand il y en a plus d'une dizaine
et que tu fais la verif à l'enregistrement affraid

, l'utilisateur place ton appli dans la corbeille direct Sad

)

Je testerais ça ce soir Wink

@Ygeronimi,

Cadeau, je t'ai ressorti çà de ma bibliothèque:

Code:: ' Routine pour transformer a$ en format monétaire (Jean Claude)

dim a,b,c,a$,b$,c$,nba,ls,cav$
label string_montant

' règlages:
' nba => nombre de caractèrere total avant la virgule
' cav$ => choix du caractère précédent le nombre (çà peut être 0 ou espace ou -)

a$="123"
nba=6:cav$="-":gosub string_montant

caption 0,a$
end
' *******
string_montant:
if numeric(a$)=0 then message "Valeur numérique uniquement":return
if a$="" then message "a$="" au label string_montant":terminate
a=val(a$):a$=str$(a)
if cav$="" then cav$="-"
if nba=0 then message "la variable nba doit être >0":terminate
b$="":ls=len(a$):c$=".":b=instr(a$,c$)
if b=0:c=nba-ls
if c>0 then b$=string$(c,cav$)+a$:a$=b$+".00":return
if c=0 then b$=a$:a$=b$+".00":return
if c<0 then message "Maximum "+str$(nba)+" caractères":a$="":return
end_if
if ls=b:c=nba-(ls-1)
if c>0 then b$=string$(c,cav$)+a$:a$=b$+"00":return
if c=0 then b$=a$:a$=b$+"00":return
if c<0 then message "Maximum "+str$(nba)+" caractères":a$="":return
end_if
if ls-b=1:c=nba-(ls-2)
if c>0 then b$=string$(c,cav$)+a$:a$=b$+"0":return
if c=0 then b$=a$:a$=b$+"0":return
if c<0 then message "Maximum "+str$(nba)+" caractères":a$="":return
end_if
if ls-b=2:c=nba-(ls-3)
if c>0 then b$=string$(c,cav$)+a$:a$=b$:return
if c=0 then b$=a$:a$=b$:return
if c<0 then message "Maximum "+str$(nba)+" caractères":a$="":return
end_if
if ls-b>2 then message "2 chiffres après la virgule SVP":a$="":return
return

A+

@ Klaus

une petite precision pour ceux qui liront ta demarche...
il faut peut être re situer le separateur après l'avoir eventuellement changer en virgule.

ce qui donne :

Code:: dim largeur_affichage% : largeur_affichage% = 10 : ' xxxxxxx,xx
(adapter tout s'il faut 3 chiffres après la virgule...)

rem 'Une variable pour détecter le point décimal, si besoin:
dim pnt%

Une variable pour la chaîne numérique à mettre en forme:
dim s$

rem 'Convertir une valeur numérique en chaîne:
s$ = str$(valeur)

rem 'Localiser le point décimal:
pnt% = instr(s$,".")

rem 'Si pas de point, ajouter ",00"
if pnt%=0 then s$ = s$ + ",00"

rem 'Remplacer un point décimal éventuel par une virgule:
if pnt%>0 then s$ = left$(s$,pnt%-1) + "," + mid$(s$,pnt%+1,len(s$))

rem 'Localiser la virgule qui a remplacé le point décimal:
pnt% = instr(s$,",")

rem 'Tronquer s'il y a plus de 2 décimales
if pnt%<len(s$)-2 then s$ = left$(s$,pnt%+2)

rem 'Ajouter un 0 s'il n'y a qu'une décimale:
if pnt%=len(s$)-1 then s$ = s$ + "0"

rem 'Enfin, cadrer à droite:
s$ = right$(string$(largeur_affichage%," ")+s$,largeur_affichage%)

Je l'ai placé tel que dans l'appli mais faut que je vois à créer un label....

@ Jicehel

J'attends tes commentaires avec impatience bounce

comme ceux des autres...

@ Jean Claude

Merci du cadeau, je regarde çà study

de près et je mémorise pour un avenir proche

@ Tous ceux qui l'ont téléchargé avant 3h du matin et qui ont réussi à le trouver
( il s'était glissé dans un autre dossier en le déplaçant )

Une version retouché a été mise en ligne vers 4h

Tu est sûr qu'il faut recharger la valeur de pnt% en recherchant la virgule au lieu du point ? Dans mon esprit, la virgule a été placée exactement au même endroit que le point, et la valeur de la variable pnt% reste donc toujours valide ! Mais si tu veux faire comme ça, libre à toi...

Tu as raison , j'ai encore écrit une co.......erie pale

ceci il va faudra que j'arrive à placer ces quelques lignes
dans une fonction ré-utilisable pour éviter de rallonger mes "sources.bas" Laughing

@jean Claude
Merci pour le cadeau.
Mais voir ici
Et plus particulièrement ceci

Il faut disposer de 'FORMAT.DLL'

Code:: dim montant, format$, xstr$, result% ,i%
label formater

gosub formater
end

formater:
dll_on "format.dll"
for i% = 1 to 20
montant = 100000*rnd(1000)

' format$ = " *** 00000000.00000"
format$ = "***00,000,000.00 E"
' format$ = " 00 000 000.00 Dollars"
' format$ = "00 000 000.00 $"
' format$ = "00 000 000.00 EUROS" : ' ----> Erreur dans l'affichage
' Cette erreur est provoquée lorsque le texte commence par E ou par e
' et comporte d'autres caractères.
' Peut-être que le système considère qu'il s'agit de l'opérateur de
' l'exponentiation.
xstr$ = format$
result% = dll_call3("print_format", adr(montant), adr(format$), adr(xstr$))
print "montant = ";xstr$
next i%

dll_off
return

Pour placer mon code dans un sous-programme réutilisable, ce n'est pas compliqué:
1. tu places un "justif_" devant chaque variable que j'ai mentionnée
2. tu places "JUSTIF:" devant ce morceau de code, et "RETURN" derrière
3. tl places LABEL JUSTIF au débutr de ton programme, ainsi que les DIM des variables justif_...

Maintenant, tu peux charger n'importe où dans ton programme les variables suviantes:
justif_largeur_affichage% avec la taille de la zone d'édition
justif_valeur avec la valeur flottante à justifier
Puis, tu fais GOSUB justif
et dans justif_s$, tu récupères le résultat attendu !

Effectivement......

@Papydall, oui le programme de Jean est très bien, mais il impose l'utilisation d'une DLL. Je n'ai rien contre les DLL, mais j'aime aussi faire des programmes en Panoramic pur. Et puis il faut bien que je montre ma science Very Happy

Ma routine est prévue pour saisir un nombre qui sera automatiquement retourné en format monétaire et dont la longueur total est défini par le programmeur (ce qui permet un affichage à droite, avec une police fixe). Et l'utilisateur est dispensé de saisir le point si le nombre est entier, il est également rappelé à l'ordre s'il saisi plus de 2 chiffres après la virgule ou un format non numérique. On peut y ajouter le remplacement du point décimal par la virgule (comme le propose Klaus), mais bon " 123.00" moi çà ne me choque pas.

A+

Ne vous battez pas !!!!!

C'est vrai qu'un point ou une virgule......bof...y a rien de choquant
Mais je vous dirai, si je me payer votre poire Laughing

, que GDF Suez ( mon prog ) est international chacun peut le prendre pour la monnaie qu'il veut .
Sauf que , si vous avez une surfacturation, il vous parle d'euro.
en plus si je voulais mettre un monnaie dans les deux premiers "container" il faudrait que je rajoute des "alpha" car c'est seulement les chiffres que je veux mettre en évidence par des couleurs.

@ Tous , que j'ai utilisé ou pas vos codes, je vous remercie de vôtre aide.
elle m'a toujours été très précieuse même si ,en vieux con que je suis,
je m'entête souvent à vouloir que les choses soient comme je veux et pas comme elles sont
( pas vrai Klaus...quel cancre ce ygeronimi... Laughing

).
Si je ne les ai pas utilisé, ils sont là, en mémoire sur ce forum ,et pourront me servir un jour
quand ma barbe aura poussé et que je rechercherai une solution , ma mémoire de poisson rouge
se souviendra qu'un jour j'ai essayé de faire un truc semblable et que plusieurs solutions m'ont été proposé.
Parfois je ne les utilise pas , pas parceque je n'aime pas mais parcequ 'il est trop compliqué de les insérer
dans mes lignes de code.

Alors dites moi ce que vous pensez de mon bidule mais NE VOUS BATTEZ PAS !!!!!

lol!

Salut tout le monde.

@ygeronimi
Mais personne ne se bat ici, à ce que je sache !
Tu penses qu’on se bat ? Non, je ne me bat avec personne car je crains les coups.

@Jean Claude
J’ai cru que tu n’as pas vu le topic ‘Arrondir un réel à deux chiffres après la virgule’ étant donné que je n’avais pas vu ton intervention là-dessus. Je pensais bien faire en indiquant le lien.

Personne, moi en premier, n’a aucune réserve à ce que tu « montres ta science » et je t’invite très gentiment de nous en faire part. Ça ne peut qu’être profitable pour tous. D’ailleurs au début de mon intervention je t’ai remercié pour le cadeau.

Jean Claude tu es cool, reste cool, restons cool

lol!

» Un compteur de lignes de code source
» indentation de lignes.
» Lignes ondulées
» Les deux lignes
» Mieux vaut tard que jamais