تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعده بسيطه في الاعداد
#1
عندي ليبل 1 مكتوب فيه عدد 50000
وليبل 6 مكتوب فيه عدد 20000
عاوز اظبط الكود بحيث
ان اذا كان الرقم اللي في ليبل 6 اكبر من الرقم اللي في ليبل 1 تظهر رساله مكتوب بها العدد اكبر من اللازم واذا كان الرقم اللي في ليبل 6 اصغر من الرقم اللي في ليبل 1 تظهر رساله مكتوب بها العدد اصغر
وشكرا مقداما لكم جميعا
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
اخي الارقام في اللايبل هي عبارة عن نصوص (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

طبعا الاصح هو الثاني وحتى نتعود ونعرف التحويل من نوع متغير الى اخر
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
#3
(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

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

تسلم ايدك يا كبير علي الكود وعلي المعلومه ربنا يجعله في ميزان حسناتك
الرد
تم الشكر بواسطة: عبد العزيز البسكري
#4
 و الله إشتقنا لك و لإطلالاتك أخي في الله و أستاذي الغالي .. إبراهيم إيبو
الرد
تم الشكر بواسطة:
#5
Tongue 
لسلام عليكم ورحمة الله وبركاته
اخي الارقام في اللايبل هي عبارة عن نصوص (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


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

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

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









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


[صورة مرفقة: default_avatar.png]

[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
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم