1641
VB and the development of wizards / Re: Tool changer routine with hot swap
« on: March 27, 2008, 05:22:02 AM »
was not thinking when I typed it in, Byte is a reserved word in VB, try it like this :-
Dim command As String
Dim oneByte As String
command="B000013E------"
For a=1 To Len(command)
oneByte=Mid(command,a,1)
putportbyte(Ox378,Asc(oneByte)) ' Ox378 is the address of your serial port
For b=1 To 1000
' this is a delay loop, adjust to get your 9 ms delay
Next
Next
End
Graham.
Dim command As String
Dim oneByte As String
command="B000013E------"
For a=1 To Len(command)
oneByte=Mid(command,a,1)
putportbyte(Ox378,Asc(oneByte)) ' Ox378 is the address of your serial port
For b=1 To 1000
' this is a delay loop, adjust to get your 9 ms delay
Next
Next
End
Graham.