Keskustelu: Koodit: VB6: "Puhu minulle niin vastaan" - ohjelma

Private Sub Form_Load()

End Sub

Private Sub sano_Click()
Dim iRet As Integer, ymmärretty As Boolean
ymmärretty = False
iRet = InStr(teksti.Text, "qwerty")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: taitaa olla sun tietsikan salasana")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "pauli")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: pauli on mun kehittäjä ja kova jät-")
puhe.AddItem ("kä")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "jaa")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: ei vaa juu")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "alkohol")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: siit tulee humalaan")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "tupak")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: köh köh tulee yskä")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "moi")
If iRet > 0 Then
iRet = 0
iRet = InStr(teksti.Text, "moikka")
iRet = InStr(teksti.Text, "moimoi")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: moikka")
Else
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: no moi")
End If
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "mies vai nainen")
If iRet > 0 Then
iRet = 0
iRet = InStr(teksti.Text, "mä")
iRet = InStr(teksti.Text, "minä")
iRet = InStr(teksti.Text, "olenko")
iRet = InStr(teksti.Text, "oonko")
If iRet > 0 Then
  puhe.AddItem ("Sinä: " & teksti.Text)
  puhe.AddItem ("Tietokone: varmaa nainen")
  ymmärretty = True
  iRet = 0
Else
  puhe.AddItem ("Sinä: " & teksti.Text)
  puhe.AddItem ("Tietokone: no tietty mies")
End If
End If
iRet = InStr(teksti.Text, "moro")
If iRet > 0 Then
  puhe.AddItem ("Sinä: " & teksti.Text)
  puhe.AddItem ("Tietokone: no moi")
  ymmärretty = True
  iRet = 0
End If
iRet = InStr(teksti.Text, "tere")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: no tere")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "huum")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: aiheuttaa riippuvaisuuden")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "mitä mies")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: mitä se sulle kuuluu?")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "ei mitään")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: ei niin")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "kyllä")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: eipäs")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "jassoo")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: ai pelaatsä jassoo")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "minä")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: niin sinä")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "sinä")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: niin minä")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "sä")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: nii mä")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "mä")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: nii sä")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "heko heko")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: hahhahhaa")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "en")
If iRet > 0 Then
iRet = 0
iRet = InStr(teksti.Text, "aen")
iRet = InStr(teksti.Text, "een")
iRet = InStr(teksti.Text, "ien")
iRet = InStr(teksti.Text, "nen")
iRet = InStr(teksti.Text, "oen")
iRet = InStr(teksti.Text, "sen")
iRet = InStr(teksti.Text, "ten")
iRet = InStr(teksti.Text, "uen")
iRet = InStr(teksti.Text, "äen")
iRet = InStr(teksti.Text, "ena")
iRet = InStr(teksti.Text, "ene")
iRet = InStr(teksti.Text, "eni")
iRet = InStr(teksti.Text, "enn")
iRet = InStr(teksti.Text, "eno")
iRet = InStr(teksti.Text, "ens")
iRet = InStr(teksti.Text, "ent")
iRet = InStr(teksti.Text, "enu")
iRet = InStr(teksti.Text, "enä")
If iRet > 0 Then
Else
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: et nii")
ymmärretty = True
iRet = 0
End If
End If
iRet = InStr(teksti.Text, "liiku")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: älä ny sentää kiroile")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "vits")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: hahhaa!")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "ok")
If iRet > 0 Then
iRet = 0
iRet = InStr(teksti.Text, "ei")
If iRet = 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: ok.")
End If
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "ei")
If iRet > 0 Then
iRet = 0
iRet = InStr(teksti.Text, "ok")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: niipä niin")
Else
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: kylläpäs")
End If
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "ruoka")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: en syö")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "yäk")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: nam")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "juost")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: en suostu")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "svedu")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: kohta tulee laatat")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "ruots")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: tulee byytat")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "puhun")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: ai puhutko")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "kuka oot")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: minä")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "kuka olet")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: minä tietenkin")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "kuka sinä")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: ei onnaa")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "kuka sä")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: no mä")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "viin")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: lempijuomasi")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "juoppo")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: tietokone ei juo")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "lekur")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: vihaan lääkäreitä")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "tohtori tutkii kallosi")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: ei muuten varmana tutki")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "ääliö")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: olet sinä mutten minä hahhahhaa")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "junt")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: kiitos samoin")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "huij")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: ehä")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "hölk")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: ei onnaa")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "siksi")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: koska")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "kävellää")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: miksi")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "miksi")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: siksi")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "kuka sinut teki")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: 12-vuotias kakara, jolla on kiero ")
puhe.AddItem ("huumorintaju")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "kuka sut teki")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: 12-vuotias kakara, jolla on kiero ")
puhe.AddItem ("huumorintaju")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "tutkiiha")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: miksi tutkisi")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "hausk")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: hauskaa kuin mun huumori")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "et")
If iRet > 0 Then
iRet = 0
iRet = InStr(teksti.Text, "aet")
iRet = InStr(teksti.Text, "eet")
iRet = InStr(teksti.Text, "iet")
iRet = InStr(teksti.Text, "net")
iRet = InStr(teksti.Text, "oet")
iRet = InStr(teksti.Text, "set")
iRet = InStr(teksti.Text, "tet")
iRet = InStr(teksti.Text, "uet")
iRet = InStr(teksti.Text, "äet")
iRet = InStr(teksti.Text, "eta")
iRet = InStr(teksti.Text, "ete")
iRet = InStr(teksti.Text, "eti")
iRet = InStr(teksti.Text, "etn")
iRet = InStr(teksti.Text, "eto")
iRet = InStr(teksti.Text, "ets")
iRet = InStr(teksti.Text, "ett")
iRet = InStr(teksti.Text, "etu")
iRet = InStr(teksti.Text, "etä")
If iRet = 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: enkö")
ymmärretty = True
iRet = 0
End If
End If
iRet = InStr(teksti.Text, "ootko älykäs")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: kaksi arvausta")
ymmärretty = True
iRet = 0
End If
iRet = InStr(teksti.Text, "ootko viisas")
If iRet > 0 Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: tietenkin")
ymmärretty = True
iRet = 0
End If




If ymmärretty = False Then
puhe.AddItem ("Sinä: " & teksti.Text)
puhe.AddItem ("Tietokone: yritäppä puhua suomea")
End If
puhe.Selected(puhe.ListCount - 1) = True
teksti.Text = ""
End Sub