Kod: Zaznacz cały

 Serial port

You can send bytes of raw data to a serial port. The port number (i.e. n in COMn) to be used and the baud rate for transmission is set in Config>Logic. RTS/CTS hardware flow control protocol will be used to control large volumes of data but this will not be normally required. Data is transmitted 8 data bits, 1 stop bit No Parity by a call of SendSerial.

Sub SendSerial (chars as String) 

Example: to write the value of X DRO to an LCD display connected to the serial (RS232) port.

Call SendSerial ("X-Axis = " & GetDRO (0)) 


[edit] 
Foreign ports

Scripts can access ports on the PC which are additional to the one (or perhaps two) parallel port(s) defined in Config>Ports and Pins. These are accessed at the basic hardware port address level and you will have to be aware of the details of the individual port addresses, allocation of data and status bits etc.

Function GetPortByte (pAddr as Integer) as Byte
Sub PutPortByte (pAddr as Integer, bData as Byte) 

This feature should be used with great care as, if misused, it can interfere with any peripheral on your system, including the hard-driv

Kod: Zaznacz cały

While ismoving() 
Sleep 100
Wend

Kod: Zaznacz cały

[2000]  X  współrzędne
[2001]  Y  współrzędne
[2002]  Z współrzędne
[2003]  A współrzędne
[2004]  B współrzędne
[2005]  C współrzędne

Kod: Zaznacz cały

If Tool = 0 Then
       Response = MsgBox ("Did you zero off the part First?", 4 , "Set up offset") 
       If (Response = 6) Then  'Yes
    ZPos = Zpos - ZMove