convertisseur euro->francs , francs->euro

venom · Message par **venom** » ven. 16/déc./2005 19:33

bonjour,

voila j'ai fait un petit convertisseur euro, francs basic tres simple d'utilisation

. meme si je n'en ai pas vraiment l'interet

mais bon sa pourrais servir.

. voila sans plus attendre

Code : Tout sélectionner

;- Window Constants 
Enumeration 
  #Window_0 
EndEnumeration 

;- Gadget Constants 
Enumeration 
  #String_0 
  #String_1 
  #String_2
  #String_3
  #Button_0 
  #Button_1
  #texte_0
  #texte_1
EndEnumeration 

;on ouvre windows 
If OpenWindow(#Window_0, 282, 57, 320, 150,  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered , "convertisseur euro / francs")
  If CreateGadgetList(WindowID()) 
    StringGadget(#String_0, 10, 30, 140, 25, "");le string numero 1 sert a a mrquer la somme en franc 
    StringGadget(#String_1, 10, 115, 140, 25, "");le string numero 2 sert a marquer la somme en euro apres appuie du bouttons euro 
    ButtonGadget(#Button_0, 20, 70, 120, 25, "converir francs");le boutton de convertion 
    
    StringGadget(#String_2, 170, 30, 140, 25, "");le string numero 1 sert a a mrquer la somme en franc 
    StringGadget(#String_3, 170, 115, 140, 25, "");le string numero 2 sert a marquer la somme en euro apres appuie du bouttons euro 
    ButtonGadget(#Button_1, 180, 70, 120, 25, "converir euro");le boutton de convertion 
    TextGadget(#texte_0, 45, 10, 100, 20, "euro ---> francs")
    TextGadget(#texte_1, 205, 10, 100, 20, "francs ---> euro")
 
  EndIf 
EndIf 
  
Repeat 
 If StartDrawing(WindowOutput())
     DrawingMode(1) 
      Line(160, 0, 0, 150 , RGB(0,0,0))
    StopDrawing()
  EndIf  
  
  Event = WaitWindowEvent() 
  If Event = #PB_EventGadget 
    Select EventGadgetID() 

      Case #Button_0 
        
        ValFranc.f = ValF(GetGadgetText(#String_0)) 
         Beep(800,50)
        If ValFranc 
          ValEuros.f = ValFranc * 6.55957 
          SetGadgetText(#String_1, StrF(ValEuros, 2)) 
        EndIf 
        
; +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++        
      
      Case #Button_1
        
        ValFranc.f = ValF(GetGadgetText(#String_2)) 
         Beep(800,50)
        If ValFranc 
          ValEuros.f = ValFranc / 6.55957 
          SetGadgetText(#String_3, StrF(ValEuros, 2)) 
        EndIf 
        
    EndSelect 
    
  EndIf 
  If Event = #PB_EventCloseWindow 
    Quit = 1 
  EndIf 
  
Until Quit ;ferme la fenetre 
End

@++

CameleonTH · Message par **CameleonTH** » ven. 16/déc./2005 19:44

Prog trés simple que tous le monde peut faire
mais tu en as eu l'idée, tu est le premier

Félicitation
Perso je préfére prend la calculette window et faire *6.55957 ou /6.55957

venom · Message par **venom** » ven. 16/déc./2005 20:33

mais tu en as eu l'idée

lolas vraiment

tu est le premier Félicitation

merci.

Perso je préfére prend la calculette window et faire *6.55957 ou /6.55957

. j'ai fait sa dans le but de convertir plus vite lol

mais bon si tu prefere la calculette windows c'est comme tu veux

moi je prend quand meme mais prog si non sa sert a rien que je programe.

@++

CameleonTH · Message par **CameleonTH** » ven. 16/déc./2005 20:42

Exemple d'utilisation : J'ai ton programme je le met quelque part dans mes dossiers et quelques mois plus tard j'ai besoin de convertir donc il faut que je cherche le programme mais sa me prend une plombe car je ne me rapelle plus ou je l'ai mis alor que pendant ce temps j'aurais pus le faire plusieur fois à la calculette.

Conclusion : Utilisez la calculette WindoB

P.S : Bien sur je te charrit, c'est juste une blague

venom · Message par **venom** » ven. 16/déc./2005 20:58

bin je sai bien CameleonTH

ou bien pour pas chercher fait comme moi je le compile dans un coin de mon buro c pas sa qui va prendre de la place lol

.
nan mais j'ai fait sa c'est pour moi essayer les

Code : Tout sélectionner

valeur

rien de plus mais bon je l'ai quand meme mis si sa peut servir voila.

@++

Backup · Message par **Backup** » sam. 17/déc./2005 0:38

CameleonTH a écrit :Prog trés simple que tous le monde peut faire
mais tu en as eu l'idée, tu est le premier
Félicitation

oui ! sauf que c'est pas le premier !

il y a eu des calculettes en purebasic qui le faisai deja !!

Droopy · Message par **Droopy** » sam. 17/déc./2005 13:54

Dans le même style j'ai fait ça :

Code : Tout sélectionner

;/ Convertisseur €/F F/€
;/ Droopy 17/12/05

Enumeration 
  #Euro 
  #Francs 
  #Conversion
  #LabelFrancs
  #LabelEuro
EndEnumeration 


Procedure Calcule()
  If GetGadgetText(#Euro)<>""
    SetGadgetText(#Francs,StrF(ValF(GetGadgetText(#Euro))*6.55957,2))
  Else
    SetGadgetText(#Euro,StrF(ValF(GetGadgetText(#Francs))/6.55957,2))
  EndIf
EndProcedure


OpenWindow(0, 0, 0, 310, 80,  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered , "Convertisseur F/€ et €/F") 
CreateGadgetList(WindowID()) 
TextGadget(#LabelEuro, 10, 10, 100, 20, "€") 
StringGadget(#Euro, 30, 10, 140, 20, "",#PB_String_Numeric)
TextGadget(#LabelFrancs, 10, 40, 100, 20, "F") 
StringGadget(#Francs, 30, 40, 140, 20, "",#PB_String_Numeric)
ButtonGadget(#Conversion, 180,10 , 120, 50, "Conversion")
ActivateGadget(#Euro)

Repeat
  
  Evenement=WaitWindowEvent()
  Select Evenement

    Case #PB_Event_Gadget 
      
      Select EventGadgetID()

        Case #Euro
          If EventType() =#PB_EventType_Change
            SetGadgetText(#Francs,"")
            SetGadgetText(#Conversion,"€/F")
            
          EndIf
          
        Case #Francs
          If EventType() =#PB_EventType_Change
            SetGadgetText(#Euro,"")
            SetGadgetText(#Conversion,"F/€")
          EndIf
          
        Case #Conversion
          Calcule()

      EndSelect
      
    Case #WM_KEYDOWN
      If EventwParam()=#VK_RETURN
        Calcule()
      EndIf
      
  EndSelect
Until Evenement=#WM_CLOSE

venom · Message par **venom** » sam. 17/déc./2005 14:17

bonjour.

@droopy

c'est vrai c'est tres ressemblant

, mais toi c'est un peut plus petit que moi

. mais le resultat est le meme

oui ! sauf que c'est pas le premier ! il y a eu des calculettes en purebasic qui le faisai deja !!

.

a la base j'etais partie pour une calculette mais comme je ne pratique pas encore les valeurs

je me suis limier a ceux-ci

.

voila @++