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 rm
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
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 run this
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 =
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
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
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
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:
here
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 performing
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
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
__
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
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
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
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 tsukubagradua...@foxmail.com
a écrit :
As you said I changed into “dbclick + = 1”or “inc dbclick”
but this time i add
15 matches
Mail list logo