Pomoc za Visual Basic

[XL]

Nedavno sam poceo da programiram malo u Visual Basicu, i kada sam uradio jedan kod, program nije hteo da radi. Kaze mi "error 424". Ne znam u cemu je problem. Kod sam prepisao iz knjige. Evo koda, a vi mi kazite da li negde postoji greska:

Private Sub cmdObrada_Click ()
Dim D1 As Single, D2 As Single, D As Single
D1 = txtSpoljasnji.Text
D2 = txtUnutrasnji.Text
D = (D1 - D2) / 2
txtDebljina.Text = D
End Sub

 

Private Sub command1_Click ()
Dim D1 As Single, D2 As Single, D As Single
D1 = text1.Text
D2 = text2.Text
D = (D1 - D2) / 2
text3.Text = D
End Sub


pokusaj ovako


i nemoj sada menjati imena kontrolama(textBOx,Commandbox,itd neka ostane kako je)

 

[darkster]

Nedavno sam poceo da programiram malo u Visual Basicu, i kada sam uradio jedan kod, program nije hteo da radi. Kaze mi "error 424". Ne znam u cemu je problem. Kod sam prepisao iz knjige. Evo koda, a vi mi kazite da li negde postoji greska:

Private Sub cmdObrada_Click ()
Dim D1 As Single, D2 As Single, D As Single
D1 = txtSpoljasnji.Text
D2 = txtUnutrasnji.Text
D = (D1 - D2) / 2
txtDebljina.Text = D
End Sub

KHM! Probaj sa sledećim:

D1 = Val(txtSpoljasnji.Text)
D2 = Val(txtUnutrasnji.Text)
txtDebljina.Text = Format$(D)

a ne bi ti škodilo da ubaciš i neku proveru da li su u D1 i D2 samo brojevi...

 

Private Sub command1_Click ()
Dim D1 As Single, D2 As Single, D As Single
D1 = text1.Text
D2 = text2.Text
D = (D1 - D2) / 2
text3.Text = D
End Sub


pokusaj ovako


i nemoj sada menjati imena kontrolama(textBOx,Commandbox,itd neka ostane kako je)

Pogresni tipovi podataka?