ياريت لو في مساعده

[Prince 050]

كيفكم اخواني اعضاء برماج نت



:smailes111:


بدي مساعدتكم اذا امكن


اذا في احد عندوا برنامج يعمل عمل القرعه علي الفيجول بيسك ويكون بسيط



ياريت والله يحطلي اياه


والله يجزاه فيه دنيا واخره

[Al-Raisi]

السلام عليكم أخي العزيز

أرحب بك في هذا المنتدى الزاهر وأتنمى أنك تحصل كل إلي تطلبه.

بالنسبة إلى الطلب , الصورة غير واضحة بالنسبة لي . أنت تريد برنامج يعملك القرعة , طيب أنا محتاج أسأل بعض الأسئلة:
هذه القرعة تكون أرقام أو حروف وأرقام؟
كم عدد الخانات؟
أش المدى المطلوب؟ (أي من كم إلى كم يسوي لك القرعة)

وإنشاء الله فالك طيب

[Prince 050]

تسلم اخوي


القرعه ياعزيزي ارقام


1 الي 50


تسلم يا خوي

[Ala2 VB]

تفضل أخي :


Private Sub Command1_Click()
Dim Number As Integer

Randomize

Number = Int(Rnd(50) * 100)

If Number > 50 Then
Exit Sub
Else
Me.Caption = Number
End If

End Subشرح الكود : Dim Number As Integer :
متغير لحفظ قيمة القرعة
--------------------------------------

Randomize :
دالة تجعل الأعداد مختلفة كل مرة , لأن الدالة Rnd تظهر أعداد عشوائية لكن بترتيب معين كل مرة ,
مثلا :
باستخدام Randomize :
تظهر Rnd عند تشغيل البرنامج أول مرة الأرقام : 1 , 10 , 5 , 9 , 70
تظهر Rnd عند تشغيل البرنامج ثاني مرة الأرقام : 15 , 17 , 60 , 100 , 0
تظهر Rnd عند تشغيل البرنامج ثالث مرة الأرقام : 14 , 5 , 6 , 4 , 24

بدون استخدام Randomize :
تظهر Rnd عند التشغيل كل مرة نفس الأعداد , على سبيل المثال : 10 , 5 , 17 , 34 , 59
--------------------------------------

Int(Rnd(50) * 100) :
هنا يتم إظهار القيمة العشوائية , ولكنها تكون كسرية لذا تضرب في 100 حتى يظهر العدد الصحيح من خانتين , وتحول إلى عدد صحيح لإزالة ما بعد الفاصلة

فإن كان العدد العشوائي هو : 0.4547765 مثلا
بعد الضرب في 100 يصبح : 45.47765
وبعد التحويل إلى عدد صحيح يصبح : 45
--------------------------------------

If Number > 50 Then
هنا نختبر إذا كانت القيمة الظاهر أكبر من خمسين :

إن كانت أكبر من 50 :===> نخرج من الإجراء باستخدام Exit Sub
إن كانت أقل مــن 50 :===> نظهرها كعنوان للنموذج بوضعها في Me.Caption
--------------------------------------

ملحوظة :
يمكنك استبدال Me.Caption بـ :
TextName.Text ----> لوضعها في مربع نص
ListName.AddItem ----> لإضافتها في List
ComboName.AddItem ----> لإضافتها في Combo
LabelName.Caption ----> لوضعها في عنوان Label
Msgbox ----> وضعها في رسالة

[Prince 050]

تسلم اخوي والله ماقصرت


والله يجزيك خير


بجربها واعلمك


مشكوور اخوي وما قصتر مره ثانيه