Mein erster Roboter

[avus17]

Hallo zusammen, ich wollte mal meinen ersten
kleinen Roboter vortellen.
Ziel war es, einen einfachen Roboter zu bauen, der
einfach z.b mit Sensoren erweitert werden kann.
Zu den technischen Daten:
Das Chassis besteht aus einer leeeren CD-spindel mit zwei
gehackten Servos und einem frei drebarem Stützrad.
Die Elektronik besteht aus einem ATmega8 in Grundschaltung,
mit einer Festspannungsversorgung von 5Volt und zwei H-Brücken aus jeweils
4 NPN Transistoren (BC337).Wie man auf den bildern sieht, habe ich es so aufgebaut, das
Spannungsversorgung, Microcontroler, und Motortreiber jeweils auf einer eigenen Platine
untergebracht sind.
Momentan sitze ich noch am Bascomprogramm. Könnte jemand da mal drüberschauen ob das so
in Ordnung ist??? Ist nämlich mein erstes Programm in Bascom.

$regfile = "m8def.dat"
$crystal = 1000000

Dim One As Bit
One = 1
 Config Pind.0 = Output
 Config Pind.0 = Output
 Config Pind.2 = Output
 Config Pind.5 = Output
 Config Pind.7 = Output
 Config Pinb.2 = Input
 Taster Alias Pinb.2
 Portb.2 = 1
  Do

  While One = 1

  Portd.0 = 0
  Portd.5 = 0
  Portd.2 = 1
  Portd.7 = 1


  If Taster = 0 Then
  Portd.2 = 0
  Portd.7 = 0
  Portd.0 = 1
  Portd.5 = 1
  Waitms 60
  Portd.0 = 0
  Waitms 150



  Wend

  Loop
  End

Anregungen und Kritik sind erwünscht.

[Kampi]

Ein Robi nach Asuroprinzip
Sieht witzig aus aber für den Anfang nicht schlecht.
Was soll den das Programm machen?

[avus17]

@Kampi: der Roboter soll wenn der Berührungssensor ein Hinderns erkennt,
zurückfahren und wenden.

[Kampi]

Das Programm sollte funktionieren. Aber du hast denk ich mal keine "Verriegelung" für die Transistoren gemacht. Das Problem ist wenn aus versehen 2 Transistoren die in Reihe geschaltet sind durchschalten hast du einen Kurzschluss und deine Transistoren gehen flöten. Beim Asuro haben die das Problem gelöst indem sie einen NPN und einen PNP Transistor in Reihe geschaltet haben.

[avus17]

Könnte mir noch mal jemand beim Code helfen???
Denn immer wenn ich ihn Compilern will, bekomme ich forgende Fehlermeldungen:
Error: 7 Line: 0 IF THEN expected [38] ,in File :
Error: 123 Line: 0 END IF expected , in File :

@Kampi, stimmt, da muss ich wirklich aufpasssen,
ich bin noch garnicht auf die Idee gekommen, das dann die Transistoren
den abgang machen. Warscheinlich baue ich die Schaltung eh noch mal um,
jedoch lagen gerade nur 8 BC337 rum. Irgendwo müsste ich auch noch nen L298 rumliegen haben.

[radbruch]

Das End If fehlt, ich schätze, es fehlt hier:

$regfile = "m8def.dat"
$crystal = 1000000

Dim One As Bit
One = 1
 Config Pind.0 = Output
 Config Pind.2 = Output
 Config Pind.5 = Output
 Config Pind.7 = Output
 Config Pinb.2 = Input
 Taster Alias Pinb.2
 Portb.2 = 1
  Do

  While One = 1

  Portd.0 = 0
  Portd.2 = 1
  Portd.5 = 0
  Portd.7 = 1


  If Taster = 0 Then
   Portd.0 = 1
   Portd.2 = 0
   Portd.5 = 1
   Portd.7 = 0
   Waitms 60
   Portd.0 = 0
   Waitms 150
  End If 


  Wend

  Loop
  End