[princelovelorn]

تفضل الكود كما تطلب

 

كود :

كود :

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

        If TextBox1.Text = "" Then Exit Sub

        Dim x As Double
        Dim y As Double
        Dim z As Double

        y = 2.5
        TextBox3.Text = y

        x = CDbl(TextBox1.Text)
        z = x * y / 100
        TextBox2.Text = CStr(x + z)
    End Sub