?? gsm.frm
字號:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form form1
Caption = "北京博銳智業(yè)科技有限公司 短信實(shí)例程序"
ClientHeight = 5535
ClientLeft = 60
ClientTop = 345
ClientWidth = 6960
LinkTopic = "Form1"
ScaleHeight = 5535
ScaleWidth = 6960
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 100
Left = 5160
Top = 960
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 2160
TabIndex = 8
Top = 2025
Visible = 0 'False
Width = 3855
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 300
Left = 480
Top = 1080
End
Begin MSCommLib.MSComm MSComm1
Left = 1080
Top = 960
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
RThreshold = 1
RTSEnable = -1 'True
SThreshold = 1
End
Begin VB.CommandButton Command6
Caption = "高級"
Enabled = 0 'False
Height = 495
Left = 480
TabIndex = 6
Top = 3840
Width = 855
End
Begin VB.TextBox Text1
ForeColor = &H00FF0000&
Height = 1815
Left = 2160
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 5
Top = 2520
Visible = 0 'False
Width = 3855
End
Begin VB.CommandButton Command5
Caption = "屬性"
Height = 495
Left = 480
TabIndex = 4
Top = 3240
Width = 855
End
Begin VB.CommandButton Command4
Caption = "短信"
Enabled = 0 'False
Height = 495
Left = 480
MaskColor = &H8000000F&
TabIndex = 3
Top = 2640
Width = 855
End
Begin VB.CommandButton Command3
Caption = "信息"
Enabled = 0 'False
Height = 495
Left = 480
MaskColor = &H8000000F&
TabIndex = 2
Top = 2040
Width = 855
End
Begin VB.CommandButton Command2
Caption = "斷開"
Enabled = 0 'False
Height = 495
Left = 3840
TabIndex = 1
Top = 960
Width = 855
End
Begin VB.CommandButton Command1
Caption = "連接"
Enabled = 0 'False
Height = 495
Left = 2160
TabIndex = 0
Top = 960
Width = 855
End
Begin VB.Label Label1
BackColor = &H80000007&
BorderStyle = 1 'Fixed Single
Caption = "聯(lián)系電話：010-83460128 網(wǎng)址：www.brui.net"
ForeColor = &H8000000E&
Height = 375
Left = 0
TabIndex = 9
Top = 5160
Width = 6975
End
Begin VB.Label Label2
Caption = "北京博銳智業(yè)科技短信DEMO測試程序"
Height = 255
Left = 2280
TabIndex = 7
Top = 2640
Width = 3615
End
Begin VB.Line Line2
X1 = 1680
X2 = 1680
Y1 = 1680
Y2 = 4440
End
Begin VB.Line Line1
X1 = 360
X2 = 6360
Y1 = 1680
Y2 = 1680
End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'///////////////////////////////////////////////////////////////////////////////////////////////////////////////
'程序名稱：北京博銳智業(yè)科技有限公司，短信發(fā)送實(shí)例程序
'版本號碼：v1.0
'服務(wù)電話：010-83460128
'公司網(wǎng)址：www.brui.net
'///////////////////////////////////////////////////////////////////////////////////////////////////////////////
Dim out As Variant
Dim disp As String
Private Sub Command1_Click()
MSComm1.PortOpen = True
Command2.Enabled = True
Command1.Enabled = False
Command3.Enabled = True
command4.Enabled = True
Command6.Enabled = True
MSComm1.Output = "AT" & vbCr
'Timer2.Enabled = True
MSComm1.Output = "AT+CNMI=2,2" & vbCr
MSComm1.Output = "AT+CMGF=0" & vbCr
End Sub
Private Sub Command2_Click()
MSComm1.PortOpen = False
Command2.Enabled = False
Command1.Enabled = True
Command3.Enabled = False
command4.Enabled = False
Command6.Enabled = False
Unload Form2
Unload Form3
Unload form4
Text1.Visible = False
Text2.Visible = False
End Sub
Private Sub Command3_Click()
Form3.Show
End Sub
Private Sub command4_Click()
Form2.Show
End Sub
Private Sub Command5_Click()
form4.Show vbModal
End Sub
Private Sub Command6_Click()
Text1.Visible = Not Text1.Visible
Text2.Visible = Not Text2.Visible
End Sub
Private Sub Form_Load()
'MSComm1.CommPort = 2
'MSComm1.Settings = "19200,n,8,1"
'MSComm1.Handshaking = comNone
form1.Show
Set allflag = form1.Text1
End Sub
Private Sub MSComm1_OnComm() '處理串口事件
Select Case MSComm1.CommEvent
' 事件信息
Case comEvReceive
'MsgBox "comEvReceive"
Timer1.Enabled = True
'Timer2.Enabled = True
Case comEvSend
' Dim Buffer As Variant
' Buffer = MSComm1.Input
'MsgBox "comEvSend"
Case comEvCTS
'MsgBox "被檢測的 CTS 改變"
Case comEvDSR
'MsgBox "被檢測的 DSR 改變"
Case comEvCD
'MsgBox "被檢測的 CD 改變"
Case comEvRing
'MsgBox "電話鈴響起"
Case comEvEOF
'MsgBox "被檢測的文件結(jié)尾"
' Error messages.
Case comBreak
ERMsg$ = "收到中斷"
Case comCDTO
ERMsg$ = "運(yùn)輸檢測超時"
Case comCTSTO
ERMsg$ = "CTS 超時"
Case comDCB
ERMsg$ = "檢索 DCB 錯誤"
Case comDSRTO
ERMsg$ = "DSR 超時"
Case comFrame
ERMsg$ = "幀錯誤"
Case comOverrun
ERMsg$ = "超限錯誤"
Case comRxOver
ERMsg$ = "接收緩沖區(qū)溢出"
Case comRxParity
ERMsg$ = "奇偶校驗(yàn)錯"
Case comTxFull
ERMsg$ = "傳送緩沖區(qū)滿"
Case Else
ERMsg$ = "未知的錯誤或事件"
End Select
End Sub
Public Function show_f(data As String) As String
'顯示函數(shù)，處理從串口返回的數(shù)據(jù)
Dim TermSize As Long, i
' TermSize = 1
' 過濾/處理空格符。
Do
i = InStr(data, Chr$(8))
If i Then
If i = 1 Then
'Term.SelStart = TermSize - 1
'Term.SelLength = 1
data = Mid$(data, i + 1)
Else
data = Left$(data, i - 2) & Mid$(data, i + 1)
End If
End If
Loop While i
' 除去換行符。
Do
i = InStr(data, Chr$(10))
If i Then
data = Left$(data, i - 1) & Mid$(data, i + 1)
End If
Loop While i
' 除去換行符用空格符替代。
i = 0
Do
i = InStr(i + 1, data, Chr$(13))
If i Then
data = Left$(data, i - 1) & Mid$(data, i + 1)
End If
Loop While i
' 返回?cái)?shù)據(jù)。
show_f = data
' Label1.Caption = Data
End Function
Private Static Sub show_s(Term As Control, data As String)
'顯示模塊，用于顯示從串口返回的數(shù)據(jù)
Dim TermSize, i As Integer
TermSize = Len(Term.text)
' 過濾/處理退格符。
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -