Hi Community,
ich habe ein Problem: Ich will ein Programm schreiben, mit dem Man sich unterhalten kann. Ich habe eine Textbox ("Command") in der man Worte eingeben kann, auf die in einer Richtextbox ("Console") mit Text geantwortet wird. Dazu habe ich bereits 2 Algorithmen. Einen für Begrüßungen un einen für 'Wie gehts dir' - Fragen ... Wenn ich aber eine Begrüßung eingebe , wird die Antwort zweimal ausgegeben: Hier der Code (Ich habe eine zweite Form ("GFX") in der ich noch eine "Console" habe. Da werden alle eingegebenen Befehle verzeichnet.):
Ich hoffe ihr könnt mir helfen, dass die Antwort nur einmal ausgegeben wird
thx lsfan
ich habe ein Problem: Ich will ein Programm schreiben, mit dem Man sich unterhalten kann. Ich habe eine Textbox ("Command") in der man Worte eingeben kann, auf die in einer Richtextbox ("Console") mit Text geantwortet wird. Dazu habe ich bereits 2 Algorithmen. Einen für Begrüßungen un einen für 'Wie gehts dir' - Fragen ... Wenn ich aber eine Begrüßung eingebe , wird die Antwort zweimal ausgegeben: Hier der Code (Ich habe eine zweite Form ("GFX") in der ich noch eine "Console" habe. Da werden alle eingegebenen Befehle verzeichnet.):
VB.NET-Quellcode
- Public Class GUI
- Dim Awnser As String
- Private Sub Submit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Submit.Click
- AlgorithmForHi()
- AlgorithmForHowAreYou()
- End Sub
- Sub SubroutineForAwnsering()
- Console.Text = Console.Text + Awnser + vbCr
- End Sub
- Sub AddComToHistory()
- GFX.History.Text = GFX.History.Text + Command.Text
- Command.Clear()
- End Sub
- Sub AlgorithmForHi()
- If Command.Text = "Hallo" Then Awnser = "Hallo!"
- If Command.Text = "hallo" Then Awnser = "Hallo!"
- If Command.Text = "Hi" Then Awnser = "Hallo!"
- If Command.Text = "hi" Then Awnser = "Hallo!"
- If Command.Text = "Guten Tag" Then Awnser = "Guten Tag!"
- If Command.Text = "guten tag" Then Awnser = "Guten Tag!"
- If Command.Text = "Guten Morgen" Then Awnser = "Guten Morgen!"
- If Command.Text = "guten morgen" Then Awnser = "Guten Morgen!"
- If Command.Text = "Guten Abend" Then Awnser = "Abend!"
- If Command.Text = "guten abend" Then Awnser = "Abend!"
- If Command.Text = "Abend" Then Awnser = "Moin!"
- If Command.Text = "abend" Then Awnser = "Moin!"
- If Command.Text = "Moin" Then Awnser = "Abend!"
- If Command.Text = "moin" Then Awnser = "Abend!"
- If Command.Text = "Tag" Then Awnser = "Tach!"
- If Command.Text = "tag" Then Awnser = "Tach!"
- If Command.Text = "Hiho" Then Awnser = "Hi!"
- If Command.Text = "hiho" Then Awnser = "Hi!"
- If Command.Text = "Tach" Then Awnser = "Tag!"
- If Command.Text = "tach" Then Awnser = "Tag!"
- SubroutineForAwnsering()
- AddComToHistory()
- End Sub
- Sub AlgorithmForHowAreYou()
- If Command.Text = "Wie geht es dir" Then Awnser = "Mir gehts gut!"
- If Command.Text = "wie geht es dir" Then Awnser = "Mir gehts gut!"
- If Command.Text = "Wie gehts dir" Then Awnser = "Ganz gut!"
- If Command.Text = "wie gehts dir" Then Awnser = "Ganz gut!"
- If Command.Text = "Wie geht es" Then Awnser = "Super!"
- If Command.Text = "wie geht es" Then Awnser = "Super!"
- If Command.Text = "Wie gehts" Then Awnser = "Gut!"
- If Command.Text = "wie gehts" Then Awnser = "Gut!"
- SubroutineForAwnsering()
- AddComToHistory()
- End Sub
- End Class
Ich hoffe ihr könnt mir helfen, dass die Antwort nur einmal ausgegeben wird
thx lsfan