|
Poslao: 04 Sep 2008 22:40
|
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.
|
|
|
Poslao: 05 Sep 2008 01:24
|
offline
- karlos
- Građanin
- 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.
|
|
|
|
|
|
|
Poslao: 05 Sep 2008 19:29
|
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
|
|
|
|
|
|
|
|
|
Poslao: 06 Sep 2008 17:19
|
offline
- Pridružio: 04 Maj 2008
- Poruke: 181
- Gde živiš: Prijepolje
|
Hvala ti puno LJUDI USKORO CE IZACI PECKO 2 PAMETAN SUPER GENIJE HEHEH
|
|
|
|
|
|
|
Poslao: 16 Sep 2008 23:47
|
offline
- rgdrajko
- Građanin
- 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.
|
|
|
|
|
|
|
|
|
Poslao: 20 Sep 2008 22:51
|
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??
|
|
|
|
|
|
|
Poslao: 21 Sep 2008 17:39
|
offline
- rgdrajko
- Građanin
- 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.
|
|
|
|
|
|
|
Poslao: 21 Sep 2008 18:13
|
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
|
|
|
|
|
|
