Qualcuno di voi può spiegarmi con quale criterio vengono disegnate le tacche sulla circonferenza di un controllo Dial?
Tutto è nato da questo stupido programmino che simula un contagiri:
' Gambas class file'
Public Sub _new()
Me.W = 800
Me.H = 800
End
Public Sub Form_Open()
Me.Show
Me.Center
Dial1.Value = 1500 'minimo a 1500 giri
Wait 2
Giro(1500, 50, 0.01) '1a marcia
Giro(5500, 40, 0.02) '2a
Giro(6500, 30, 0.03) '3a
Giro(7250, 20, 0.04) '4a
Giro(8000, 15, 0.05) '5a
End
Public Sub Giro(inizio As Short, passo As Byte, pausa As Single)
Dim i As Short
For i = inizio To 10000 Step passo
Dial1.Value = i
Wait pausa
Next
End
Mettete sul Form un Dial con MinValue a 0 e MaxValue a 10000. A seconda del valore della proprietà Step vengono disegnate le tacche, ma non capisco in che maniera viene calcolato l'intervallo tra una tacca e l'altra, e quindi il relativo numero.
Mettendo Step a 5 vengono disegnate 50 tacche (intervallo 200), a 10 disegna 25 tacche (400), a 15 disegna 17 tacche (588) e così via. Ma 10000/15 non fa 588... :-\