السلام عليكم ورحمة الله
أقوم بتصميم برنامج يعتمد على توليد رقمين عشوائيين فى LABEL` و LABEL2 بحيث يكون الرقم فى ال LABEL1 أكبر من ال LABEL2 . كبف يمكن ذلك وشكرا لكم
السلام عليكم ورحمة الله
أقوم بتصميم برنامج يعتمد على توليد رقمين عشوائيين فى LABEL` و LABEL2 بحيث يكون الرقم فى ال LABEL1 أكبر من ال LABEL2 . كبف يمكن ذلك وشكرا لكم
قم بتوليد رقمين وضع الرقم الأكبر بعد المقارنة في LABEL1 والرقم الثاني في LABEL2
:rolleyes:
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
اخى الكريم
وكيف يمكن اجراء المقارنة بين العددين المولدين
هل أنت جاد؟
if A > B then LABEL1.caption = A LABEL2.caption = B else LABEL1.caption = B LABEL2.caption = A end if
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
Private Sub Form_Load() Dim Num1 As Long Dim Num2 As Long Randomize Num2 = Rnd * 1000 Num1 = Num2 + Rnd * 1000 Label1.Caption = Num1 Label2.Caption = Num2 End Sub
شكرا لكما أعزائى - أحيانا لا ينتبه الانسان لشيء مر عليه كثيرا ولكن هذه هى ميزة المنتديات المفيدة شكرا لكم مره اخرى والى الامام