+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعديل الكود (/showthread.php?tid=32469)
تعديل الكود - اليوم السابع - 11-12-19
انا متأكد ان الكود صحيح
لدي عدد 2 ليبل علي الفورم
ليبل 1 بيحمل قيمه 20 عند تحميل الفورم وليبل 2 بيأخذ قيمته من تكست بوكس
وعند الضغط علي الزر بيتم طرح قيمه ليبل 2 من ليبل 1
المشكله بقي انه عندما بيكون ليبل 1 بيساوي 8 وليبل 2 بيساوي 4 لم يتم الطرح وبيدخل علي جمله اليس
اين المشكله
كود :
If Label1.Text < Label2.Text Then
Dim sa As Integer = Label1.Text
Dim s2 As Integer = Label2.Text
Dim da As Integer
da = sa - s2
Label1.Text = (da)
Else
MsgBox("ليس لديك نقاط كافيه")
End If
RE: تعديل الكود - علي بنيان - 11-12-19
عندك اثنين اخطاء , االاول في علامة < والثاني في عدم تحويل القيمة من string الى integer عن طريق Cint
PHP كود :
If CInt(Label1.Text) > CInt(Label2.Text) Then
Dim sa As Integer = Label1.Text
Dim s2 As Integer = Label2.Text
Dim da As Integer
da = sa - s2
Label1.Text = (da)
Else
MsgBox("ليس لديك نقاط كافيه")
End If
RE: تعديل الكود - اليوم السابع - 12-12-19
(11-12-19, 10:16 AM)علي بنيان كتب : عندك اثنين اخطاء , االاول في علامة < والثاني في عدم تحويل القيمة من string الى integer عن طريق Cintفعلا كان لازم احول القيمه الي انت علشان يقوم بالعمليه الحسابيه بشكل صحيح مش عارف وقعت مني ازاي النقطه دي
PHP كود :
If CInt(Label1.Text) > CInt(Label2.Text) Then
Dim sa As Integer = Label1.Text
Dim s2 As Integer = Label2.Text
Dim da As Integer
da = sa - s2
Label1.Text = (da)
Else
MsgBox("ليس لديك نقاط كافيه")
End If
شكرا لك اخي علي اخوك بقي لسه بيتعلم وبيستفاد منكم