[أبو نوره]

PHP كود :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    dim v As Double=val(TextBox3.Text)
    if v>0 then
        Label6.Text = ( v \ 79500 )
    End if
End Sub