regionutil.frm

M8演示程序

VERSION 5.00
Begin VB.Form RegionUtil 
   Caption         =   "Region Utility - Feb 24 2005"
   ClientHeight    =   6465
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7410
   LinkTopic       =   "Form8"
   ScaleHeight     =   6465
   ScaleWidth      =   7410
   StartUpPosition =   3  'Windows Default
   Begin VB.ComboBox textbox_ModDepth 
      Height          =   315
      Left            =   3240
      TabIndex        =   24
      Text            =   "Combo1"
      Top             =   3480
      Width           =   1215
   End
   Begin VB.TextBox textbox_StepSize 
      Height          =   375
      Left            =   3240
      TabIndex        =   20
      Top             =   2280
      Width           =   1215
   End
   Begin VB.TextBox textbox_MinFreq 
      Height          =   375
      Left            =   3240
      TabIndex        =   18
      Top             =   1800
      Width           =   1215
   End
   Begin VB.TextBox textbox_MaxFreq 
      Height          =   375
      Left            =   3240
      TabIndex        =   16
      Top             =   1320
      Width           =   1215
   End
   Begin VB.Frame CommandFrame 
      Caption         =   "Command"
      Height          =   1695
      Left            =   240
      TabIndex        =   12
      Top             =   4560
      Width           =   6735
      Begin VB.OptionButton option_Mem 
         Caption         =   "Mem"
         Height          =   255
         Left            =   1080
         TabIndex        =   23
         Top             =   360
         Width           =   735
      End
      Begin VB.OptionButton option_Sys 
         Caption         =   "Sys"
         Height          =   255
         Left            =   360
         TabIndex        =   22
         Top             =   360
         Value           =   -1  'True
         Width           =   735
      End
      Begin VB.CommandButton btn_Write 
         Caption         =   "Write"
         Height          =   375
         Left            =   240
         TabIndex        =   15
         Top             =   720
         Width           =   1575
      End
      Begin VB.CommandButton btn_Read 
         Caption         =   "Read"
         Height          =   375
         Left            =   240
         TabIndex        =   14
         Top             =   1200
         Width           =   1575
      End
      Begin VB.Label label_Status 
         Caption         =   "Waiting for Command"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   13.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   1095
         Left            =   2280
         TabIndex        =   13
         Top             =   360
         Width           =   4335
      End
   End
   Begin VB.TextBox textbox_RiseTime 
      Enabled         =   0   'False
      Height          =   375
      Left            =   3240
      TabIndex        =   6
      Top             =   3960
      Width           =   1215
   End
   Begin VB.TextBox textbox_Pwr 
      Height          =   375
      Left            =   3240
      TabIndex        =   5
      Top             =   2880
      Width           =   1215
   End
   Begin VB.TextBox textbox_Freq 
      Height          =   375
      Left            =   3240
      TabIndex        =   4
      Top             =   840
      Width           =   1215
   End
   Begin VB.OptionButton Japan 
      Caption         =   "Japan"
      Height          =   255
      Left            =   480
      TabIndex        =   3
      Top             =   2400
      Width           =   1695
   End
   Begin VB.OptionButton Europe 
      Caption         =   "Europe"
      Height          =   255
      Left            =   480
      TabIndex        =   2
      Top             =   1920
      Width           =   1695
   End
   Begin VB.OptionButton USA 
      Caption         =   "North America"
      Height          =   255
      Left            =   480
      TabIndex        =   1
      Top             =   1440
      Value           =   -1  'True
      Width           =   1695
   End
   Begin VB.Label Label1 
      Caption         =   "Frequency Step Size (kHz)"
      Height          =   255
      Left            =   4680
      TabIndex        =   21
      Top             =   2400
      Width           =   2175
   End
   Begin VB.Label label_MinFreq 
      Caption         =   "Min Frequency (MHz)"
      Height          =   255
      Left            =   4680
      TabIndex        =   19
      Top             =   1920
      Width           =   2175
   End
   Begin VB.Label label_MaxFreq 
      Caption         =   "Max Frequency (MHz)"
      Height          =   255
      Left            =   4680
      TabIndex        =   17
      Top             =   1440
      Width           =   2175
   End
   Begin VB.Label SettingsLabel 
      Caption         =   "Parameter Values"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3240
      TabIndex        =   11
      Top             =   240
      Width           =   2895
   End
   Begin VB.Label label_RiseTime 
      Caption         =   "Rise and Fall Times (ns)"
      Height          =   255
      Left            =   4680
      TabIndex        =   10
      Top             =   3960
      Width           =   1695
   End
   Begin VB.Label label_ModDepth 
      Caption         =   "Modulation Depth (%)"
      Height          =   255
      Left            =   4680
      TabIndex        =   9
      Top             =   3480
      Width           =   2175
      WordWrap        =   -1  'True
   End
   Begin VB.Label label_Pwr 
      Caption         =   "RF Power (dBm)"
      Height          =   255
      Left            =   4680
      TabIndex        =   8
      Top             =   3000
      Width           =   1935
   End
   Begin VB.Label label_Freq 
      Caption         =   "Frequency (MHz)"
      Height          =   255
      Left            =   4680
      TabIndex        =   7
      Top             =   960
      Width           =   1455
   End
   Begin VB.Label Info1 
      Caption         =   "Region Control"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   435
      Left            =   360
      TabIndex        =   0
      Top             =   840
      Width           =   1290
   End
End
Attribute VB_Name = "RegionUtil"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 '****************************************************************************
 '
 '  COPYRIGHT AND PROPRIETARY RIGHTS NOTICES:
 '
 '      Developed by:       SkyeTek, Inc
 '                          2845 Wilderness Place
 '                          Boulder, CO 80301 USA
 '
 '      Copyright (C) 2005 by SkyeTek, Inc.
 '      All rights reserved.
 '
 '      This material contains the valuable properties and trade secrets of
 '      SkyeTek, Inc. of Boulder, Colorado, United States of America
 '      embodying substantial creative efforts and confidential information,
 '      ideas and expressions, no part of which may be reproduced or
 '      transmitted in any form or by any means, electronic, mechanical, or
 '      otherwise, including photocopying and recording or in connection with
 '      any information storage or retrieval system, without the prior
 '      written permission of SkyeTek, Inc.
 '
 '****************************************************************************/


Public Response$  '  ASCII mode response: <LF>response<CR><LF>
Public fwver$
Public serNum$
Public TagType$
Public TagID$
Public demoFile$
Public RID$

Public demoFileName$
Public tagFile$

Public StartingBlock
Public TagBlockLength
Public MaxBLock
Public MaxNumBytes

Public demoLoadedF
Public bootModeF
Public updateF As Boolean

Public uhfF As Boolean
Public uhfON As Boolean

Private FileName(15) As String
Private Linedata(15) As String
Private TagIDnum(15) As String
Private TagFileName(2) As String

Private tagidIndex
Private nextForm

Private byteFreq As Long
Private longTemp As Long

Dim newPwrData As Double
Private retPwrData$
Dim newModVal As Integer

Dim typeOfTag As String
Dim getTIDFlag As Boolean
Dim protocolv2 As Boolean
Dim timeOut As Double
Dim ie As InternetExplorer


Private Sub Form_Load()
   
    If Form1.MSComm1.PortOpen = False Then
        ' detect a reader and set the baud rate
        Call Form1.mnuOptions_Reader_Click
    End If
        
    Form1.MSComm1.InBufferCount = 0
    Form1.MSComm1.RThreshold = 0     ' disable OnComm - polling used at first
    
    Close #1
    
    Call USA_Click
    
End Sub


Private Function setcom() As Boolean
    
    On Error GoTo X:
    Form1.MSComm1.PortOpen = True
    'End Function
X:
End Function

Private Sub btn_Write_Click()
    Dim bytesWritten As Integer
    Dim numTries As Integer
    
    ' Perform 4 consecutive "Write System" commands, one for each
    ' of the 4 text boxes / system parameters:
    '
    ' WRITE SYS COMMAND:
    '