Gambas-it

Archivi (sola lettura) => Programmazione (Gambas 2) => Topic aperto da: UnGambas - 14 Maggio 2015, 15:42:52

Titolo: [Risolto] Timer
Inserito da: UnGambas - 14 Maggio 2015, 15:42:52
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?
Titolo: Re: Timer
Inserito da: vuott - 14 Maggio 2015, 16:33:44
Citazione da: UnGambas - 14 Maggio 2015, 15:42:52
... 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ù.
Titolo: Re: Timer
Inserito da: Gianluigi - 14 Maggio 2015, 16:36:55
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
Titolo: Re: Timer
Inserito da: UnGambas - 14 Maggio 2015, 20:23:43
Citazione da: vuott - 14 Maggio 2015, 16:33:44
Citazione da: UnGambas - 14 Maggio 2015, 15:42:52
... 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.
Titolo: Re: Timer
Inserito da: Gianluigi - 14 Maggio 2015, 22:14:33
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

Titolo: Re: Timer
Inserito da: UnGambas - 15 Maggio 2015, 00:58:41
Citazione da: Gianluigi - 14 Maggio 2015, 22:14:33
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.