frminit.frm

加上一个GSM模块

VERSION 5.00
Begin VB.Form frmInit 
   Caption         =   "初始化窗口"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   8595
   ScaleWidth      =   11880
   Begin VB.Timer Timer21 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   4080
      Top             =   7440
   End
   Begin VB.Timer Timer31 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   3480
      Top             =   7440
   End
   Begin VB.Frame Frame2 
      Caption         =   "操作结果显示"
      Height          =   2655
      Left            =   1560
      TabIndex        =   5
      Top             =   3960
      Width           =   7575
      Begin VB.TextBox Text1 
         Height          =   2295
         Left            =   240
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   6
         Top             =   240
         Width           =   7095
      End
   End
   Begin VB.Timer Timer4 
      Enabled         =   0   'False
      Interval        =   1500
      Left            =   2760
      Top             =   7440
   End
   Begin VB.Timer Timer3 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   1920
      Top             =   7440
   End
   Begin VB.Timer Timer2 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   1080
      Top             =   7440
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   360
      Top             =   7440
   End
   Begin VB.Frame frame1 
      Caption         =   "串口与发射模块初始化"
      Height          =   3495
      Left            =   1560
      TabIndex        =   0
      Top             =   240
      Width           =   7575
      Begin VB.CommandButton cmdInit3 
         Caption         =   "关闭串口"
         Height          =   375
         Left            =   2400
         TabIndex        =   8
         Top             =   2880
         Width           =   1215
      End
      Begin VB.CommandButton cmdInit1 
         Caption         =   "初始化"
         Height          =   375
         Left            =   720
         TabIndex        =   7
         Top             =   2880
         Width           =   1215
      End
      Begin VB.ComboBox comboInit2 
         Height          =   300
         ItemData        =   "frmInit.frx":0000
         Left            =   2040
         List            =   "frmInit.frx":0007
         TabIndex        =   4
         Top             =   1440
         Width           =   1455
      End
      Begin VB.ComboBox comboInit1 
         Height          =   300
         ItemData        =   "frmInit.frx":0017
         Left            =   2040
         List            =   "frmInit.frx":0021
         TabIndex        =   3
         Top             =   720
         Width           =   1455
      End
      Begin VB.Label labelInit2 
         Caption         =   "波特率设置"
         Height          =   255
         Left            =   600
         TabIndex        =   2
         Top             =   1560
         Width           =   975
      End
      Begin VB.Label labelInit1 
         Caption         =   "串口号"
         Height          =   255
         Left            =   600
         TabIndex        =   1
         Top             =   840
         Width           =   615
      End
   End
End
Attribute VB_Name = "frmInit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Function RecTemp() As String
    Dim buf$
    If frmMDI.comm.InBufferCount > 0 Then
        frmMDI.comm.InputLen = 0
        buf = frmMDI.comm.Input
    End If
End Function
Public Function ReadNo() As String
    receiveStr6 = ""
    Dim check As String
    Dim Countc As Integer
    Countc = 0
    On Error Resume Next
    If frmMDI.comm.InBufferCount > 0 Then
        Dim Count As Integer
        Count = 0
        frmMDI.comm.InputLen = 1
        While frmMDI.comm.InBufferCount > 0
            ReDim Preserve mess_index(Count + 1)
            'mess_index(Count) = Hex(frmMDI.comm.Input)
            mess_index(Count) = frmMDI.comm.Input
            receiveStr6 = receiveStr6 + mess_index(Count)
            Count = Count + 1
        Wend
        'txtAutoRe.Text = txtAutoRe.Text + receiveStr6
        check = Mid(receiveStr6, 3, 5)
        If check = "+CMTI" Then
            flagAuto = True
            'txtAutoRe.Text = "有新数据到了"
            Count = UBound(mess_index)
            'no = Val("&H" + mess_index(Count - 3))
            no = mess_index(Count - 3)
            'Count4 = Val("&H" + mess_index(Count - 3))
            'txtAutoRe.Text = txtAutoRe.Text + Chr(13) + Chr(10) + receiveStr6
            Text1.Text = Text1.Text + Chr(13) + Chr(10) + "接收到新短信，" + "新短信编号：" & no
            frmMDI.comm.Output = "AT+CMGR=" + Hex(no) + Chr(13) + Chr(10)
        Else
            flagAuto = False
            intall2 = 0
        End If
    End If
End Function
Public Function GetData() As String
    Dim Count As Integer
    Count = 0
    frmMDI.comm.InputLen = 1
    While frmMDI.comm.InBufferCount > 0
        ReDim Preserve arr_return(Count + 1)
        arr_return(Count) = Hex(Asc(frmMDI.comm.Input))
        receiveStr = receiveStr + arr_return(Count)
        Count = Count + 1
    Wend
End Function
Public Function GetData1() As String
    Dim Count As Integer
    Count = 0
    frmMDI.comm.InputLen = 1
    While frmMDI.comm.InBufferCount > 0
        ReDim Preserve arr_return1(Count + 1)
        arr_return1(Count) = Hex(Asc(frmMDI.comm.Input))
        receiveStr1 = receiveStr1 + arr_return1(Count)
        Count = Count + 1
    Wend
End Function
Public Function GetData2() As String
    Dim Count As Integer
    Count = 0
    frmMDI.comm.InputLen = 1
    While frmMDI.comm.InBufferCount > 0
        ReDim Preserve arr_return2(Count + 1)
        arr_return2(Count) = Hex(Asc(frmMDI.comm.Input))
        Count = Count + 1
    Wend
End Function
Public Function GetData11() As String
    Dim Count As Integer
    Count = 0
    frmMDI.comm.InputLen = 1
    While frmMDI.comm.InBufferCount > 0
        ReDim Preserve arr_return11(Count + 1)
        arr_return11(Count) = Hex(Asc(frmMDI.comm.Input))
        Count = Count + 1
    Wend
End Function
Public Function GetData21() As String
    Dim Count As Integer
    Count = 0
    frmMDI.comm.InputLen = 1
    While frmMDI.comm.InBufferCount > 0
        ReDim Preserve arr_return21(Count + 1)
        arr_return21(Count) = Hex(Asc(frmMDI.comm.Input))
        Count = Count + 1
    Wend
End Function
Public Function GetData3() As String
    Dim Count As Integer
    Count = 0
    ReDim arr_return3(0)
    frmMDI.comm.InputLen = 1
    While frmMDI.comm.InBufferCount > 0
        ReDim Preserve arr_return3(Count + 1)
        arr_return3(Count) = Hex(Asc(frmMDI.comm.Input))
        receiveStr3 = receiveStr3 + arr_return3(Count)
        Count = Count + 1
    Wend
End Function
Public Function GetData4() As String
    Dim Count As Integer
    Count = 0