Mega 8 für Intervallauslöser

[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