|
Private Sub Command1_Click() 'BUTTON
Dim hdcp As Integer
hdcp = CInt(Combo1.Text) 'ucitaj sta pise u combo1 tj. padajuci izbornik
For i = 1 To 18
b(i) = bruto(p(i), r(i))
n(i) = neto(i, p(i), r(i), hdcp)
Next i
End Sub
Ja sam ovaj zadnji dio ovako stavio, tu sam dodao button i sad očitava grešku.. neznam di da drugdje stavim button, i di ide ostatak koda, normalno u general?-->
PHP kod:
Private Sub Command1_Click() 'BUTTON
Dim hdcp As Integer
hdcp = CInt(Combo1.Text) 'ucitaj sta pise u combo1 tj. padajuci izbornik
For i = 1 To 18
b(i) = bruto(p(i), r(i))
n(i) = neto(i, p(i), r(i), hdcp)
Next i
End Sub
Ja sam ovaj zadnji dio ovako stavio, tu sam dodao button i sad očitava grešku.. neznam di da drugdje stavim button, i di ide ostatak koda, normalno u general? |