vb 2008 pomoc!!!

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

pocheo sam praviti veshtacki mozak i napravio sam da mi odgovara samo na tacno postavljena pitanja ali ako postavish nepoznato pitanje izbaci "neznam....." ja bih hteo napraviti ako nije tacno napisano pitanje ili nema u bazi da mi izbaci neka pitanja koja zna uz pomoc kljucnih reci npr.
pitanje = "koliko je sati"
odgovor = "neznam"
(pa mi ispod ispise neka pitanja koja imaju u svom sadrzaju "koliko" ili "je".....)
Koliko ima dana u godini?
kada je bio ?
evo ga program trenutno je "glup":

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

Gde je program?
(Okaci pa cu da izmenim post, ne moras da odg. na ovaj)

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

Uloguj se preko Facebooka da bi skinuo fajl:

https://www.mycity.rs/must-login.png

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

a zasto samo sln??

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

ne mogu ceo projekat kada ima 1.3 mb

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

Uradi jednostavno Copy->Paste kod ili deo koda ovde na forum (kod ubaci unutar [ code ] [ /code ] tagova) ili ceo projekat mozes okaciti na Rapidshare, Sendspace, Megaupload ...

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

     Private Sub cmd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd1.Click         If txt1.Text = "Autor" Then             txt2.Text = "Ne***jko Kuz****vic, zapoceo projekat 04.01.2010 sa 14 godina, Zelja mu je bila da napravi vestacki mozak posle pola godine programiranja, programiranje ga je jako zanimalo i brzo je ucio i to sam jer je imao jednog ret***ranog nastavnika koji nishta nije znao."         ElseIf txt1.Text = "autor" Then             txt2.Text = "Ne***jko Kuz****vic, zapoceo projekat 04.01.2010 sa 14 godina, Zelja mu je bila da napravi vestacki mozak posle pola godine programiranja, programiranje ga je jako zanimalo i brzo je ucio i to sam jer je imao jednog ret***ranog nastavnika koji nishta nije znao."         ElseIf txt1.Text = "Projekat" Then             txt2.Text = "Zapoceo projekat 04.01.2010 programer u svojoj 14 godini."         ElseIf txt1.Text = "projekat" Then             txt2.Text = "Zapoceo projekat 04.01.2010 programer u svojoj 14 godini."         ElseIf txt1.Text = "Skola" Then             txt2.Text = "U skolu idu deca da prosire svoje znanje, ja licno ne volim skolu zbog ranije ustajanja ali volim je zbog druzenja i zbog nekih predmeta"         ElseIf txt1.Text = "skola" Then             txt2.Text = "U skolu idu deca da prosire svoje znanje, ja licno ne volim skolu zbog ranije ustajanja ali volim je zbog druzenja i zbog nekih predmeta"         ElseIf txt1.Text = "Programiranje" Then             txt2.Text = "Programiranje je izuzetno slozen i visokointelektualan posao koji treba sprovesti da bi se neki problem pripremao za resavanje pomocu racunara. Ljudi koji obavljaju taj posao nazivaju se programeri. Dakle, ako je potrebno neki problem ili zadatak resiti pomocu racunara, neophodno je uraditi niz veoma slozenih aktivnosti koje se mogu podvesti pod pojam programiranje. Krajnji proizvod programiranja jeste program. Na osnovu ovoga, pod programiranjem se podrazumeva proces koji se sastoji od pripreme, razrade i pisanje programa radi resavanja nekog problema pomocu racunara. Proces programiranja se sprovodi realizacijom nekoliko etapa, a one obuhvataju: Projektovanje, pisanje postupka kojim ce racunar da trazi resenje, testiranje programa i pisanje uputstva."         ElseIf txt1.Text = "programiranje" Then             txt2.Text = "Programiranje je izuzetno slozen i visokointelektualan posao koji treba sprovesti da bi se neki problem pripremao za resavanje pomocu racunara. Ljudi koji obavljaju taj posao nazivaju se programeri. Dakle, ako je potrebno neki problem ili zadatak resiti pomocu racunara, neophodno je uraditi niz veoma slozenih aktivnosti koje se mogu podvesti pod pojam programiranje. Krajnji proizvod programiranja jeste program. Na osnovu ovoga, pod programiranjem se podrazumeva proces koji se sastoji od pripreme, razrade i pisanje programa radi resavanja nekog problema pomocu racunara. Proces programiranja se sprovodi realizacijom nekoliko etapa, a one obuhvataju: Projektovanje, pisanje postupka kojim ce racunar da trazi resenje, testiranje programa i pisanje uputstva."         Else             txt2.Text = "Nemam tu informaciju,proverite da li ste pravilno napisali i da li pocinje velikim slovom."         End If     End Sub

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

Auuuu, ala si ga zakomplikovao.

Prvo to si mogao mnogo elegantnije da resis.

    Select Case LCase(txt1.Text)           Case "prvo pitanje"                 txt2.Text="Prvi odgovor"           Case "drugo pitanje"                 txt2.Text="Drugi odgovor"           Case "n-to pitanje"                 txt2.Text="n-ti odgovor"           Case Else                 txt2.Text="Pitanje ne postoji !!!"     End Select



Naravno ni ovo nije resenje. Sva pitanja i odgovore bi trebao staviti u neki fajl ili bazu podataka. Ti si odma krenuo sa VB 2008 a jos ni osnove ne znas. Ako vec hoces da radis u 'Basic-u', kreni prvo sa Visual Basic 5 ili 6. U njemu imas dosta primera na ovom forumu za tvoj problem. Posle kad naucis osnove lako ces preci na druge.

mycity.rs/Visual-Basic/Poli-vestacki-mo.....tml#862052
mycity.rs/Visual-Basic/Pecko-super-genije-kako-uraditi.html#808275

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

Gledaj, bas o tome sam pricao u onoj temi. Zamisli da treba program da zna 1000 pitanja, za svako ces pisati uslov? Baza ili neki fajl. Mozes kao u jednom primeru u .txt fajlu da napravis i samo tu guras pitanja. Mislim da je karlos linkovao taj program.

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

Napisano: 08 Jan 2010 11:46

Pocheo sam sa vb6 i bio mi crko windows od virusa pa sam sve brisao sa komp. pa sad nemam cd (uzeo sam od druga) i bio sam otvorio temu i pitao da li se razlikuje jezik Vb6 i vb2008-ice i odgovorili su mi ne!

Dopuna: 08 Jan 2010 11:48

A to za Case nisam znao da ima uopshte u Vb jer mi je nastavnik malo ret*****an ( ja chak znam vishe od njega)!