فيه تعديل على الكود وهو اسناد الرقم العشوائي لمتغير وليس لمربع النص ..
----------------------------------------------------------------------------
كتبت كود لا اقصد قيم معينة لكن للتسلية:
في منطقة التصريحات العامة اكتب:
وفي حدث تحميل الفورم اكتب:
وفي زر التوليد اكتب
----------------------------------------------------------------------------
كتبت كود لا اقصد قيم معينة لكن للتسلية:
في منطقة التصريحات العامة اكتب:
كود :
Dim lst As New List(Of String)
Dim a, s, d, f As Integerوفي حدث تحميل الفورم اكتب:
كود :
Randomize()وفي زر التوليد اكتب
كود :
Randomize
()gn:
a = Rnd() * 9999
s = Rnd() * 9999
d = Rnd() * 9999
f = Rnd() * 9999
If lst.Contains(a) And lst.Contains(s) And lst.Contains(d) And lst.Contains(f) Then
GoTo gn
End If
lst.Add(a)
lst.Add(s)
lst.Add(d)
lst.Add(f)
TextBox1.Text = a & "-" & s & "-" & d & "-" & fاللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
