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.

  1. 'Autor: Rajko Kuzmanovic 07.08.2009 [Link mogu videti samo ulogovani korisnici]
  2. 'frmRecnik
  3.  
  4. Private Sub cmdPrevedi_Click()
  5.     Dim Jezik As String
  6.     Dim Fraza As String
  7.     Dim Prevod As String
  8.    
  9.     Dim prviseparator As Integer
  10.  
  11.     frmRecnik.txtSacekajte.Visible = True
  12.     frmRecnik.txtSacekajte.Refresh
  13.     For n = 1 To UBound(baza())
  14.         If Len(baza(n)) > 0 Then
  15.             prviseparator = InStr(baza(n), "|")
  16.            
  17.             Jezik = Mid(baza(n), 1, prviseparator - 1)
  18.            
  19.             drugiseparator = InStr(prviseparator + 1, baza(n), "|")
  20.            
  21.             Fraza = Mid(baza(n), prviseparator + 1, drugiseparator - prviseparator - 1)
  22.            
  23.             Prevod = Mid(baza(n), drugiseparator + 1)
  24.            
  25.             If Trim(UCase(txtFraza.Text)) = Trim(UCase(Fraza)) Or Trim(UCase(txtFraza.Text)) = Trim(UCase(Prevod)) Then
  26.                 frmRecnik.txtSacekajte.Visible = False
  27.                 lstPrevod.AddItem Jezik & "  |  " & Fraza & "  |  " & Prevod
  28.                 Exit Sub
  29.             End If
  30.         End If
  31.     Next n
  32.     frmRecnik.txtSacekajte.Visible = False
  33.     lstPrevod.AddItem "Ne postoji ta rec"
  34. End Sub
  35.  
  36. Private Sub txtFraza_KeyPress(KeyAscii As Integer)
  37.     If KeyAscii = 27 Or KeyAscii = 32 Then
  38.         txtFraza.Text = ""
  39.         lstPrevod.Clear
  40.     End If
  41. End Sub
  42.  
  43. 'Autor: Rajko Kuzmanovic 07.08.2009 [Link mogu videti samo ulogovani korisnici]
  44. 'basMain
  45.  
  46. Option Explicit
  47.  
  48. Public PutanjaImeTxtBazeEkstenzija As String
  49.  
  50. Public baza()
  51.  
  52. Public Sub Main()
  53.     frmRecnik.Show
  54.     frmRecnik.txtSacekajte.Visible = True
  55.     frmRecnik.txtSacekajte.Refresh
  56.     Call UcitavanjeBazeUMemorju
  57.     frmRecnik.txtSacekajte.Visible = False
  58. End Sub
  59.  
  60. Public Sub UcitavanjeBazeUMemorju()
  61.     Dim brojac As Long
  62.     Dim ocitanoizfajla As String
  63.    
  64.     ReDim baza(10)
  65.    
  66.     PutanjaImeTxtBazeEkstenzija = App.Path & "\Reci.txt"
  67.    
  68.     Open PutanjaImeTxtBazeEkstenzija For Input As #1
  69.         brojac = 0
  70.         Do While Not EOF(1)
  71.             Line Input #1, ocitanoizfajla
  72.             If brojac > 0 Then
  73.                 baza(brojac) = ocitanoizfajla
  74.             End If
  75.             brojac = brojac + 1
  76.             If brojac Mod 10 = 0 Then
  77.                 ReDim Preserve baza(brojac + 10)
  78.             End If
  79.             DoEvents
  80.         Loop
  81.     Close #1
  82. 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 1009 korisnika na forumu :: 74 registrovanih, 8 sakrivenih i 927 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: -Max-, 015, ArchaBasha, Asteker, babaroga, black sabah, boj.an, Boroš, Bozjidar87, Bushek, Ca6otep, CrazyDiablo, dekan.m, Django777, DJUNTA, draganl, Duh sa sekirom, dule10savic, Electron, Folkstar, g_g, Gargamel008, Georgius, iceburn, ivan1973, Jeremiah, joca83, Jomini, K-1A, Kajzer Soze, king111, komsija1, Krusarac, kunktator, lcc, ljubo70, mane123, markoni.slo, Mercury, MiGac, Mihajlo, Miki01, mikidragi, Pegggio, Pilence, PrincipL, Ranutovac, redstar72, repac, robertino, rovac, SamostalniReferent, sap, sekretar, Serge, shadower78, SKYLINE, Skywhaler, Smajser, SOVO515, strelac07, tajvankanasta, tmanda323, trajkoni018, travisrise, Trivo, vathra, Vatreni Zmaj, VJ, VladaKG1980, Vladko, Vladoj, Voice1, šumar bk2