Hallo zusammen.................
Noch mal zur betonung ich bin absoluter Neuling also nich Lachen [-X [-X [-X [-X

Ich weiß das es eigendlich nicht hierher gehört aber ich wollte nicht schon wieder einen neuen Thread wegen so was lächerlichem Aufmachen............


Ich hab mal ein erstes Programm geschrieben (Mein erstes überhaupt in Bascom) und ich weiß das da noch viele viele Fehler drinn sind...........



( ehrlichgesagt wundert mich das auch nicht, da ich einfach mal drauf los geschrieben habe)

Zur Info: Ich hab das RN-Control 1.4 Mega32

Ne normale servo zur steuerung und ein 12V Getriebemotor als Antrieb(Ich glaub aber, dass er (so wie ich ihn angeschlossen habe) nur 5V bekommt)

Und für die Sensorik 3*CNY70 mit der Schaltung nach

Link: http://www.robotmaker.de/linie.html


Es ist kein komplettes Programm sondern erst mal nur zur Linienverfolgung........



Code:
'Programm zur Linienverfolgung mit 3 CNY70 IR-SENSOREN



'Lenkservo:
Config Servos = 1 , Servo1 = Portd.4 , Reload 20
Config Adc = Single , Prescaler = Auto                      ' Nicht Sicher

'Lenkservo-Port
Config Portd.4 = Output
Portd.4 = Y

'Motor:
Config Pind.5 = Output
Portd.5 = X

'CNY70 links
Config Porta.1 = Input
Porta.1 = Links

'CNY70 mitte
Config Porta.2 = Input
Porta.2 = Mitte

'CNY70 rechts
Config Porta.3 = Input
Porta.3 = Rechts



Enable Interrupts

Dim X As Integer
Dim Y As Integer
Dim Links As Integer
Dim Mitte As Integer
Dim Rechts As Integer




' Voreinstellungen:
'-Motor aus
'-Servo Mittelstellung



X = 0
Y = 100





'Taster an portA.0
'Warten bis Taster gesetzt:

Bitwait Pina.0 , Set

'Motor ein:

X = 1

Do


   If Links = 1 And Mitte = 0 And Rechts = 1 Then
      Goto Gerade


   If Links = 1 And Mitte = 1 And Rechts = 0 Then
       Goto Rechts


   If Links = 0 And Mitte = 1 And Rechts = 1 Then
       Goto Links


   If Links = 0 And Mitte = 0 And Rechts = 1 Then
       Goto Halblinks


   If Links = 1 And Mitte = 0 And Rechts = 0 Then
      Goto Halbrechts

   End If


Loop Until Pina.0 , Reset




Gerade:

Y = 100



Rechts:

Y = 150


Links:

Y = 50


Halblinks:

Y = 75


Halbrechts:

Y = 125




Gruß oceans94


P.S. bitte nicht Lachen...