Convrtisseur celsuis/fahrenheit

Télécharger le projet
Commenter

Description

ça sert à faire la conversion entre deux systèmes de mesure de température ( Celsius et Fahrenheit )
C' est simple mais utile comme niveau 1 ;-)

Source / Exemple : 


Private Sub bApropos_Click()
    Form2.Show vbModal
End Sub

Private Sub bQuitter_Click()
    Unload Me
    End
End Sub

Private Sub txtCelsius_KeyUp(KeyCode As Integer, Shift As Integer)
    On Error GoTo handleErr
    
    txtFahrenheit.Text = (txtCelsius.Text * 9 / 5) + 32
Exit Sub
handleErr:
    If Err.Number = 13 Then
        txtFahrenheit.Text = "Impossible de convertir"
    Else
        Err.Raise Err.Number
    End If
End Sub
Private Sub txtFahrenheit_KeyUp(KeyCode As Integer, Shift As Integer)
    On Error GoTo handleErr1
    txtCelsius.Text = (txtFahrenheit.Text - 32) * 5 / 9
Exit Sub
handleErr1:
    If Err.Number = 13 Then
        txtCelsius.Text = "Impossible de convertir"
    Else
        Err.Raise Err.Number
    End If
End Sub

Private Sub txtNomp_KeyPress(KeyAscii As Integer)
        KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub Command1_Click()
    Unload Me
End Sub

Conclusion :


mon soft sera mis à jours dans 30 jours ....
Télécharger le projet

Codes Sources

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.