Πρώτα βήματα με phidgets και vb.net

	Καλώς ορίσατε στο dotNETZone.gr - Σύνδεση \| Εγγραφή \| Βοήθεια σε

Îåêßíçóå áðü ôï ìÝëïò bleo8onhs. Τελευταία δημοσίευση από το μέλος bleo8onhs στις 07-06-2010, 20:55. Υπάρχουν 1 απαντήσεις.


	Ταξινόμηση Δημοσιεύσεων: Προηγούμενο Επόμενο

07-06-2010, 19:53 59026

bleo8onhs
Μέλος από τις 07-11-2006
Αιτωλικό
Δημοσιεύσεις 14

Πρώτα βήματα με phidgets και vb.net

Γεία σας!

Φτιάχνω ένα project με phidgets και VB 2010.

Έχω

ένα RFID kit

http://www.phidgets.com/products.php?category=14&product_id=2002

ένα interface kit 0/0/4 (τέσσερα ρελε χειριζόμενα από usb)
http://www.phidgets.com/products.php?category=9&product_id=1014

και μια οθόνη με interface kit (8 αναλογικές είσοδοι, 8 ψηφιακές είσοδοι, 8 ψηφιακές έξοδοι)
http://www.phidgets.com/products.php?category=19&product_id=1202

Με την χρήση των παραδειγμάτων που έχει το site κατάφερα και τα έβαλα όλα μαζί σε ένα πρόγραμμα.

Περνάω ένα tag από τον αναγνώστη και βλέπω την αντιστοιχία που έχω καθορίσει στο πρόγραμμα.

Το πρόβλημά μου είναι όταν προσπαθώ να αντιστοιχίσω tag σε ρελε.

Ο κώδικας των ρελέ, είναι γραμμένος ώστε ανάλογα με τον αριθμό των outputs που διαβάζει από το interface kit, τόσα checkboxes να εμφανίζει.

Όταν γράφω όμως μέσα στο if να τσεκάρεται το checkbox αν περνάει το συγκεκριμένο tag τσεκάρεται μόνο το κουτάκι, αλλά το ρελέ δεν ενεργοποιείται.

Αυτός είναι ο κώδικας. Μήπως μπορείτε να με βοηθήσετε?

Στην σειρά 854 είναι η συνθήκη που θέλω.

Στη σειρά 760 είναι το digiOutArray(0) που θέλω να ενεργοποιηθεί. Και το digiOutArray(0).Checked = True το ίδιο αποτέλεσμα είχε.

Στην 440 σειρά ξεκινάνε οι ψηφιακες έξοδοι.

Το checkbox ανοίγει με το ρελέ όχι.

' - InterfaceKit full -
' In this example we display the interface kit details including the number of inputs and outputs it allows,
' and displays the values of the inputs and outputs.
' Note: This example was developed and run with an LED in digital output 0 and an LED in digital output 7 to test
' the simulated digital output.
'
' Please note that this example was designed to work with only one Phidget InterfaceKit connected. 
' For an example using multiple Phidget InterfaceKits, please see a "multiple" example in the InterfaceKit Examples folder.
'
' Copyright 2007 Phidgets Inc.  
' This work is licensed under the Creative Commons Attribution 2.5 Canada License. 
' To view a copy of this license, visit http://creativecommons.org/licenses/by/2.5/ca/

Public Class Form1
    Dim WithEvents phidgetIFK As Phidgets.InterfaceKit               'Kit 8/8/8 Είσοδοι αναλογικοί και είσοδοι/έξοδοι ψηφιακοί

    Dim WithEvents phidgetIFK2 As Phidgets.InterfaceKit              'Τα τέσσερα ρελε

    Dim WithEvents phidgetLCD As Phidgets.TextLCD                    'Η οθόνη 

    Dim WithEvents phidgetRFID As Phidgets.RFID                      'Το RFID Reader


    Private digiInArray As CheckBox()
    Private digiOutArray As CheckBox()
    Private sensorInArray As TextBox()

    Private digiInArray2 As CheckBox()
    Private digiOutArray2 As CheckBox()
    Private sensorInArray2 As TextBox()


    Public Sub New()
        ' This call is required by the Windows Form Designer.
        InitializeComponent()
        ' Add any initialization after the InitializeComponent() call.
    End Sub

    'initialize the device
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        makeDigiInArray()
        makeDigiOutArray()
        makeSensorInArray()

        '1 8/8/8

        inputTrk.Value = 0
        inputTrk.Enabled = False
        sensitivityTxt.Text = ""

        ratioChk.Enabled = False
        ratioChk.Checked = False

        '2  0/0/4
        makeDigiInArray2()
        makeDigiOutArray2()
        makeSensorInArray2()

        inputTrk2.Value = 0
        inputTrk2.Enabled = False
        sensitivityTxt2.Text = ""

        ratioChk2.Enabled = False
        ratioChk2.Checked = False

        '3 TextLCD

        dispText1.Enabled = False
        dispText2.Enabled = False
        clearBtn.Enabled = False
        backlightChk.Enabled = False
        cursorChk.Enabled = False
        contrastTrkBr.Enabled = False

        '4 RFID

        antennaChk.Enabled = False
        ledChk.Enabled = False
        output0Chk.Enabled = False
        output1chk.Enabled = False


        Try                                                       'Ανοίγω τα phidgets
            phidgetIFK = New Phidgets.InterfaceKit
            phidgetIFK2 = New Phidgets.InterfaceKit
            phidgetLCD = New Phidgets.TextLCD
            phidgetRFID = New Phidgets.RFID

            phidgetIFK.open(67381)
            phidgetIFK2.open(109472)
            phidgetLCD.open(67381)
            phidgetRFID.open(92493)

        Catch ex As Exception
            MessageBox.Show(ex.ToString())
        End Try



        


    End Sub

    'attach event handler... here we'll display the interface kit details as well as determine how many output and input          8/8/8
    'fields to display as well as determine the range of values for the output simulator slider
    Private Sub phidgetIFK_Attach(ByVal sender As Object, ByVal e As Phidgets.Events.AttachEventArgs) Handles phidgetIFK.Attach

        attachedTxt.Text = phidgetIFK.Attached.ToString()                           'Οι πληροφορίες για το καθέ kit
        nameTxt.Text = phidgetIFK.Name
        serialTxt.Text = sender.SerialNumber.ToString()
        versionTxt.Text = sender.Version.ToString()
        digiInNumTxt.Text = phidgetIFK.inputs.Count.ToString()
        digiOutNumTxt.Text = sender.outputs.Count.ToString()
        sensorInNumTxt.Text = sender.sensors.Count.ToString()

        Dim i As Integer
        For i = 0 To phidgetIFK.inputs.Count - 1
            digiInArray(i).Visible = True
        Next i

        For i = 0 To phidgetIFK.outputs.Count - 1
            digiOutArray(i).Visible = True
            digiOutArray(i).Enabled = True
        Next i

        For i = 0 To phidgetIFK.sensors.Count - 1
            sensorInArray(i).Visible = True
        Next i

        If phidgetIFK.sensors.Count > 0 Then
            inputTrk.Enabled = True
            inputTrk.SetRange(0, 1000)
            inputTrk.Value = phidgetIFK.sensors(0).Sensitivity
            sensitivityTxt.Text = inputTrk.Value.ToString()

            phidgetIFK.ratiometric = True

            ratioChk.Enabled = True
            ratioChk.Checked = phidgetIFK.ratiometric
        End If
    End Sub


    'attach event handler... here we'll display the interface kit details as well as determine how many output and input
    'fields to display as well as determine the range of values for the output simulator slider
    Private Sub phidgetIFK2_Attach(ByVal sender As Object, ByVal e As Phidgets.Events.AttachEventArgs) Handles phidgetIFK2.Attach

        attachedTxt2.Text = phidgetIFK2.Attached.ToString()                                 'Πληροφορίες για το δεύτερο κιτ (relay)
        nameTxt2.Text = phidgetIFK2.Name
        serialTxt2.Text = sender.SerialNumber.ToString()
        versionTxt2.Text = sender.Version.ToString()
        digiInNumTxt2.Text = phidgetIFK2.inputs.Count.ToString()
        digiOutNumTxt2.Text = sender.outputs.Count.ToString()
        sensorInNumTxt2.Text = sender.sensors.Count.ToString()

        Dim g As Integer
        For g = 0 To phidgetIFK2.inputs.Count - 1
            digiInArray2(g).Visible = True
        Next g

        For g = 0 To phidgetIFK2.outputs.Count - 1
            digiOutArray2(g).Visible = True
            digiOutArray2(g).Enabled = True
        Next g

        For g = 0 To phidgetIFK2.sensors.Count - 1
            sensorInArray2(g).Visible = True
        Next g

        If phidgetIFK2.sensors.Count > 0 Then
            inputTrk2.Enabled = True
            inputTrk2.SetRange(0, 1000)
            inputTrk2.Value = phidgetIFK2.sensors(0).Sensitivity
            sensitivityTxt2.Text = inputTrk2.Value.ToString()

            phidgetIFK2.ratiometric = True

            ratioChk2.Enabled = True
            ratioChk2.Checked = phidgetIFK2.ratiometric
        End If
    End Sub


    'attach event handler...we will display the attach status and the attached TextLCD device's details
    'We will also enable the fields used to manipulate the TextLCD as well as do some initializing of
    'ranges and maximum values for some of these fields

    Private Sub lcd_Attach(ByVal sender As Object, ByVal e As Phidgets.Events.AttachEventArgs) Handles phidgetLCD.Attach

        attachedTxt3.Text = sender.Attached.ToString()                                     'Πληροφορίες για την οθόνη         
        nameTxt3.Text = sender.Name
        serialTxt3.Text = sender.SerialNumber.ToString()
        versionTxt3.Text = sender.Version.ToString()
        dispText1.Enabled = True
        dispText1.MaxLength = phidgetLCD.rows(0).MaximumLength
        dispText2.Enabled = True
        dispText2.MaxLength = phidgetLCD.rows(1).MaximumLength


        clearBtn.Enabled = True
        backlightChk.Enabled = True
        cursorChk.Enabled = True
        contrastTrkBr.Enabled = True
        contrastTrkBr.SetRange(0, 255)
        contrastTrkBr.Value = 130

        phidgetLCD.Backlight = True
        backlightChk.Checked = phidgetLCD.Backlight
        phidgetLCD.Cursor = False
        cursorChk.Checked = phidgetLCD.Cursor
        phidgetLCD.CursorBlink = False
        cursorBlinkChk.Checked = phidgetLCD.CursorBlink
    End Sub


    'attach event handler..populate the details fields as well as display the attached status.  enable the checkboxes to change
    'the values of the attributes of the RFID reader such as enable or disable the antenna and onboard led.
    Private Sub phidgetRFID_Attach(ByVal sender As Object, ByVal e As Phidgets.Events.AttachEventArgs) Handles phidgetRFID.Attach

        attachedTxt4.Text = sender.Attached.ToString()                                   'Πληροφορίες για το rfid
        nameTxt4.Text = sender.Name
        serialTxt4.Text = sender.SerialNumber.ToString()
        versionTxt4.Text = sender.Version.ToString()
        outputsTxt4.Text = sender.outputs.Count.ToString()

        antennaChk.Checked = True
        phidgetRFID.Antenna = True
        antennaChk.Enabled = True
        ledChk.Enabled = True
        output0Chk.Enabled = True
        output1chk.Enabled = True
    End Sub




    ''ifkit detach event handler... here we display the statu, which will be false as the device is not attached.  We
    ''will also clear the display fields and hide the inputs and outputs.
    Private Sub phidgetIFK_Detach(ByVal sender As Object, ByVal e As Phidgets.Events.DetachEventArgs) Handles phidgetIFK.Detach

        attachedTxt.Text = phidgetIFK.Attached.ToString()
        nameTxt.Text = ""
        serialTxt.Text = ""
        versionTxt.Text = ""
        digiInNumTxt.Text = ""
        digiOutNumTxt.Text = ""
        sensorInNumTxt.Text = ""

        Dim i As Integer

        For i = 0 To 15
            digiInArray(i).Visible = False
            digiInArray(i).Checked = False
        Next

        For i = 0 To 15
            digiOutArray(i).Visible = False
            digiOutArray(i).Checked = False
            digiOutArray(i).Enabled = False
        Next

        For i = 0 To 7
            sensorInArray(i).Visible = False
            sensorInArray(i).Text = ""
        Next

        inputTrk.Value = 0
        inputTrk.Enabled = False
        sensitivityTxt.Text = ""

        ratioChk.Enabled = False
        ratioChk.Checked = False
    End Sub


    ''ifkit detach event handler... here we display the statu, which will be false as the device is not attached.  We
    ''will also clear the display fields and hide the inputs and outputs.
    Private Sub phidgetIFK2_Detach(ByVal sender As Object, ByVal e As Phidgets.Events.DetachEventArgs) Handles phidgetIFK2.Detach

        attachedTxt2.Text = phidgetIFK2.Attached.ToString()
        nameTxt2.Text = ""
        serialTxt2.Text = ""
        versionTxt2.Text = ""
        digiInNumTxt2.Text = ""
        digiOutNumTxt2.Text = ""
        sensorInNumTxt2.Text = ""

        Dim g As Integer

        For g = 0 To 15
            digiInArray2(g).Visible = False
            digiInArray2(g).Checked = False
        Next

        For g = 0 To 15
            digiOutArray2(g).Visible = False
            digiOutArray2(g).Checked = False
            digiOutArray2(g).Enabled = False
        Next

        For g = 0 To 7
            sensorInArray2(g).Visible = False
            sensorInArray2(g).Text = ""
        Next

        inputTrk2.Value = 0
        inputTrk2.Enabled = False
        sensitivityTxt2.Text = ""

        ratioChk2.Enabled = False
        ratioChk2.Checked = False
    End Sub



    'detach event handler.... we will display the device attach status and clear all the other fields
    Private Sub lcd_Detach(ByVal sender As Object, ByVal e As Phidgets.Events.DetachEventArgs) Handles phidgetLCD.Detach
        attachedTxt3.Text = sender.Attached.ToString()
        nameTxt3.Text = ""
        serialTxt3.Text = ""
        versionTxt3.Text = ""
        dispText1.Enabled = False
        dispText2.Enabled = False


        clearBtn.Enabled = False
        backlightChk.Enabled = False
        cursorChk.Enabled = False
        contrastTrkBr.Enabled = False
    End Sub



    'detach event handler...clear all the fields, display the attached status, and disable the checkboxes.
    Private Sub phidgetRFID_Detach(ByVal sender As Object, ByVal e As Phidgets.Events.DetachEventArgs) Handles phidgetRFID.Detach

        attachedTxt4.Text = sender.Attached.ToString()
        nameTxt4.Text = ""
        serialTxt4.Text = ""
        versionTxt4.Text = ""
        outputsTxt4.Text = ""

        antennaChk.Enabled = False
        ledChk.Enabled = False
        output0Chk.Enabled = False
        output1chk.Enabled = False
    End Sub




    Private Sub phidgetIFK_Error(ByVal sender As Object, ByVal e As Phidgets.Events.ErrorEventArgs) Handles phidgetIFK.Error
        MessageBox.Show(e.Description)
    End Sub


    Private Sub phidgetIFK2_Error(ByVal sender As Object, ByVal e As Phidgets.Events.ErrorEventArgs) Handles phidgetIFK2.Error
        MessageBox.Show(e.Description)
    End Sub


    'Error event handler..we will simply display the error details text in a popup message box
    Private Sub lcd_Error(ByVal sender As Object, ByVal e As Phidgets.Events.ErrorEventArgs) Handles phidgetLCD.Error
        MessageBox.Show(e.Description)
    End Sub


    Private Sub phidgetRFID_Error(ByVal sender As Object, ByVal e As Phidgets.Events.ErrorEventArgs) Handles phidgetRFID.Error
        MessageBox.Show(e.Description)
    End Sub


    'digital input change event handler... here we check or uncheck the corresponding input checkbox based on the index of
    'the digital input that generated the event
    Private Sub phidgetIFK_InputChange(ByVal sender As Object, ByVal e As Phidgets.Events.InputChangeEventArgs) Handles phidgetIFK.InputChange
        digiInArray(e.Index).Checked = e.Value
    End Sub


    'digital input change event handler... here we check or uncheck the corresponding input checkbox based on the index of
    'the digital input that generated the event
    Private Sub phidgetIFK2_InputChange(ByVal sender As Object, ByVal e As Phidgets.Events.InputChangeEventArgs) Handles phidgetIFK2.InputChange
        digiInArray2(e.Index).Checked = e.Value
    End Sub



    ''digital output change event handler... here we check or uncheck the corresponding output checkbox based on the index of
    ''the output that generated the event
    Private Sub phidgetIFK_OutputChange(ByVal sender As Object, ByVal e As Phidgets.Events.OutputChangeEventArgs) Handles phidgetIFK.OutputChange
        digiOutArray(e.Index).Checked = e.Value
    End Sub


    ''digital output change event handler... here we check or uncheck the corresponding output checkbox based on the index of
    ''the output that generated the event
    Private Sub phidgetIFK2_OutputChange(ByVal sender As Object, ByVal e As Phidgets.Events.OutputChangeEventArgs) Handles phidgetIFK2.OutputChange
        digiOutArray2(e.Index).Checked = e.Value
    End Sub



    ''sensor input change event handler...Set the textbox content based on the input index that is communicating with the
    ''interface kit
    Private Sub phidgetIFK_SensorChange(ByVal sender As Object, ByVal e As Phidgets.Events.SensorChangeEventArgs) Handles phidgetIFK.SensorChange
        sensorInArray(e.Index).Text = e.Value.ToString()
    End Sub


    ''sensor input change event handler...Set the textbox content based on the input index that is communicating with the
    ''interface kit
    Private Sub phidgetIFK2_SensorChange(ByVal sender As Object, ByVal e As Phidgets.Events.SensorChangeEventArgs) Handles phidgetIFK2.SensorChange
        sensorInArray2(e.Index).Text = e.Value.ToString()
    End Sub




    'Modify the digital ouputs...Please observe the properties window in the ofrm designer for the digital output checkboxes.
    'Each of the output checkboxes CheckedChanged events point to this one event handler, I use the sender object (the checkbox
    'triggering the event) to get the checkbox that is changing.  Also note that there is a "tag" property that is basically
    'user defined data associated with the control.  I used this to store the output index that the checkbox is supposed to
    'represent for use in the following code to easily index the output we wanted to change.  Hopefully this clarifies what
    'was done in this method.
    Private Sub ClickOutputs(ByVal sender As Object, ByVal e As System.EventArgs)

        Dim outputIndex As Integer
        Dim outputState As Boolean
        outputIndex = DirectCast(sender, CheckBox).Tag
        outputState = DirectCast(sender, CheckBox).CheckState
        'MessageBox.Show(outputIndex.ToString() + " and " + outputState.ToString())

        phidgetIFK.outputs(outputIndex) = outputState

    End Sub



    'Modify the digital ouputs...Please observe the properties window in the ofrm designer for the digital output checkboxes.
    'Each of the output checkboxes CheckedChanged events point to this one event handler, I use the sender object (the checkbox
    'triggering the event) to get the checkbox that is changing.  Also note that there is a "tag" property that is basically
    'user defined data associated with the control.  I used this to store the output index that the checkbox is supposed to
    'represent for use in the following code to easily index the output we wanted to change.  Hopefully this clarifies what
    'was done in this method.
    Private Sub ClickOutputs2(ByVal sender As Object, ByVal e As System.EventArgs)

        Dim outputIndex2 As Integer
        Dim outputState2 As Boolean
        outputIndex2 = DirectCast(sender, CheckBox).Tag
        outputState2 = DirectCast(sender, CheckBox).CheckState
        'MessageBox.Show(outputIndex2.ToString() + " and " + outputState2.ToString())

        phidgetIFK2.outputs(outputIndex2) = outputState2

    End Sub





    'Modify the sensitivity of the analog inputs. In other words, the amount that the inputs must change between 
    'sensorchange events.

    Private Sub inputTrk_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles inputTrk.Scroll
        Try
            Dim i As Integer
            For i = 0 To phidgetIFK.sensors.Count - 1
                phidgetIFK.sensors(i).Sensitivity = inputTrk.Value
            Next
            sensitivityTxt.Text = inputTrk.Value.ToString()
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString())
        End Try
    End Sub

    Private Sub ratioChk_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ratioChk.CheckedChanged
        If phidgetIFK.Attached Then
            phidgetIFK.ratiometric = ratioChk.Checked
        End If
    End Sub




    'Modify the sensitivity of the analog inputs. In other words, the amount that the inputs must change between 
    'sensorchange events.

    Private Sub inputTrk2_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles inputTrk2.Scroll
        Try
            Dim g As Integer
            For g = 0 To phidgetIFK2.sensors.Count - 1
                phidgetIFK2.sensors(g).Sensitivity = inputTrk2.Value
            Next
            sensitivityTxt2.Text = inputTrk2.Value.ToString()
        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString())
        End Try
    End Sub

    Private Sub ratioChk2_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ratioChk2.CheckedChanged
        If phidgetIFK2.Attached Then
            phidgetIFK2.ratiometric = ratioChk2.Checked
        End If
    End Sub












    'line 1 textChanged event handler...when the user is entering text, pass it on to the textLCD to be displayed
    Private Sub dispText1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dispText1.TextChanged
        phidgetLCD.rows(0).DisplayString = sender.Text
    End Sub


    'line 2 textChanged event handler...when the user is entering text, pass it on to the textLCD to be displayed
    Private Sub dispText2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dispText2.TextChanged
        phidgetLCD.rows(1).DisplayString = sender.Text
    End Sub

    'If the clear button is clicked, we want to clear the fields as well as clear the TextLCD screen
    Private Sub clearBtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles clearBtn.Click
        dispText1.Clear()
        dispText2.Clear()
        phidgetLCD.rows(0).DisplayString = ""
        phidgetLCD.rows(1).DisplayString = ""
    End Sub

    'Enable or disable the backlight by clicking on the checkbox
    Private Sub backlightChk_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles backlightChk.CheckedChanged
        phidgetLCD.Backlight = backlightChk.Checked
    End Sub

    'enable or disable the cursor by clicking on the checkbox
    Private Sub cursorChk_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cursorChk.CheckedChanged
        phidgetLCD.Cursor = cursorChk.Checked
    End Sub

    'enable or disable a blinking cursor by clicking on the checkbox
    Private Sub cursorBlinkChk_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cursorBlinkChk.CheckedChanged
        phidgetLCD.CursorBlink = cursorBlinkChk.Checked
    End Sub

    'display ou simulation of the custom characters when the checkbox is clicked
    Private Sub customChrChk_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles customChrChk.CheckedChanged
        If (sender.Checked) Then

            phidgetLCD.rows(0).DisplayString = "Testing Custom Chars"
            phidgetLCD.customCharacters(0).setCustomCharacter(949247, 536)
            phidgetLCD.customCharacters(1).setCustomCharacter(1015791, 17180)
            phidgetLCD.customCharacters(2).setCustomCharacter(1048039, 549790)
            phidgetLCD.customCharacters(3).setCustomCharacter(1031395, 816095)
            phidgetLCD.customCharacters(4).setCustomCharacter(498785, 949247)
            phidgetLCD.customCharacters(5).setCustomCharacter(232480, 1015791)
            phidgetLCD.customCharacters(6).setCustomCharacter(99328, 1048039)
            phidgetLCD.rows(1).DisplayString = phidgetLCD.customCharacters(0).StringCode & _
                phidgetLCD.customCharacters(1).StringCode & _
                phidgetLCD.customCharacters(2).StringCode & _
                phidgetLCD.customCharacters(3).StringCode & _
                phidgetLCD.customCharacters(4).StringCode & _
                phidgetLCD.customCharacters(5).StringCode & _
            phidgetLCD.customCharacters(6).StringCode()

        Else

            phidgetLCD.rows(0).DisplayString = ""
            phidgetLCD.rows(1).DisplayString = ""
        End If
    End Sub


    'adjust the contast of the screen on the textLCD based on the value selected on the slider (100 to 0)
    Private Sub contrastTrkBr_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles contrastTrkBr.Scroll
        phidgetLCD.Contrast = contrastTrkBr.Value
    End Sub





    'Tag event handler...we'll display the tag code in the field on the GUI
    Private Sub phidgetRFID_Tag(ByVal sender As Object, ByVal e As Phidgets.Events.TagEventArgs) Handles phidgetRFID.Tag
        tagTxt4.Text = e.Tag


    End Sub

    'Tag lost event handler...here we simply want to clear our tag field in the GUI
    Private Sub phidgetRFID_TagLost(ByVal sender As Object, ByVal e As Phidgets.Events.TagEventArgs) Handles phidgetRFID.TagLost
        tagTxt4.Text = ""
        tagTxt401.Text = ""
        phidgetRFID.LED = False
    End Sub

    'Enable or disable the RFID antenna by clicking the checkbox
    Private Sub antennaChk_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles antennaChk.CheckedChanged
        phidgetRFID.Antenna = antennaChk.Checked
    End Sub

    'turn on and off the onboard LED by clicking the checkox
    Private Sub ledChk_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ledChk.CheckedChanged
        phidgetRFID.LED = ledChk.Checked
    End Sub

    'turn on and off output 0, to light a LED for example
    Private Sub output0Chk_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles output0Chk.CheckedChanged
        phidgetRFID.outputs(0) = output0Chk.Checked
    End Sub

    'turn on and off output 1, to light a LED for example
    Private Sub output1chk_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles output1chk.CheckedChanged
        phidgetRFID.outputs(1) = output1chk.Checked
    End Sub





    'When the application is terminating, close the Phidget.
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        RemoveHandler phidgetIFK.Attach, AddressOf phidgetIFK_Attach
        RemoveHandler phidgetIFK.Detach, AddressOf phidgetIFK_Detach
        RemoveHandler phidgetIFK.Error, AddressOf phidgetIFK_Error
        RemoveHandler phidgetIFK.InputChange, AddressOf phidgetIFK_InputChange
        RemoveHandler phidgetIFK.OutputChange, AddressOf phidgetIFK_OutputChange
        RemoveHandler phidgetIFK.SensorChange, AddressOf phidgetIFK_SensorChange
        RemoveHandler phidgetIFK2.Attach, AddressOf phidgetIFK2_Attach
        RemoveHandler phidgetIFK2.Detach, AddressOf phidgetIFK2_Detach
        RemoveHandler phidgetIFK2.Error, AddressOf phidgetIFK2_Error
        RemoveHandler phidgetIFK2.InputChange, AddressOf phidgetIFK2_InputChange
        RemoveHandler phidgetIFK2.OutputChange, AddressOf phidgetIFK2_OutputChange
        RemoveHandler phidgetIFK2.SensorChange, AddressOf phidgetIFK2_SensorChange
        RemoveHandler phidgetLCD.Attach, AddressOf lcd_Attach
        RemoveHandler phidgetLCD.Detach, AddressOf lcd_Detach
        RemoveHandler phidgetLCD.Error, AddressOf lcd_Error
        RemoveHandler phidgetRFID.Attach, AddressOf phidgetRFID_Attach
        RemoveHandler phidgetRFID.Detach, AddressOf phidgetRFID_Detach
        RemoveHandler phidgetRFID.Error, AddressOf phidgetRFID_Error
        RemoveHandler phidgetRFID.Tag, AddressOf phidgetRFID_Tag
        RemoveHandler phidgetRFID.TagLost, AddressOf phidgetRFID_TagLost
        Application.DoEvents()

        phidgetIFK.close()
        phidgetIFK2.close()
        phidgetLCD.close()
        phidgetRFID.close()



    End Sub



    'this method creates the digital input array that corresponds to the group of checkboxes
    'we are suing to represent the state of the digital inputs on the interface kit
    Sub makeDigiInArray()
        ReDim digiInArray(15)

        digiInArray(0) = checkBox0
        digiInArray(1) = checkBox1
        digiInArray(2) = checkBox2
        digiInArray(3) = checkBox3
        digiInArray(4) = checkBox4
        digiInArray(5) = checkBox5
        digiInArray(6) = checkBox6
        digiInArray(7) = checkBox7
        digiInArray(8) = checkBox8
        digiInArray(9) = checkBox9
        digiInArray(10) = checkBox10
        digiInArray(11) = checkBox11
        digiInArray(12) = checkBox12
        digiInArray(13) = checkBox13
        digiInArray(14) = checkBox14
        digiInArray(15) = checkBox15

        Dim i As Integer
        For i = 0 To 15
            digiInArray(i).Visible = False
        Next i

    End Sub



    'this method creates the digital input array that corresponds to the group of checkboxes
    'we are suing to represent the state of the digital inputs on the interface kit
    Sub makeDigiInArray2()
        ReDim digiInArray2(15)

        digiInArray2(0) = CheckBox100
        digiInArray2(1) = CheckBox101
        digiInArray2(2) = CheckBox102
        digiInArray2(3) = CheckBox103
        digiInArray2(4) = CheckBox104
        digiInArray2(5) = CheckBox105
        digiInArray2(6) = CheckBox106
        digiInArray2(7) = CheckBox107
        digiInArray2(8) = CheckBox108
        digiInArray2(9) = CheckBox109
        digiInArray2(10) = CheckBox110
        digiInArray2(11) = CheckBox111
        digiInArray2(12) = CheckBox112
        digiInArray2(13) = CheckBox113
        digiInArray2(14) = CheckBox114
        digiInArray2(15) = CheckBox115

        Dim g As Integer
        For g = 0 To 15
            digiInArray2(g).Visible = False
        Next g

    End Sub



    'this method creates the digital output array that corresponds to the group of checkboxes
    'we are using to represent the state of the digital outputs on the interface kit
    Sub makeDigiOutArray()
        ReDim digiOutArray(15)

        digiOutArray(0) = checkBox16
        digiOutArray(1) = checkBox17
        digiOutArray(2) = checkBox18
        digiOutArray(3) = checkBox19
        digiOutArray(4) = checkBox20
        digiOutArray(5) = checkBox21
        digiOutArray(6) = checkBox22
        digiOutArray(7) = checkBox23
        digiOutArray(8) = checkBox24
        digiOutArray(9) = checkBox25
        digiOutArray(10) = checkBox26
        digiOutArray(11) = checkBox27
        digiOutArray(12) = checkBox28
        digiOutArray(13) = checkBox29
        digiOutArray(14) = checkBox30
        digiOutArray(15) = checkBox31

        Dim i As Integer
        For i = 0 To 15
            digiOutArray(i).Visible = False
            AddHandler digiOutArray(i).Click, AddressOf ClickOutputs
        Next i

    End Sub


    'this method creates the digital output array that corresponds to the group of checkboxes
    'we are using to represent the state of the digital outputs on the interface kit
    Sub makeDigiOutArray2()
        ReDim digiOutArray2(15)

        digiOutArray2(0) = CheckBox116
        digiOutArray2(1) = CheckBox117
        digiOutArray2(2) = CheckBox118
        digiOutArray2(3) = CheckBox119
        digiOutArray2(4) = CheckBox120
        digiOutArray2(5) = CheckBox121
        digiOutArray2(6) = CheckBox122
        digiOutArray2(7) = CheckBox123
        digiOutArray2(8) = CheckBox124
        digiOutArray2(9) = CheckBox125
        digiOutArray2(10) = CheckBox126
        digiOutArray2(11) = CheckBox127
        digiOutArray2(12) = CheckBox128
        digiOutArray2(13) = CheckBox129
        digiOutArray2(14) = CheckBox130
        digiOutArray2(15) = CheckBox131

        Dim g As Integer
        For g = 0 To 15
            digiOutArray2(g).Visible = False
            AddHandler digiOutArray2(g).Click, AddressOf ClickOutputs2
        Next g

    End Sub



    'this method creates the analog input array (mst likelely connected to analog sensors) that corresponds to the group
    'of textboxes which will be holding the current values of the analog inputs that are being sent to the interface kit
    Sub makeSensorInArray()
        ReDim sensorInArray(7)

        sensorInArray(0) = textBox1
        sensorInArray(1) = textBox2
        sensorInArray(2) = textBox3
        sensorInArray(3) = textBox4
        sensorInArray(4) = textBox5
        sensorInArray(5) = textBox6
        sensorInArray(6) = textBox7
        sensorInArray(7) = textBox8

        Dim i As Integer
        For i = 0 To 7
            sensorInArray(i).Visible = False
        Next i

    End Sub


    Private Sub groupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles groupBox1.Enter

    End Sub


    'this method creates the analog input array (mst likelely connected to analog sensors) that corresponds to the group
    'of textboxes which will be holding the current values of the analog inputs that are being sent to the interface kit
    Sub makeSensorInArray2()
        ReDim sensorInArray2(7)

        sensorInArray2(0) = TextBox11
        sensorInArray2(1) = TextBox12
        sensorInArray2(2) = TextBox13
        sensorInArray2(3) = TextBox14
        sensorInArray2(4) = TextBox15
        sensorInArray2(5) = TextBox16
        sensorInArray2(6) = TextBox17
        sensorInArray2(7) = TextBox18

        Dim g As Integer
        For g = 0 To 7
            sensorInArray2(g).Visible = False
        Next g

    End Sub


    Private Sub groupBox10_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox10.Enter

    End Sub


    Private Sub Label26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label26.Click

    End Sub






    Private Sub test_Tag(ByVal sender As Object, ByVal e As Phidgets.Events.TagEventArgs) Handles phidgetRFID.Tag



        If e.Tag = "01068e2ae3" Then

            tagTxt401.Text = "User1"
            phidgetLCD.rows(0).DisplayString = "User1"
            phidgetIFK2.outputs(0) = True                           'ΒΡΗΚΑ ΤΗΝ ΛΥΣΗ! ΑΥΤΟ ΧΡΕΙΑΖΕΤΑΙ ΚΑΙ ΕΝΕΡΓΟΠΟΙΕΙΤΑΙ ΤΟ ΡΕΛΕ

        Else
            phidgetLCD.rows(0).DisplayString = "Access Denied"

        End If

        phidgetRFID.LED = True

    End Sub


    'Tag lost event handler...here we simply want to clear our tag field in the GUI
    Private Sub test_TagLost(ByVal sender As Object, ByVal e As Phidgets.Events.TagEventArgs) Handles phidgetRFID.TagLost
        tagTxt4.Text = ""
        tagTxt401.Text = ""
        phidgetLCD.rows(0).DisplayString = ""
        phidgetRFID.LED = False
    End Sub








End Class

Αυτό είναι το API Reference

http://www.phidgets.com/documentation/Phidget21.NET.zip

Δημοσίευση στην κατηγορία: Phidgets, TextLCD, RFID, InterfaceKit, 0/0/4, 8/8/8

Αναφορά Κακοποίησης

07-06-2010, 20:55 59027 σε απάντηση της 59026

bleo8onhs
Μέλος από τις 07-11-2006
Αιτωλικό
Δημοσιεύσεις 14

Απ: Πρώτα βήματα με phidgets και vb.net

Βρήκα τη λύση τελικά.

Χρειάζεται να βάλω αυτό για να δουλέψει

phidgetIFK2.outputs(0) = True

Το αφήνω μήπως το χρειαστεί κανείς άλλος..

Αναφορά Κακοποίησης

Με χρήση του Community Server (Commercial Edition), από την Telligent Systems