vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Brauche Hilfe 
Autor: Christopher
Datum: 05.05.02 20:46
Ich bins nochmal ich hab dir mal ein teil meines Quelltextes abkopiert vielleicht findest du ja den Fehler







Private Sub cmdsenden_Click()

If txtEingabe.Text = "" Then
MsgBox "Du musst einen Text eingeben"
ElseIf txtEingabe.Text <> "" And txtName.Text <> "" Then
Call Senden
End If


End Sub

Sub Senden()
If LCase(txtEingabe.Text) = "hallo" Then
Randomize
zufall = Int(Rnd * 3) + 1
If zufall = 1 Then
kate = "Hi ich bin die Kate."
ElseIf zufall = 2 Then
kate = "Hallo wie geht es dir?"
ElseIf zufall = 3 Then
kate = "Moin moin!"
End If

ElseIf LCase(txtEingabe.Text) = "hallo kate" Then
Randomize
zufall = Int(Rnd * 3) + 1
If zufall = 1 Then
kate = "Was suchst du hier bei mir?"
ElseIf zufall = 2 Then
kate = "Was kann ich dir anbieten? Willst du was bestimmtes?"
ElseIf zufall = 3 Then
kate = "Was bist du m. oder w.?"
End If

ElseIf LCase(txtEingabe.Text) = "hi Kate" Then
Randomize
zufall = Int(Rnd * 3) + 1
If zufall = 1 Then
kate = "Was suchst du hier bei mir?"
ElseIf zufall = 2 Then
kate = "Was kann ich dir anbieten? Willst du was bestimmtes?"
ElseIf zufall = 3 Then
kate = "Was bist du m. oder w.?"
End If

ElseIf LCase(txtEingabe.Text) = "na du" Then
Randomize
zufall = Int(Rnd * 3) + 1
If zufall = 1 Then
kate = "Was suchst du hier bei mir?"
ElseIf zufall = 2 Then
kate = "Was kann ich dir anbieten? Willst du was bestimmtes?"
ElseIf zufall = 3 Then
kate = "Was bist du m. oder w.?"
End If

ElseIf LCase(txtEingabe.Text) = "mir geht es gut" Then
Randomize
zufall = Int(Rnd * 3) + 1
If zufall = 1 Then
kate = "Das höhrt man gern"
If zufall = 2 Then
kate = "Wow dir gehts gut, mir gehts total schlecht"
If zufall = 3 Then
kate = "Naja wenigstens einem dem es gut geht"
End If

ElseIf LCase(txtEingabe.Text) = "wie geht es dir" Then
Randomize
zufall = Int(Rnd * 3) + 1
If zufall = 1 Then
kate = "Mir geht es sehr gut und dir?"
ElseIf zufall = 2 Then
kate = "Mir geht es soooo schlecht"
ElseIf zufall = 3 Then
kate = "Ich bin so happy drauf was willst du heute machen?"
End If


Else
kate = "Ich kann deine Frage leider nicht beantworten, weil mein Wortschatz noch nicht so erweitert ist."




txtAusgabe.Text = txtAusgabe.Text & vbNewLine & txtName.Text & ": " & txtEingabe.Text
txtAusgabe.Text = txtAusgabe.Text & vbNewLine & "Kate: " & kate




End Sub



Private Sub mnuExit_Click()
End
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Brauche Hilfe75Christopher05.05.02 20:17
Re: Brauche Hilfe185ModeratorMoni05.05.02 20:23
Re: Brauche Hilfe43Christopher05.05.02 20:32
Re: Brauche Hilfe182ModeratorMoni05.05.02 20:39
Re: Brauche Hilfe51Christopher05.05.02 20:46
Und Schwupp da isser!213unbekannt05.05.02 20:51
Re: Und Schwupp da isser!42Und nochmal Chr...05.05.02 21:00
So - hier die Erklärung195ModeratorMoni05.05.02 21:16
Jepp, es sind sogar zwei 200unbekannt05.05.02 21:06
Falsch - noch mehr186ModeratorMoni05.05.02 21:08
Stimmt ...193unbekannt05.05.02 21:13
Suuuuuuuuper35Christopher05.05.02 21:16
Und jetzt machen wirs mal wie Lordchen 201unbekannt05.05.02 21:19
Bitte49Christopher05.05.02 21:25
Re: Bitte197ModeratorMoni05.05.02 21:32
Mano Mano57Christopher05.05.02 21:43
Re: Mano Mano209ModeratorMoni05.05.02 22:03
Wie Bitte ????203unbekannt05.05.02 21:37
Re: Wie Bitte ????49Christopher05.05.02 22:10
Re: Wie Bitte ????316ModeratorMoni05.05.02 23:02

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel