ly_gsm_gps.ctl

基于西门子手机开发的短信发送接收控件

            DoEvents
        End If
    'GoTo 1
    Exit Sub
'$GPGGA,101657,3503.1271,N,11820.9880,E,1,07,1.1,90.3,M,90.3,M,0.0,0000*5C
'$GPGSA,A,3,04,07,24,20,28,01,13,05,10,,,,1.8,1.1,1.5*35
'$GPGSV,3,1,09,04,60,308,34,07,76,082,43,24,35,274,43,20,22,037,00*77
'$GPGSV,3,2,09,28,21,178,37,01,19,078,36,13,20,120,36,05,15,315,35*77
'$GPGSV,3,3,09,10,06,219,00,,,,,,,,,,,,*4D
'$GPRM C,101 657,A ,3503 .1271 ,N,11 820.9 880,E ,0.00 ,0.00 ,1401 03,0. 0,W*6 4
'$GPGGA,101658,3503.1270,N,11820.9880,E,1,07,1.1,90.5,M,90.5,M,0.0,0000*52
err1:
    Call ShowError
End Sub

'注意！不要删除或修改下列被注释的行！
'MemberInfo=7,0,0,1
Public Property Get GsmPort() As Integer
    GsmPort = m_GsmPort
    Com_Gsm.CommPort = GsmPort
End Property

Public Property Let GsmPort(ByVal New_GsmPort As Integer)
    m_GsmPort = New_GsmPort
    PropertyChanged "GsmPort"
    Com_Gsm.CommPort = GsmPort
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=7,0,0,3
Public Property Get GpsPort() As Integer
    GpsPort = m_GpsPort
'    Com_Gps.CommPort = GpsPort
End Property

Public Property Let GpsPort(ByVal New_GpsPort As Integer)
    m_GpsPort = New_GpsPort
    PropertyChanged "GpsPort"
    If Com_Gps.PortOpen = True Then
        Com_Gps.PortOpen = False
        Com_Gps.CommPort = GpsPort
        Com_Gps.PortOpen = True
    Else
        Com_Gps.CommPort = GpsPort
    End If
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=0,0,0,0
Public Property Get GsmPortOpen() As Boolean
    GsmPortOpen = m_GsmPortOpen
'    If Not Com_Gsm.PortOpen = GsmPortOpen Then Com_Gsm.PortOpen = GsmPortOpen
End Property

Public Property Let GsmPortOpen(ByVal New_GsmPortOpen As Boolean)
    If Ambient.UserMode = False Then Exit Property 'Err.Raise 387
    m_GsmPortOpen = New_GsmPortOpen
    PropertyChanged "GsmPortOpen"
    If Not Com_Gsm.PortOpen = GsmPortOpen Then Com_Gsm.PortOpen = GsmPortOpen
End Property
'

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,19200,n,8,1
Public Property Get GsmPortSettings() As String
    GsmPortSettings = m_GsmPortSettings
    Com_Gsm.Settings = GsmPortSettings
End Property

Public Property Let GsmPortSettings(ByVal New_GsmPortSettings As String)
    m_GsmPortSettings = New_GsmPortSettings
    PropertyChanged "GsmPortSettings"
    Com_Gsm.Settings = GsmPortSettings
    If GpsPortOpen = True Then GpsPortOpen = False: GpsPortOpen = True
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,4800,n,8,1
Public Property Get GpsPortSettings() As String
    GpsPortSettings = m_GpsPortSettings
    Com_Gps.Settings = GpsPortSettings
End Property

Public Property Let GpsPortSettings(ByVal New_GpsPortSettings As String)
    m_GpsPortSettings = New_GpsPortSettings
    PropertyChanged "GpsPortSettings"
    Com_Gps.Settings = GpsPortSettings
    If GpsPortOpen = True Then GpsPortOpen = False: GpsPortOpen = True
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,[phone]
Public Property Get Gsm_Sms_CSCA() As String
    Gsm_Sms_CSCA = m_Gsm_Sms_CSCA
End Property

Public Property Let Gsm_Sms_CSCA(ByVal New_Gsm_Sms_CSCA As String)
    m_Gsm_Sms_CSCA = New_Gsm_Sms_CSCA
    PropertyChanged "Gsm_Sms_CSCA"
End Property
'
''注意！不要删除或修改下列被注释的行！
''MemberInfo=7,0,0,60
'Public Property Get Gsm_Info_Refresh() As Integer
'    Gsm_Info_Refresh = m_Gsm_Info_Refresh
'    Tmr_GsmInfo.Interval = Gsm_Info_Refresh * 1000
'End Property
'
'Public Property Let Gsm_Info_Refresh(ByVal New_Gsm_Info_Refresh As Integer)
'    m_Gsm_Info_Refresh = New_Gsm_Info_Refresh
'    PropertyChanged "Gsm_Info_Refresh"
'    Tmr_GsmInfo.Interval = Gsm_Info_Refresh * 1000
'End Property
'MemberInfo=7,0,0,0
Public Property Get Gps_Type() As Integer
    Gps_Type = m_Gps_Type
End Property

Public Property Let Gps_Type(ByVal New_Gps_Type As Integer)
    m_Gps_Type = New_Gps_Type
    PropertyChanged "Gps_Type"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=7,0,0,5
Public Property Get Gps_Refresh() As Integer
    Gps_Refresh = m_Gps_Refresh
End Property

Public Property Let Gps_Refresh(ByVal New_Gps_Refresh As Integer)
    m_Gps_Refresh = New_Gps_Refresh
    PropertyChanged "Gps_Refresh"
    If Gps_Refresh > 65 Then Gps_Refresh = 65
    Tmr_Gps_Refresh.Interval = 1000# * m_Gps_Refresh
    If Tmr_Gps_Refresh.Interval <> 0 Then Tmr_Gps_Refresh.Enabled = False: Tmr_Gps_Refresh.Enabled = True Else Tmr_Gps_Refresh.Enabled = False
End Property
'为用户控件初始化属性
Private Sub UserControl_InitProperties()
    m_GsmPort = m_def_GsmPort
    m_GpsPort = m_def_GpsPort
    m_GsmPortOpen = m_def_GsmPortOpen
    m_GsmPortSettings = m_def_GsmPortSettings
    m_GpsPortSettings = m_def_GpsPortSettings
    m_Gsm_Sms_CSCA = m_def_Gsm_Sms_CSCA
    m_Gsm_Info = m_def_Gsm_Info
    m_Gps_Type = m_def_Gps_Type
    m_Gps_Refresh = m_def_Gps_Refresh
    m_GpsPortOpen = m_def_GpsPortOpen
    m_Gsm_Sms_AutoDel = m_def_Gsm_Sms_AutoDel
    m_Gsm_Info_Refresh = m_def_Gsm_Info_Refresh
    m_GpsCall = m_def_GpsCall
End Sub

'从存贮器中加载属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

    m_GsmPort = PropBag.ReadProperty("GsmPort", m_def_GsmPort)
    m_GpsPort = PropBag.ReadProperty("GpsPort", m_def_GpsPort)
    m_GsmPortOpen = PropBag.ReadProperty("GsmPortOpen", m_def_GsmPortOpen)
    m_GsmPortSettings = PropBag.ReadProperty("GsmPortSettings", m_def_GsmPortSettings)
    m_GpsPortSettings = PropBag.ReadProperty("GpsPortSettings", m_def_GpsPortSettings)
    m_Gsm_Sms_CSCA = PropBag.ReadProperty("Gsm_Sms_CSCA", m_def_Gsm_Sms_CSCA)
    m_Gsm_Info = PropBag.ReadProperty("Gsm_Info", m_def_Gsm_Info)
    m_Gps_Type = PropBag.ReadProperty("Gps_Type", m_def_Gps_Type)
    m_Gps_Refresh = PropBag.ReadProperty("Gps_Refresh", m_def_Gps_Refresh)
    m_GpsPortOpen = PropBag.ReadProperty("GpsPortOpen", m_def_GpsPortOpen)
    m_Gsm_Sms_AutoDel = PropBag.ReadProperty("Gsm_Sms_AutoDel", m_def_Gsm_Sms_AutoDel)
    m_Gsm_Info_Refresh = PropBag.ReadProperty("Gsm_Info_Refresh", m_def_Gsm_Info_Refresh)
    m_GpsCall = PropBag.ReadProperty("GpsCall", m_def_GpsCall)
    Com_Gsm.Settings = m_GsmPortSettings
    Com_Gsm.CommPort = m_GsmPort
    If Not Com_Gsm.PortOpen = m_GsmPortOpen Then Com_Gsm.PortOpen = m_GsmPortOpen
    Com_Gps.Settings = m_GpsPortSettings
    Com_Gps.CommPort = m_GpsPort
    If Not Com_Gps.PortOpen = m_GpsPortOpen Then Com_Gps.PortOpen = m_GpsmPortOpen
    
    If Gsm_Info_Refresh > 65 Then Gsm_Info_Refresh = 65
    If Gps_Refresh > 65 Then Gps_Refresh = 65
    If GpsCall > 65 Then GpsCall = 65
    
    Tmr_GsmInfo.Interval = 1000# * m_Gsm_Info_Refresh
    Tmr_Gps_Refresh.Interval = 1000# * m_Gps_Refresh
    Tmr_Gps_Call.Interval = 1000# * m_GpsCall
    If Tmr_GsmInfo.Interval = 0 Then Tmr_GsmInfo.Enabled = False Else Tmr_GsmInfo.Enabled = True
    If Tmr_Gps_Refresh.Interval = 0 Then Tmr_Gps_Refresh.Enabled = False Else Tmr_Gps_Refresh.Enabled = True
    If Tmr_Gps_Call.Interval = 0 Then Tmr_Gps_Call.Enabled = False Else Tmr_Gps_Call.Enabled = True
End Sub

'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

    Call PropBag.WriteProperty("GsmPort", m_GsmPort, m_def_GsmPort)
    Call PropBag.WriteProperty("GpsPort", m_GpsPort, m_def_GpsPort)
    Call PropBag.WriteProperty("GsmPortOpen", m_GsmPortOpen, m_def_GsmPortOpen)
    Call PropBag.WriteProperty("GsmPortSettings", m_GsmPortSettings, m_def_GsmPortSettings)
    Call PropBag.WriteProperty("GpsPortSettings", m_GpsPortSettings, m_def_GpsPortSettings)
    Call PropBag.WriteProperty("Gsm_Sms_CSCA", m_Gsm_Sms_CSCA, m_def_Gsm_Sms_CSCA)
    Call PropBag.WriteProperty("Gsm_Info", m_Gsm_Info, m_def_Gsm_Info)
    Call PropBag.WriteProperty("Gps_Type", m_Gps_Type, m_def_Gps_Type)
    Call PropBag.WriteProperty("Gps_Refresh", m_Gps_Refresh, m_def_Gps_Refresh)
    Call PropBag.WriteProperty("GpsPortOpen", m_GpsPortOpen, m_def_GpsPortOpen)
    Call PropBag.WriteProperty("Gsm_Sms_AutoDel", m_Gsm_Sms_AutoDel, m_def_Gsm_Sms_AutoDel)
    Call PropBag.WriteProperty("Gsm_Info_Refresh", m_Gsm_Info_Refresh, m_def_Gsm_Info_Refresh)
    Call PropBag.WriteProperty("GpsCall", m_GpsCall, m_def_GpsCall)
End Sub

'注意！不要删除或修改下列被注释的行！
'MemberInfo=0,0,1,0
Public Property Get GpsPortOpen() As Boolean
    GpsPortOpen = m_GpsPortOpen
'    If Not Com_Gps.PortOpen = GpsPortOpen Then Com_Gps.PortOpen = GpsPortOpen
End Property

Public Property Let GpsPortOpen(ByVal New_GpsPortOpen As Boolean)
    If Ambient.UserMode = False Then Exit Property 'Err.Raise 387
    m_GpsPortOpen = New_GpsPortOpen
    PropertyChanged "GpsPortOpen"
    If Not Com_Gps.PortOpen = GpsPortOpen Then Com_Gps.PortOpen = GpsPortOpen
    
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=0,0,0,0
Public Property Get Gsm_Sms_AutoDel() As Boolean
    Gsm_Sms_AutoDel = m_Gsm_Sms_AutoDel
End Property

Public Property Let Gsm_Sms_AutoDel(ByVal New_Gsm_Sms_AutoDel As Boolean)
    m_Gsm_Sms_AutoDel = New_Gsm_Sms_AutoDel
    PropertyChanged "Gsm_Sms_AutoDel"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=7,0,0,60
Public Property Get Gsm_Info_Refresh() As Integer
    Gsm_Info_Refresh = m_Gsm_Info_Refresh
End Property

Public Property Let Gsm_Info_Refresh(ByVal New_Gsm_Info_Refresh As Integer)
    m_Gsm_Info_Refresh = New_Gsm_Info_Refresh
    PropertyChanged "Gsm_Info_Refresh"
    If Gsm_Info_Refresh > 65 Then Gsm_Info_Refresh = 65
    Tmr_GsmInfo.Interval = 1000# * Gsm_Info_Refresh
    If Gsm_Info_Refresh <> 0 Then Tmr_GsmInfo.Enabled = False: Tmr_GsmInfo.Enabled = True Else Tmr_GsmInfo.Enabled = False
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=7
Public Function Gsm_SendSms(MuBiaoNo As String, SmsNeiRong As String, SmsBaoGao As Integer, SmsShanCun As Integer, SendSave As Integer) As Integer

End Function

'注意！不要删除或修改下列被注释的行！
'MemberInfo=7
Public Function Gsm_ReadSms(SuoYinNo As Integer, SmsType As Integer) As Integer

End Function

'注意！不要删除或修改下列被注释的行！
'MemberInfo=7
Public Function Gsm_DelSms(SuoYinNo As Integer, SmsType As Integer) As Integer

End Function

'注意！不要删除或修改下列被注释的行！
'MemberInfo=7
Public Function Gsm_ATSend(ATStr As String) As Integer

End Function

'注意！不要删除或修改下列被注释的行！
'MemberInfo=7,0,0,60
Public Property Get GpsCall() As Integer
    GpsCall = m_GpsCall
End Property

Public Property Let GpsCall(ByVal New_GpsCall As Integer)
    m_GpsCall = New_GpsCall
    PropertyChanged "GpsCall"
    If GpsCall > 65 Then GpsCall = 65
    Tmr_Gps_Call.Interval = 1000# * GpsCall
    If GpsCall <> 0 Then Tmr_Gps_Call.Enabled = False: Tmr_Gps_Call.Enabled = True Else Tmr_Gps_Call.Enabled = False

End Property