[Ex] Convertisseur monnaie
Posté : sam. 17 déc. 2011 10:24
par silvere
Bonjour
Je vous présente un convertisseur de monnaie qui va chercher en ligne le cours :
Je vous présente un convertisseur de monnaie qui va chercher en ligne le cours :
► Afficher le texte
Code : Tout sélectionner
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <INet.au3>
#include <WindowsConstants.au3>
#include <File.au3>
If Not FileExists(@ProgramFilesDir & "\Convertisseur") Then DirCreate(@ProgramFilesDir & "\Convertisseur")
If Not FileExists(@ProgramFilesDir & "\Convertisseur\Info.ini") Then _FileCreate(@ProgramFilesDir & "\Convertisseur\Info.ini")
#region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Patientez", 257, 108, 192, 124)
Global $Progress1 = GUICtrlCreateProgress(32, 64, 201, 25)
Global $Label1 = GUICtrlCreateLabel("Recuperation de la valeur valeurs des monnaies" & @LF & @LF & " Patientez...", 16, 8, 231, 41)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
$valeurBaht = _INetGetSource('http://www.forexticket.fr/fr/conversion/monnaie-EUR-THB')
GUICtrlSetData($Progress1, 10)
$valeurBaht = StringTrimLeft($valeurBaht, 261)
GUICtrlSetData($Progress1, 17)
$valeurBaht = StringLeft($valeurBaht, 7)
GUICtrlSetData($Progress1, 25)
$valeurDollardsUSA = _INetGetSource('http://www.forexticket.fr/fr/conversion/monnaie-EUR-USD')
GUICtrlSetData($Progress1, 35)
$valeurDollardsUSA = StringTrimLeft($valeurDollardsUSA, 277)
GUICtrlSetData($Progress1, 42)
$valeurDollardsUSA = StringLeft($valeurDollardsUSA, 7)
GUICtrlSetData($Progress1, 50)
$valeurLivreSterling = _INetGetSource('http://www.forexticket.fr/fr/conversion/monnaie-EUR-GBP')
GUICtrlSetData($Progress1, 60)
$valeurLivreSterling = StringTrimLeft($valeurLivreSterling, 270)
GUICtrlSetData($Progress1, 67)
$valeurLivreSterling = StringLeft($valeurLivreSterling, 6)
GUICtrlSetData($Progress1, 75)
$valeurDollardsCANADA = _INetGetSource('http://www.forexticket.fr/fr/conversion/monnaie-EUR-CAD')
GUICtrlSetData($Progress1, 85)
$valeurDollardsCANADA = StringTrimLeft($valeurDollardsCANADA, 271)
GUICtrlSetData($Progress1, 93)
$valeurDollardsCANADA = StringLeft($valeurDollardsCANADA, 6)
GUICtrlSetData($Progress1, 100)
Sleep(1000)
ExitLoop
WEnd
GUIDelete($Form1)
Global $monnaie1, $monnaie2
If $valeurBaht = "" Or $valeurDollardsUSA = "" Or $valeurLivreSterling = "" Or $valeurDollardsCANADA = "" Then
$valeurBaht = IniRead(@ProgramFilesDir & "\Convertisseur\Info.ini", "Valeurs des monnaies", "Bath", "")
$valeurDollardsUSA = IniRead(@ProgramFilesDir & "\Convertisseur\Info.ini", "Valeurs des monnaies", "Dollards USA", "")
$valeurLivreSterling = IniRead(@ProgramFilesDir & "\Convertisseur\Info.ini", "Valeurs des monnaies", "Livre Sterling", "")
$valeurDollardsCANADA = IniRead(@ProgramFilesDir & "\Convertisseur\Info.ini", "Valeurs des monnaies", "Dollards canadien", "")
$Date = IniRead(@ProgramFilesDir & "\Convertisseur\Info.ini", "Date du cour", "Date du cour", "")
If $valeurBaht = "" Or $valeurDollardsUSA = "" Or $valeurLivreSterling = "" Or $valeurDollardsCANADA = "" Then
MsgBox(16, "Erreur", "Erreur lors de la recuperation des valeurs des monnaies et auncun cour enregistrer retrouver")
Exit
Else
MsgBox(64, "Erreur", "Erreur lors de la recuperation des valeurs des monnaies." & @CRLF & "Le logiciel ce basera sur le cour du : " & $Date)
EndIf
Else
IniWrite(@ProgramFilesDir & "\Convertisseur\Info.ini", "Valeurs des monnaies", "Bath", $valeurBaht)
IniWrite(@ProgramFilesDir & "\Convertisseur\Info.ini", "Valeurs des monnaies", "Dollards USA", $valeurDollardsUSA)
IniWrite(@ProgramFilesDir & "\Convertisseur\Info.ini", "Valeurs des monnaies", "Livre Sterling", $valeurLivreSterling)
IniWrite(@ProgramFilesDir & "\Convertisseur\Info.ini", "Valeurs des monnaies", "Dollards canadien", $valeurDollardsCANADA)
IniWrite(@ProgramFilesDir & "\Convertisseur\Info.ini", "Date du cour", "Date du cour", @MDAY & "\" & @MON & "\" & @YEAR & " à " & @HOUR & "h" & @MIN)
EndIf
$valeurFrancs = 6.55957
#region ### START Koda GUI section ### Form=
Global $Form1 = GUICreate("Convertisseur", 337, 137, 323, 215)
Global $Label1 = GUICtrlCreateLabel("Convertisseur", 96, 8, 152, 33)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
Global $Combo1 = GUICtrlCreateCombo("Euro", 64, 64, 89, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Francs|Dollards USA|Livre Sterling|Dollards Canadien|Baht")
Global $Combo2 = GUICtrlCreateCombo("Euro", 240, 64, 89, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Francs|Dollards USA|Livre Sterling|Dollards Canadien|Baht")
Global $Input1 = GUICtrlCreateInput("", 8, 64, 49, 21)
Global $Edit1 = GUICtrlCreateEdit("", 184, 64, 49, 21, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN))
GUICtrlSetTip(-1, "Attention cette valeur n'est pas exacte" & @LF & "elle est arrondi au dixiéme près")
Global $Label3 = GUICtrlCreateLabel("=", 164, 68, 10, 17)
Global $Button1 = GUICtrlCreateButton("Convertir !", 112, 96, 121, 33)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
monnaie()
$converssion = GUICtrlRead($Input1)
If $converssion <> "" And $monnaie1 = "Euro" Then
$converssion = $converssion * $monnaie2
$converssion = Round($converssion, 2)
GUICtrlSetData($Edit1, $converssion)
ElseIf $converssion <> "" And $monnaie1 = "Francs" Then
$converssion = $converssion / $valeurFrancs * $monnaie2
$converssion = Round($converssion, 2)
GUICtrlSetData($Edit1, $converssion)
ElseIf $converssion <> "" And $monnaie1 = "Dollards USA" Then
$converssion = $converssion / $valeurDollardsUSA * $monnaie2
$converssion = Round($converssion, 2)
GUICtrlSetData($Edit1, $converssion)
ElseIf $converssion <> "" And $monnaie1 = "Livre Sterling" Then
$converssion = $converssion / $valeurLivreSterling * $monnaie2
$converssion = Round($converssion, 2)
GUICtrlSetData($Edit1, $converssion)
ElseIf $converssion <> "" And $monnaie1 = "Dollards Canadien" Then
$converssion = $converssion / $valeurDollardsCANADA * $monnaie2
$converssion = Round($converssion, 2)
GUICtrlSetData($Edit1, $converssion)
ElseIf $converssion <> "" And $monnaie1 = "Baht" Then
$converssion = $converssion / $valeurBaht * $monnaie2
$converssion = Round($converssion, 2)
GUICtrlSetData($Edit1, $converssion)
EndIf
EndSwitch
WEnd
Func monnaie(); repére les combo
Switch GUICtrlRead($Combo1)
Case "Euro"
$monnaie1 = "Euro"
Case "Francs"
$monnaie1 = "Francs"
Case "Dollards USA"
$monnaie1 = "Dollards USA"
Case "Livre Sterling"
$monnaie1 = "Livre Sterling"
Case "Dollards Canadien"
$monnaie1 = "Dollards Canadien"
Case "Baht"
$monnaie1 = "Baht"
EndSwitch
Switch GUICtrlRead($Combo2)
Case "Euro"
$monnaie2 = 1
Case "Francs"
$monnaie2 = $valeurFrancs
Case "Dollards USA"
$monnaie2 = $valeurDollardsUSA
Case "Livre Sterling"
$monnaie2 = $valeurLivreSterling
Case "Dollards Canadien"
$monnaie2 = $valeurDollardsCANADA
Case "Baht"
$monnaie2 = $valeurBaht
EndSwitch
EndFunc ;==>monnaie
