Forums.ATC.no

Teknisk => Generelt teknisk => Emne startet av: Lloyd-ATC på 19. Februar 2008, 09:39 am

Tittel: Phidgets
Skrevet av: Lloyd-ATC på 19. Februar 2008, 09:39 am

Jeg kom over en website hvor man får kjøpt masse kult interface stasj som man kan programmere til. F.eks en RFID (http://www.phidgets.com/products.php?product_id=2002). 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 (http://www.phidgets.com/)