Hej!

Är det någon som vet var man kan finna ett program som funkar som en elektronisk tärning med ca 30
nummer. Man startar tex programet och den räknar fram nummer tex ett i taget i hög hastighet och går ner sakta till den stannar och vissar det vunna nummret på data skärmen, eller nåt liknande?

mvh/ Micke

förstår inte riktigt vad du menar? är det ett program som slumpar fram olika mattetal som man ska lösa under tidspress eller?

Låter snarare som att han är ute efter ett "tombolahjul" (kallas det så?) som mer eller mindre skall slumpa fram ett nummer, dock skall det (antagligen för spänningens skull) visa dragningen lite mer visuellt genom att loopa igenom numrena men saktare och saktare tills ett nummer är valt. Typ lotterihjulen på bingolotto eller nåt. Enkelt program att skriva, men jag har inte tid tyvärr...

Är det nånting sånt här du menar?

(Inte så snyggt kodat kanske)
<code>
'en label (Label1) och en knapp (Command1)
Private Sub Command1_Click()
Dim LastTime As Single
Dim Delay As Double
Dim Counter As Integer
Dim Times As Integer

Randomize
Times = Int(Rnd * 30) + 30
Delay = 0.05

Do While Times > 0
If Timer > (LastTime + Delay) Then
LastTime = Timer
Counter = Counter + 1
If Counter > 30 Then Counter = 1
Label1.Caption = Counter
Times = Times - 1
If Times < 30 Then Delay = Delay + 0.01
End If
DoEvents
Loop
End Sub
</code>


Thomas