vb 2008 pomoc!!!

1

vb 2008 pomoc!!!

offline
  • Pridružio: 28 Okt 2009
  • Poruke: 212
  • Gde živiš: Kanjiza

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":



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 14 Feb 2008
  • Poruke: 12391

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



offline
  • Pridružio: 28 Okt 2009
  • Poruke: 212
  • Gde živiš: Kanjiza

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

offline
  • Pridružio: 26 Okt 2008
  • Poruke: 1560
  • Gde živiš: Sremski Mihaljevci

a zasto samo sln??

offline
  • Pridružio: 28 Okt 2009
  • Poruke: 212
  • Gde živiš: Kanjiza

ne mogu ceo projekat kada ima 1.3 mb

offline
  • Pridružio: 25 Maj 2007
  • Poruke: 114
  • Gde živiš: Novi Sad, Sombor

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

offline
  • Pridružio: 28 Okt 2009
  • Poruke: 212
  • Gde živiš: Kanjiza

     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

offline
  • Pridružio: 25 Maj 2007
  • Poruke: 114
  • Gde živiš: Novi Sad, Sombor

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

offline
  • Pridružio: 14 Feb 2008
  • Poruke: 12391

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.

offline
  • Pridružio: 28 Okt 2009
  • Poruke: 212
  • Gde živiš: Kanjiza

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)!

Ko je trenutno na forumu
 

Ukupno su 939 korisnika na forumu :: 42 registrovanih, 6 sakrivenih i 891 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., amaterSRB, anta, Apok, Boris BM, CikaKURE, cinoeye, Daxi184, djboj, dushan, Excalibur13, Georgius, grenadir, hatman, ILGromovnik, jackreacher011011, JOntra, Još malo pa deda, kobaja77, Komentator, Krvava Devetka, ljuba, Lošmi, mercedesamg, Mi lao shu, Milos ZA, milutin134, nikoladim, ozzy, Petar35, raptorsi, rovac, slonic_tonic, Srle993, stegonosa, Stoilkovic, Sumadija34, Toper, Trpe Grozni, Vatreni Zmaj, vladaa012, ZetaMan