wir grenzen den Fehler mal ein.
Folgende Zeilen mal auskommentieren:
(Nix anschliessen)Code:'==============================================================================
' M A I N L O O P
'==============================================================================
Do
If Irptflag = 1 Then
Irptflag = 0 ' 1 mS Event
'----------check servo-------------
Decr Servo_count
If Servo_count = 0 Then
Servo_count = Servo_c_count
' Gosub Servo_refresh ****KOMMENTAR*******
End If
'----------check ADC-------------
Decr Adc_count
If Adc_count = 0 Then
Adc_count = Adc_c_count
For Adc_chn = 0 To 1
' Gosub Adc_get_val ****KOMMENTAR*******
Next
End If
'----------check Clock-------------
Decr Second_count
If Second_count = 0 Then
Second_count = Second_c_count
'==============================================================================
' ONE SECOND SEQUENCE
'==============================================================================
Gosub Tick_clock
Gosub Show_clock
Servo_t_1 = Servo_t_1 + 100
If Servo_t_1 > Servo_c_max Then
Servo_t_1 = Servo_c_min
End If
' Gosub Set_servo_1 ****KOMMENTAR*******
' Gosub Show_servo_1 ****KOMMENTAR*******
Servo_t_2 = Servo_t_1
' Gosub Set_servo_2 ****KOMMENTAR*******
' Gosub Show_servo_2 ****KOMMENTAR*******
'==============================================================================
End If
End If
Gosub Rxreceive
Loop
End
Jetzt sollte sich mal nur die Uhr rechts oben bewegen
Don't panic, da kommen wir schon hin