|
|
销售热线：022-27984101（总机）
传 真：022-27984101
邮 箱：sale@tjbily.com
地 址：天津市西青区创新六路2号华鼎一号2号楼2门3层
邮 编：300384 | |
|
|
|
|
|
|
|
|
| 您的位置是: 首页 >>
技术园地
>> 具体内容 |
| VB编程查询流量计数据 |
![]() |
| 发布时间：2011/4/6 20:55:28 |
Const DEBFLG = 1
Public COMX, BEEPND, HANGUP, PNLOC, Item As Integer
Public COMBUF, COMLIN As String
Private Intext(0) As String
'调制解调器摘机命令
Private Sub Command1_Click()
Item = 0
MSComm1.Output = "ath1" & vbCrLf
End Sub
'调制解调器拨号命令
Private Sub Command2_Click()
Item = 0
MSComm1.Output = "ATDP" + Text1.Text & vbCrLf
End Sub
'调制解调器挂机命令
Private Sub Command3_Click()
Item = 0
MSComm1.Output = "ath0" & vbCrLf
End Sub
'退出窗口
Private Sub Command4_Click()
MSComm1.PortOpen = False
End
End Sub
'流量计查询
Private Sub Command5_Click()
Item = 0
MSComm1.Output = "DQH&DV&DIN&DL" & vbCrLf
End Sub
'MOdem测试/设置
Private Sub Command6_Click()
Item = 0
MSComm1.Output = Text3.Text & vbCrLf
End Sub
'窗口加载和串口初始化
Private Sub Form_Load()
MSComm1.InBufferSize = 1024
MSComm1.InputLen = 0
MSComm1.InputMode = 0
MSComm1.RThreshold = 1
MSComm1.RTSEnable = True
MSComm1.SThreshold = 0
MSComm1.Settings = "9600,N,8,1"
'设置端口参数：传输速率9600，无校验，8位数据，1位停止位
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
COMBUF = ""
End Sub
'接收数据处理
Private Sub MSComm1_OnComm()
Dim ch, st As String
Dim lc As Integer
Select Case MSComm1.CommEvent
Case comEvReceive
COMBUF = COMBUF + MSComm1.Input
Do
lc = InStr(1, COMBUF, Chr(10))
If lc = 0 Then Exit Do
COMLIN = Left(COMBUF, lc)
distext(Item).Text = COMLIN
If Item > 2 Then Item = 0
Item = Item + 1
COMBUF = Mid(COMBUF, lc + 1)
ch = Left(COMLIN, 1)
If "" < ch And ch < Chr(127) And DEBFLG = 1 Then
Text2.Text = Text2.Text + COMLIN
Text2.SelStart = Len(Text2.Text)
End If
Loop
End Select
Text2.Text = Text2.Text + MSComm1.Input
End Sub
|
![]() |
|
|
|
|
|
|
 |
|
