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 1489 korisnika na forumu :: 57 registrovanih, 5 sakrivenih i 1427 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 357magnum, A.R.Chafee.Jr., AC-DC, Ares12356, BasCelik, Batko.VD.65, Bgorando, BOXRR, Cirkon, crnogorac, Devil city 1989, Dimitrise93, dj.ape, DJORDJE-NO-1, DJUNTA, FilipSRB, foksmolder, galerija, Hemi, Ivan Germanovic, janbo, JOntra, Kalem, Kapetan Hadok, Kaplar2, kibihrchak, kunktator, leopard83, Lepi Jova, ljuba.b, Lošmi, Marija88, Medojed, Mi lao shu, miodrag, mir, momcilob55, Mrav Obrad, nelezele, Nikoletina Bursac, novator, Petarvu, Pururin, raptorsi, repac, sasics, sistem22, stegonosa, steksi, tehnika, Velizar, VJ, Vlada76, vrgudinac, xAlex2, Zi0mek, zzapNDjuric99