Hello Guest it is March 19, 2024, 05:41:47 AM

Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - TPS

1951
VB and the development of wizards / Re: center hole script
« on: March 09, 2018, 11:50:01 AM »
have a try this does what you want.

Code: [Select]
Speak ("ricerca centro pezzointerno") 'Avviso Vocale
Message "RICERCA CENTRO PEZZO INTERNO"
Sleep (1000) ' pausa di 1 secondi
response = MsgBox ("CONFERMARE RICERCA CENTRO PEZZO INTERNO")

Sleep (1000) ' pausa di 1 secondi
Speak (" CONFERMARE centro pezzo interno") 'Avviso Vocale
Message "INIZIO CENTRO PEZZO INTERNO"
Sleep (1000) ' pausa di 1 secondi
response = MsgBox ("CONFERMARE CENTRO PEZZO INTERNO")


  
Call SetDRO(0,0)
Call SetDRO(1,0)
Xpos = GetParam("XDRO")
Ypos = GetParam("YDRO")
Fcurr = GetParam("FeedRate")
SP = 80 ' avanzamento prima palp impostare diametro mm del cerchio da palpare
VSP = "F200" ' velocita avanzamento prima palp
bkSP = 3 ' ritorno dopo palp mm
VbkSP = "F240" ' velocita ritorno
Spp = 5 ' avanzamento seconda palp mm
VSpp = "F40" ' velocita seconda palp

Code "G31 X" & (GetParam("XDRO")+SP) & (VSP)
While IsMoving()
Wend

Code "G0 X" & (GetParam("XDRO")-bkSP) & (VbkSP)
While IsMoving()
Wend

Code "G31 X" & (GetParam("XDRO")+Spp) & VSpp
While IsMoving()
Wend

B=GetParam("XDRO")

Code "G0 X" & Xpos

Code "G31 X" & (GetParam("XDRO")-SP) & (VSP)
While IsMoving()
Wend

Code "G0 X" & (GetParam("XDRO")+bkSP) & (VbkSP)
While IsMoving()
Wend

Code "G31 X" & (GetParam("XDRO")-Spp) & VSpp
While IsMoving()
Wend

A=GetParam("XDRO")

measuredX = B-A

Code "G0 X" & (A+(B-A)/2)
While IsMoving()
Wend

Code "G31 Y" & (GetParam("YDRO")+SP) & (VSP)
While IsMoving()
Wend

Code "G0 Y" & (GetParam("YDRO")-bkSP) & (VbkSP)
While IsMoving()
Wend

Code "G31 Y" & (GetParam("YDRO")+Spp) & VSpp
While IsMoving()
Wend

B=GetParam("YDRO")

Code "G0 Y" & Ypos

Code "G31 Y" & (GetParam("YDRO")-SP) & (VSP)
While IsMoving()
Wend

Code "G0 Y" & (GetParam("YDRO")+bkSP) & (VbkSP)
While IsMoving()
Wend

Code "G31 Y" & (GetParam("YDRO")-Spp) & VSpp
While IsMoving()
Wend

A=GetParam("YDRO")

measuredY = B-A

Code "G0 Y" & (A+(B-A)/2)
SetParam("FeedRate",Fcurr)

MsgBox (" Measurement X: " & nFmt(measuredX,3) & " mm  Measurement Y: " & nFmt(measuredY,3) & " mm")


the Measurement Y sjould be the Diameter of hole - Probediamater

1952
General Mach Discussion / Re: Mach3 Pendant
« on: March 09, 2018, 11:03:11 AM »
would be helpful if you post your brain/script witch controls the axis selction.

1953
VB and the development of wizards / Re: center hole script
« on: March 09, 2018, 09:41:15 AM »
do you mean you want a messeage box witch Shows the measured X and Y Diameter ?

1954
Hello Tony,

glad to hear that everthing is ok now.
i am happy that i was able to set a few Triggers for the drirection to go.

Thomas

1955
i would use "ENABLE 1"  instead of "CHARGE PUMP".

i never understood "CHARGE PUMP", maybe depending of my bad english.

sorry i will finish for today, allready late here in Bavaria.

but i think we are very Close.

1956
ok if i have inderstood this, you are using Charge Pump as an "ENABLE" ?

i am allways using the Output enable for this

1957
question:
for what do you realy Need charge pump ?

sorry i did not get this !?

btw. the XML Looks ok now for e-stop.

Thomas

1958
also your just sended XML says that e-stop emulated is checked.

in worst case i would Setup an new blank Profile.


1959
I am not seeing any change with the indicator you circled... It stays yellow regardless of switch being open or closed.

there is something wrong, it should Change Status.

1960
can you please post your XML again?

you said Emulated is unchecked, the XML you posted earlier says emulated is checked.

if your e-stop Switch is connected to pin15 the led in UC Monitor shouls Change if you Switch it.