ما هو المنطق في استخدام Not في الجمل الشرطية و ال Loops وما هي الفائدة منها ومتى استخدم منطق العكس في كتابة الكود البرمجي؟
مثال 1 :
Private Sub btnCheck_Click(sender As Object, e As EventArgs) Handles btnCheck.Click
Dim userInput As Integer
' محاولة تحويل الإدخال النصي إلى رقم
If Not Integer.TryParse(txtInput.Text, userInput) Then
lblMessage.Text = "الرجاء إدخال رقم صحيح!"
Exit Sub ' الخروج إذا لم يكن الإدخال رقمًا
End If
lblMessage.Text = "لقد أدخلت الرقم: " & userInput
End Sub
مثال 2 :
Private Sub btnValidate_Click(sender As Object, e As EventArgs) Handles btnValidate.Click
Dim userInput As Integer
Dim inputValid As Boolean = False
Do While Not inputValid
If Integer.TryParse(txtInput.Text, userInput) Then
lblMessage.Text = "تم إدخال رقم صحيح: " & userInput
inputValid = True
Else
lblMessage.Text = "الرجاء إدخال رقم صحيح فقط!"
txtInput.Clear() ' تفريغ النص للمحاولة مرة أخرى
txtInput.Focus() ' إعادة التركيز على مربع النص
Exit Do ' الخروج للسماح بإعادة المحاولة
End If
Loop
End Sub
ارجو الإفادة.
ولكم التحية