?? serial.bas
字號:
Attribute VB_Name = "Module1"
Option Explicit
Public ComOCX As MSComm
Public Sub OpenSerial(ByVal ComPort As Integer, ByVal sSetting As String)
With ComOCX
.Settings = sSetting
.CommPort = ComPort
.PortOpen = True
End With
End Sub
Public Sub CloseSerial()
ComOCX.PortOpen = False
End Sub
Public Sub SendData(ByVal ServoMotor As Integer, ByVal Speed As Integer, ByVal ServoPosition As Integer)
Dim Data(0 To 2) As Byte
If (Speed < 0) Or (Speed > 7) Then
Stop
Exit Sub
End If
If (ServoMotor < 1) Or (ServoMotor > 24) Then
Stop
Exit Sub
End If
If (ServoPosition < 0) Or (ServoPosition > 255) Then
Stop
Exit Sub
End If
Data(0) = &HFF
Data(1) = Speed * 32 + ServoMotor
Data(2) = ServoPosition
ComOCX.Output = Data
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -