2007040710.txt

来自「计算机与CM320模块通信,只是简单的一点,利用AT命令,串口,VB编写!比较粗」· 文本 代码 · 共 110 行

'Const CB_SHOWDROPDOWN = &H14F

'Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
'(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long




'SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, 0

'End Sub

Private Sub Command3_Click()
    If Combo1.Text = "com1" Then
        MSComm1.CommPort = 1
        MSComm1.Settings = "9600,n,8,1" '...设置通讯参数
        MSComm1.PortOpen = True '...打开串口
    End If
End Sub

'Private Sub Command4_Click()
 'Text2.Text = Combo1.Text
'End Sub

Private Sub Form_Load()

Combo1.AddItem "com1"

Combo1.AddItem "com2"

Combo1.AddItem "com3"

End Sub

Private Sub Combo1_Change()
     'If Combo1.Text = com1 Then
    'MSComm1.CommPort = 1
    'MSComm1.Settings = "9600,n,8,1" '...设置通讯参数
    'MSComm1.PortOpen = True '...打开串口
   ' End If
End Sub

Private Sub Command1_Click()
'...发送数据

MSComm1.OutBufferCount = 0 '...清空输出寄存器

MSComm1.Output = Text1.Text & vbCr '...发送数据

End Sub

Private Sub Command2_Click()

'...退出

Unload Me
End Sub



'Private Sub Form_Load()

'...初始化

'MSComm1.CommPort = 1 '...使用Com1口
'MSComm1.Settings = "9600,n,8,1" '...设置通讯参数
'MSComm1.PortOpen = True '...打开串口

'End Sub

Private Sub Mscomm1_Oncomm()

With MSComm1
Select Case CommEvent
Case comEvReceive

' 接收数据

' 对数据进行处理
Case comEvSend
'发送数据
'Case comEventRxParity
'对奇偶校验错误进行处理
End Select

 If comEvReceive Then
Text1.Text = MSComm1.Input
'MSComm1.InBufferCount = 0
End If
End With
End Sub


Private Sub Option1_Click()
   ' If Option1.Value = True Then
   ' MSComm1.CommPort = 1
    'MSComm1.Settings = "9600,n,8,1" '...设置通讯参数
    'MSComm1.PortOpen = True '...打开串口
   ' End If
End Sub

Private Sub Option2_Click()
    'If Option1.Value = True Then
   ' MSComm1.CommPort = 2
   ' MSComm1.Settings = "9600,n,8,1" '...设置通讯参数

  ' MSComm1.PortOpen = True '...打开串口
   ' End If
End Sub