[طالب برمجة]

PHP كود :

Public Class Form1

    Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
        calc()
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        calc()
    End Sub

    Sub calc()
        Dim n As Double = Val(TextBox1.Text) / 100000
        TextBox2.Text = FormatNumber(n, NumericUpDown1.Value)
    End Sub

End Class