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!
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.