📄 uhf_analysis.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form UHF_Analysis
Caption = "UHF_Analysis"
ClientHeight = 7845
ClientLeft = 60
ClientTop = 450
ClientWidth = 8670
LinkTopic = "Form8"
ScaleHeight = 7845
ScaleWidth = 8670
StartUpPosition = 3 'Windows Default
Begin VB.Frame retryCount
Caption = "Number of samples"
Height = 735
Left = 2400
TabIndex = 36
Top = 2520
Width = 5895
Begin VB.TextBox numTries
Height = 315
Left = 4080
TabIndex = 37
Text = "10"
Top = 240
Width = 1455
End
Begin VB.Label Label2
Caption = "Number of Samples at every Power Level and Freq:"
Height = 255
Left = 240
TabIndex = 38
Top = 360
Width = 3735
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 3960
Top = 7200
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Frame Frame4
Caption = "Output File"
Height = 2055
Left = 4440
TabIndex = 25
Top = 240
Width = 3855
Begin VB.TextBox Text_OutputFilePath
Height = 375
Left = 120
TabIndex = 27
Top = 600
Width = 3615
End
Begin VB.CommandButton Btn_browse
Caption = "Browse"
Height = 375
Left = 1440
TabIndex = 26
Top = 1320
Width = 1095
End
End
Begin VB.TextBox textbox_Freq
Height = 375
Left = 480
TabIndex = 6
Top = 3840
Width = 1215
End
Begin VB.CommandButton Btn_Start
Caption = "Start"
Height = 495
Left = 720
TabIndex = 11
Top = 7200
Width = 1695
End
Begin VB.CommandButton Btn_Stop
Caption = "Stop"
Height = 495
Left = 6000
TabIndex = 10
Top = 7200
Width = 1815
End
Begin VB.TextBox textbox_StepPwr
Height = 375
Left = 4680
TabIndex = 9
Top = 5280
Width = 1215
End
Begin VB.TextBox textbox_MaxPwr
Height = 375
Left = 4680
TabIndex = 8
Top = 4320
Width = 1215
End
Begin VB.TextBox textbox_MinPwr
Height = 375
Left = 4680
TabIndex = 7
Top = 4800
Width = 1215
End
Begin VB.TextBox textbox_Pwr
Height = 375
Left = 4680
TabIndex = 5
Top = 3840
Width = 1215
End
Begin VB.TextBox textbox_RiseTime
Enabled = 0 'False
Height = 375
Left = 2520
TabIndex = 4
Top = 6480
Width = 1215
End
Begin VB.TextBox textbox_MaxFreq
Height = 375
Left = 480
TabIndex = 3
Top = 4320
Width = 1215
End
Begin VB.TextBox textbox_MinFreq
Height = 375
Left = 480
TabIndex = 2
Top = 4800
Width = 1215
End
Begin VB.TextBox textbox_StepFreq
Height = 375
Left = 480
TabIndex = 1
Top = 5280
Width = 1215
End
Begin VB.ComboBox textbox_ModDepth
Height = 315
ItemData = "UHF_Analysis.frx":0000
Left = 2520
List = "UHF_Analysis.frx":0022
TabIndex = 0
Top = 6000
Width = 1215
End
Begin VB.Frame Frame1
Caption = "Test Type"
Height = 2055
Left = 2400
TabIndex = 12
Top = 240
Width = 1695
Begin VB.OptionButton optionEraseTag
Caption = "Erase Tag"
Height = 375
Left = 240
TabIndex = 30
Top = 1560
Width = 1095
End
Begin VB.OptionButton optionWriteTag
Caption = "Write Tag"
Height = 375
Left = 240
TabIndex = 29
Top = 960
Width = 1335
End
Begin VB.OptionButton optionReadTag
Caption = "Read Tag"
Height = 375
Left = 240
TabIndex = 28
Top = 360
Width = 1335
End
End
Begin VB.Frame Frame2
Caption = "Tag Type"
Height = 3015
Left = 360
TabIndex = 13
Top = 240
Width = 1815
Begin VB.OptionButton optionClass1
Caption = "Class 1"
Height = 195
Left = 240
TabIndex = 35
Top = 360
Width = 1335
End
Begin VB.OptionButton optionClass1Gen2
Caption = "Class 1 Gen 2"
Height = 195
Left = 240
TabIndex = 34
Top = 1920
Width = 1335
End
Begin VB.OptionButton optionClass0
Caption = "Class 0 / 0+"
Height = 255
Left = 240
TabIndex = 33
Top = 1320
Width = 1215
End
Begin VB.OptionButton option18000_6B
Caption = "ISO18000-6B"
Height = 255
Left = 240
TabIndex = 32
Top = 2520
Width = 1335
End
Begin VB.CheckBox check96
Caption = "96-bit Tag"
Height = 255
Left = 480
TabIndex = 31
Top = 720
Width = 1095
End
End
Begin VB.Frame Frame3
Caption = "Reader Parameters"
Height = 3735
Left = 360
TabIndex = 14
Top = 3360
Width = 7935
Begin VB.Label label_RiseTime
Caption = "Rise and Fall Times (ns)"
Height = 255
Left = 3480
TabIndex = 24
Top = 3120
Width = 1695
End
Begin VB.Label label_ModDepth
Caption = "Modulation Depth (%)"
Height = 255
Left = 3480
TabIndex = 23
Top = 2640
Width = 1695
WordWrap = -1 'True
End
Begin VB.Label Label4
Caption = "RF Power Step Size (dBm)"
Height = 255
Left = 5640
TabIndex = 22
Top = 2040
Width = 1935
End
Begin VB.Label Label7
Caption = "Min RF Power (dBm)"
Height = 255
Left = 5640
TabIndex = 21
Top = 1560
Width = 1935
End
Begin VB.Label Label6
Caption = "Max RF Power (dBm)"
Height = 255
Left = 5640
TabIndex = 20
Top = 1080
Width = 1935
End
Begin VB.Label label_Pwr
Caption = "RF Power (dBm)"
Height = 255
Left = 5640
TabIndex = 19
Top = 600
Width = 1935
End
Begin VB.Label Label1
Caption = "Frequency Step Size (kHz)"
Height = 255
Left = 1440
TabIndex = 18
Top = 2040
Width = 2175
End
Begin VB.Label label_MinFreq
Caption = "Min Frequency (MHz)"
Height = 255
Left = 1440
TabIndex = 17
Top = 1560
Width = 2175
End
Begin VB.Label label_MaxFreq
Caption = "Max Frequency (MHz)"
Height = 255
Left = 1440
TabIndex = 16
Top = 1080
Width = 2175
End
Begin VB.Label label_Freq
Caption = "Frequency (MHz)"
Height = 255
Left = 1440
TabIndex = 15
Top = 600
Width = 1455
End
End
End
Attribute VB_Name = "UHF_Analysis"
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 BrowseFileName$
Dim FileNamePath As String
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -