Visual Basic 2008 "Pecko"

Visual Basic 2008 "Pecko"

offline
  • Pridružio: 05 Jan 2009
  • Poruke: 50

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....



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

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..



offline
  • Pridružio: 05 Jan 2009
  • Poruke: 50

hvala pokusacu

offline
  • PHP developer
  • Pridružio: 22 Mar 2006
  • Poruke: 3558
  • Gde živiš: 127.0.0.1

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?

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

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

offline
  • Pridružio: 05 Jan 2009
  • Poruke: 50

Jbg neide mi nista ne kontam....

Ko je trenutno na forumu
 

Ukupno su 754 korisnika na forumu :: 38 registrovanih, 8 sakrivenih i 708 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3028 - dana 22 Nov 2019 07:47

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., Acaks88, Apok, aramis s, axa, bigfoot, celeron, croato, darkangel, Doca, Drug Platov, Faki-Valjevo, flash12, havoc995, ivica976, kolateralnasteta, krkalon, Kubovac, Levi2, lojola, lovac12, Marko Marković, Markoni958, Mirage 2000N, Miskohd, mushroom2, novator, raketaš, riva2, rovac, sasa.zoric, SOVO515, Srki94, VaRvArI 85, vasa.93, vobo, voja64, zoidbergs