Sub Spin
Dim time As Float
Dim reps As Int
Dim Num As Int
Dim LastNum As Int
time = 10
reps = 20
Do While reps <> 0
reps = reps - 1
Do While Num = LastNum
Num = Rnd(1, 17)
Loop
DrawOutcome(Num)
LastNum = Num
CallSub(listen,"PlayTick")
Sleep(time)
If reps < 6 Then
time = time * 4.5
End If
Loop
listen.Spun = Num
End Sub
Sub DrawOutcome(Which As Int)
Select Case Which
Case 1
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"step1.jpg")
Case 2
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"step2.jpg")
Case 3
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"step3.jpg")
Case 4
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"step4.jpg")
Case 5
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"step5.jpg")
Case 6
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"step6.jpg")
Case 7
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"step7.jpg")
Case 8
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"step8.jpg")
Case 9
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"step9.jpg")
Case 10
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"step10.jpg")
Case 11
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"step11.jpg")
Case 12
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"step12.jpg")
Case 13
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"step13.jpg")
Case 14
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"step14.jpg")
Case 15
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"step15.jpg")
Case 16
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"step16.jpg")
Case Else
End Select
End Sub
Sub Sleep(ms As Long)
Dim now As Long
If ms > 1000 Then ms =1000 'avoid application not responding error
now=DateTime.now
Do Until (DateTime.now>now+ms)
DoEvents
Loop
End Sub