MyCity » Visual Studio -> Visual Basic » Skolski primer recnika

Skolski primer recnika

Napisano na dan: 11.8.2009

Skolski primer recnika
Sledeća strana Pagination

Idi na vrh

Poslao: 11 Avg 2009 01:34
Idi na vrh
offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

Skolski primer srpsko-engleskog recnika.

'Autor: Rajko Kuzmanovic 07.08.2009 [Link mogu videti samo ulogovani korisnici] '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 [Link mogu videti samo ulogovani korisnici] '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

[Link mogu videti samo ulogovani korisnici]



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.

MyCity » Visual Studio -> Visual Basic » Skolski primer recnika

Ko je trenutno na forumu
 

Ukupno su 1270 korisnika na forumu :: 105 registrovanih, 8 sakrivenih i 1157 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 13297 - dana 20 Jan 2026 17:42

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 10x10.9, alberto, Antoni S, Arhiv, Asteker, Bbbggg1979, bog sunca, Boroš, Botovac, BOXRR, bpop, brkan1, Cicumile, Ciri1994, cojapop, croato, darkkran, dejno, Deki Duga Devetka, Despot Đurađ, DJUNTA, Dogma21, Dolinc, doragan, Dorcolac, dragoljub11987, Drugard72, Duk011, Dzoni2412, elias, Fliper, Frunze, Gogi do, goran.vvv, halkin gol, Imperator_Aleksandr_lll, jalos, Jester, JOntra, Jose, Jozo74, Kajzer Soze, Kapetan Hadok, Koja79, kybonacci, Lazur_01, Lester Freamon, Levi, Lj_ubo, Malahit, Manjane, Marko Marković, Marko1238, Marky, matejman, miki kv, mikidragi, Miler88, MILO-VAN, MiloradKomadic, Milos1389, Mićko, monomah, Mrav Obrad, mrav pesadinac, mux, nazgul75, nebidrag, nebkv, nemkea71, Obt, Paklenica, pedja.st, pein, pera bager, rednap, Resad76, rovac, rr559, S94, sedan, share00, ShtagodShtagod, Siti2, Skakac7, Steeeefan, Tandrkalo, Tas011, tecataki, tooljan, tritonus, trutcina, Username1000, username_25, vaci, vathra, Velizar Laro, Vlada1389, Vucko11, VX1, Wrangler, XBMC, zemljanin, Zmaj Tolak, Zukov