[Risolto] Timer

[UnGambas]

Sto creando un programmino che mi consente di mandare del testo cliccando su un bottone ma con gambas non riesco a farlo funzionare come funzionava in VB con questo codice e questi controlli.

Con VB creavo:

1 Form
1 Textbox
2 Button
1 Timer

Il codice era questo:

Button1 timer1.start

Button2 timer1.Stop

Timer1 SendKeys.Send (TextBox1.Text)

In gambas come potrei fare questa semplice cosa?

[vuott]

... mandare del testo cliccando su un bottone

Timer1 SendKeys.Send (TextBox1.Text)

A chi devi inviare il testo ? Voglio dire: a quale oggetto o risorsa ?

Perché vorresti utilizzare anche un Timer ? Voglio dire: cosa dovrebbe fare ? Come si inserisce la sua azione all'interno del programma ?

Dacci qualche informazione in più.

[Gianluigi]

Forse vuol fare una cosa del genere 

Codice: gambas [Seleziona]

Private $fStart As Float
Private $fStop As Float

Public Sub Button1_Click()
 
  $fStart = Timer

End

Public Sub Button2_Click()
  
  Dim fTempo As Float
  
  $fStop = Timer
  fTempo = $fStop - $fStart  
  TextBox1.Text = Format$(fTempo, "#.###")
  
End

[UnGambas]

... mandare del testo cliccando su un bottone

Timer1 SendKeys.Send (TextBox1.Text)

A chi devi inviare il testo ? Voglio dire: a quale oggetto o risorsa ?

Perché vorresti utilizzare anche un Timer ? Voglio dire: cosa dovrebbe fare ? Come si inserisce la sua azione all'interno del programma ?

Dacci qualche informazione in più.

Il timer mi serve per inviare il testo a intervalli di tempo.

[Gianluigi]

Non è che ti sprechi molto nello spiegare quello che vuoi, faccio comunque quest'ultimo tentativo che comunque è più o meno spiegato nella documentazione:

Codice: gambas [Seleziona]

' Gambas class file
Private hTempo As Timer
Private $sMessaggio As String
Private $iConto As Integer

Public Sub form_Open()
  
  hTempo = New Timer As "tempo"
  
End

Public Sub Button1_Click()
  
  $iConto = 0
  hTempo.Enabled = False
  $sMessaggio = " da button 1"
  hTempo.Delay = 2000 ' in millesimi di secondo
  hTempo.Enabled = True

End

Public Sub Button2_Click()

  $iConto = 0
  hTempo.Enabled = False
  $sMessaggio = " da button 2"
  hTempo.Delay = 3000
  hTempo.Enabled = True

End

Public Sub tempo_Timer()
  
  Inc $iConto
  TextBox1.Text = " Nota n. " & $iConto & $sMessaggio
  
End

[UnGambas]

Non è che ti sprechi molto nello spiegare quello che vuoi, faccio comunque quest'ultimo tentativo che comunque è più o meno spiegato nella documentazione:

Codice: gambas [Seleziona]

' Gambas class file
Private hTempo As Timer
Private $sMessaggio As String
Private $iConto As Integer

Public Sub form_Open()
  
  hTempo = New Timer As "tempo"
  
End

Public Sub Button1_Click()
  
  $iConto = 0
  hTempo.Enabled = False
  $sMessaggio = " da button 1"
  hTempo.Delay = 2000 ' in millesimi di secondo
  hTempo.Enabled = True

End

Public Sub Button2_Click()

  $iConto = 0
  hTempo.Enabled = False
  $sMessaggio = " da button 2"
  hTempo.Delay = 3000
  hTempo.Enabled = True

End

Public Sub tempo_Timer()
  
  Inc $iConto
  TextBox1.Text = " Nota n. " & $iConto & $sMessaggio
  
End

Grazie era quello che volevo.