flood

flooding!

floodage looooooooooooooooooool

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@à

floodage looooooooooooooooooool

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@à

flooding!

flooding!

floodage looooooooooooooooooool

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@à

flooding!

flooding!

je vais flooder vu kon(on paye pas le net (ca va fauire quelques mess dsl toni arrf !

floodage looooooooooooooooooool

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@à

je vais flooder vu kon(on paye pas le net (ca va fauire quelques mess dsl toni arrf !

flooding!

aaaaaaaaaaaaaaahhhhhhhhhhhhhhh
fllllooooooooooooooooooooooooddddddddddd

allé, bientot 1h du mat!
ca me fais chier G pas someil!, alors j´V me coucher vers 2 ou 3 heures et resultat, demain chui defoncé!

pas bien ca
(hz on fair du vb matte up peu :
Const dblTAUX As Double = 6.55957 ´taux francais

Private Sub cmdConvertir_Click()
Dim dblPrix As Double
Dim dblResultat As Double
´Dim strnum As String´ ´variable pour verif condition

If IsNumeric(txtValeur.Text) = "true" Then ´L´entrée user est bien numérique
dblPrix = CDbl(txtValeur.Text) ´Enregistrement de l´entrée utilisateur
If optConvfe.Value = True Then
´franc => euro
dblResultat = dblPrix / dblTAUX
lblVarResult.Caption = CStr(dblResultat) ´affichage du resultat
Else
´euro => francs
dblResultat = dblPrix * dblTAUX
lblVarResult.Caption = CStr(dblResultat)
End If
Else ´ENTREE non numérique
´MsgBox ("Attention la valeur saisie n´est pas de type numérique la conversion est donc impossible",16,"Conversion Erreur")
End If
txtValeur.SetFocus
End Sub

Private Sub cmdRaz_Click()
lblVarResult.Caption = "0"
txtValeur.Text = "0"
txtValeur.SetFocus
End Sub

Private Sub cmdQuitter_Click()
Unload frmConvertisseur
End Sub

Private Sub optConvef_Click()
txtValeur.SetFocus
End Sub

Private Sub optConvfe_Click()
txtValeur.SetFocus
End Sub

Private Sub txtValeur_GotFocus()
txtValeur.SelStart = 0
txtValeur.SelLength = Len(txtValeur.Text)
End Sub

arfffffffff : =)))

arfffffffff : =)))

arfffffffff : =)))

c cool! pas cours l´aprem!