Frage zum Programmablauf

[Freakster235]

Hallo Leute,

ich lese schon eine ganze Weile hier im Forum mit und will nun auch ein kleines Projekt verwirklichen und bräuchte dazu Ratschläge und Hilfe.
Bin also totaler anfänger hab außer wenn man einen taster drückt brennt ein LED noch nicht viel geschafft unter BASCOM.

Ich habe einen ATTINY25 ohne weitere exterene Beschaltung den ich mit Bascom Programmieren will.

Folgendes soll der ATTINY machen:

wenn an PB0 low anliegt soll PB1 auf high geschaltet werden 4 sekunden warten danach PB2 auf High schalten.
Der Pegel an PB0 ist ein BUS ändert also ständig zwischen High und Low.
Wenn der Pegel am Bus Länger als 10 Minuten auf High (Ruhezustand) ist sollen PB1 und PB2 auf Low schalten.

Wie realisiert man sowas am besten vom Programmablauf her? Wie muss ich die Timer benutzen?

Vielen Dank für eure Hilfe.

Gruss Freaky!

[Freakster235]

Hallo,

warum will mir eigentlich keiner Antworten? Es duerfte doch fuer geuebte Leute kein Problem sein mir zu sagen wie ich das Programm am besten Ablaufen lasse.

Danke!

[PicNick]

DIe Lösung ist davon abhängig, wie kurz oder lang ein LOW-Inpuls an PB0 ist bzw. sein kann.
Sprich: wie häufig muß man nachsehen, damit einem so ein LOW-Signal nicht durch die Lappen geht ?

[Freakster235]

Hallo,

also es handelt sich um den I-Bus des BMW.
Die baudrate ist 9600 Kbits/s
Ein Telegramm dauert zwischen 5ms und 30ms.
Also sind die LOW Zeiten recht kurz.
Der ATTINY hat 20Mhz.

Gruss Freaky!

[PicNick]

I see.
Dann gibts drei Möglichkeiten:

In der Haupt DO-LOOP Schleife dein Input kontrollieren und in einer TIMER- Interrupt-Routine für die Beleuchtung sorgen.

In der DO-LOOP Schleife die Beleuchtung und die Input-Kontrolle mit einem "Externen Interrupt" machen.

In der DO-LOOP Schleife nix,
die Beleuchtung im Timer-Interrupt
Input-Kontrolle im "externen" Interrupt


In allen Fällen gleich, nur eben anders placiert:

Initialisierung


Zähler für die 10 Minuten laden
Zähler für die 4 Sekunden auf NULL


Input Kontrolle:


Wenn PB0 = 0 (low)
PB1 auf HIGH
Zähler für die 10 Minuten zurücksetzen
Zähler für die 4 Sekunden laden
ENDIF


Beleuchtung:


Wenn 4-Sekundenzähler > 0
-1
Ist der Zähler dann auf null
PB2 auf HIGH
endif
endif

Wenn 10-Minutenzähler > 0
-1
Ist der Zähler dann auf null
PB1 auf LOW
PB2 auf LOW
endif
endif

[Freakster235]

Hallo,

bin grad dabei das ganze in ein Programm umzusetzen.
Eine frage, beim Attiny heissen die Iinterrupts ja PCINT Pinchange Int.

Wie muss ich die intialisieren? Irgendwie klappt das net.
Hab mir die Initialisierung aus dem INT0.BAS abgeguckt und nur INT0 in PCINT0 geaendert, aber das klappt leider net...

Danke!

[Freakster235]

Hallo Leute,

ich habe etz ein Funktionierendes Programm. Kann sich das mal jemand anugcken und Optimierungsvorschlaege machen?
Wie gesagt, mein erstes Programm.


$regfile = "ATtiny25.dat"
$crystal = 1000000

Config Pinb.0 = Input
Config Portb.1 = Output
Config Portb.2 = Output
Config Timer0 = Timer , Prescale = 1024
Disable Timer0
On Timer0 Timer0_isr
Enable Interrupts
Dim Tdown As Integer
Dim Tbus As Integer
Dim Tstat As Integer
Dim Busstat As Integer

Tdown = 2400
Tbus = 16
Tstat = 0
Busstat = 0

Ibus Alias Pinb.0
K1 Alias Portb.1
K2 Alias Portb.2

K1 = 1
K2 = 1

Do
If Ibus = 0 And Tstat = 0 Then
K1 = 0
Tstat = 1
Enable Timer0
End If
If Ibus = 0 And Tstat = 1 And Busstat = 1 Then
Tdown = 2400
End If
Loop
End

Timer0_isr:
Decr Tdown
Decr Tbus
If Tdown = 0 Then
K1 = 1
K2 = 1
Tstat = 0
Tdown = 2400
Tbus = 16
Disable Timer0
End If
If Tbus = 0 Then
K2 = 0
Busstat = 1
End If
Return


Vielen Dank!