[اليوم السابع]

(03-09-20, 12:40 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الارقام في اللايبل هي عبارة عن نصوص (string) وحتى تتم المقارنة نحولها الى مانريد من نوع رقمي هذه قاعدة عامة
لكن الفيجوال بيسك يتساهل معنا ويقوم بتحويلها ضمنيا الى ارقام ويعمل مقارنة
انظر هذا الكود بدون تحوبل ( يقوم الفيجوال بالتحويل ضمنيا من نص الى رقم)

كود :

If Label6.Text > Label1.Text Then
           MsgBox("الرقم اكبر")
       ElseIf Label6.Text < Label1.Text Then
           MsgBox("الرقم اصغر")
       Else
           MsgBox("الرقمان متساويان")
       End If

وهذا الكود قمنا نحن بالتحويل 

كود :

If CInt(Label6.Text) > CInt(Label1.Text) Then
           MsgBox("الرقم اكبر")
       ElseIf CInt(Label6.Text) < CInt(Label1.Text) Then
           MsgBox("الرقم اصغر")
       Else
           MsgBox("الرقمان متساويان")
       End If

طبعا الاصح هو الثاني وحتى نتعود ونعرف التحويل من نوع متغير الى اخر

تسلم ايدك يا كبير علي الكود وعلي المعلومه ربنا يجعله في ميزان حسناتك