Poli (vestacki mozak)sto sam vam obecao

2

Poli (vestacki mozak)sto sam vam obecao

offline
  • Pridružio: 05 Mar 2007
  • Poruke: 81

Ijao... Nisam vid'o!
mycity.rs/must-login.png



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 04 Maj 2008
  • Poruke: 181
  • Gde živiš: Prijepolje

a kako da napravim ... kao kod BlasteR-a da ima unos kao da neko doda pitanje i odgovor...??? u visual basicu...???



offline
  • Pridružio: 05 Mar 2007
  • Poruke: 81

Ako ti neki deo C# koda nije jasan, probaj ovu stranicu:

developerfusion.com/tools/convert/csharp-to-vb/

ili prosto naguglaj C# to VB converter. Ja recimo nemam pojma sa VB-om, a nekoliko puta sam postovao odgovore sa VB kodom. Pisao sam u C# i onda prekonvertovao u VB. E, sad... Onaj tvoj program... Jel to Visual Basic 6? Ako ne znas VB.NET, konverteri ti nece mnogo pomoci.

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

visual basic 6....ja koristim.......

offline
  • Pridružio: 28 Jun 2004
  • Poruke: 990
  • Gde živiš: Kucura

Citat:Ja bih uradio, ali ne znam VB, mogu da uradim u C#.

Reko ti je covek da radi samo C#... Confused

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

pa znam .... Smile ...

Dopuna: 10 Jan 2009 14:06

moze ovako ....

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



????

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

shutdown ::a moze li ko da uradi ovako kao sto je BlasteR rekao...?

Nije isto ali je slicno ( za sada samo nekoliko pitanja):

Nema veze redosled reci u recenici.
Ne razlikuje velika i mala slova.

Moze da se dopunjuje izmenom txt fajla u obicnom notepad-u:
Pitanja se pisu unutar {} zagrada, a odgovori unutar [] zagrada.
(ima detaljno uputsto unutar tog txt fajla).

Radjeno je u VB 5.0, pa ako nece fajl .vbp da se ucita, probaj sa .frm

Podaci.txt se mora nalazi u istom folderu. kao i ostali fajlovi.

mycity.rs/must-login.png


Posto je kod dosta mali (nema ni 100 linija koda), postavicu ga i ovako:

Dim Pitanja(1000) As String Dim Odgovori(1000) As String Dim BrojPitanja As Integer Dim BrojOdgovora As Integer Dim Pit As String Dim Odg As String Dim Tekst As String Private Sub Command1_Click()     Pit = Trim(Text2.Text)     Text2.Text = ""     Tekst = Tekst & "Pitanje: " & Pit & Chr(13) & Chr(10)     Call Provera     Tekst = Tekst & "Odgovor: " & Odg & Chr(13) & Chr(10) & Chr(13) & Chr(10)     Text1.Text = Tekst     Text1.SelStart = Len(Text1.Text) End Sub Private Sub Command2_Click()     End End Sub Private Sub Command3_Click()     Tekst = ""     Text1.Text = "" End Sub Private Sub Form_Load()     Call Ucitavanje_Fajla End Sub Sub Ucitavanje_Fajla()     Dim Linija As String     BrojPitanja = 0     BrojOdgovora = 0     Odg = ""     Open "Podaci.txt" For Input As #1         Do Until EOF(1)             Line Input #1, Linija             Linija = Trim(Linija)             If InStr(1, Linija, "{") > 0 Then                 BrojPitanja = BrojPitanja + 1                 Pitanja(BrojPitanja) = Trim(Mid(Linija, InStr(1, Linija, "{") + 1, Len(Linija) - InStr(1, Linija, "{") - 1))             ElseIf InStr(1, Linija, "[") > 0 Then                 BrojOdgovora = BrojOdgovora + 1                 Odgovori(BrojOdgovora) = Trim(Mid(Linija, InStr(1, Linija, "[") + 1, Len(Linija) - InStr(1, Linija, "[") - 1))             End If         Loop     Close #1 End Sub Sub Provera()     Dim i As Integer     Dim j As Integer     Dim Rec(100) As String     Dim BrojReci As Integer     Dim Pogodjeno As Integer     Dim MaxPogodjeno As Integer     Dim RedPogodjeno As Integer         BrojReci = 0     Do Until Pit = ""         BrojReci = BrojReci + 1         i = InStr(1, Pit, " ")         If i > 0 Then             Rec(BrojReci) = Left(Pit, i - 1)             Pit = Trim(Right(Pit, Len(Pit) - i))         Else             Rec(BrojReci) = Pit             Pit = ""         End If     Loop         MaxPogodjeno = 0     For j = 1 To BrojPitanja         Pogodjeno = 0         For i = 1 To BrojReci             If InStr(1, Pitanja(j), Rec(i), vbTextCompare) > 0 Then                 Pogodjeno = Pogodjeno + 1             End If         Next i         If Pogodjeno > MaxPogodjeno Then             MaxPogodjeno = Pogodjeno             RedPogodjeno = j         End If     Next j         If MaxPogodjeno = 0 Then         Odg = "Ne razumem pitanje !"     Else         Odg = Odgovori(RedPogodjeno)     End If     End Sub

mod biser-x: Obrisan je link za download .exe fajla. Zabranjeno je pravilnikom.

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

E Hvlala je puno ...imam jos jedno pitanje kako naprimer uradim green screen u visual basicu...? Smile ono da imam sliku sa zelenom bojom pozadine i da ta zelena boja postane providna???.....

offline
  • Pridružio: 14 Feb 2008
  • Poruke: 12346

Mislis na opacity? Pa da polako nestane ili providna? ili?

offline
  • Pridružio: 26 Okt 2008
  • Poruke: 1560
  • Gde živiš: Sremski Mihaljevci

Imas opciju backcolor i izaberes zelenu boju i sa tajmerom izvedes da ti boja zajedno sa formom polako nestaje.

Ko je trenutno na forumu
 

Ukupno su 656 korisnika na forumu :: 28 registrovanih, 4 sakrivenih i 624 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: A.R.Chafee.Jr., alkatraz080, CrniGavran, Deneb, Dorcolac, Drug pukovnik, galijot, gile58, goxin, kerinjo, ljuba, MB120mm, Milan A. Nikolic, Mirage 2000N, mk, mushroom, naki011, nemkea71, Oluj2.1, pavle_pzs, Rakenica, Sale.S, shone34, Singidunumac, stegonosa, stug, Tenk, YU-UKI