ich hab mich heute mal am Programieren versucht, doch leider hat es nicht funktioniert. was ist an diesem code falsch?

Code:
Sub Linienfolgen()

   Portc.6 = 1
   Portc.7 = 0
   Portd.4 = 1


   Portb.0 = 1
   Portb.1 = 0
   Portd.5 = 1
   Do

      If Porta.0 > 3.7 Then
         Do
            Pwm1a = 800
            Pwm1b = 0
            Waitms 40
         Loop
      End If

      If Porta.2 > 3.7 Then
         Do
            Pwm1a = 0
            Pwm1b = 800
            Waitms 40
         Loop
      End If

      If Porta.0 < 3.0 And Porta.2 < 3.0 Then
         Do
            Pwm1a = 800
            Pwm1b = 800
            Waitms 40
         Loop
      End If
   Loop
End Sub
danke