Skolski primer recnika

Skolski primer recnika

offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

Skolski primer srpsko-engleskog recnika.

'Autor: Rajko Kuzmanovic 07.08.2009 rgdrajko@verat.net 'frmRecnik Private Sub cmdPrevedi_Click()     Dim Jezik As String     Dim Fraza As String     Dim Prevod As String         Dim prviseparator As Integer     frmRecnik.txtSacekajte.Visible = True     frmRecnik.txtSacekajte.Refresh     For n = 1 To UBound(baza())         If Len(baza(n)) > 0 Then             prviseparator = InStr(baza(n), "|")                         Jezik = Mid(baza(n), 1, prviseparator - 1)                         drugiseparator = InStr(prviseparator + 1, baza(n), "|")                         Fraza = Mid(baza(n), prviseparator + 1, drugiseparator - prviseparator - 1)                         Prevod = Mid(baza(n), drugiseparator + 1)                         If Trim(UCase(txtFraza.Text)) = Trim(UCase(Fraza)) Or Trim(UCase(txtFraza.Text)) = Trim(UCase(Prevod)) Then                 frmRecnik.txtSacekajte.Visible = False                 lstPrevod.AddItem Jezik & "  |  " & Fraza & "  |  " & Prevod                 Exit Sub             End If         End If     Next n     frmRecnik.txtSacekajte.Visible = False     lstPrevod.AddItem "Ne postoji ta rec" End Sub Private Sub txtFraza_KeyPress(KeyAscii As Integer)     If KeyAscii = 27 Or KeyAscii = 32 Then         txtFraza.Text = ""         lstPrevod.Clear     End If End Sub 'Autor: Rajko Kuzmanovic 07.08.2009 rgdrajko@verat.net 'basMain Option Explicit Public PutanjaImeTxtBazeEkstenzija As String Public baza() Public Sub Main()     frmRecnik.Show     frmRecnik.txtSacekajte.Visible = True     frmRecnik.txtSacekajte.Refresh     Call UcitavanjeBazeUMemorju     frmRecnik.txtSacekajte.Visible = False End Sub Public Sub UcitavanjeBazeUMemorju()     Dim brojac As Long     Dim ocitanoizfajla As String         ReDim baza(10)         PutanjaImeTxtBazeEkstenzija = App.Path & "\Reci.txt"         Open PutanjaImeTxtBazeEkstenzija For Input As #1         brojac = 0         Do While Not EOF(1)             Line Input #1, ocitanoizfajla             If brojac > 0 Then                 baza(brojac) = ocitanoizfajla             End If             brojac = brojac + 1             If brojac Mod 10 = 0 Then                 ReDim Preserve baza(brojac + 10)             End If             DoEvents         Loop     Close #1 End Sub

https://www.mycity.rs/must-login.png



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Ko je trenutno na forumu
 

Ukupno su 765 korisnika na forumu :: 21 registrovanih, 2 sakrivenih i 742 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: 357magnum, ArmyBoss, Boris90, dankisha, ekser222, HrcAk47, ikan, Jovan Nenad, kasalovic1996, kulus, kvcali, laze2, mercedesamg, Miskohd, S-lash, sakota79, Sirius, suton, Toni, vathra, vlvl