UN PETIT CALCULATEUR DE FRACTION EUCLIDIENNE

Option Explicit

Private Sub Calculer_Click()
Dim A As Long
Dim B As Long
Dim C As Long

Dim Label5Valeur As Long
Dim Label6Valeur As Long
Dim Label7Valeur As Long
Dim Label8Valeur As Long

If IsNumeric(TextNum.Text) = False Then
    Call MsgBox(" Vous n'avez pas entré de valeur dans Numérateur", vbOKOnly, "Message d'erreur")
    Exit Sub
End If

If IsNumeric(TextDenum.Text) = False Then
    Call MsgBox(" Vous n'avez pas entré de valeur dans Dénominateur", vbOKOnly, "Message d'erreur")
    Exit Sub
End If

A = CLng(TextNum.Text)
B = CLng(TextDenum.Text)

Label4.Caption = A \ B

C = A Mod B
If C <> 0 Then
    Label1.Caption = C
    Label2.Caption = B
End If


Call Calculer2(A, B, Label7Valeur, Label8Valeur)

Label7.Caption = Label7Valeur
Label8.Caption = Label8Valeur

If C <> 0 Then
    Call Calculer2(Label1.Caption, Label2.Caption, Label5Valeur, Label6Valeur)

    Label5.Caption = Label5Valeur
    Label6.Caption = Label6Valeur
End If

End Sub

Private Sub Effacer_Click()

TextNum.Text = ""
TextDenum.Text = ""
Label1.Caption = ""
Label2.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
Label7.Caption = ""
Label8.Caption = ""

End Sub

Private Sub Calculer2(ByVal Numérateur As Long, ByVal Dénominateur As Long, _
                     ByRef NouveauNum As Long, ByRef NouveauDenum As Long)
Dim i As Long
NouveauNum = Numérateur
NouveauDenum = Dénominateur
If Numérateur <> 0 And Dénominateur <> 0 Then
    For i = 2 To (Numérateur + Dénominateur) \ 2
        While Numérateur Mod i = 0 And Dénominateur Mod i = 0
                NouveauNum = Numérateur \ i
                NouveauDenum = Dénominateur \ i
                Numérateur = NouveauNum
                Dénominateur = NouveauDenum
        Wend
        If Numérateur < i Or Dénominateur < i Then
            Exit Sub
        End If
    Next i
End If
End Sub

Télécharger le zip

12 janvier 2007 10:29:13 :

C'est pour voir la feuille VB

15 janvier 2007 17:29:47 :

Je rajoute le .ZIP