venus_h
یک شنبه 02 اسفند 1388, 15:36 عصر
سلام
من از دستور زير براي بدست آوردن يه عدد رندوم تا 495 استفاده ميكنم
a = Rnd(1)
Me.Refresh
k = Int(a * 10000 + 1)
If k > 495 Then
k = Int(k / 37)
End If
If k > 495 Then
k = Int(k / 37)
End If
If k > 495 Then
k = Int(k / 37)
End If
no = k
ميخوام هر وقت فرمم باز ميشه يه عدد رندوم به no بده،مشكل اينجاست كه هر بار كه پايگاه دادمو باز ميكنم يه سري عدد تكراري ميده،مثلا اولين بار كه فرم رو باز ميكنم عدد 190 رو ميده
و عدد بعدي 84 و ...،حالا اگه پايگاه دادمو ببندم و دوباره باز كنم باز هم اول از همه 190 رو ميده و بعد 84 و ...
چكار كنم كه اين حالت اتفاق نيفته؟
من از دستور زير براي بدست آوردن يه عدد رندوم تا 495 استفاده ميكنم
a = Rnd(1)
Me.Refresh
k = Int(a * 10000 + 1)
If k > 495 Then
k = Int(k / 37)
End If
If k > 495 Then
k = Int(k / 37)
End If
If k > 495 Then
k = Int(k / 37)
End If
no = k
ميخوام هر وقت فرمم باز ميشه يه عدد رندوم به no بده،مشكل اينجاست كه هر بار كه پايگاه دادمو باز ميكنم يه سري عدد تكراري ميده،مثلا اولين بار كه فرم رو باز ميكنم عدد 190 رو ميده
و عدد بعدي 84 و ...،حالا اگه پايگاه دادمو ببندم و دوباره باز كنم باز هم اول از همه 190 رو ميده و بعد 84 و ...
چكار كنم كه اين حالت اتفاق نيفته؟