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 881 korisnika na forumu :: 137 registrovanih, 7 sakrivenih i 737 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: 6footboy, A.R.Chafee.Jr., Alojzije, amaterSRB, amstel, Aristotle2002, bavar357, bestguarder, bojank, bojcistv, Borkanović, Boroš, Borski1977, Bosnjo, bounty hunters, BraneS, branko7, branko87, ccoogg123, CHARLIE JA., cifra, Colt D, Comyymoc, crnitrn, croato, DalmatinacMF, Darko Jovanovic, dejan1972, deLacy, Djokislav, djordjemiklusev, dolinalima, Dragacevac, draganl, Dzigy, Flanker-G, Fliper, Gagi193, gobrad, Goran 0000, Hans Gajger, hrkaz, ibssa, igorkozar83, ILGromovnik, In_hero, Jester, jon istvan, K-1A, Kajzer Soze, kondenzator, kori, Krkan800, Kruger, Krusarac, Laluvr, Lance Guest, Lazur_01, LeoSRB, Litostroton, LjubisaR, ljubsz, lord sir giga, LostInSpaceandTime, magyar, Makarid, Malahit, Manjane, MaschinenPistole, Mastrum Ridkali, MiGac, miki kv, milenko crazy north, Milos82, milos97, mnn2, Mzee, Naj-Turs, nenooo, nikolapetkovic, NklJov123, obsc, oldusername, orah, Orešnik, Oscar, pds, Permaldar, Petar888, Pilipenda, pisac12, Plavi Jadran, Pohovani_00, Povratak1912, RajkoB, raptorsi, razumihin, RD84, Remain, Romibrat, Rothmans, Rupert, S-lash, samocitam, saputnik plavetnila, Semberija, Sharpshooter, Smiljkovich, Solunac na steroidima, Sone0883, SOVO515, ssekir75, Stefanzi, stegonosa, stibium51, tenkiasta71, TheDictator, toni061, Totem, tubular, Ugljesa99, US_Rank_0, USSVoyager, v0idmp3, Vanderx, vathra, vensla, virked, Vlada1389, vzd1389, W123, xAlex2, Zastava, Zoran1959, Zorge, 79693, 800077