منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

السلام عليكم ورحمة الله وبركاته
اخي الارقام في اللايبل هي عبارة عن نصوص (string) وحتى تتم المقارنة نحولها الى مانريد من نوع رقمي هذه قاعدة عامة
لكن الفيجوال بيسك يتساهل معنا ويقوم بتحويلها ضمنيا الى ارقام ويعمل مقارنة
انظر هذا الكود بدون تحوبل ( يقوم الفيجوال بالتحويل ضمنيا من نص الى رقم)

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


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

(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

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

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

لسلام عليكم ورحمة الله وبركاته
اخي الارقام في اللايبل هي عبارة عن نصوص (string) وحتى تتم المقارنة نحولها الى مانريد من نوع رقمي هذه قاعدة عامة
لكن الفيجوال بيسك يتساهل معنا ويقوم بتحويلها ضمنيا الى ارقام ويعمل مقارنة
انظر هذا الكود بدون تحوبل ( يقوم الفيجوال بالتحويل ضمنيا من نص الى رقم)



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




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











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



المشاركات : 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