Smart Timer

[Steeler]

Steeler - vuott - milio

presentano
"Il mio primo esperimento con il mondo di gambas"

Direttamente da gambas3 senza aver mai provato gambas 2  


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.

[vuott]

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:

Codice: [Seleziona]

Public Sub ToggleButton1_Click()

  If Last.value Then
    Timer1.Enabled = True
  Else
    Timer1.Enabled = False
  Endif

End

     

[Steeler]

Grande !!

E una cosa l'abbiamo risolta 

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?

[vuott]

Come mai quando il cronometro parte non lo fa in maniera immediata dopo il click ?

...devi cambiare il delay nelle proprietà del Timer (colonna a destra) da 1000 a 1.

[Steeler]

 
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?

[vuott]

E' possibile mandare il tempo del cronometro dentro un'unica label ?

Devi assegnare alla Proprietà ".Text" oppure alla Proprietà ".Caption" della Label il valore ritornato dalla funzione Date().

[vuott]

Invece della ValueBox, vorrei che il valore aumentasse, ma da dentro una label, è possibile?

La risposta a questa domanda ritengo possa essere riconducibile a quella precedente.

[Steeler]

Public Sub _new()
Dim cent1 As Integer
Dim sec1 As Integer
Dim min1 As Integer
Dim hour1 As Integer
End

Non so dove e come le devo richiamare.

[Steeler]

Ma per la documentazione e del manuale, parli del wiki ?

[vuott]

Ma per la documentazione e del manuale, parli del wiki ?

Sito ufficiale di Gambas:
 - http://gambas.sourceforge.net/en/main.html

Wiki ufficiale di Gambas:
 - http://gambaswiki.org/wiki

Forum, Wiki ed altri siti esistenti su Gambas:
 - https://gambas-es.org/
 - https://foro.gambas-es.org/forum.php
 - http://www.gambasforge.org/
 - http://www.gambas-club.de/index.php
 - https://forum.gambas.one/
 - http://www.gambaslinux.fr/
 - https://www.gambas-it.org/smf/
 - http://www.gambas-it.org/wiki/index.php?title=Pagina_principale
 - https://de.wikibooks.org/wiki/Gambas
 - https://gambas-buch.de/dwen/doku.php
 - http://www.gambasforge.org/wiki
 - http://sologambas.blogspot.it/p/indice.html
 - https://cursogambas.blogspot.com/p/indice.html
 - https://pigalore.miraheze.org/wiki/Main_Page
 - http://icculus.org/piga/

Testi e manuali esistenti:
 - http://gambaswiki.org/wiki/doc/book?nh&l=en
 - https://en.wikibooks.org/wiki/Programming_Gambas_from_Zip
 - https://wordpress.gambas.one/a-book-by-gerry-buzolic/

[Steeler]

si, ma figurati che io senza guardare niente almeno un cronometro e conto alla rovescia l'ho fatto.

[Steeler]

Niente, sono bloccato  

Codice: [Seleziona]

' 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")

[vuott]

Niente, sono bloccato

Fai così:

Codice: [Seleziona]

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

[milio]

ho ripreso il tuo codice linkato nel primo post... vedi se ti va cosi'

[Steeler]

Grazie ^^

ecco i nuovi codici giusti,

Gambas class file

Private $dNow As Date




Public Sub Timer1_Timer()
  
 lbl6.Text = Format$(CDate(Now() - $dNow), "hh:nn:ss.uu")
 

COME HAI AGGIUNTO QUESTO NEL FORM?
Public Sub Start_MouseDown()
  
 $dNow = Now()
  Timer1.Delay = 10
  Timer1.Enabled = True
  
End

A breve, il programma completo !!!

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?