Hallo
Ich habe die Analogports wie vorgeschlagen abgefragt.
Oder habe ich trotzdem ein Fehler gemacht ?
Ich wäre froh wenn mir jemand sagen könte was ich falsch gemacht habe.
Danke schon im Voraus
Hier ist noch mein Programmcode
Code:
Do

   Taste = Bewegungsmelder()
      If Taste <> 0 Then

Select Case Taste

        Case 1
         Pwm1a = 0                                          'Linker Motor aus
         Waitms 1000
         Pwm1a = 1023
         Print "Rechts weisse Linie erkannt"

        Case 2
         Pwm1b = 0
         Waitms 1000
         Pwm1b = 1023
         Print "Links weisse Linie erkannt"

        Case 3
          Waitms 2000
          Porta.4 = 1
          Waitms 800
          Porta.4 = 0
          Waitms 1000
          Porta.4 = 1
          Waitms 500
          Porta.4 = 0
          Waitms 4000
          Porta.4 = 1
          Waitms 500
          Porta.4 = 0
          Waitms 4000
          Porta.4 = 1
          Waitms 500
          Porta.4 = 0

          Print "Person gesichtet und fotografiert"
          Waitms 5000
          Call Linieverfolgung
          End Select
   End If

  Waitms 100
Loop

End




Function Bewegungsmelder()
Local B As Word
Local C As Word
Local We As Word
Bewegungsmelder = 0
                                       'Diese Unterfunktion überwacht den Raum und folgt Der Linie
Start Adc
B = Getadc(0)
C = Getadc(1)
We = Getadc(2)
   If We < 1010 Then
   Select Case We
   Case 380 To 470
      Bewegungsmelder = 3

   Case 535 To 720
      Bewegungsmelder = 3
   End If
   End Select

   If B < 1010 Then
   Select Case B
   Case 612 To 820
    Bewegungsmelder = 1
   End If
   End Select

   If C < 1010 Then
   Select Case C
   Case 612 To 820
    Bewegungsmelder = 2
   End If
   End Select

End Function