Hallo
Ich muss ein Programm schreiben wo ich ich eben den ggt berechen soll. Allerdings komm ich einfach nicht auf die Formel um das hinzubekommen, bis jetzt sieht mein Programm so aus:
Da wo Problemkind steht ist eben das Problem, die Formel da funktioniert nicht, dass weiss ich Aber ich find einfach keine Funktionierende Bei schönen Zahlen wie 30, 15 isses einfach,da hab ich schon ne Funktion, und wenn 2 Zahlen gleich sind auch, jetzt fehlt eben das eigentliche
Jemand nen Tipp?
Danke
Ich muss ein Programm schreiben wo ich ich eben den ggt berechen soll. Allerdings komm ich einfach nicht auf die Formel um das hinzubekommen, bis jetzt sieht mein Programm so aus:
Visual Basic-Quellcode
- Private Sub cmd_Berechnen_Click()
- 'Variablen
- Dim a As String 'Wert der Ersten Zahl
- Dim b As String 'Wert der zweiten Zahl
- Dim c As String 'Wert des ggt
- a = Val(Text1.Text)
- b = Val(Text2.Text)
- If (a = 0 Or b = 0) Then
- MsgBox ("Keine Division durch/mit Null!")
- Else
- c = ggt(a, b)
- End If
- Text3.Text = ("(" & a & " , " & b & ")" & " = " & c)
- End Sub
- Private Function ggt(ByVal a As String, ByVal b As String) As String
- If (a / 2 = b) Then
- c = b
- ElseIf (a = b) Then
- c = a
- Else
- c = (a / b) / a * (b * 2) <- DIE IS MEIN PROBLEMKIND
- End If
- ggt = c
- End Function
Da wo Problemkind steht ist eben das Problem, die Formel da funktioniert nicht, dass weiss ich Aber ich find einfach keine Funktionierende Bei schönen Zahlen wie 30, 15 isses einfach,da hab ich schon ne Funktion, und wenn 2 Zahlen gleich sind auch, jetzt fehlt eben das eigentliche
Jemand nen Tipp?
Danke