Mega 8 für Intervallauslöser

[bebop]

Hi,
jetzt hab ich's noch mal versucht das Programm zum Laufen zu bringen und jetzt funktioniert es endlich, schuld daran war der Hex Kodierschalter. Nachdem ich ihn vom Steckbrett verbannt habe lief alles wie gewünscht.
Nächste Hürde:
Das Programm passt nicht auf den eigentlich geplanten Attiny 13 drauf Bascom sagt beim Syntax Check das 161% gebraucht werden. Kann ich das Programm noch etwas schmälern oder soll ich mit einen Attiny 45 oder 84 mit 4k oder 8K Flash-Speicher holen?

Gruß Johannes

[Searcher]

Hallo Johannes,
in den if Abfragen machst Du ja eigentlich immer das Gleiche, außer der unterschiedlichen Wartezeit zwischen Pin high und low schalten.

Das könnte man zB so zusammenfassen:

Dim Portstatus As Byte
Do
   Portstatus = pinb And &B00001111    'Portb komplett auslesen und nicht intressierende Pins auf 0 setzen
   Waitms 20
   Portb.4 = 1
   Select Case Portstatus
      Case 0 : Waitms 500
      Case 1 : Waitms 1000
      Case 2 : Waitms 2000
      Case 3 : Waitms 4000
      Case 3 : Wait 8
      .
      .
      Case 15 : Wait 210
   End Select
   Portb.4 = 0
   Waitms 30
Loop

Das sollte in den ATtiny13 passen.

Platz für einen Quarz bleibt da aber wohl nicht mehr bei 4 Input und einem Output Pin?


Gruß
Searcher

[bebop]

Hi Searcher,

danke schon mal für die gute Betreuung aber jetzt muss ich noch mal Sau dumm fragen

Stimmt dann die Config und so alles ? Bin mir da nicht sicher denn da tut sich nichts wenn ichs progge. Ich ziehe die Eingangspins Richtung Masse.

$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 32
$swstack = 8
$framesize = 16

Ddrb = &B00001111

 Portb.0 = 1                                                 'Mit Pinb.0 -3 Werden die Pins des Codierschalters (PT65 303) verbunden
Portb.1 = 1
Portb.2 = 1
Portb.3 = 1




Dim Portstatus As Byte
Do
   Portstatus = Portb And &B00001111    'Portb komplett auslesen und nicht intressierende Pins auf 0 setzen
   Waitms 20
   Portb.4 = 1
   Select Case Portstatus
      Case 0 : Waitms 500
      Case 1 : Waitms 1000
      Case 2 : Waitms 2000
      Case 3 : Waitms 4000
      Case 4 : Wait 8
      Case 5 : Wait 16
      Case 6 : Wait 30
      Case 7 : Wait 45
      Case 8 : Wait 60
      Case 9 : Wait 75
      Case 10 : Wait 90
      Case 11 : Wait 105
      Case 12 : Wait 120
      Case 13 : Wait 150
      Case 14 : Wait 180
      Case 15 : Wait 210
      End Select
   Portb.4 = 0
   Waitms 30
Loop

[Searcher]

Hi,
Du warst zu schnell. Ich hatte meinen Post editiert und aus

Portstatus = Portb And &B00001111
ein
Portstatus = pinb And &B00001111
gemacht.

Konnte das nicht testen und bin zunächst selbst auf die allgemeinene Verwechslung mit Port und Pin reingefallen.

PORT Register nutzen um zu schreiben
PIN Register nutzen um zu lesen


EDIT: DDRB ist falsch gesetzt. Benutz besser CONFIG PORT. ...

Gruß
Searcher

[bebop]

Hi Searcher,

ich habe jetzt das verkürzte Programm von dir in einen Attiny 2313 geladen und ihn mit einem Externen Quarz versehen denn der interne Oszillator war für mich zu ungenau. Der ganze Aufbau ist jetzt fertig und funktioniert bestens, im Vergleich zu einer Schaltung mit einem NE555 spare ich 70% an Energie .

Danke noch mal für die Unterstützung.

Gruß Johannes

[Searcher]

Der ganze Aufbau ist jetzt fertig und funktioniert bestens....Danke noch mal für die Unterstützung

Höt man gerne und gerne wieder. Bemühe mich dann auch mit weniger Nachbesserungen in meinen Beiträgen auszukommen

Gruß
Searcher