Guten Abend liebes Form

Ich brauche mal bitte eure Hilfe. Ich habe schon selbst rumprobiert doch die Programmierung gemäss meiner Vorstellung will einfach nicht funktionieren und ich würde sehr gerne von euch sehen, wenn Ihr Zeit und Lust habt, wie ihr das lösen würdet, damit dies gemäss meiner Vorstellung vom Design/Aufbau funktionieren würde. Ich habe ein Foto meines Form Designs hochgeladen und will endlich einfach verstehen wie man das Programmieren muss, damit dies funktioniert..

Ich bedanke mich vielmals im Voraus und wünsche einen schönen Abend!

Sleeper

(P.S ich hoffe, ich bin im richtigen Formusabteil und habe nicht in einer falschen Rubrik meine Anfrage gepostet)

Hallo. Erstmals danke vielmals für die Antworten! Ich habe es so probiert mit diesem Design:

Public Class Form1
Private Sub btnggt_Click(sender As Object, e As EventArgs) Handles btnggt.Click
Dim X As Integer = txtn1.Text
Dim Y As Integer = txtn2.Text
Dim T As Integer
Do While (Y <> 0)
T = Y
Y = X Mod Y
X = T
Loop

lblergebis.Text = X
End Sub

Private Sub btnkgv_Click(sender As Object, e As EventArgs) Handles btnkgv.Click
Dim X As Integer = txtn1.Text
Dim Y As Integer = txtn2.Text
Dim T As Integer

If X > Y Then
T = X
X = Y
Y = T
End If
T = Y
Do
If Y Mod X = 0 Then Exit Do
Y = X + T
Loop
lblergebis.Text = Y
End Sub
End Class

GGT hat funktioniert aber KGV nicht. Und ich würde gerne auch den kgv hinkriegen + halt dies mit meiner ersten Grafik.
Kann mir da jemand den Code zeigen dafür? Das wäre absolut genial und so kann ich auch perfekt lernen.

Vielen Dank wieder im Voraus!

Guten Morgen.

Erneut bedanke ich mich für die Antworten. Wäre es möglich mir kurz den Code für VB.Net zu zeigen für den kgv? Damit ich dies so sehen und verstehen kann (jetzt für meine Anwendung).

Danke vielmals!

Ich habe ja oben schon was gepostet, wie ich kgv an sich lösen wollte. Das problem ist, das dann nichts passiert und das Programm nicht reagiert

Private Sub btnkgv_Click(sender As Object, e As EventArgs) Handles btnkgv.Click
Dim X As Integer = txtn1.Text
Dim Y As Integer = txtn2.Text
Dim T As Integer

If X > Y Then
T = X
X = Y
Y = T
End If
T = Y
Do
If Y Mod X = 0 Then Exit Do
Y = X + T
Loop
lblergebis.Text = Y
End Sub
End Class

Was mache ich falsch? GGT hat wie gesagt funktioniert. Tue mich aber mit dem kgv leider schwer...und nochmals danke.

Hallo,

Könnten Sie mir das bitte Anhand eines Beispiel erläutern? (Ich bin wie gesagt noch am lernen und will es verstehen). Es geht ja darum, 2 Textfelder, 3 Buttons (ggt, kgv, exit) und ein Label andem der Output kommt. Wie ist also hier Ihre Erläuterung mit Option Strict on und " denn bereits die 2. Zeile Dim X As Integer = txtn1.Text sollte so nicht sein" gemeint?

Danke vielmals!

Entschuldige meine Höflichkeit. Ich agiere meistens per "Sie", wie gesagt, rein aus Höflichkeit. Ich werde deine Antworten umsetzen und testen und hoffentlich endlich verstehen. Ich melde mich dann wieder.

Nochmals danke

Also erstmals an alle, vielen Dank. Nun funktioniert ggt und kgv :)! Die letzte Frage ist, das wenn ich 2 RadioButtons mit "ggt" und "kgv" habe und den Button "berechnen" und dann halt "ggt" anwähle, muss ja der ggt berechnet werden. Wie muss das umgesetzt werden im Code? Ich habe ehrlich gesagt auch nicht richtig eine Bildliche vorstellung davon, wie ich das umsetzen muss (wie gesagt, bin neu in dieser Welt aber fleissig am lernen).

Danke vielmals! Tolles Forum

Ich habe es nun hingekriegt und mein Code funktioniert. Ich bedanke mich vielmals, ich habe nun verstanden wie ich hier vorzugehen habe und was meine Fehler waren (und neues gelernt). Super Forum.

Thanks
Sleeper!