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 836 korisnika na forumu :: 59 registrovanih, 6 sakrivenih i 771 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: _Petar, A.R.Chafee.Jr., aleksmajstor, Apok, Bane san, Boter, botta, BraneS, Bubimir, bufanje, Chainsaw, comi_pfc, darkangel, Denaya, Drug pukovnik, DucicM, Duh sa sekirom, FileFinder, francis begbie, goran.vvv, havoc995, ikan, Ispettore Morosini, ivicasimo, kaptain, krlebgd77, lord sir giga, Milan A. Nikolic, mile23, Mixelotti, mustangkg, Nemanja.M, Niko Bitan, novator, Panter, perko91, procesor, Rakenica, rikirubio, rovac, royst33, S2M, saputnik plavetnila, shaja1, Skakac7, solic, srbijaiznadsvega, Steeeefan, strn, Taras, Tas011, theNedjeljko, Underwood, VJ, VladaNS1978, wizzardone, Wrangler, zixmix, zlatkoa987