smscontrol 控件发送信息，偶尔重复发送，求各位老大救命啊，vb中

2010-04-08 08:10:15 199 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

数电-基于FPGA的自动售货控制系统设计本次数电的课程设计是设计一款基于FPGA的自动售货控制系统，因为手上暂时没有FPGA的板子，所以先采用proteus仿真进行设计，观察系统效果，等之后FPGA板子下发，再移到quartus上调试和下载。同样是自己第一次自主设计电路系统，可能在功能上不完整或者逻辑上有错误，大家多多包涵，欢迎沟通交流。阅读详情

smscontrol 控件发送信息，偶尔重复发送，本来这个问题不大，但是我经过二次开发，改成了空中充值的软件，就是发送信息，充值话费，这个问题就严重了，重复发送等于重复充值啊。
发送事件代码如下：
Private Sub Smscontrol1_OnSndMsg()
Dim sndid As Long 'send out index
sndid = Smscontrol1.GetIndexOfLastSnd()

Do
If sndmsg(sndstart).sndid = sndid Then
'从数组中删除该条，表示该条已经成功发送到GSM网络
sndmsg(sndstart).sndid = -1
sndstart = sndstart + 1
If sndstart = 10000 Then
sndstart = 0
End If
Exit Do

End If

If sndstart = sndend Then '已经搜索完了数组
Exit Do
End If

Loop

...全文