Steeler - vuott - milio
presentano
"Il mio primo esperimento con il mondo di gambas"
Direttamente da gambas3 senza aver mai provato gambas 2 ;D
il timer è composto da 1 cronometro
1 conto alla rovescia da 30 sec conta serie
1 conto alla rovescia da 60 sec conta serie
il pinguino esce
è un attrezzo utile per gli sportivi, specie bodybuilding e arti marziali
http://dl.dropbox.com/u/24063338/Timer1.gambas
SI spera in uno smartphone con ubuntu.
Come commutare il pulsante di start del cronometro in stop ?
Non so se ho compreso bene.... se tu vuoi che il Timer sia avviato e bloccato premendo solo sul medesimo tasto:
1) metti al posto del Button un ToggleButton, poi in sua corrispondenza metti questo codice:
Public Sub ToggleButton1_Click()
If Last.value Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
Endif
End
' Gambas class file
Public a As Integer
b As Integer
c As Integer
' Gambas class filed
'
Public Sub Form_Open()
Label1.caption = "00:00:00"
Timer1.Enabled = False
End
Public Sub Button1_Click()
a = 1
b = 0
c = 0
Timer1.Enabled = True
Timer1.Delay = 1
End
Public Sub Timer1_Timer()
Label1.Caption = Val(Label1.caption) + a
Label1.caption = Format$("hh:nn:ss")
End
Come commutare il pulsante di start del cronometro in stop ?
Come ottenere i 2 punti in millesimi, secondi, minuti e ore 00:00:00:00 ?
Come mai quando il cronometro parte non lo fa in maniera immediata dopo il click ?
E' possibile mandare il tempo del cronometro dentro un'unica label ?
Invece della ValueBox, vorrei che il valore aumentasse, ma da dentro una label, è possibile?
edit: non va bene nemmeno questo:
Label1.Caption = Format(a, ":ss") & (b, ":nn")
Niente, sono bloccato
Fai così:
Private ms As Integer
Public Sub Form_Open()
Timer1.Delay = 1
Timer1.Start
End
Public Sub Timer1_Timer()
Inc ms
Label1.Caption = Date(0, 0, 0, 0, 0, 0, ms)
End