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.

Code:
$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