vb串口向sim900a发送AT指令

请问大牛如何实现,本人一直发送短信不成功,使用串口助手可以,VBcomm怎么不行呢?本人菜鸟,没什么币,跪求大神解决。
Private Sub Form_Load()

Dim Buffer As Variant

Dim Bytes(0) As Byte

Bytes(0) = &H1A

MSComm1.CommPort = 3

MSComm1.PortOpen = True

MSComm1.Settings = "19200,n,8,1" MSComm1.InBufferCount = 0 MSComm1.OutBufferCount = 0 TimeDelay 2000 MSComm1.Output = "AT+CMGF=1" + vbCrLf TimeDelay 2000 TimeDelay 2000

MSComm1.Output = "AT+CSCA=" & Chr$(34) & "8613800xxxx00" + vbCrLf TimeDelay 2000 TimeDelay 2000

MSComm1.Output = "AT+CMGS=" & Chr$(34) & "15xxxxxx" + vbCrLf

TimeDelay 2000 TimeDelay 2000 MSComm1.Output = "denger"

TimeDelay 2000 TimeDelay 2000
Buffer = Bytes()

MSComm1.Output = Buffer & vbCrLf

TimeDelay 2000 TimeDelay 2000 TimeDelay 2000 TimeDelay 2000 TimeDelay 2000 TimeDelay 2000 TimeDelay 2000 TimeDelay 2000End Sub

2个回答

刚开始接触VB串口通信,求解答

检查你的端口号、波特率、停止位、校验位等设置是否正确。

caozhy
贵阳老马马善福专业维修游泳池堵漏防水工程 回复weixin_35151090: Dim Bytes(0) As Byte ->Dim Bytes(1) As Byte
大约 4 年之前 回复
weixin_35151090
weixin_35151090 端口号波特率都没错,而且QT编写的程序也能发,,是不是最后一个指令16进制的1A发送不正确呢??谢谢回复
大约 4 年之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问