[abdallah1522011]

لسلام عليكم ورحمة الله وبركاته
اخي الارقام في اللايبل هي عبارة عن نصوص (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

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

اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده

البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات

مراسله البحث تقييم
الرد شكراً اقتباس تبليغ
تم الشكر بواسطة: اسامه الهرماوي , اسامه الهرماوي , عبد الهادي بهاب , عبد الهادي بهاب , اليوم السابع , اليوم السابع , عبد العزيز البسكري

[b]اليوم السابع[/b] 
عضو نشيط

المشاركات : 427
المواضيع 144
الإنتساب : Jul 2019
السمعة : 8
الشكر: 281
تم شكره 427 مرات في 243 مشاركات

البلد: 
#3
منذ 34 دقيقة مضت

(, 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