Richtsysteem

Geachte allemaal,

Ik moet een GIP (eindwerk) maken die een richtsysteem moet voorstellen. Nu moet ik een programma schrijven in Visual Basic die een simpel k'nex DC-motortje kan aansturen (die werkt op 5 V). Ik gebruik hiervoor een Vellemankit K8055. Kan iemand mij uit mijn lijden verlossen en mij helpen met het programma?
Dank bij voorbaat...

Schoolvraag ---> Enige eigen inzet is verplicht...
Laat maar zien wat je al hebt, dan kunnen we misschien helpen.

oké, dit is wat ik heb 


Option Explicit
Private Declare Function OpenDevice Lib "k8055d.dll" (ByVal CardAddress As Long) As Long
Private Declare Sub CloseDevice Lib "k8055d.dll" ()
Private Declare Function ReadAnalogChannel Lib "k8055d.dll" (ByVal channel As Long) As Long
Private Declare Sub ReadAllAnalog Lib "k8055d.dll" (Data1 As Long, Data2 As Long)
Private Declare Sub ClearDigitalChannel Lib "k8055d.dll" (ByVal channel As Long)
Private Declare Sub ClearAllDigital Lib "k8055d.dll" ()
Private Declare Sub SetDigitalChannel Lib "k8055d.dll" (ByVal channel As Long)
Private Declare Sub SetAllDigital Lib "k8055d.dll" ()


Private Sub Command1_Click()
  Dim channel As Long
   channel = 1 And 2
      SetDigitalChannel (1)
      SetDigitalChannel (2)
      ClearDigitalChannel (3)
      ClearDigitalChannel (4)
End Sub

Private Sub Command2_Click()
  Dim channel As Long
   channel = 3 And 4
      SetDigitalChannel (3)
      SetDigitalChannel (4)
      ClearDigitalChannel (1)
      ClearDigitalChannel (2)
End Sub

Private Sub Command3_Click()
  Dim channel As Long
   channel = 5 And 6
      SetDigitalChannel (5)
      SetDigitalChannel (6)
      ClearDigitalChannel (7)
      ClearDigitalChannel (8)
End Sub

Private Sub Command4_Click()
  Dim channel As Long
    channel = 7 And 8
      SetDigitalChannel (7)
      SetDigitalChannel (8)
      ClearDigitalChannel (5)
      ClearDigitalChannel (6)
End Sub

Private Sub Form_Load()
    Dim CardAddress As Long
    Dim h As Integer
    CardAddress = 3
    h = OpenDevice(3)

    Select Case h
        Case 0, 1, 2, 3
            Label1.Caption = "Kaart " + Str(h) + " verbonden"
        Case -1
            Label1.Caption = "Kaart " + Str(CardAddress) + " niet gevonden"
    End Select
End Sub

Private Sub Form_Terminate()
    CloseDevice
End Sub

Private Sub Timer1_Timer()
    Dim channel As Long
    Dim Data As Long
    channel = 1
    Data = ReadAnalogChannel(channel)
    Picture1.Cls
    Picture1.Print "Waarde", Data

End Sub

Kweet dat dit enkel de uitgangen van de kit actief maken, maar nu moeten de motortjes (twee in totaal) dus ook draaien als ze aangesloten zijn op die uitgagngen...

[Bericht gewijzigd door Henry S. op (0%)]

Lekker gedocumenteerd ;)

Wat doet het, en wat doet het niet?

voorbeeld:
als ik op een knop "motor links" druk, dan branden de LED's aan de eerste twee uitgangen van de kit
Als ik op "motor rechts" druk, gaan de eerste twee LED's uit en lichten de volgende twee op.
enz.

Nu moet ik, zoals eerder gezegd, ervoor zorgen dat de motortjes ook effectief draaien als ze aan die uitgangen zijn aangesloten.

Welke opleiding doe je?
en wat is je elektrotechnische ervaring?