Ein schöne guten Tag Forum,
ich habe wieder ein Problem, ich habe ein Prg. mit Drei Led die geht eine nach der andere ein und eine nach der andere aus mit ein Buzz.
nun möchte ich gern wenn die Drei Led an sind und nach 5 sec. sollen 3 mal internander Blinken und dann eine nach der andere wieder aus
gehen, mir gelingt nicht das 3 mal blinken sonst läuft das Prg. wunderbar und ihr das Prg. Ich danke euch sehr schon in voraus.
Gruß Antonio
Alles anzeigen
ich habe wieder ein Problem, ich habe ein Prg. mit Drei Led die geht eine nach der andere ein und eine nach der andere aus mit ein Buzz.
nun möchte ich gern wenn die Drei Led an sind und nach 5 sec. sollen 3 mal internander Blinken und dann eine nach der andere wieder aus
gehen, mir gelingt nicht das 3 mal blinken sonst läuft das Prg. wunderbar und ihr das Prg. Ich danke euch sehr schon in voraus.
Gruß Antonio
BASCOM-Quellcode
- $regfile = "attiny13.dat"
- $crystal = 1200000 'Standard- Takt 9,6 MHz / 8
- $hwstack = 0
- $swstack = 0
- $framesize = 0
- Baud = 9600
- Config Pinb.1 = Input
- Config Portb.0 = Output 'Taster(S1)
- Config Portb.2 = Output 'Schaltausgang1
- Config Portb.3 = Output 'Schaltausgang2
- Config Portb.4 = Output 'Buzzer
- Buzz Alias Portb.4
- '-------------------------------------------------------------------------------
- 'Hauptprogramm
- '-------------------------------------------------------------------------------
- Do 'Beginn der Schleife
- If Pinb.1 = 1 Then 'Anfang Der If Bedingung
- Portb.0 = 1 'Schaltausgang1 wird gesetzt
- Buzz = 1 : Waitms 10 : Buzz = 0 'Buzzer wird gesetzt, 1 Sekunden warten, Buzzer wird resetet
- Wait 20 '2 Sekunden warten
- Portb.2 = 1 'Schaltausgang2 wird gesetzt
- Buzz = 1 : Waitms 10 : Buzz = 0 'Buzzer wird gesetzt, 1 Sekunden warten, Buzzer wird resetet
- Wait 20 '2 Sekunden warten
- Portb.3 = 1 'Schaltausgang3 wird gesetzt
- Buzz = 1 : Waitms 10 : Buzz = 0 'Buzzer wird gesetzt, 1 Sekunden warten, Buzzer wird resetet
- Wait 20 '2 Sekunden warten
- Toggle Portb.0
- Waitms 100
- Wait 6
- Portb.0 = 0 'Schaltausgang1 wird resetet
- Buzz = 1 : Waitms 10 : Buzz = 0 'Buzzer wird gesetzt, 1 Sekunden warten, Buzzer wird resetet
- Wait 4 '2 Sekunden warten
- Portb.2 = 0 'Schaltausgang2 wird resetet
- Buzz = 1 : Waitms 10 : Buzz = 0 'Buzzer wird gesetzt, 1 Sekunden warten, Buzzer wird resetet
- Wait 8 '2 Sekunden warten
- Portb.3 = 0 'Schaltausgang3 wird resetet
- Buzz = 1 : Waitms 10 : Buzz = 0 'Buzzer wird gesetzt, 1 Sekunden warten, Buzzer wird resetet
- Wait 12 '2 Sekunden warten
- End If 'Ende der If Bedingung
- Loop 'Ende der Schleife
Teilen dein Wissen, so erlagst du zu Unsterblichkeit