hi,

ich bin neu hir!

ich habe jez folgendes programm geschrieben und funzt auch so wie von mir gedacht: ich betätige den taster und der timer zählt von 0 bis 3 und bleibt stehen. nun möchte ich manuel mit dem taster von 0 - 3 schalten.

kann mir einer sagen wie man das programmiert?^^ denn alles was ich versucht habe klapt nicht

Code:
 $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

  Do

   If Taster = 0 And Angeschaltet = 0 Then
    Led1 = 1
    Led2 = 1
    Led3 = 1
    Led4 = 1
    Led5 = 1
    Led6 = 1
    Led7 = 0
    Angeschaltet = 1
   Waitms 1000
    Led1 = 0
    Led2 = 0
    Led3 = 0
    Led4 = 0
    Led5 = 1
    Led6 = 1
    Led7 = 0
    Angeschaltet = 1
   Waitms 1000
    Led1 = 1
    Led2 = 0
    Led3 = 1
    Led4 = 1
    Led5 = 0
    Led6 = 1
    Led7 = 1
    Angeschaltet = 1
   Waitms 1000
    Led1 = 1
    Led2 = 0
    Led3 = 0
    Led4 = 1
    Led5 = 1
    Led6 = 1
    Led7 = 1
   Waitms 1000
   Elseif Taster = 0 And Angeschaltet = 1 Then
    Led1 = 0
    Led2 = 0
    Led3 = 0
    Led4 = 0
    Led5 = 0
    Led6 = 0
    Led7 = 0
    Angeschaltet = 0
   Waitms 1000
    End If
    Waitms 100
   Loop


   End
PS: kann mir ma einer sagen wie ich die programme in diese schichen 2 zeilen fenster pachen kann, dann ist der bericht nich immer so riesig