gpsout.frm

利用vb的Ｍscomm控件实现全站仪及ＧＰＳ的数据通信程序

VERSION 5.00
Begin VB.Form GPS 
   BackColor       =   &H8000000E&
   Caption         =   "GPS数据发送"
   ClientHeight    =   1410
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3000
   LinkTopic       =   "Form1"
   ScaleHeight     =   1410
   ScaleWidth      =   3000
   StartUpPosition =   3  '窗口缺省
   Begin VB.Label lable1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "GPS数据发送"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   375
      Left            =   480
      TabIndex        =   0
      Top             =   480
      Width           =   2175
   End
End
Attribute VB_Name = "GPS"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim strINIFileName As String, strSecName As String
Dim strKey As String, strINI(1 To 18) As String
Dim iniI As Integer

Private Sub Form_Load()
strINIFileName = App.Path & "\GPS数据.ini"
strSecName = "虚拟GPS"
strKey = "Key"
strINI(1) = "$GPGGA,162411,3800.1238,N,11700.3859,E,1,06,0.01,5.1,M,-3,2,M,,*63"
strINI(2) = "$GPGGA,162412,3801.1238,N,11701.3859,E,1,06,0.02,5.1,M,-3,2,M,,*63"
strINI(3) = "$GPGGA,162413,3802.1238,N,11700.3859,E,1,06,0.03,5.1,M,-3,2,M,,*63"
strINI(4) = "$GPGGA,162414,3803.1238,N,11700.3859,E,1,06,0.04,5.1,M,-3,2,M,,*63"
strINI(5) = "$GPGGA,162415,3804.1238,N,11700.3859,E,1,06,0.05,5.1,M,-3,2,M,,*63"
strINI(6) = "$GPGGA,162416,3805.1238,N,11700.3859,E,1,06,0.06,5.1,M,-3,2,M,,*63"
strINI(7) = "$GPGGA,162417,3806.1238,N,11700.3859,E,1,06,0.07,5.1,M,-3,2,M,,*63"
For iniI = 1 To 18
     WritePrivateProfileString strSecName, strKey & iniI, strINI(iniI), strINIFileName
Next iniI
     
     

End Sub