Pecko - super genije - kako uraditi?

1

Pecko - super genije - kako uraditi?

offline
  • Pridružio: 04 Maj 2008
  • Poruke: 181
  • Gde živiš: Prijepolje

Secate se starog Pecko super genije.......eh kako to moze da se uradi u visual basicu ono kako ja da napravim jedno dugme i jedan TextBox
upisem pitanje i ono izbaci u istom textBox-u odgovor ako neko ima kod kako da pravim pitanja i odgovore....pocetnik sam pa nezznam bas najbolje.........



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 25 Maj 2007
  • Poruke: 114
  • Gde živiš: Novi Sad, Sombor

Najjednostavniji kod ( ali sa najmanje mogucnosti )

Dim Pitanje As String Dim Odgovor As String Private Sub Command1_Click()     Pitanje = Trim(Text1.Text)     Select Case LCase(Pitanje)         Case ""             Odgovor = "Niste nista uneli !"         Case "koliko ima sati"             Odgovor = Time         Case "kako se zoves"             Odgovor = "Nemam pojma !"         'Case "........"         '   Odgovor="......."         'Case "....ovde ide novo pitanje...."         '   Odgovor="...ovde ide odgovor...."         'Case "........"         '   Odgovor="......."         Case Else             Odgovor = "Ne razumem pitanje !"     End Select     List1.AddItem "Covek: " & Pitanje & " ?"     List1.AddItem "Kompjuter: " & Odgovor End Sub Private Sub Command2_Click()     List1.Clear End Sub

Napravi formu (kao na slici ispod) koja ima:
2 "command" tastera. ( levi je command1 a desni command2)
1 textbox ( na slici je zeleni)
1 listbox ( na slici je plavi)





Mozes da pogledas u Help-u funkciju InStr, koja pronalazi neki string unutar drugog stringa. Na taj nacin mozes napraviti da formira odgovore pomocu kljucnih reci u pitanju.

npr:
ako je
  Pitanje="Zasto je trava zelena ?" If Instr(1, Pitanje, "zasto",1)>0 Then     Odgovor="Zato" End If
sto znaci da ce na svako pitanje koje u sebi sadrzi rec "zasto" odgovarati sa zato.



offline
  • Pridružio: 04 Maj 2008
  • Poruke: 181
  • Gde živiš: Prijepolje

Aj molm te pojasni malo gde trebam da ubacim koji kod........meni javlja neku gresku tako nesto........pls

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

Otpakuj arhivu i u njoj se nalaze tri fajla sa ekstenzijama:
.frm
.vbp
.vbw

U Visual Basic-u otvori fajl sa ekstenzijom .vbp

mycity.rs/must-login.png

offline
  • Pridružio: 04 Maj 2008
  • Poruke: 181
  • Gde živiš: Prijepolje

Hvala ti puno LJUDI USKORO CE IZACI PECKO 2 PAMETAN SUPER GENIJE HEHEH

offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

Pa bilo bi mnogo bolje i prakticnije da ta pitanja i odgovore ubacis u txt fajl u obliku:

Pitanje="..." Odgovor="..."
Pitanje="..." Odgovor="..."
Pitanje="..." Odgovor="..."
Pitanje="..." Odgovor="..."
...
Pitanje="..." Odgovor="..."


Ovo bi ti omogucilo da pitanja i odgovore produzujes skoro do beskonacnosti.
Razmisli.

offline
  • Pridružio: 14 Sep 2008
  • Poruke: 2

a dajes li source kod za taj program???'

offline
  • Pridružio: 04 Maj 2008
  • Poruke: 181
  • Gde živiš: Prijepolje

Gledaj ja taj program postavljam za 10 dana kad bude gotov i postavicu isto u .vbp formatu pa doradjujte do mile volje......a sto ti nebi dao....!

Dopuna: 20 Sep 2008 22:51

ko zna kod npr. ako pitanje pocinje sa kako da ogd. zato da se neucim napisao sam milion pitanja i odgovora pa sad da nagadjam dali ce korisnik postaviti bas tako pitanje??

offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

Ne trebas tako da radis.
Algortam usmeri samo na akciju u pitanju ili slicno.
Npr. pitanje: "Sta radis?" vazna je rec raditi. Isto je i u pitanju u pitanju: "Kada mislis to da radis?". U tom pitanju su u stvari dva pitanja:
kada(vreme) i raditi. Tako razradi agoritam, ne sa ponudjenim pitanjima i odgovorima, jer ce se retko desiti da neko postavi pitanje koje si ti upisao u bazu.
Ovako kompjuter logicki razmislja na osnovu dela iz upitne recenice.

offline
  • Pridružio: 04 Maj 2008
  • Poruke: 181
  • Gde živiš: Prijepolje

Mislis li da moze i ovako
Kod:

Pitanje="Zasto je trava zelena"
If Instr(1, Pitanje, "zasto",1)>0 Then
Odgovor="Zato"
End If

Ko je trenutno na forumu
 

Ukupno su 1352 korisnika na forumu :: 25 registrovanih, 4 sakrivenih i 1323 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: aleksandarbl, Alibaba1981, aramis s, bojcistv, Boris BM, CikaKURE, cvrle312, djboj, Dorcolac, ds69, Fabius, galijot, Istman, jackreacher011011, janbo, Luka Blažević, Mi lao shu, milimoj, novator, Outis, sevenino, shaja1, t84dar, Trpe Grozni, Vlada1389