The Shop > Software Tools

CnC Mach3 serial cards, I/O

(1/1)

Dawai:
I ended up writing a vbscript file, you load it into Mach3 gcode by calling it's M-code name, this one M995, initiates the opto22 422 link, sets up modules, and writes (0) position bit on.

I can use it like this, but.. the commands are so close to Modbus transactions of data that mach3 uses there has to be a way>?> 
command string = ">" start of transmission, "FF" Hex address 255, A-Z command register, between 4 bytes and sixteen 4 byte transactions of data per unit.

Anyways.. here is a script that opens up the serial and is working right now.. I have 32 commands related to a 16 I/O board thou.. gets confusing.. and typos kill a gcode program faster than a bullet.

I commented the "other modules commands and do one command per Mcode"
M995-M980 

'******************* vbscript code
'*************** Mach 3 serial opto22 write *********
'*** Authored Cofer 12-26-2013 NORF Gawgia
' Utilizing 16 bit opto22 Pb16hc card & B1 422 serial card. usb-422 adapter on com port 3
Private Declare Function timeGetTime Lib "WINMM.dll" () As Long
Dim M_flag As Boolean
Dim TimeToEnd As Boolean
Dim m_value As Double
Dim i, t As Integer
Dim not_complete As Boolean
Dim Add$, Cmd$, Pl$, Modi$, RetData$, Opto22Err$
Dim modules As Integer
Dim Byte_pick$
Dim pausetime As Long
Dim control_word$(25) 'array for all control g,M,n codes
Dim control_flag(25) As Boolean


Sub MyFunction()
 Dim pwrup As Integer
    Set MSComm1=CreateObject("MSCOMMLib.MSComm")
    Dim t
    MSComm1.Settings = "19200,n,8,1"
    MSComm1.CommPort = 3
    MSComm1.InBufferCount = 0
    MSComm1.PortOpen = True
      If Err Then
         MsgBox "COM" & MSComm1.CommPort & ": not opened, Sorry!"
         Exit Sub
      End If
   '**************************************************************** 
   
     
     
    MSComm1.output=">FFACD" & Chr(13)  'opto22 power up clear at address FF
    Call delay_MS_time(10)
    'MsgBox " reply was " & MScomm1.input
   
    MSComm1.output=">FFI000FAB" & Chr(13)  'configure the first four as outputs 
    Call delay_MS_time(10)
    'MsgBox " reply was " & MScomm1.input
   
    MSComm1.output=">FFK000198" & Chr(13)  'TURN on bit one, opto22 address FF 
    Call delay_MS_time(10)
    'MsgBox " reply was " & MScomm1.input
   
  '   MSComm1.output=">FFK000299" & Chr(13)  'TURN on bit two, opto22 address FF 
  '  Call delay_MS_time(10)
  '  'MsgBox " reply was " & MScomm1.input
   
  '  MSComm1.output=">FFK00049B" & Chr(13)  'TURN on bit three, opto22 address FF 
  '  Call delay_MS_time(10)
  '  'MsgBox " reply was " & MScomm1.input
  ' 
  '  MSComm1.output=">FFK00089F" & Chr(13)  'TURN on bit four, opto22 address FF 
  '  Call delay_MS_time(10)
  '  'MsgBox " reply was " & MScomm1.input
  ' 
  '  MSComm1.output=">FFL000199" & Chr(13)  'TURN OFF bit one, opto22 address FF 
  '  Call delay_MS_time(10)
  '  'MsgBox " reply was " & MScomm1.input
  ' 
  '  MSComm1.output=">FFL00029A" & Chr(13)  'TURN off bit two, opto22 address FF 
  '  Call delay_MS_time(10)
  '  'MsgBox " reply was " & MScomm1.input

   ' MSComm1.output=">FFL00049C" & Chr(13)  'TURN off bit three, opto22 address FF 
   ' Call delay_MS_time(10)
   ' 'MsgBox " reply was " & MScomm1.input
'
 '   MSComm1.output=">FFL0008A0" & Chr(13)  'TURN off bit four, opto22 address FF 
  '  Call delay_MS_time(10)
   ' 'MsgBox " reply was " & MScomm1.input




   
   

   
   
         
    MSComm1.PortOpen = False
    Set MSComm1 = Nothing
End Sub

Private Sub delay_MS_time(MsDelay)
     Dim time_out As Double
     time_out = MsDelay + timeGetTime()
  Do Until time_out <= timeGetTime()
      ' the delay for the steppers accel/decell
     Loop
End Sub

   

Navigation

[0] Message Index