MyCity » Visual Studio -> Visual Basic » Pecko - super genije - kako uraditi?

Pecko - super genije - kako uraditi?

Napisano na dan: 4.9.2008
1

Pecko - super genije - kako uraditi?
Sledeća strana Pagination

Idi na vrh

Poslao: 04 Sep 2008 22:40
Idi na vrh
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
Idi na vrh
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.



Poslao: 05 Sep 2008 19:29
Idi na vrh
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: 05 Sep 2008 20:58
Idi na vrh
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

[Link mogu videti samo ulogovani korisnici]

Poslao: 06 Sep 2008 17:19
Idi na vrh
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
Idi na vrh
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.

Poslao: 20 Sep 2008 12:55
Idi na vrh
offline
  • Pridružio: 14 Sep 2008
  • Poruke: 2

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

Poslao: 20 Sep 2008 22:51
Idi na vrh
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
Idi na vrh
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.

Poslao: 21 Sep 2008 18:13
Idi na vrh
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

MyCity » Visual Studio -> Visual Basic » Pecko - super genije - kako uraditi?

Ko je trenutno na forumu
 

Ukupno su 1326 korisnika na forumu :: 111 registrovanih, 14 sakrivenih i 1201 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 15694 - dana 01 Feb 2026 12:23

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 015, A.R.Chafee.Jr., Armadillo, Asparagus, bigvlada, Bobrock1, boj.an, Bojan198527, bojcistv, boro975, Botovac, bozomotika, cinoeye, cojapop, Colt D, darkdruid72, debeli, Dejan_vw, DejvTroter, Dimitrije Paunovic, Djota1, DJUNTA, dolinalima, Donneraj, Dragan777, draganca, draganl, dule10savic, Dzoni2412, g_g, Gogi do, gost321, GUARIN, helen1, Hitri, ikan, ivan979, ivicasimo, Jablan, Jeremiah, jodzula, Jozo74, K a s p e r, kaput21, Koce, Kozi-RS, Kubovac, kybonacci, littlebunny, lukac, mainstream, marko.markovic, mauglibn, mean_machine, mercedesamg, Mi lao shu, mikelija, milenko crazy north, milimoj, MilosKop, mnn2, Moldovan, N.e.m.a.nj.a., nelezele, nenad81, niksa517, Ns1975, Pero, PlayerOne, precan, procesor, Putnik22, RajkoB, raptorsi, Rebel Frank, redstar011, ruma, ruso, S-lash, samojednoimeznam, SamostalniReferent, sasovsky, Savkec, sevenino, spalev, ss10, Stojan Mrsavi, suton, takini, Tas011, TheDictator, tomo2, tuf, Tunguska55, uruk, v82, vaci, VaRvArI 85, vathra, vensla, Viktor Vuk, Vladoj, Vojkan Petrovic, wolverined4, x011, Zanimljivo, Zastava, ZlatniRez, Zoran1959, Zrcalo, zrno