[ابراهيم ايبو]

السلام عليكم اخي الكريم

اليك الكود التالي .. سيقوم بحساب نسبة 1 بالمئة للرقم الدخل في مربع النص

وفي كل ضغطة عل البوتن سينقص هذه النسبة وعند الضغطة الثانية سيعيد حساب 1 بالمئة

من الرقم الحالي وينقصه وهكذا

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text.Trim = "" Then
            MsgBox("لايوجد رقم من فضلك ضع رقما في مربع النص")
            TextBox1.Focus()
            Exit Sub
        ElseIf Val(TextBox1.Text) > 0 Then
            Dim ff As Double = Val(TextBox1.Text) / 100 ' حساب نسبة واحد بالمئة
            TextBox1.Text = FormatNumber(Val(TextBox1.Text) - ff, 5) '  الرقم الموجود بساوي نفسه مطروحا منه نسبة واحد بالمئة الجديدة 
        Else
            MsgBox("الرقم صفر اعد ادخال رقم جديد")
        End If
    End Sub