Well this counter has officially got me stumped....please help a poor soul...

[Darc]

Any thoughts as to why I can't get this counter to display correctly?

SetOEMDRO(1214,Remain)
Code "M98 P1 L10"
Code "O1"
Code "Z[#1-[#1*2]]"
Remain= Remain - 1
SetOEMDRO(1214,Remain)
Code "M99"

[Graham Waterworth]

Hummmmmmmm, yes it was a thought, not had a genuine one for a while.

The top and bottom of it is it will not work.

If it was a normal program it would look something like this :-

O0001
#1=1
M98 P2 L10
M30

O0002
G00 Z[#1-[#1/2]]
#1=[#1-1]
M99

The way you are doing it the sub dose not exist until the VB script creates it line by line.

Go back to the start and tell us what you are trying to do, there will be a way but I don't think this is it.

Graham.

[Darc]

Thanks for the reply Graham.
Basically I'm trying to display in a DRO how many repitions of a sub routine remain using a script.
So to use your example program:

O0001
#1=1
M98 P2 L10
M30

O0002
G00 Z[#1-[#1/2]]
#1=[#1-1]
SetOEMDRO(1214,#1) ' I know this isn't correct syntax, but if it was, this is exactly what I was hoping I could do.
M99

Is it possible to display in a DRO the valueof a variable? e.g #1

[Graham Waterworth]

What you can do is this :-

Set up a M code macro that reads the parameters from a M code call, e.g.

'M1010.m1s
Dim P as Integer
P=Param1()
SetOEMDRO(1214,P)
End

Then in your G_code call M1010 P#1

Not done this in a while but I think its right.

If it works, where do I send the bill 

Graham.

[poppabear]

Darc,

Try this Make and put the macros 200 and 201 in your macro folder

O0001
#1=1
M98 P2 L10
M201          'reset counter macro after subroutine exits
M30

O0002
G00 Z[#1-[#1/2]]
#1=[#1-1]
M200          'counter macro
M99



'M200.m1s  counter Macro

Remain=GetOEMDRO(1214)
Remain=(Remain+1)
SetOEMDRO(1214,Remain)

'M201.m1s reset counter macro

SetOEMDRO(1214,0)


'Scott

[poppabear]

Oppsssssss,

   Darc, didnt pay attention to the dro range make that "SetUSERDRO(1214,x)"...........

scott

[Darc]

Thanks alot guys, it works well, I used Scotts M200 & M201, it took me a while to realise I needed
If IsLoading()Then
Else
******
End If
But it works great.
Thanks again.

[Vogavt]

So can we get the working code all in one place/post? Never having done this sort of thing, I don't know where to put what.  Really need this sorted out to help another poor soul...

Thanks in advance,

Vogavt