Prikazi cijelu temu 29.05.2012 19:08
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Pitanja u vezi procedura i pisanja koda
Greška ti je kod spajanja stringa što si stavio navodnike
j=spoji("k","i") treba biti j=spoji(k,i) onda radi.

Ako je ovo za vježbu onda dobro ali u protivnom imaš previše koda. Da bi napravo to na formi što si htio ne trebaju ti moduli, to isto mpžeš dobiti i ovako
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Text12_GotFocus()
  2. Dim Treci As Double
  3. Dim Cetvrti As Double
  4.  
  5. Treci = Me.Text8
  6. Cetvrti = Me.Text10
  7.  
  8. Me.Text12 = Treci + Cetvrti
  9.  
  10. End Sub

PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Text22_GotFocus()
  2. Dim k As String
  3. Dim i As String
  4.  
  5. k = Me.Text18
  6. i = Me.Text20
  7. Me.Text22 = k & i
  8. End Sub

PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Text4_GotFocus()
  2. Dim Prvi As Double
  3. Dim Drugi As Double
  4.  
  5. Prvi = Me.PrviBroj
  6. Drugi = Me.DrugiBroj
  7.  
  8. Me.Text4 = Prvi + Drugi
  9.  
  10. End Sub

Također u deklaraciji modula si napisao

Function Spoji (a As String, b As String) As String

ne treba ti ovo zadnje As string. Dovoljno je

Function Spoji (a As String, b As String)

Funkciju spoji jednostavnije možeš pozvati sa

PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Text22_GotFocus()
  2. Me.Text22 = Spoji(Me.Text18, Me.Text20)
  3. End Sub
Pozdrav