Hi Leute,
ich habe vor meine Ct-Bot über Bascom zu programmieren,ihc habe dazu auch ein einfaches Program geschrieben, jedoch ist dass Problem, dass die abstandssensoren nicht aktiviert werden.
Wäre schön wir euch mal ein Programm anschauen würdet und mir helfen könntet.
Mfg
Sven
Code: [View More of this Code] [View Even More of this Code] [View Less of this Code] [Select All of this Code]
Code:'*******************************************************************************
'* *
'* Test der LEDs und der Fernbedienung *
'* *
'*******************************************************************************
$regfile = "m32def.dat" ' specify the used micro
$crystal = 16000000 ' used crystal frequency
$hwstack = 32 ' hardware stack
$swstack = 8 ' SW stack
$framesize = 24
Config Portc.0 = Output
Config Portc.1 = Output
Config Portc.3 = Output
Dim L As Integer
Dim Wr As Word
Dim Wl As Word
Config Adc = Single , Prescaler = Auto
' Für Motorentest
'Ports für linken Motor
Config Pinc.6 = Output 'Linker Motor Kanal 1
Config Pind.4 = Output 'Linker Motor PWM
'Ports für rechten Motor
Config Pinc.7 = Output 'Rechter Motor Kanal 1
Config Pind.5 = Output 'Rechter Motor PWM
Config Timer1 = Pwm , Pwm = 10 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Pwm1a = 0
Pwm1b = 0
Tccr1b = Tccr1b Or &H2 'Prescaler = 8
Clock Alias Portc.3 ' Clock des Schieberegisters
Output Alias Portc.0 ' Datenleitung des Schieberegisters
Store Alias Portc.1 ' Pin mit dem die Daten auf den Ausgang gelegt werden
Set Store 'Strobe-Pin zum Speichern auf high
L = 2 ^ 0
Shiftout Output, Clock, L, 1 'Daten herausschieben
Reset Store 'Daten durch Strobe low/high auf den Ausgang legen
Set Store
Start Adc
Wl = Getadc(0)
Wr = Getadc(1)
Portc 0.6 = 1
Portd 0.4 = 1
Portc 0.7 = 0
Portd 0.5 = 1
If Wl > 500 And Wr > 500 Then
Pwm1a = 400
Pwm1b = 250
Else
Pwm1a = 0
Pwm1b = 0
End If
