?? module1.bas
字號(hào):
Attribute VB_Name = "Module1"
Rem 串行口初始化
Public Sub SCIinit(Msc1 As MSComm, ByVal COMx As Byte, ByVal SCIFormat As String)
If Msc1.PortOpen = True Then
Ms1.PortOpen = False
End If
Msc1.CommPort = COMx '串行口號(hào)
Msc1.Settings = SCIFormat '定義傳輸格式
Msc1.InputMode = comInputModeBinary '二進(jìn)制數(shù)據(jù)格式
Msc1.RThreshold = 0 '關(guān)閉串行中斷
Msc1.InputLen = 2 '一次讀取緩沖區(qū)全部數(shù)據(jù)
Msc1.PortOpen = True '打開串行口
Msc1.InBufferCount = 0
End Sub
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -