mon evaluateur veolia

44.28
8.83
26.40
44.65
0.8460
0.7960
0.3700
0.3700
0.7000
0.3000
0.1800
50
0.055
0.196

dim a,b
height 0,380
width 0,500
a=(screen_x-500)/2
b=(screen_y-380)/2
top 0,b
left 0,a
caption 0,"Evaluateur VEOLIA eau"

rem 'Interface graphique
rem 'Menu

main_menu 1
sub_menu 2 :Caption 2,"Paramètres" :parent 2,1

Picture 3 :top 3,2 : left 3,280 :height 3,170 : width 3,200 : file_load 3,"logo.bmp"

alpha 4 :top 4,30  : left 4,20  : caption 4,"Dernier relevé" :font_bold 4
spin 5 :top 5,50  : left 5,20  : width 5,70

alpha 6 :top 6,80  : left 6,20  : caption 6,"Etat du compteur" :font_bold 6
spin 7 :top 7,100  : left 7,20  : width 7,70

alpha 8 :top 8,130  : left 8,20  : caption 8,"Consommation" :font_bold 8
edit 9 :top 9,150  : left 9,20  : width 9,70

alpha 50 : top 50,185 : left 50,20 : caption 50,"Distribution de l'eau Ht :"
font_name 50,"Times new roman"
alpha 51 : top 51,205 : left 51,20 : caption 51,"Traitement des eaux usées Ht :"
font_name 51,"Times new roman"
alpha 52 : top 52,225 : left 52,20 : caption 52,"Organismes publics Ht :"
font_name 52,"Times new roman"
alpha 53 : top 53,245 : left 53,20 : caption 53,"TVA :"
font_name 53,"Times new roman"

alpha 54 : top 54,185 : left 54,200 : caption 54,"0.00  €"
font_name 54,"Times new roman"
alpha 55 : top 55,205 : left 55,200 : caption 55,"0.00  €"
font_name 55,"Times new roman"
alpha 56 : top 56,225 : left 56,200 : caption 56,"0.00  €"
font_name 56,"Times new roman"
alpha 57 : top 57,245 : left 57,200 : caption 57,"0.00  €"
font_name 57,"Times new roman"

alpha 10 :top 10,280  : left 10,50  : caption 10,"A ce jours votre facture est de :"
font_name 10,"Times new roman" : font_size 10,12 : font_bold 10
alpha 11 :top 11,280  : left 11,270  : caption 11,"0.00  €"
font_name 11,"Times new roman" : font_size 11,12 : font_bold 11 : font_color 11,255,0,0

rem 'Interface du Formulaire

form 100 :height 100,560 :width 100,460
hide 100
command_target_is 100
alpha 14 : top 14,15 : left 14,15 : caption 14,"Distribution de l'eau" : font_bold 14 : font_size 14,12 : font_color 14,0,0,200
alpha 15 : top 15,40 : left 15,25 : caption 15,"Abonnement (Part Distributeur)" : font_name 15,"Times new roman" : font_size 15,10
alpha 16 : top 16,60 : left 16,25 : caption 16,"Location compteur (Part Distributeur)" : font_name 16,"Times new roman" : font_size 16,10
alpha 17 : top 17,80 : left 17,25 : caption 17,"Abonnement (Part Communale)" : font_name 17,"Times new roman" : font_size 17,10
alpha 18 : top 18,105 : left 18,25 : caption 18,"Consommation (Part Distributeur)" : font_name 18,"Times new roman" : font_size 18,10
alpha 19 : top 19,125 : left 19,25 : caption 19,"Consommation (Part Distributeur) Tranche 2" : font_name 19,"Times new roman" : font_size 19,10
alpha 20 : top 20,145 : left 20,25 : caption 20,"Consommation (Part Communale)" : font_name 20,"Times new roman" : font_size 20,10
alpha 21 : top 21,165 : left 21,25 : caption 21,"Consommation (Part Communale) Tranche 2" : font_name 21,"Times new roman" : font_size 21,10
alpha 22 : top 22,195 : left 22,15 : caption 22,"Collecte / traitement des eaux usées" : font_bold 22 : font_size 22,12 : font_color 22,0,0,200
alpha 23 : top 23,220 : left 23,25 : caption 23,"Abonnement (Part Communale)" : font_name 23,"Times new roman" : font_size 23,10
alpha 24 : top 24,240 : left 24,25 : caption 24,"Consommation (Part Communale)" : font_name 24,"Times new roman" : font_size 24,10
alpha 25 : top 25,270 : left 25,15 : caption 25,"Organismes publics" : font_bold 25 : font_size 25,12 : font_color 25,0,0,200
alpha 26 : top 26,295 : left 26,25 : caption 26,"Lutte contre la pollution (agence de l'eau)" : font_name 26,"Times new roman" : font_size 26,10
alpha 27 : top 27,315 : left 27,25 : caption 27,"Modernisation des réseaux de collecte (agence de l'eau)" : font_name 27,"Times new roman" : font_size 27,10
alpha 28 : top 28,345 : left 28,15 : caption 28,"Autres" : font_bold 28 : font_size 28,12 : font_color 28,0,0,190
alpha 29 : top 29,370 : left 29,25 : caption 29,"Tranche 1" : font_name 29,"Times new roman" : font_size 29,10
alpha 30 : top 30,390 : left 30,25 : caption 30,"TVA 1" : font_name 30,"Times new roman" : font_size 30,10
alpha 46 : top 46,410 : left 46,25 : caption 46,"TVA 2" : font_name 46,"Times new roman" : font_size 46,10
edit 31 : top 31,40  : left 31,320  :width 31,80
edit 32 : top 32,60  : left 32,320  :width 32,80
edit 33 : top 33,80  : left 33,320  :width 33,80
edit 34 : top 34,105  : left 34,320  :width 34,80
edit 35 : top 35,125  : left 35,320  :width 35,80
edit 36 : top 36,145  : left 36,320  :width 36,80
edit 37 : top 37,165  : left 37,320  :width 37,80
edit 38 : top 38,220  : left 38,320  :width 38,80
edit 39 : top 39,240  : left 39,320  :width 39,80
edit 40 : top 40,295  : left 40,320  :width 40,80
edit 41 : top 41,315  : left 41,320  :width 41,80
edit 42 : top 42,370  : left 42,320  :width 42,80
edit 43 : top 43,390  : left 43,320  :width 43,80
edit 47 : top 47,410  : left 47,320  :width 47,80
dlist 44
file_load 44,"xxx.txt"
text 31,item_read$(44,1)
text 32,item_read$(44,2)
text 33,item_read$(44,3)
text 34,item_read$(44,5)
text 35,item_read$(44,6)
text 36,item_read$(44,7)
text 37,item_read$(44,8)
text 38,item_read$(44,4)
text 39,item_read$(44,9)
text 40,item_read$(44,10)
text 41,item_read$(44,11)
text 42,item_read$(44,12)
text 43,item_read$(44,13)
text 47,item_read$(44,14)

Button 45
caption 45,"Modifier/Quitter"
top 45,460
left 45,280
width 45,100



rem 'Commande relatives à l'interface graphique

dlist 13
file_load 13,"xxx.txt"

label clk1,clk2,clk3

dim x,y,z
dim abtC,locC,abtD,abtEU,T1pc,T1pd,T2pc,T2pd,EU,AE1,AE2,tr1,tva1,tva2
dim CT1c,CT1d,CT2c,CT2d
dim D,C,O,T
dim Fact

on_click 2,clk1
on_change 5,clk2
on_change 7,clk2
on_click 45,clk3
end

clk1:
show 100
return

clk2:
x=val(text$(5))
y=val(text$(7))
z=y-x
text 9,str$(z)
abtC=val(item_read$(13,1))
locC=val(item_read$(13,2))
abtD=val(item_read$(13,3))
abtEU=val(item_read$(13,4))
T1pc=val(item_read$(13,5))
T2pc=val(item_read$(13,6))
T1pd=val(item_read$(13,7))
T2pd=val(item_read$(13,8))
EU=val(item_read$(13,9))
AE1=val(item_read$(13,10))
AE2=val(item_read$(13,11))
tr1=val(item_read$(13,12))
tva1=val(item_read$(13,13))
tva2=val(item_read$(13,14))

rem 'Distribution de l'eau

if z>=tr1
CT1c=tr1*T1pc
else
CT1c=z*T1pc
end_if
if z>=tr1
CT1d=tr1*T1pd
else
CT1d=z*T1pd
end_if
if z>=tr1
CT2c=(z-tr1)*T2pc
else
CT2c=0
end_if
if z>=tr1
CT2d=(z-tr1)*T2pd
else
CT2d=0
end_if
D=abtC+locC+AbtD+CT1c+CT1d+CT2c+CT2d
caption 54,str$(D)+"  €"

rem 'Collecte des eaux usées

C=abtEU+(z*EU)
caption 55,str$(C)+"  €"

rem 'Organismes publics
O=(z*AE1)+(z*AE2)
caption 56,str$(O)+"  €"

rem 'TVA

T=(D*tva1)+(z*AE1*tva1)
caption 57,str$(T)+"  €"

rem 'Facture
Fact=D+C+O+T
caption 11,str$(Fact)+"  €"

return

clk3:
clear 44
item_add 44,text$(31)
item_add 44,text$(32)
item_add 44,text$(33)
item_add 44,text$(38)
item_add 44,text$(34)
item_add 44,text$(35)
item_add 44,text$(36)
item_add 44,text$(37)
item_add 44,text$(39)
item_add 44,text$(40)
item_add 44,text$(41)
item_add 44,text$(42)
item_add 44,text$(43)
item_add 44,text$(47)
file_save 44,"xxx.txt"
hide 100
return