erratic behavior

M

Monsterman22

Member

• Aug 1, 2010

• #1

Hello. I have encountered an erratic behavior of the Polygon.

bX1 - BlackPoints(0).X
bX2 - BlackPoints(1).X

If Click = 20 Then
bX1 = 70 ' they switch to 65 instead of 70
bX2 = 70
End If

Any workaround or explanation?


Thank you

 

Attachments

• test.sbp

  1.4 KB · Views: 184

Erel

B4X founder

Staff member

Licensed User

Longtime User

• Aug 1, 2010

• #2

Not sure I understand the problem.

B4X:

If Click = 20 Then 
bX1 = 70 : bX2 = 70
End If
bX1 = bX1 - 5 : bX2 = bX2 - 5 '<= this line changes it to 65

 

agraham

Expert

Licensed User

Longtime User

• Aug 1, 2010

• #3

It's your coding I'm afraid

B4X:

If Click = 20 Then
   Msgbox(bX1 & " " bX2) ' values are 75 now
   bX1 = 70 ' this effectively subtracts 5
   bX2 = 70
End If
bX1 = bX1 - 5 : bX2 = bX2 - 5 ' and this another 5

 

M

Monsterman22

Member

• Aug 1, 2010

• #4

You got it right
When I spend too much time with b4p I get tired and start asking silly questions.

If Click = 20 Then
bX1 = 70 : bX2 = 70
BlackPoints() = Array((bX1,bY1),(bX2,bY2),(bX3,bY3),(bX4,bY4))
Form1.Polygon(BlackPoints(),0,4,cBlack,F)
Return
End If

:sign0013: