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

عندي ليبل 1 مكتوب فيه عدد 50000
وليبل 6 مكتوب فيه عدد 20000
عاوز اظبط الكود بحيث
ان اذا كان الرقم اللي في ليبل 6 اكبر من الرقم اللي في ليبل 1 تظهر رساله مكتوب بها العدد اكبر من اللازم واذا كان الرقم اللي في ليبل 6 اصغر من الرقم اللي في ليبل 1 تظهر رساله مكتوب بها العدد اصغر
وشكرا مقداما لكم جميعا

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

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

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

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

(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

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

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

[عبد العزيز البسكري]

 و الله إشتقنا لك و لإطلالاتك أخي في الله و أستاذي الغالي .. إبراهيم إيبو

[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