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