Public Function voCmdStop()
sci_uwB0Cmd = STOP_CMDON 'STOP_CMDON
sci_uwB1InfHi = 0
sci_uwB2InfLo = 0
sci_uwB3InfHi = 0
sci_uwB4InfLo = 0
' CRC Check
uwTmp = sci_uwB0Cmd + sci_uwB1InfHi + sci_uwB2InfLo + sci_uwB3InfHi + sci_uwB4InfLo ' SUM for CRC Check
While uwTmp > 255
uwTmp = uwTmp - 256
Wend
sci_uwB5CRC = uwTmp
sci_ubTxBuffer(sci_ulTxBufIndexI, 0) = sci_uwB0Cmd
sci_ubTxBuffer(sci_ulTxBufIndexI, 1) = sci_uwB1InfHi
sci_ubTxBuffer(sci_ulTxBufIndexI, 2) = sci_uwB2InfLo
sci_ubTxBuffer(sci_ulTxBufIndexI, 3) = sci_uwB3InfHi
sci_ubTxBuffer(sci_ulTxBufIndexI, 4) = sci_uwB4InfLo
sci_ubTxBuffer(sci_ulTxBufIndexI, 5) = sci_uwB5CRC
sci_ulTxBufIndexI = sci_ulTxBufIndexI + 1
If (sci_ulTxBufIndexI > TxImax) Then
sci_ulTxBufIndexI = 0
End If
End Function
Public Function voCmdSeting()
Select Case (Form1.Combo1.ListIndex)
Case 0 'STOP
sci_uwB0Cmd = IDLE_CMDON 'IDLE_CMDON
Case 1 'IDLE
sci_uwB0Cmd = STOP_CMDON 'STOP_CMDON
Case 2 'VFCTRL
sci_uwB0Cmd = VFCTRL_CMDON 'VFCTRL_CMDON
Case 3 'VFCPI
sci_uwB0Cmd = VFCPI_CMDON 'VFCPI_CMDON
Case 4 'VFPG
sci_uwB0Cmd = VFPG 'VFPG
Case 5 'PMFOC
sci_uwB0Cmd = PMFOC_CMDON 'PMFOC_CMDON
Case 6 'PMTQC
sci_uwB0Cmd = PMTQC_CMDON 'PMTQC_CMDON
End Select
sci_uwB1InfHi = 0
sci_uwB2InfLo = 0
sci_uwB3InfHi = 0
sci_uwB4InfLo = 0
' CRC Check
uwTmp = sci_uwB0Cmd + sci_uwB1InfHi + sci_uwB2InfLo + sci_uwB3InfHi + sci_uwB4InfLo ' SUM for CRC Check
While uwTmp > 255
uwTmp = uwTmp - 256
Wend
sci_uwB5CRC = uwTmp