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