Pecko - super genije - kako uraditi?

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

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

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

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.

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

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

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

Uloguj se preko Facebooka da bi skinuo fajl:

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

U Visual Basic-u otvori fajl sa ekstenzijom .vbp

[Link mogu videti samo ulogovani korisnici]

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

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

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

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.

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

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

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

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

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

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.

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

Mislis li da moze i ovako
Kod:

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