[bakriano30@yahoo.com]

محتاج كود عند الضغط علي البوتن اكتر مره ينقص 1 من 100 اللي في الليبل استعمل الكود ده 






If TextBox1.Text.EndsWith("52251") Then

            Label1.Text = 100
        Else
            MsgBox("Please Insert serial")

---

(22-07-19, 04:34 AM)bakriano30@yahoo.com كتب : محتاج كود عند الضغط علي البوتن اكتر مره ينقص 1 من 100 اللي في الليبل استعمل الكود ده 






If TextBox1.Text.EndsWith("52251") Then

            Label1.Text = 100
        Else
            MsgBox("Please Insert serial")

شكرا للمحترفين تم الوصول للكود

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

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

اليك الكود التالي .. سيقوم بحساب نسبة 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 


[bakriano30@yahoo.com]

(22-07-19, 10:39 AM)ابراهيم ايبو كتب :

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

اليك الكود التالي .. سيقوم بحساب نسبة 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 


شكرا لك اخي ابراهيم