Visual Basic 2008 "Pecko"

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Napisano: 17 Sep 2009 22:22

Evo opet ja.....sada mi bas treba pomoc...znaci moze li mi neko prepraviti kod da odgovori na pitanja budu kao i na Pecku....

Covjek:.....?
Kompijuter:.....?

I da kada se u nekoj recenici nadje npr. zato da on salje odgovore(ako je moguce svaki put drugaciji odgovor)

Covjek: zasto je to tako
Kompijuter: zato sto tako mora da bude

ili

Covjek: zasto je mrak
Kompijuter: zato sto je ugaseno svjetlo

Nadam se da ste me razumjeli a evo i kod:

If TextBox2.Text = "Kako se zoves" Then             TextBox1.Text = "Neznam"         ElseIf TextBox2.Text = "Koliko je sati" Then             TextBox2.Text = "Neznam"             'Case "........"             '   textbox1.text ="......."         Else             TextBox1.Text = "Ne razumem pitanje !"         End If         TextBox1.Text = ("Kompjuter: " & TextBox2.Text)     End Sub

Ovo je kod...mislim da se moze jednostavnije i efikasnije napisati,pa pomagajte!

Dopuna: 17 Sep 2009 22:23

ako treba okacicu cjeli source da vidite i prozor....

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ok.. Vidim da si lose poceo, pa da ti odma dam savet. Pocni od nekih osnova. Knjiga, neki tutorial.. Nemoj se hvatati nekih projekata koje ne znas ni kako ces da zavrsis. Hoces da napravis 'pecka', a nisi ni osnove povatao. Ako nastavis tako, bices kao i pojedinci na ovom forumu, a nista neces nauciti.

Inace sto se tice tvog 'pecka', to se ne radi tako. Sta ako ja upisem pitanje "kako se zoves?"
1. Pocetno slovo nije veliko. Tu bi tvoj uslov prvi put omanuo i izbacio bi odgovor "Ne razumem pitanje !"

2. Slucajno sam dva puta uradio space izmedju "se" i "zoves".. Ovde bi tvoj uslov takodje omanuo...

Mislim da treba da pretrazujes uneto pitanje kao string, pa ako se u tom stringu nalazi "Kako" ili "kako" ili bilo koja druga kombinacija velikih i malih slova, a da pise "kako" i ako se nalazi "ime" onda da odgovor bude "Zovem se... bla bla"
Ako se nalazi jos koja rec pored ta dva stringa, proveris da li je upisano i "prezime" pa onda na osnovu toga ide odgovor...

Za ovo sa Covek i Kompjuter ides ovako:

TextBox1.Text = TextBox1.Text & vbCrLf & "Kompjuter: Moj odgovor je..."

Nadam se da se i u VB 2008 koristi vbCrLf..

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

hvala pokusacu

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

biser-x ::ako se u tom stringu nalazi "Kako" ili "kako" ili bilo koja druga kombinacija velikih i malih slova

Zar ne bi bilo najjednostavnije da ceo uneti string prebaci u npr lowercase (php ima f-je za to - strtolower() i strtoupper(), pretpostavljam da ima i VB), i da u tom "obradjenom" stringu trazi poklapanje?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Eto, moze to
Mislim da su UCase(), LCase() funkcije u pitanju.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Jbg neide mi nista ne kontam....