form1.vb

Windows CE source code for chapter 16 in the windoes CE programming book. This contains all of the s

Public Class Form1
    Dim WithEvents m_PhidgetIO As Phidgets.InterfaceKit
    Dim WithEvents m_PhidgetLCD As Phidgets.TextLCD
    Dim WithEvents m_PhidgetRFID As Phidgets.RFID
    Dim bool_Admin As Boolean
    Dim bool_PhidgetIOAttached As Boolean
    Dim bool_PhidgetRFIDAttached As Boolean
    Dim bool_PhidgetRFIDAtennaOn As Boolean

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '
        bool_Admin = False
        bool_PhidgetIOAttached = False
        bool_PhidgetRFIDAttached = False
        '
        m_PhidgetIO = New Phidgets.InterfaceKit
        m_PhidgetIO.open()
        '
        m_PhidgetLCD = New Phidgets.TextLCD
        m_PhidgetLCD.open()
        '
        m_PhidgetRFID = New Phidgets.RFID
        m_PhidgetRFID.open()
        '
        Dim dt As Date = DateTime.Now
        labelTime.Text = dt.ToString("G")
        '
        labelRelay.Text = "OFF"
        rbtnNormal.Checked = True
        rbtnAdmin.Checked = False
        TextBox1.Text = ""
        '
        Button1.Text = "Turn On RFID"
        '
        Timer1.Interval = 5000
        Timer1.Enabled = True
        '
    End Sub

    Private Sub PhidgetRFID_Attach(ByVal sender As Object, ByVal e As Phidgets.Events.AttachEventArgs) Handles m_PhidgetRFID.Attach
        '
        bool_PhidgetRFIDAttached = True

        Dim s As String = "Attached: " + e.Device.Name + " " + e.Device.SerialNumber.ToString()
        Me.Invoke(New PrintGUI_delegate(AddressOf PrintGUI_TextBox1), s)
    End Sub

    Private Sub PhidgetLCD_Attach(ByVal sender As Object, ByVal e As Phidgets.Events.AttachEventArgs) Handles m_PhidgetLCD.Attach
        '
        m_PhidgetLCD.rows.Item(0).DisplayString = "Windows CE 6.0"
        m_PhidgetLCD.rows.Item(1).DisplayString = "RFID Application"
        '
        Dim s As String = "Attached: " + e.Device.Name + " " + e.Device.SerialNumber.ToString()
        Me.Invoke(New PrintGUI_delegate(AddressOf PrintGUI_TextBox1), s)
        '
    End Sub

    Private Sub PhidgetIO_Attach(ByVal sender As Object, ByVal e As Phidgets.Events.AttachEventArgs) Handles m_PhidgetIO.Attach
        '
        bool_PhidgetIOAttached = True
        m_PhidgetIO.outputs(0) = False
        m_PhidgetIO.ratiometric = True
        '
        bool_PhidgetIOAttached = True
        Dim s As String = "Attached: " + e.Device.Name + " " + e.Device.SerialNumber.ToString()
        Me.Invoke(New PrintGUI_delegate(AddressOf PrintGUI_TextBox1), s)
        '
    End Sub

    Private Sub PhidgetRFID_Detach(ByVal sender As Object, ByVal e As Phidgets.Events.DetachEventArgs) Handles m_PhidgetRFID.Detach
        '
        bool_PhidgetRFIDAttached = False
        Dim s As String = "Detached: " + e.Device.Name + " " + e.Device.SerialNumber.ToString()
        Me.Invoke(New PrintGUI_delegate(AddressOf PrintGUI_TextBox1), s)
    End Sub

    Private Sub PhidgetLCD_Detach(ByVal sender As Object, ByVal e As Phidgets.Events.DetachEventArgs) Handles m_PhidgetLCD.Detach
        '
        Dim s As String = "Detached: " + e.Device.Name + " " + e.Device.SerialNumber.ToString()
        Me.Invoke(New PrintGUI_delegate(AddressOf PrintGUI_TextBox1), s)
        '
    End Sub

    Private Sub PhidgetIO_Detach(ByVal sender As Object, ByVal e As Phidgets.Events.DetachEventArgs) Handles m_PhidgetIO.Detach
        '
        bool_PhidgetIOAttached = False
        Dim s As String = "Detached: " + e.Device.Name + " " + e.Device.SerialNumber.ToString()
        Me.Invoke(New PrintGUI_delegate(AddressOf PrintGUI_TextBox1), s)
        '
    End Sub

    Protected Delegate Sub PrintGUI_delegate(ByVal arg As String)
    Private Sub PrintGUI_labelTime(ByVal arg As String)
        labelTime.Text = arg
    End Sub

    Private Sub PrintGUI_labelRelay(ByVal arg As String)
        labelRelay.Text = arg
    End Sub

    Private Sub PrintGUI_TextBox1(ByVal arg As String)
        TextBox1.Text = arg + vbNewLine + TextBox1.Text
    End Sub

    Private Sub Form1_Closing(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        RemoveHandler m_PhidgetIO.Attach, AddressOf PhidgetIO_Attach
        RemoveHandler m_PhidgetIO.Detach, AddressOf PhidgetIO_Detach

        RemoveHandler m_PhidgetLCD.Attach, AddressOf PhidgetLCD_Attach
        RemoveHandler m_PhidgetLCD.Detach, AddressOf PhidgetLCD_Detach

        RemoveHandler m_PhidgetRFID.Attach, AddressOf PhidgetRFID_Attach
        RemoveHandler m_PhidgetRFID.Detach, AddressOf PhidgetRFID_Detach

        m_PhidgetIO.close()
        m_PhidgetLCD.close()
        m_PhidgetRFID.close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '
        If Button1.Text = "Turn On RFID" Then
            If bool_PhidgetRFIDAttached Then
                m_PhidgetRFID.Antenna = True
                Button1.Text = "Turn Off RFID"
            End If
        Else
            If bool_PhidgetRFIDAttached Then
                m_PhidgetRFID.Antenna = False
                Button1.Text = "Turn On RFID"
            End If
        End If
        '
    End Sub
    Private Sub PhidgetRFID_Tag(ByVal sender As Object, ByVal e As Phidgets.Events.TagEventArgs) Handles m_PhidgetRFID.Tag
        '
        Dim s As String = "RFID Read: [" + e.Tag + "]"
        Me.Invoke(New PrintGUI_delegate(AddressOf PrintGUI_TextBox1), s)
        '
        Dim s_TagID As String = " + e.Tag + "
        ' 
        ' s_TagID is the RFID data captured from the PhidgetRFID reader
        '
        If bool_Admin Then
            ' Add code to handle the RFID data in Administrative mode.
            ' Such as, add the RFID data to the user database to grant access
            '
        Else
            ' Add code to handle the RFID data in normal mode.
            ' Such as, search and compare this captured RFID Data
            ' With the user database.
            '
        End If
        '
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        '
        Dim dt As Date = DateTime.Now
        Dim s As String
        '
        s = dt.ToString("G")
        Me.Invoke(New PrintGUI_delegate(AddressOf PrintGUI_labelTime), s)
        '
    End Sub

    
End Class