timer programm umschreiben

so ähnlich kann aber nicht genau sagen ob es geht ich hab es nicht getestet. irgendwie überschneiden wir unst ständig

jez musde mir nurnoch sagen wie ich "an taster" und "zaeler" in meine syntax bekomme^^ der kennt die begriffe ja nicht.

Config Pind.7 = Input
Taster Alias Pind.7
Portd.7 = 1


taster müsste er kennen

und zaehler mit dim zaehler as integer

Zitat:

---

Zitat von Thomas$

If Angeschalten=1 an taster=0 then Angeschaltet=0 :Zaehler=Zaehler+1

---

soll das "an" ein "and" sein?

ok mein programm siet wie folgt aus

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
  Dim Zaehler As Integer

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

  End

---

aber irgentwas ist noch mit der syntax, der compiller akzeptiert das nicht

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

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
  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

---

jo funzt, danke