+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : العمليات الحسابية أكبر و اصغر (/showthread.php?tid=20771)
العمليات الحسابية أكبر و اصغر - أبو عقيل - 17-06-17
السلام عليكم ورحمة الله وبركاته
كيفكم ... عساكم بألف صحة وعافية
كيف اضع كود يحسب القيمة هل هي بين رقمين ام لا
مثلا
عندي تكست
وعندي ليبل
اذا كانت قيمة التكست تتراوح بين 5 الى 10 ......... يكون لون الليبل اخضر
اما اذا كانت قيمة التكست اقل من 5 أو أكبر 10 ..... يكون لون الليبل أحمر
فأنا ماضبطت معي
وشاكر لكم مقدما
RE: العمليات الحسابية أكبر و اصغر - عمور2016 - 18-06-17
وعليكم السلام اهلا ابو عقيل
جرب الكود ده
For n = 0 To 5
Dim i
For i = 6 To 10
Dim o
For o = 11 To 1000
If Text1.Text = n Then
Label1.BackColor = vbRed
ElseIf Text1.Text = i Then
Label1.BackColor = vbGreen
ElseIf Text1.Text = o Then
Label1.BackColor = vbRed
End If
Next
Next
Next
انا اشوف هذه طريقه انشاء الله طيبه
يمكن تعديل الارقام من بين وبين
تحياتي.,,,
RE: العمليات الحسابية أكبر و اصغر - sendbad100 - 18-06-17
السلام عليكم
PHP كود :
Private Sub Command1_Click()
If Val(Text1.Text) > 10 Or Val(Text1.Text) < 5 Then
Me.Label1.BackColor = &HC000&
Else
Me.Label1.BackColor = &HFF&
End If
End Sub
عفوا عمور2016 ما شفت اجابتك
يعطيك العافية
RE: العمليات الحسابية أكبر و اصغر - أبو عقيل - 18-06-17
الف شكر لكم
تمت التجربة ونجحت
الله يوفقكم جميعا
RE: العمليات الحسابية أكبر و اصغر - عبد العزيز البسكري - 18-06-17
إضافة لما تقدّم به الإخوة الأفاضل جزاهم الله خير الجزاء .. من الممكن أيضا الاستغناء عن زر الأمر بهذا التغيير البسيط
إحتراماتي
كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Val(Text1.Text) > 10 Or Val(Text1.Text) < 5 Then
Me.Label1.BackColor = &HC000&
Else
Me.Label1.BackColor = &HFF&
End If
End SubRE: العمليات الحسابية أكبر و اصغر - أبو عقيل - 18-06-17
الف شكر لكم جميعا
ماقصرتوا معي
الله يوفقنا وإياكم