Programming Forums > Community Introductions

thechristelegacy · Sep 29th, 2005, 4:17 PM

Welcome to the community

BinaryStorm · Sep 29th, 2005, 4:25 PM

This code is so confusing to me.... All the numbers in code....

Polyphemus_ · Sep 29th, 2005, 4:29 PM

welcome to the forums

bl00dninja · Sep 30th, 2005, 3:28 AM

welcome, and as alluded to by the other members above, you seem to have stumbled upon a fairly esoteric language. however, we might still be able to provide help in the form of algorithmic analysis, even though the syntax-specific implementation of this stuff is pretty much going to up to you...unless someone here learns "procal" :p. good luck!

edit:

Quote:

I�ve been lead to believe that I�m on a fairly short list of folks who utilize Pro-measure as a programming interface

so this language is known for not being known...?

that sucks dude.

McCabe · Sep 30th, 2005, 9:27 AM

Quote:

Originally Posted by bl00dninja

so this language is known for not being known...?.

If Said("don't know")
Answer=(Yes)
Else Answer=(Yes)

did i get the syntax right?

McCabe · Sep 30th, 2005, 10:02 AM

Quote:

Originally Posted by BinaryStorm

This code is so confusing to me.... All the numbers in code....

That's the first thing to go.
I take them out and replace them with variables.
The variables are evaluated as an expression of Nominals and tolerances, or better still, actual measurements. Here take a look:

Quote:

Declare:Global_Var(GVE09C1,1,0)
Declare:Global_Var(GVE09C2,1,0)
Declare:Global_Var(GVE09C3,1,0)
Evaluate(GVE09C1:=(M[D02]/2))
Evaluate(GVE09C2:=(M[D03]/2))
Evaluate(GVE09C3:=GVE09C1-GVE09C2)
Declare:Global_Var(GVE09Z1X1,1,0)
Declare:Global_Var(GVE09Z1X2,1,0)
Declare:Global_Var(GVE09Z1Y1,1,0)
Declare:Global_Var(GVE09Z1Y2,1,0)
Evaluate(GVE09Z1X1:=GVL07+GVL03+(1.5*(GVL07T+GVL03T)))
Evaluate(GVE09Z1X2:=GVL07+GVL03-(1.5*(GVL07T+GVL03T+GVL06T))+(0.8*GVL06))
Evaluate(GVE09Z1Y1:=(M[D02]/2)-0.01)
Evaluate(GVE09Z1Y2:=(M[D02]/2)+0.01)
Declare:Global_Var(GVE09Z2X1,1,0)
Declare:Global_Var(GVE09Z2X2,1,0)
Declare:Global_Var(GVE09Z2Y1,1,0)
Declare:Global_Var(GVE09Z2Y2,1,0)
Evaluate(GVE09Z2X1:=GVL07+GVL03+(3*(GVL07T+GVL03T))+(0.2*GVL06))
Evaluate(GVE09Z2X2:=GVL07+GVL03-(3*(GVL07T+GVL03T))-(0.3*GVL06))
Evaluate(GVE09Z2Y1:=GVE09C2+(0.8*GVE09C3)-0.000)
Evaluate(GVE09Z2Y2:=GVE09C2+(0.2*GVE09C3)+0.000)
Call(FeatureStart,"Edge: Line-Line Intersection","E09-Line-Line Intersection")
Call(SetScanCompRange,1)
Declare:Global_Var(E09,1,9)
Define:Zone(1,-GVE09Z1X1,-GVE09Z1X2,GVE09Z1Y1,GVE09Z1Y2,-0.1+ZMAX[Z02],0.1+ZMAX[Z02])
Define:Zone(2,-GVE09Z2X1,-GVE09Z2X2,GVE09Z2Y1,GVE09Z2Y2,-0.1+ZMAX[Z02],0.1+ZMAX[Z02])
Evaluate(HelixAngle:= 0.00000)
Call(Edge:Int,1,2,EX[E09])
Evaluate(HelixAngle:=0)
Call(FeatureEnd)

Then I can use the results of measurements to branch:

Quote:

Declare:Global_Var(SF,1,0)
Evaluate(SF:=0)

If(Side_A_or_B=0,A_Side)
If(Side_A_or_B=1,B_Side)
Display:Message(Variable Side_A_or_B must be 0 or 1)
GoTo(ProgramHalt)

Mark(A_Side)
If((M[Y02])<(M[Y01]),FLIP180)
GoTo(ItsCool)

Mark(B_Side)
If((M[Y02])>(M[Y01]),FLIP180)
GoTo(ItsCool)

Mark(FLIP180)
Evaluate(SF:=180)
GoTo(ItsCool)

Mark(ItsCool)

This is just the tip of the ice berg. The language has OS level functions. ssshhhh! don't tell IS&T!

crazykid48x · Sep 30th, 2005, 12:12 PM

I found a procal users manual: http://www.transmille.com/pdf/procal_manual.pdf
it doesnt seem to have much to do with the code but mabey if you read it you can get the gui to work.

Ooble · Sep 30th, 2005, 1:00 PM

Do I see GoTo statements in there? :eek:

McCabe · Sep 30th, 2005, 1:16 PM

[quote= mabey if you read it you can get the gui to work.[/QUOTE]

The old RTFB trick eh?

sniff sniff Do you smell bacon? :eek:

,,,thank you, I have the hard copy (leather bound), in front of me now.
In addition, the help menus have additional information, not in the book.

But your right! Less the key word section, there's not much there about code.
Which is the reason for my statements about support from the OEM, and is the reason I signed on to this forum.

And your wrong.
Their own guru's left here cry'n!
Their advise?: "Well; don't measure that."

Our reply:
"We purchased the system specifically to measure this, and were assured it can.
Now we find the system can, only if we utilize programming techniques you will not support."

Don't know about you, but I find that to be an unacceptable position for a supplier to take.
Now you know why I�ve solicited folks to join a users group.

couple more questions -

Am I the only guy here with a real name?

Has "redheadedstepchild" been taken, or do I actually need to hack somthing first?

McCabe · Sep 30th, 2005, 1:20 PM

Quote:

Originally Posted by Ooble

Do I see GoTo statements in there? :eek:

Nah - I'm laugh'n too

Sep 29th, 2005, 4:25 PM	#12
BinaryStorm Programmer Join Date: Sep 2005 Location: Po�ega, Croatia Posts: 93 Rep Power: 4	This code is so confusing to me.... All the numbers in code.... __________________ 1001 1101 1001 1110 0101 1102 ?! AAAAARRGGHHH _____________________ Free&Premium Web hosting reviews. Click here! Money making oasis. Run your own home based biz.

Sep 30th, 2005, 1:00 PM	#18
Ooble I eat cake for breakfast. Join Date: Jul 2004 Location: In my box. Posts: 4,434 Rep Power: 9	Do I see GoTo statements in there? :eek: __________________ Me :: You :: Them

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Sep 29th, 2005, 4:17 PM	#11
thechristelegacy Expert Programmer Join Date: Jul 2004 Location: Somerset, Pa Posts: 708 Rep Power: 5	Welcome to the community

Sep 29th, 2005, 4:29 PM	#13
Polyphemus_ Expert Programmer Join Date: Aug 2005 Location: Rotterdam, the Netherlands Posts: 942 Rep Power: 4	welcome to the forums

Sep 30th, 2005, 12:12 PM	#17
crazykid48x Programmer Join Date: Apr 2005 Posts: 96 Rep Power: 4	I found a procal users manual: http://www.transmille.com/pdf/procal_manual.pdf it doesnt seem to have much to do with the code but mabey if you read it you can get the gui to work.

Sep 30th, 2005, 1:16 PM	#19
McCabe Newbie Join Date: Sep 2005 Location: Palm Beach Gardens, Fl. Posts: 7 Rep Power: 0	[quote= mabey if you read it you can get the gui to work.[/QUOTE] The old RTFB trick eh? sniff sniff Do you smell bacon? :eek: ,,,thank you, I have the hard copy (leather bound), in front of me now. In addition, the help menus have additional information, not in the book. But your right! Less the key word section, there's not much there about code. Which is the reason for my statements about support from the OEM, and is the reason I signed on to this forum. And your wrong. Their own guru's left here cry'n! Their advise?: "Well; don't measure that." Our reply: "We purchased the system specifically to measure this, and were assured it can. Now we find the system can, only if we utilize programming techniques you will not support." Don't know about you, but I find that to be an unacceptable position for a supplier to take. Now you know why I�ve solicited folks to join a users group. couple more questions - Am I the only guy here with a real name? Has "redheadedstepchild" been taken, or do I actually need to hack somthing first?

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Community Introductions

intro/and question