[Risolto] L'evento click rende sorda la sua routine?

[kicco]

 
Il titolo è un po' d'effetto!

Codice: [Seleziona]

' Gambas class file

Static Bol As Boolean = 0

Public Sub BT_parti_Click()

  Dim i As Integer

  Print "Start"
  For i = 1 To 1000

    If Bol = 1 Then

      Print "Fermato"
      Break
    Endif
    Wait 0.01
  Next

  Print "Finito"

End

Public Sub BT_ferma_Click()

  Bol = 1
  Print "Fermata prenotata"

End

Stavo provando e giocando.
In breve, non riesco ad uscire dalla routine che è attivata dal pulsante BT_parti perchè, se anche la variabile booleana Bol cambia, per opera del pulsante BT_ferma, la routine BT_parti non se ne accorge.!
In questo caso come si fa? Qualcuno ha idee?
 

[Arco]

Finchè non finisce i ciclo For i = 1 To 1000 non puoi eseguire nessuna altra parte del programma.

[kicco]

 

Finché non finisce i ciclo For i = 1 To 1000 non puoi eseguire nessuna altra parte del programma.

Non ne sono sicuro sai!
Premendo il pulsante BT_ferma, durante l'esecuzione del loop, la variabile Bol cambia e il print viene eseguito.
È qualcos'altro! 

[kicco]

Intanto ho scoperto che al primo RUN del programma in consolle non viene scritto nulla, se non alla fine dell'intera esecuzione del programma. La seconda volta invece vengono scritti i Print man mano che si presentano nell'esecuzione.
Ma la cosa più strana è che se la variabile booleana la dichiaro e cambio usando 0 e 1 la routine non funziona.
Se la variabile la gestisco con FALSE e TRUE invece funzia!!!
 
Baco del programma o dell'operatore? 
 

[Gianluigi]

Scusa per la brevissima attenzione che ti dedico 
A occhio credo sia dovuto al fatto che usi boolean in modo non corretto.
Cambia con false e true e dovrebbe funzionare, oppure usa un integer.
Spero che il suggerimento sia corretto, a più tardi.

 

Infatti non avevo letto tutto 

[Gianluigi]

Ho dimenticato di aggiungere questo, prova questo codice:

Codice: [Seleziona]

Public Sub Form_Open()

  Print CInt(True)
  Print CInt(False)

End

Quindi puoi cambiare il codice così:

Codice: [Seleziona]

Static Bol As Boolean

Public Sub BT_parti_Click()

  Dim i As Integer

  Print "Start"
  For i = 1 To 1000

    If Bol Then

      Print "Fermato"
      Break
    Endif
    Wait 0.01
  Next

  Print "Finito"

End

Public Sub BT_ferma_Click()

  Bol = -1
  Print "Fermata prenotata"

End

 

[kicco]

 
Grazie Gianluigi, mi hai fatto scoprire una cosa che non sapevo.
Da Wikipedia:

In alcuni linguaggi, come il C, non esistono variabili di questo tipo in quanto nelle espressioni logiche si assume che falso corrisponda a 0 e vero a qualsiasi valore diverso da 0. Formalmente si indica il valore vero con -1 essendo esso il complemento a uno di 0 (falso), quindi la negazione bit a bit di una variabile.

Ero assolutamente convinto che vero (TRUE) equivalesse solo e solamente a 1!
Il bello di giocare intelligentemente e avere un forum di persone preparate!
Danke! 

[Top Fuel]

Infatti False vale 0 mentre per True viene fatto un Not di False (o viceversa, cambia nulla), visto che sono uno il contrario dell'altro, quindi anche i bit devono essere gli uni i contrari degli altri.

[vuott]

http://www.gambas-it.org/smf/index.php?topic=6927.0

[allegfede]

prova usando "wait" nel ciclo, in questo modo processa la coda degli eventi in modo asincrono

[kicco]

prova usando "wait" nel ciclo...

L'ho usato!
 

[kicco]

a proposito di:

Ero assolutamente convinto che vero (TRUE) equivalesse solo e solamente a 1!

http://forum.gambas.one/viewtopic.php?f=4&t=738
Mi ha fatto sentire meno solo! E Cedron non è certo l'ultimo arrivato! Mi consolo! 
Mi sono dato anch'io il colpo sulla fronte!
 

[Top Fuel]

Queste sono cose che chi ha cominciato a programmare 30 anni fa conosce bene...