[Gambas-user] 回复： why this code not working

[tsukuba GIMP user]

i added the private var and in print number is working
but when number is 8 it's still forget the
if $dbclick = 8 then.... '$ is private var



> You must  define dbclick as a private variable. In your case the variable
> is local and is initialized and destroyed in the procedure
> Le 14 juil. 2015 19:31, "tsukuba GIMP user" <tsukubagraduates at ...3482...>
> a écrit :
>
> As you said I changed into “dbclick + = 1”or “inc dbclick”
> but this time i add "print dbclick"(test only) then... print alwasy's 1
> when i click picturebox
>
> > Public Sub PictureBox1_MouseDown()
> >
> >    Dim dicer As Integer
> >    Dim dbclick As Integer
> >    dicer = Int(Rnd(1, 5))
> >    dbclick = +1 <-------------------------------Problem code
> >    print dbclick <---------------(TEST ONLY)
> >    If dbclick = 8 Then <------- i click 8 time but it's don't run this
> code just like my program forget this code
> >      Form3.Text = ("xxxxx")
> >      Form3.TextBox1.text = ("xxxxxx!!!!!!!")
> >      Form3.Show
> >    Else
> >      Goto just_keep_moveing
> >    Endif
> >    just_keep_moveing:
> >    If dicer = 1 Then
> >      Form3.Text = ("xxxx")
> >      Form3.TextBox1.Text = ("xxxxxxx~")
> >      Form3.Show
> >    Else If dicer = 2 Then
> >      Form3.Text = ("xxxx")
> >      Form3.TextBox1.text = ("xxxxx!xxxx!")
> >      Form3.Show
> >    Else If dicer = 3 Then
> >      Form3.Text = ("xxxx")
> >      Form3.TextBox1.text = ("xxxxxxx?")
> >      Form3.Show
> >    Else If dicer = 4 Then
> >      Form3.Text = ("xxxx")
> >      Form3.TextBox1.text = ("xxxx!")
> >      Form3.Show
> >    Endif
> > End
>
> There are a couple of reasons why the code doesn't work as I think you are
> expecting.
>
> 1. Because the syntax, "dbclick = +1", assigns positive 1 to dbclick each
> time it is executed. The syntax should be "dbclick +=
> 1", or "Inc dbclick".
>
> 2. You have declared dbclick within the function and it therefore gets,
> essentially, reset to 0 on each call of the function.
>
>
> Lee
> __________
>
>
>
> ------------------------------------------------------------------------------
> Don't Limit Your Business. Reach for the Cloud.
> GigeNET's Cloud Solutions provide you with the tools and support that
> you need to offload your IT needs and focus on growing your business.
> Configured For All Businesses. Start Your Cloud Today.
> https://www.gigenetcloud.com/
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
>
> ------------------------------------------------------------------------------
> Don't Limit Your Business. Reach for the Cloud.
> GigeNET's Cloud Solutions provide you with the tools and support that
> you need to offload your IT needs and focus on growing your business.
> Configured For All Businesses. Start Your Cloud Today.
> https://www.gigenetcloud.com/
> _______________________________________________
> Gambas-user mailing list
> Gambas-user at lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/gambas-user
>
------------------------------------------------------------------------------
Don't Limit Your Business. Reach for the Cloud.
GigeNET's Cloud Solutions provide you with the tools and support that
you need to offload your IT needs and focus on growing your business.
Configured For All Businesses. Start Your Cloud Today.
https://www.gigenetcloud.com/
_______________________________________________
Gambas-user mailing list
Gambas-user at lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user