[Gambas-user] : why this code not working

[Matti]

Now, you declare $dbclick, but you don't set a value to it.
So, every time PictureBox1_MouseDown() starts, $dbclick gets the value 1.
Try: Private $dbclick as Integer = 0

Am 14.07.2015 um 21:01 schrieb tsukuba GIMP user:
> here is
> ' Gambas class file
>
> '  Private $dbclick As Integer
> ....(Unrelated content and Comment symbol because i build a package So I shielded them)....
> ' Public Sub PictureBox1_MouseDown()
> '   Dim dicer As Integer
> '   dicer = Int(Rnd(1, 5))
> '   $dbclick += 1 <---------- i try inc $dbclick still not working...
> '   Print $dbclick <--------- TEST ONLY
> '   If $dbclick = 8 Then
> '     Form3.Text = ("xxxx")
> '     Form3.TextBox1.text = ("xxxxxxx!!!!!!")
> '     Form3.Show
> '   Else
> '     Goto just_keep_moveing
> '   Endif
> '   just_keep_moveing:
> '   If dicer = 1 Then
> '     Form3.Text = ("xxxx")
> '     Form3.TextBox1.Text = ("xxxx...xxxxxx.....")
> '     Form3.Show
> '   Else If dicer = 2 Then
> '     Form3.Text = ("xxxx")
> '     Form3.TextBox1.text = ("xx?xxxxxx?")
> '     Form3.Show
> '   Else If dicer = 3 Then
> '     Form3.Text = ("xxxx")
> '     Form3.TextBox1.text = ("xxxx~xxxxxxxx~")
> '     Form3.Show
> '   Else If dicer = 4 Then
> '     Form3.Text = ("xxxx")
> '     Form3.TextBox1.text = ("xxxxxxxxxxx! xx~xxxx！")
> '     Form3.Show
> '   Endif
> ' End
>
>
>
>
> On 07/14/2015 02:37 PM, tsukuba GIMP user wrote:
>> 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
>
> What is the content of your function's code now?
>
>
> 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
> 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