Ok i know what problem is
because the "dicer"!
if dicer is 1~5 int then will be may textbox1.text content change
because it's another Conditional judgment
so
if $dbclick = 8 then
dicer = 0 <--Random content(text) is 1 to 5
Form3.TextBox1.text = ("if you click me again i will be sudo r
i try
if $dbclick = 8 then
print "hello"
when i click 8 time console is printed HELLO
but the textbox1.text it's still No expectations of the content(text)
and i deleted
else
goto just_keep_moveing
it's doesn't work...
On 07/14/2015 03:14 PM, tsukuba GIMP user wrote:
> No i make a mistay
Tsukuba
With my respect to you, I think you need to understand the basics of
programming and familiarize yourself with the terminology.
I suggest reading a book or two about programming, perhaps visiting an
online manual [1] and [2] if you understand enough English, and once
done, come back with
On 07/14/2015 03:14 PM, tsukuba GIMP user wrote:
> No i make a mistay Mistakes not $dbclick += 1 still not working is
I think it may actually be working. You just cannot see that it is, because the
code after the "just_keep_moveing" label is
resetting the value of TextBox1.text.
After performin
No i make a mistay Mistakes not $dbclick += 1 still not working is
>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:
>
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
> (Unr
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 no
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 no
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
__
-
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
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"
a écrit :
> As you said I changed into “dbclick + = 1”or “inc dbclick”
> but this time i add "print dbclick"(test only)
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
On 07/14/2015 12:31 PM, tsukuba GIMP user wrote:
> Public Sub PictureBox1_MouseDown()
>
>Dim dicer As Integer
>Dim dbclick As Integer
>dicer = Int(Rnd(1, 5))
>dbclick = +1 <---Problem code
>If dbclick = 8 Then <--- i click 8 time but it's don't r
Where to begin, before we even consider scope, just try some really
simple code first to get used to the syntax...
Public Sub Form_DblClick()
Dim myInt As Integer
myInt = 5
'Inc myInt
'Inc myInt
'Inc myInt
'myInt = +1
'myInt = +10
'myInt += 1
'myInt += 10
Print "myI
Public Sub PictureBox1_MouseDown()
Dim dicer As Integer
Dim dbclick As Integer
dicer = Int(Rnd(1, 5))
dbclick = +1 <---Problem code
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
15 matches
Mail list logo
