ما هو كود جمع Text1 , Text2

السلام عليمك

كود الجمع هو

text3=val(text1)+val(text2)

ويتم كتابة الكود في الحدث الذي تريده

اما بالنسبة للإختيار العشوائي فيمكن ان تستخدم

randmaze
text3.text=int(rnd*100)

حيث سيتم اختيار رقم عشوائي من 100

ويمكنك كتابة الكود في المكن الذي تود التنفيذ فيه

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

Dim S AS Integer
S= val(text1) + val(text2) 
text3 = s

بخصوص الدالة العشوائية :

جرب :

حاول تسجيل ارقام الإسئلة التي تم الإجابه عليها او تم إضهارها في مصفوفة .

وبعدين ولد ارقام عشوائية عن طريق Rnd بعد ذلك تأكد من عدم وجود الرقم العشوائي في المصفوفة السابقة .

بالتوفيق

سبقني ياسر .

لم انتبه لوجودك ياياسر . هههههههههههه

وهذا هو مثال للبرنامج

_____.rar

شكرا اخواني الاعزاء وبارك الله فيكم

اخي فواز الا يوجد لديك مثال بخصوص الدالة العشوائية

شاكرا لك

مثلا:

Private Sub Command1_Click()
Dim arr(100) As Integer, i As Integer, j As Integer
j = 0 ' flag for free pos in arr
again:
rand = Int(Rnd * 100)
For i = 1 To 100 ' size of array
    If arr(i) = 0 Then
        i = 100
        GoTo tsk
    End If
    If arr(i) = rand Then GoTo again
tsk:
Next
arr(j) = rand
j = j + 1
End Sub

لكن في هذه الحالة سيتم تصفير المصفوفة حالما ينتهي الحدث الخاص بالزر.