Interface

Zoals op onderstaande figuur te zien is, wordt de interface in drie grote delen ingedeeld: de verbinding via Bluetooth, de regeling van de motoren, zwaailichten en ventilator, en uiteindelijk de snelheidsinstelling.

Verbinding maken
- Wanneer op de knop gedrukt wordt om verbinding met de EmbeddedBlue eb500-SER te maken worden enerzijds de parameters ingesteld (o.a. de Baud rate), en anderzijds wordt er een belangrijk commando gestuurd: "con" & BTMAC (dit laatste is het adres van de bluetooth). Dit commando is in het programma terug te vinden als een aparte subfunctie:
  
  Private Sub ConnectBT()
  Dim strCommand As String
  Dim testmsg As Integer
  
  strCommand = "con " & BTMAC & Chr$(13)
  MSComm1.Output = strCommand
  
  testmsg = MsgBox("Bluetooth is connected", 0, "Connection")
  End Sub
  
  De interface geeft hierbij een bericht (MsgBox) wanneer er verbinding is. Deze subfunctie is een extra stap voor een verbinding met bluetooth t.o.v. een verbinding met een seriele kabel.
- Om de verbinding te verbreken, wordt op analoge manier het commando "dis" verstuurd.

Regeling van de motoren, zwaailichten en ventilator
- Afhankelijk van de knop die ingedrukt wordt, zal een byte (8bits) doorgestuurd worden. Elke bit staat voor een bepaald commando:
  
  8bits (000000)
  Van rechts naar links:
  1. rechterwiel vooruit
  2. rechterwiel achteruit
  3. linkerwiel vooruit
  4. linkerwiel achteruit
  5. ventilator aan/uit
  6. zwaailichten aan/uit
  7. nul
  8. nul
  
  Visual Basic stuurt een karakter (decimaal getal) door, hiervoor moet de byte omgezet worden naar decimaal getal:
  
  Private Function getDecFromBit() As Integer
  Dim buff As Integer
  Dim tel As Integer
  For tel = 1 To 8
  buff = buff + bit(tel) * 2 ^ (tel - 1)
  Next
  getDecFromBit = buff
  End Function
  
  Dit gebeurt in samenwerking met Assembler: Assembler decodeert de byte en geeft de commando's door aan de motoren, zwaailichten en ventilator.
  
  De code is zodanig geschreven dat er naast een sturing met de muis ook een sturing mogelijk is met het toetsenbord (8 = vooruit, 4 = naar links, 6 = naar rechts, 2 = naar onder, 5 = stoppen).
Snelheidsinstelling
- Ook deze tool werd in samenwerking met Assembler (PWM-omzetter) gerealiseerd. In de interface kan de snelheid ingesteld worden met een HScrollbar. Hiervoor stuurt Visual Basic een tweede byte met de waarde van de snelheid (tussen 0 en 255). Een derde byte moet ook gestuurd worden voor de synchronisatie.

Project mechatronica 2008: Brandweerwagen

Interface

Project mechatronica 2008:
Brandweerwagen