Skrevet av Emne: Phidgets  (Lest 6268 ganger)

Utlogget Lloyd-ATC

  • Administrator
  • Wannabe
  • *****
  • Innlegg: 76
  • Karma: +0/-0
    • Vis profil
Phidgets
« på: 19. Februar 2008, 09:39 am »
  • [applaud]0
  • [smite]0
  • Jeg kom over en website hvor man får kjøpt masse kult interface stasj som man kan programmere til. F.eks en RFID. Div. servoer og annet gøy kan man kjøpe der.

    Jeg har fått mulighet til å "leke" litt med RFID, og har funnet ut at det er veldig enkelt å lage programmer til dette. Til og med i M$ Visual Basic .NET.

    Eksempel:
    Kode: [Velg]
    Private Sub Form1_Load ((ByVal sender As Object, ByVal e as Phidgets.Events.AttachEventArgs) Handles MyBase.Load
        rfid = New Phidgets.RFID
        rfid.Open()
    End Sub

    Private Sub rfid_Attach (ByVal sender As Object, ByVal e as Phidgets.Events.AttachEventArgs) Handles rfid.Attach
        rfid.Antenna = True
    End Sub

    Private Sub rfid_Detach (ByVal sender As Object, ByVal e as Phidgets.Events.AttachEventArgs) Handles rfid.Detach
        rfid.Antenna = False
        rfid.Close()
    End Sub

    Private Sub rfid_Tag (ByVal sender As Object, ByVal e as Phidgets.Events.AttachEventArgs) Handles rfid.Tag
        rfid.LED = True
    End Sub

    Private Sub rfid_TagLost (ByVal sender As Object, ByVal e as Phidgets.Events.AttachEventArgs) Handles rfid.TagLost
        rfid.LED = False
    End Sub
    Man trenger et par .DLL filer installert for at dette fungerer, men kodeeksempler og mer til kan lastes ned fra websiten.
    Enhetene kobles til via USB og støtter følgende programmeringsspråk:
    VBScript, VB.NET, VB6, VBA, C#, Labview, Matlab, Delphi, Microsoft Robotics Studio, Java, VC/VC++/Borland, ActionScript 3.0 (Flex/Flash), Max/MSP - Windows

    Prisen på utstyret er heller ikke så avskrekkende.

    Så... noen som vil lage en robot, en katte-/hundeluke som låses opp ved bruk av rfid, eller kanskje andre morsomme ting?  :)

    www.phidgets.com
    « Siste redigering: 20. Februar 2008, 10:51 am av Lloyd-ATC »


    Veni Vidi Castrate Ibita