With ... End With

TomazVDaSilva · **Posted:** Sat Oct 20, 2012 3:49 pm

Is there anything as "With ... End With", how should re-write this code in RealBasic ?

Dim n As Long
If Rnd * 32 > 1 Then Exit Sub
n = getPt
If n = ptMax Then Exit Sub
With pt(n)
.v = True
.t = 0
.x = Int(Rnd * 480) + 16
.y = -16
.dy = 0
.r = 16
.p1 = 5
End With

MonkeybreadSoftware · **Posted:** Sat Oct 20, 2012 4:07 pm

Change the code. there is no with in RB.

Greetings
Christian

kermit · **Joined:** Mon May 30, 2011 12:56 am **Posts:** 702

dim TheThing

theThing = pt(n)

theThing.v = True
theThing.t = 0
theThing.x = Int(Rnd * 480) + 16
theThing.y = -16
theThing.dy = 0
theThing.r = 16
theThing.p1 = 5

TomazVDaSilva · **Posted:** Sat Oct 20, 2012 4:20 pm

Thank You, disregard the same question I did before I saw your answer.

timhare · **Posted:** Sat Oct 20, 2012 4:23 pm

But note that you cannot convert an integer to an object reference. Return a pt from getPt and modify your test against ptMax somehow. I really can't recommend anything without more information.

	Real Software Forums The forum for Real Studio and other Real Software products.
[ REAL Software Website \| Board Index ]

Real Software Forums

With ... End With