[Gambas-user] POSSIBLE! bug in while loop

[Fabien Bodard]

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 adamnt42 at ...626... <adamnt42 at ...626...>:
> 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 <rsboykin at ...2755...> 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 at lists.sourceforge.net
>> https://lists.sourceforge.net/lists/listinfo/gambas-user
>
>
> --
> B Bruen <adamnt42 at ...3379... (sort of)>
>
> ------------------------------------------------------------------------------
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user



-- 
Fabien Bodard