form1.frm

M8演示程序

            Left            =   240
            TabIndex        =   8
            Top             =   5160
            Width           =   1215
         End
      End
      Begin VB.Frame frame_Picture 
         Caption         =   "Picture"
         Height          =   5535
         Left            =   5280
         TabIndex        =   21
         Top             =   1920
         Width           =   6255
         Begin VB.CommandButton btn_Link 
            Caption         =   "Link"
            Height          =   255
            Left            =   240
            TabIndex        =   9
            Top             =   5160
            Width           =   1215
         End
         Begin VB.CommandButton btn_FullScreen 
            Caption         =   "Full Screen"
            Height          =   255
            Left            =   4680
            TabIndex        =   11
            Top             =   5160
            Width           =   1215
         End
         Begin VB.CommandButton btn_Unlink 
            Caption         =   "Unlink"
            Height          =   255
            Left            =   1680
            TabIndex        =   10
            Top             =   5160
            Width           =   1215
         End
         Begin VB.Image Image1 
            Height          =   5295
            Left            =   120
            Stretch         =   -1  'True
            Top             =   240
            Width           =   6015
         End
      End
   End
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      WindowList      =   -1  'True
      Begin VB.Menu mnuFile_NewDemo 
         Caption         =   "&New Demo"
      End
      Begin VB.Menu mnuFile_SaveAs 
         Caption         =   "Save Demo &As"
      End
      Begin VB.Menu mnuFile_OpenDemo 
         Caption         =   "&Open Demo"
      End
      Begin VB.Menu mnuFile_Exit 
         Caption         =   "E&xit"
      End
   End
   Begin VB.Menu mnuOptions_Options 
      Caption         =   "Options"
      Begin VB.Menu mnuOptions_Logo 
         Caption         =   "&Logo"
      End
      Begin VB.Menu mnuOptions_Reader 
         Caption         =   "&Reset Reader"
      End
      Begin VB.Menu mnuOptions_RegionUtil 
         Caption         =   "Region &Utility"
         Index           =   5
      End
      Begin VB.Menu mnuOptions_ProtocolCommandBuilder 
         Caption         =   "&Protocol Command Builder"
      End
      Begin VB.Menu mnuOptions_LCD 
         Caption         =   "&LCD"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuOptions_UHFDemo 
         Caption         =   "UHF &Demo"
      End
      Begin VB.Menu mnuOptions_UHF_Analysis 
         Caption         =   "UHF Analysis"
         Enabled         =   0   'False
         Visible         =   0   'False
      End
      Begin VB.Menu mnuOptions_ExtendedMem 
         Caption         =   "&Extended Memory"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuOptions_UpdateFirmware 
         Caption         =   "Update Reader &Firmware"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "&Help"
      Begin VB.Menu mnuHelp_About 
         Caption         =   "&About SkyeWare"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 '****************************************************************************
 '
 '  COPYRIGHT AND PROPRIETARY RIGHTS NOTICES:
 '
 '      Developed by:       SkyeTek, LLC
 '                          2845 Wilderness Place
 '                          Boulder, CO 80301 USA
 '
 '      Copyright (C) 2003-2005 by SkyeTek, LLC.
 '      All rights reserved.
 '
 '      This material contains the valuable properties and trade secrets of
 '      SkyeTek, LLC 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, LLC.
 '
 '****************************************************************************/


Public Response$  '  ASCII mode response: <LF>response<CR><LF>
Public fwverH$
Public fwverL$
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
Public demoLOOP 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

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

Public M8detected As Boolean
Public M1detected As Boolean
Public M1Minidetected As Boolean
Public H3detected As Boolean

Private Sub btn_C210_Click()
'Dim ie As InternetExplorer
'Set ie = New InternetExplorer

ie.Visible = True
ie.AddressBar = False
ie.MenuBar = False
ie.StatusBar = False
ie.ToolBar = False
ie.Navigate App.Path & "\tagList.htm#GemWaveC210"

'ie.Navigate "http://www.google.com"
End Sub

Private Sub btn_C240_Click()
'Dim ie As InternetExplorer
'Set ie = New InternetExplorer

ie.Visible = True
ie.AddressBar = False
ie.MenuBar = False
ie.StatusBar = False
ie.ToolBar = False
ie.Navigate App.Path & "\tagList.htm#GemWaveC240"

'ie.Navigate "http://www.google.com"
End Sub

Private Sub btn_HF_Click()
'Dim ie As InternetExplorer
'Set ie = New InternetExplorer

' Open the Internet Explorer Window if not open
openIExplorer (App.Path & "\tagList.htm#TagItHF")

'ie.Navigate App.Path & "\tagList.htm#TagItHF"

'ie.Navigate "http://www.google.com"
End Sub

Private Sub btn_HFI_Click()
'Dim ie As InternetExplorer
'Set ie = New InternetExplorer

' Open the Internet Explorer Window if not open
openIExplorer (App.Path & "\tagList.htm#TagItHFI")

'ie.Navigate App.Path & "\tagList.htm#TagItHFI"

'ie.Navigate "http://www.google.com"
End Sub

Private Sub btn_LRI512_Click()
'Dim ie As InternetExplorer
'Set ie = New InternetExplorer

' Open the Internet Explorer Window if not open
openIExplorer (App.Path & "\tagList.htm#LRI512")

'ie.Navigate App.Path & "\tagList.htm#LRI512"

'ie.Navigate "http://www.google.com"
End Sub

Private Sub btn_mifare_Click()
'Dim ie As InternetExplorer
'Set ie = New InternetExplorer

' Open the Internet Explorer Window if not open
openIExplorer (App.Path & "\tagList.htm#Mifare")

'ie.Navigate App.Path & "\tagList.htm#Mifare"

'ie.Navigate "http://www.google.com"
End Sub

Private Sub btn_myd02_Click()
'Dim ie As InternetExplorer
'Set ie = New InternetExplorer

' Open the Internet Explorer Window if not open
openIExplorer (App.Path & "\tagList.htm#myD2K")

'ie.Navigate App.Path & "\tagList.htm#myD2K"

'ie.Navigate "http://www.google.com"
End Sub

Private Sub btn_myd10_Click()
'Dim ie As InternetExplorer
'Set ie = New InternetExplorer

' Open the Internet Explorer Window if not open
openIExplorer (App.Path & "\tagList.htm#myD10K")

'ie.Navigate App.Path & "\tagList.htm#myD10K"

'ie.Navigate "http://www.google.com"
End Sub

Private Sub btn_pico16K_Click()
'Dim ie As InternetExplorer
'Set ie = New InternetExplorer

ie.Visible = True
ie.AddressBar = False
ie.MenuBar = False
ie.StatusBar = False
ie.ToolBar = False
ie.Navigate App.Path & "\tagList.htm#PicoTag16K"

'ie.Navigate "http://www.google.com"
End Sub

Private Sub btn_pico2K_Click()
'Dim ie As InternetExplorer
'Set ie = New InternetExplorer

' Open the Internet Explorer Window if not open
openIExplorer (App.Path & "\tagList.htm#PicoTag2K")

'ie.Navigate App.Path & "\tagList.htm#PicoTag2K"

'ie.Navigate "http://www.google.com"
End Sub

Private Sub btn_SL1_Click()
'Dim ie As InternetExplorer
'Set ie = New InternetExplorer

' Open the Internet Explorer Window if not open
openIExplorer (App.Path & "\tagList.htm#ICode1")

'ie.Navigate App.Path & "\tagList.htm#ICode1"

'ie.Navigate "http://www.google.com"
End Sub


Private Sub btn_UHF_Tag_Click()

    textbox_Read.Text = ""
    textbox_TagID.Text = ""
    textbox_TagIDList.Text = ""

    If MSComm1.PortOpen = False Then
        Exit Sub
    End If

    If checkbox_tagidcontinuous.Enabled = True Then
        checkbox_tagidcontinuous.Value = 1
        checkbox_tagidcontinuous.Enabled = False
        checkbox_anticollision.Enabled = False
                
        uhfON = True
        label_NoReader.Visible = False
        textbox_TagIDList.Enabled = False
        textbox_TagIDList.Visible = False
        label_Status.Visible = True
        label_Status.FontName = "MS Sans Serif"
        label_Status.FontSize = 16
        
        label_Status.Caption = "No Tag Detected"
        
        'Send the command to the M3 to start scanning for tags
        MSComm1.Output = vbCr & "011401" & vbCr
        
        If GetResponse() = True Then
            If Mid(Response$, 2, 2) <> "1C" Then
                Exit Sub
            End If
        End If
        
        btn_Link.Enabled = False
        btn_Unlink.Enabled = False
        btn_FullScreen.Enabled = False
        
        btn_Link.Visible = False
        btn_Unlink.Visible = False
        btn_FullScreen.Visible = False
        
        Set Image1.Picture = LoadPicture(TagFileName(2))
        
        ' Now enable the OnComm Events
        MSComm1.RThreshold = 1  'Now enable OnComm to handle Loop Mode
        
    Else
        checkbox_tagidcontinuous.Value = 0
        checkbox_tagidcontinuous.Enabled = True
        checkbox_anticollision.Enabled = True
        
        ' Diasble the OnComm Events
        MSComm1.RThreshold = 0  ' disable OnComm
        MSComm1.InBufferCount = 0 ' clear the rx buffer in case a tag id was coming through just as we get here
        
        MSComm1.Output = vbCr & "011401" & vbCr
        
        If GetResponse() = True Then
            If Mid(Response$, 2, 2) <> "9C" Then
                Exit Sub
            End If
        End If
        
        ' Diasble the OnComm Events
        MSComm1.RThreshold = 0  ' disable OnComm
        MSComm1.InBufferCount = 0 ' clear the rx buffer in case a tag id was coming through just as we get here