Convertisseur francs-euros

Commenter

Contenu du snippet

convertisseur (corrigé) écrit sous Microsoft Visual Basic 6.0

Source / Exemple : 


Private Sub cmdconvert_Click()
    Dim euro, francs As Integer
    
    If (txteuro.Text <> "") Then
    euro = txteuro.Text
    francs = 0
    Else
    euro = 0
    francs = txtfrancs.Text
    End If
    
    If (euro <> 0) Then
        lblres1 = euro
        lblres2 = euro * 6.55957
    Else
        lblres1 = francs / 6.55957
        lblres2 = francs
    End If
    cmdnew.SetFocus
    
End Sub
Private Sub cmdfin_Click()
    End
End Sub
Private Sub cmdnew_Click()
    If (txteuro.Text <> "") Then
        txteuro.SetFocus
        txteuro.SelStart = 0
        txteuro.SelLength = Len(txteuro.Text)
    Else
        txtfrancs.SetFocus
        txtfrancs.SelStart = 0
        txtfrancs.SelLength = Len(txtfrancs.Text)
    End If
    lblres1 = ""
    lblres2 = ""
End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (laurent207)