I have a coordinates startanle angle,want to generate pulse for pic How do I do that

x ,y,z meter typemoveG0 cR 100 angle 100 start angle 50:):wave:

Public Sub sendDataL(dx As Integer, dy As Integer, dZ As Integer, typemove As String, CircleRadius As Integer, Angle As Integer, StartAngle As Integer)
'????????????????????????????????????????????????????????????????????????????????????????????????

Static sdx As Integer
Static sdy As Integer
Static sdz As Integer
Static sdcr As Integer
Static sda As Integer
Static sdsa As Integer
If sdx = dx And sdy = dy And sdz = dZ And typemove = "G01" And sdcr = CircleRadius And sda = Angle And sdsa = StartAngle Then Exit Sub
sdx = dx: sdy = dy: sdz = dZ: sdcr = CircleRadius: sda = Angle: sdsa = StartAngle
Dim EndX As Long
Dim EndY As Long
Dim EndZ As Long
Dim CR As Long
Dim AA As Long
Dim SA As Long
EndX = dx + 32768
EndY = dy + 32768
EndZ = dZ + 32768
CR = CircleRadius + 32768
AA = Angle + 32768
SA = StartAngle + 32768
Dim arrayb3(0) As Byte
Dim BufferOut(13) As Byte
Dim count As Integer


If typemove = "G01" Then
BufferOut(0) = &H4C
BufferOut(1) = CByte(EndX Mod 256)
BufferOut(2) = CByte(EndX \ 256)
BufferOut(3) = CByte(EndY Mod 256)
BufferOut(4) = CByte(EndY \ 256)
BufferOut(5) = CByte(EndZ Mod 256)
BufferOut(6) = CByte(EndZ \ 256)
BufferOut(7) = 0 'CByte(startAngle Mod 256)
BufferOut(8) = 0 'CByte(startAngle Mod 256))
BufferOut(9) = 0 'CByte(startAngle Mod 256)
BufferOut(10) = 0 'CByte(startAngle Mod 256)
BufferOut(11) = 0 'CByte(startAngle Mod 256)
BufferOut(12) = 0 'CByte(startAngle \ 256)
BufferOut(13) = &H4C
For count = 0 To 13
arrayb3(0) = BufferOut(count)
hidWriteEx VendorID, ProductID, arrayb3(0)
Next count
End If
If typemove = "G02" Then
BufferOut(0) = &H4D
BufferOut(1) = CByte(EndX Mod 256)
BufferOut(2) = CByte(EndX \ 256)
BufferOut(3) = CByte(EndY Mod 256)
BufferOut(4) = CByte(EndY \ 256)
BufferOut(5) = CByte(EndZ Mod 256)
BufferOut(6) = CByte(EndZ \ 256)
BufferOut(7) = CByte(CR Mod 256)
BufferOut(8) = CByte(CR \ 256)
BufferOut(9) = CByte(AA Mod 256)
BufferOut(10) = CByte(AA \ 256)
BufferOut(11) = CByte(SA Mod 256)
BufferOut(12) = CByte(SA \ 256)
BufferOut(13) = &H4D
For count = 0 To 13
arrayb3(0) = BufferOut(count)
hidWriteEx VendorID, ProductID, arrayb3(0)
Next count
End If
If typemove = "G03" Then
BufferOut(0) = &H4E
BufferOut(1) = CByte(EndX Mod 256)
BufferOut(2) = CByte(EndX \ 256)
BufferOut(3) = CByte(EndY Mod 256)
BufferOut(4) = CByte(EndY \ 256)
BufferOut(5) = CByte(EndZ Mod 256)
BufferOut(6) = CByte(EndZ \ 256)
BufferOut(7) = CByte(CR Mod 256)
BufferOut(8) = CByte(CR \ 256)
BufferOut(9) = CByte(AA Mod 256)
BufferOut(10) = CByte(AA \ 256)
BufferOut(11) = CByte(SA Mod 256)
BufferOut(12) = CByte(SA \ 256)
BufferOut(13) = &H4E

For count = 0 To 13
arrayb3(0) = BufferOut(count)
hidWriteEx VendorID, ProductID, arrayb3(0)
Next count
End If
If typemove = "Speed" Then
BufferOut(0) = Asc("S")
BufferOut(1) = 0
BufferOut(2) = 0
BufferOut(3) = 0
BufferOut(4) = 0
BufferOut(5) = 0
BufferOut(6) = 0
BufferOut(7) = CByte(EndX Mod 256)
BufferOut(8) = CByte(EndX \ 256)
BufferOut(9) = 0 'CByte(startAngle Mod 256)
BufferOut(10) = 0 'CByte(startAngle Mod 256)
BufferOut(11) = 0 'CByte(startAngle Mod 256)
BufferOut(12) = 0 'CByte(startAngle \ 256)
BufferOut(13) = Asc("S")
'blnWaitForComm = True
For count = 0 To 13
arrayb3(0) = BufferOut(count)
hidWriteEx VendorID, ProductID, arrayb3(0)
Next count

End If
If typemove = "Zero Microcontroller" Then
BufferOut(0) = Asc("Z")
BufferOut(1) = CByte(EndX Mod 256)
BufferOut(2) = CByte(EndX \ 256)
BufferOut(3) = CByte(EndY Mod 256)
BufferOut(4) = CByte(EndY \ 256)
BufferOut(5) = CByte(EndZ Mod 256)
BufferOut(6) = CByte(EndZ \ 256)
BufferOut(7) = 0 'CByte(startAngle Mod 256)
BufferOut(8) = 0 'CByte(startAngle Mod 256))
BufferOut(9) = 0 'CByte(startAngle Mod 256)
BufferOut(10) = 0 'CByte(startAngle Mod 256)
BufferOut(11) = 0 'CByte(startAngle Mod 256)
BufferOut(12) = 0 'CByte(startAngle \ 256)
BufferOut(13) = Asc("Z")
'blnWaitForComm = True
For count = 0 To 13
arrayb3(0) = BufferOut(count)
hidWriteEx VendorID, ProductID, arrayb3(0)
Next count

End If
If typemove = "Reset Microcontroller" Then
BufferOut(0) = Asc("R")
BufferOut(1) = CByte(EndX Mod 256)
BufferOut(2) = CByte(EndX \ 256)
BufferOut(3) = CByte(EndY Mod 256)
BufferOut(4) = CByte(EndY \ 256)
BufferOut(5) = CByte(EndZ Mod 256)
BufferOut(6) = CByte(EndZ \ 256)
BufferOut(7) = 0 'CByte(startAngle Mod 256)
BufferOut(8) = 0 'CByte(startAngle Mod 256))
BufferOut(9) = 0 'CByte(startAngle Mod 256)
BufferOut(10) = 0 'CByte(startAngle Mod 256)
BufferOut(11) = 0 'CByte(startAngle Mod 256)
BufferOut(12) = 0 'CByte(startAngle \ 256)
BufferOut(13) = Asc("R")
'blnWaitForComm = True
For count = 0 To 13
arrayb3(0) = BufferOut(count)
hidWriteEx VendorID, ProductID, arrayb3(0)
Next count
End If
' Do
'DoEvents
'Loop Until blnWaitForComm = False