Private hTimer as timer as "LoopTimer" Private bHalt as Boolean Private iCount as integer
Public Sub LoopTimer_Timer() if bHalt or if iCount>=100000 then bHalt = False iCount = 0 Return endif inc ICount Print iCount hTimer.Trigger End Public Sub btnGo_Click() hTimer.Trigger End Public Sub btnStop_Click() bHalt = True End Async Version that use purely the Gambas Event loop 2015-12-29 5:33 GMT+01:00 adamn...@gmail.com <adamn...@gmail.com>: > Add a Wait instruction after n=n+1 to invoke the Event Loop. (Research the > help on this) > Also see Inc. > > hth > b > On Tue, 29 Dec 2015 02:55:41 +0000 (UTC) > Robert Boykin <rsboy...@att.net> wrote: > >> Test Program code is: >> ' Gambas class file >> >> ' Static Private iexit As Integer = 0 >> Public Sub _new() >> End >> >> Public Sub Form_Open() >> GlobalVar.iexit = 0 >> End >> >> Public Sub GObtn_Click() >> Dim n As Integer >> n = 0 >> While n < 100000 >> Print n >> n = n + 1 >> If GlobalVar.iexit > 0 Then Break >> Wend >> End >> Public Sub exitBtn_Click() >> GlobalVar.iexit = 10 >> End >> >> This is gambas3 on linux mint 17.3 using gb.qt4 >> running on a generic desktop PC >> >> The simple form has two buttons, >> one to start a while loop >> that prints numbers to the console, and >> one to set a global variable to a value which >> should cause a break in the while loop. >> >> The global variable is defined in the class GlobalVar >> ' Gambas class file >> >> Static Public iexit As Integer = 0 >> >> The program begins printing numbers upon clicking the Gobtn >> but will not stop printing when the exitBtn is cliked. >> >> It appears that the exitBtn _Click() event is not recognized >> during execution of the while loop. >> >> I am just learning gambas on my own using >> what examples and tutorials I can find on the internet >> and believe I may have left something out. >> >> Robert S. Boykin >> ------------------------------------------------------------------------------ >> _______________________________________________ >> Gambas-user mailing list >> Gambas-user@lists.sourceforge.net >> https://lists.sourceforge.net/lists/listinfo/gambas-user > > > -- > B Bruen <adamn...@gnail.com (sort of)> > > ------------------------------------------------------------------------------ > _______________________________________________ > Gambas-user mailing list > Gambas-user@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/gambas-user -- Fabien Bodard ------------------------------------------------------------------------------ _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user