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
» I Love You
par papydall Aujourd'hui à 1:15

» mise a jour calculatrice
par joeeee2017 Aujourd'hui à 1:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Hier à 18:49

» [solved] 3D_LINE How to ?
par papydall Hier à 6:51

» supprimé
par joeeee2017 Dim 15 Oct 2017 - 20:02

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» supprimé
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 mon evaluateur veolia

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

avatar

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

MessageSujet: mon evaluateur veolia   Ven 26 Fév 2010 - 16:33

sur la base de celui de l'edf voilà mon petit jouet pour l'eau chez veolia :

le fichier "xxx.txt"
Code:

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
puis la source.bas
Code:

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
mon evaluateur veolia
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» mon evaluateur edf

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos projets-
Sauter vers: