frm_gsm_gps.frm

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

VERSION 5.00
Begin VB.Form Frm_GSM_GPS 
   Caption         =   "蓝宇控件测试"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command3 
      Caption         =   "Command3"
      Height          =   375
      Left            =   720
      TabIndex        =   5
      Top             =   2760
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   495
      Left            =   2640
      TabIndex        =   4
      Top             =   2280
      Width           =   1575
   End
   Begin VB.TextBox Text2 
      Height          =   2295
      Left            =   2280
      MultiLine       =   -1  'True
      TabIndex        =   3
      Text            =   "Frm_GSM_GPS.frx":0000
      Top             =   0
      Width           =   2295
   End
   Begin VB.TextBox Text1 
      Height          =   975
      Left            =   240
      TabIndex        =   2
      Text            =   "Text1"
      Top             =   840
      Width           =   1815
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   360
      TabIndex        =   1
      Top             =   2160
      Width           =   1695
   End
   Begin LyGsmGps.Ly_Gsm_Gps LyGsmGps 
      Height          =   1530
      Left            =   1440
      TabIndex        =   0
      Top             =   360
      Visible         =   0   'False
      Width           =   1770
      _extentx        =   3122
      _extenty        =   2699
      gpsport         =   1
      gps_refresh     =   0
      gsm_info_refresh=   0
   End
   Begin VB.Image Image1 
      Height          =   495
      Left            =   480
      Top             =   120
      Width           =   495
   End
End
Attribute VB_Name = "Frm_GSM_GPS"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
LyGsmGps.GpsPort = 3
LyGsmGps.Gps_Type = 0
LyGsmGps.GpsPortSettings = "4800,n,8,1"
LyGsmGps.Gps_Refresh = 2
LyGsmGps.GpsCall = 4
If LyGsmGps.GpsPortOpen = False Then
    LyGsmGps.GpsPortOpen = True
Else
    LyGsmGps.GpsPortOpen = False
End If
Text1 = LyGsmGps.GpsPortOpen
LyGsmGps.Gsm_Info_Refresh = 3
End Sub

Private Sub Command2_Click()
LyGsmGps.GpsPort = 3
LyGsmGps.Gps_Type = 1
LyGsmGps.GpsPortSettings = "9600,n,8,1"
LyGsmGps.Gps_Refresh = 2
LyGsmGps.GpsCall = 4
If LyGsmGps.GpsPortOpen = False Then
    LyGsmGps.GpsPortOpen = True
Else
    LyGsmGps.GpsPortOpen = False
End If
Text1 = LyGsmGps.GpsPortOpen
LyGsmGps.Gsm_Info_Refresh = 3

End Sub

Sub lygsmgps_gsminfo(a As Integer, b As String)
Text1.Text = a
End Sub
Sub lygsmgps_commdate(aa As Integer)
Image1.Picture = LoadPicture(App.Path & "\imgcomm\misc1" & Right(Str(aa), 1) & ".ico")
End Sub

Sub lygsmgps_gPSinfo(FlagDW As Integer, WeiDu As Double, JingDu As Double, GaoDu As Double, SuDu As Double, HangXiang As Double, RiQi As String, ShiJian As String, SYTime As Integer, SYJuli As Integer)
    Text2.Text = WeiDu & vbCrLf & JingDu & vbCrLf & GaoDu & vbCrLf & SuDu & vbCrLf & HangXiang & vbCrLf & ShiJian & vbCrLf & RiQi & vbCrLf & SYTime & vbCrLf & SYJuli & vbCrLf & FlagDW
    
End Sub