06-12-12, 12:25 AM
[COLOR="#000080"]
طريقة انشاء كود وهمي بطريقة وهي رقمان يكون بينهم فاصلة وييجب ان يكونان مختلفان عن بعضهم وهذا مثال لما اقصد 1|2
لقد حاولت بهذا الكود وقد انتج كود وهمي لكني لم استطع ان اجعل الرقمان مختلفان وهذا هو الكود
اتمنى مساعدتي في أقرب وقت .. ويجزاكم الله خير
[/COLOR]
طريقة انشاء كود وهمي بطريقة وهي رقمان يكون بينهم فاصلة وييجب ان يكونان مختلفان عن بعضهم وهذا مثال لما اقصد 1|2
لقد حاولت بهذا الكود وقد انتج كود وهمي لكني لم استطع ان اجعل الرقمان مختلفان وهذا هو الكود
كود :
Private Function RandomInteger(Lowerbound As Integer, Upperbound As Integer) As Integer
RandomInteger = Int((Upperbound - Lowerbound + 1) * Rnd + Lowerbound)
End Function
كود :
TextBox1.Text = (RandomInteger(0, 21))
[/COLOR]