Un petit calculateur de fraction euclidienne

Soyez le premier à donner votre avis sur cette source.

Vue 15 454 fois - Téléchargée 492 fois

Description

Il fait quoi? ben il simplifie et décompose une fraction en partie entière et fractionaire. C'est donc pour des débutants

Source / Exemple :


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

Conclusion :


Merci à Codes SOurces . Com!

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

cs_SDan
Messages postés
288
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
13 juin 2008
-
où est le zip?
Commenter la réponse de cs_SDan

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.