timer programm umschreiben

[Thomas$]

und wo? (must einfach dort wo die fehler gezeigt werden duobleclick und markiert er die zeile mit fehler rot)


ich glaub ich hab ihn gefunden
Do
If Taster = 1 Then Angeschaltet = 1
If Angeschaltet = 1 And Taster = 0 Then
Angeschaltet = 0
Zaehler = Zaehler + 1
end if
If Zaehler = 1 Then

noch ein edit
es sind keine syntax fehler mehr drin weis aber nich ob es geht sollte es aber

 $regfile = "m8def.dat"
 $framesize = 60
 $swstack = 60
 $hwstack = 60
 $crystal = 8000000

 $baud = 9600

 Config Portb.0 = Output
 Led Alias Portb.0
 Config Pind.7 = Input
 Taster Alias Pind.7
 Portd.7 = 1
 Config Portc.5 = Output
 Led1 Alias Portc.5
 Config Portc.4 = Output
 Led2 Alias Portc.4
 Config Portc.3 = Output
 Led7 Alias Portc.3
 Config Portc.2 = Output
 Led3 Alias Portc.2
 Config Portc.1 = Output
 Led4 Alias Portc.1
 Config Portc.0 = Output
 Led6 Alias Portc.0
 Config Portb.1 = Output
 Led5 Alias Portb.1

  Dim Angeschaltet As Bit
  Dim Zaehler As Integer

  Do
   If Taster = 1 Then Angeschaltet = 1
   If Angeschaltet = 1 And Taster = 0 Then
 Angeschaltet = 0
  Zaehler = Zaehler + 1
  End If
   If Zaehler = 1 Then
    Led1 = 1
    Led2 = 1
    Led3 = 1
    Led4 = 1
    Led5 = 1
    Led6 = 1
    Led7 = 0
    End If
    If Zaehler = 2 Then
    Led1 = 0
    Led2 = 0
    Led3 = 0
    Led4 = 0
    Led5 = 1
    Led6 = 1
    Led7 = 0
    End If
    If Zaehler = 3 Then
    Led1 = 1
    Led2 = 0
    Led3 = 1
    Led4 = 1
    Led5 = 0
    Led6 = 1
    Led7 = 1
    End If
    If Zaehler = 4 Then Zaehler = 0

  Loop