قارىء الافكار (بالكود)

[mohd_sader]

بسم الله الرحمن الرحيم

اخواني الاعضاء اضع بين ايديكم اليوم برنامج قارىء الافكار الذي دلني عليه الاخ العزيز ابن غزه العضو المتميز Mohammed Asaad من خلال موضوعه
و هذا رابط الموضوع الاصلي

و منه قمت بمعرفة المعادلةو تطبيقها في هذا البرنامج.

الكود مجاني لجميع الاعضاء و يحق لهم نسخه و توزيعه.. فهو بالاصل ليس ملك لي..

اترككم مع البرنامج


و هذا رابط للبرنامج الفلاشي
http://vb.eyesweb1.net/uploaded/1550_devi8.swf

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

اخوكم
محمد

[mohd_sader]

اخواني اعتقد ان الكود بسيط و لذلك سيكون الشرح بسيط كذلك

 
 
On Error Resume Next
Randomize
Dim r As Integer
m = 100
r = Rnd * 3
cons.Picture = re(r + 1).Picture
Dim i
For i = 0 To 99
If 9 \ i = 0 Or 9 \ i = 1 Or i \ 0 = 0 Or i \ 9 = 1 Then
a(i).Caption = i
p(i).Picture = cons.Picture
r = Rnd * 3
q(i).Picture = re(r + 1).Picture
Else
If s > 4 Then s = 0
Label1(i).Caption = i
r = Rnd * 3
q(i).Picture = re(r + 1).Picture
End If
Next i

في البداية قمنا بتعين المتغيرات و اعطاء قيمه مبدئية لها

قمنا ايضا بعمل حلقات للتكرار من اجل توزيع الصور على الارقام عشوائيا و ا اعطاء كل رقم رمز بشكل عشوائي
و استثنينا مضاعفات الرقم 9 من ذلك و قمنا بتعين الرمز الخاص بهم مسبقا .

و لأي استفسار بشأن الكود نحن في الخدمه

و دمتم

[ameur]

شكرا لك اخي

[AL-MAHDY]

مشكور أخي على هذا الموضوع

[world]

مشكوررررررر بارك الله فيك
البرنامج رائعععععععععععععععع بمعنى الكلمه
بس ياريت تشرح فكره البرنامج كيف عملت الفكره؟