...und funktioniert doch nicht.
Hallo,
ist gut ein Jahr her mit diesem Program und dem Tiny13V; da hat es - leicht abgewandelt und mit einem 7- Segment - problemlos funktioniert (auch die komunication mit einem 2. µC). Nun habe ich statt des 7-Segmentes jetzt 8 Leds eingesetzt und über das 74HC595 ein Lauflicht erwartet...Es leuchten nach Tastendruck aber nur vereinzelt Leds und auch nur in langen Abständen auf...
Ich hab schon, wie ich meine, alles probiert. Auch mit und ohne Fuse- Frequenzteiler und mit den entsprechenden Frequenzen über $Crystal. Kann doch nicht sein, daß das nicht mehr geht...
Hallo,
ist gut ein Jahr her mit diesem Program und dem Tiny13V; da hat es - leicht abgewandelt und mit einem 7- Segment - problemlos funktioniert (auch die komunication mit einem 2. µC). Nun habe ich statt des 7-Segmentes jetzt 8 Leds eingesetzt und über das 74HC595 ein Lauflicht erwartet...Es leuchten nach Tastendruck aber nur vereinzelt Leds und auch nur in langen Abständen auf...
Ich hab schon, wie ich meine, alles probiert. Auch mit und ohne Fuse- Frequenzteiler und mit den entsprechenden Frequenzen über $Crystal. Kann doch nicht sein, daß das nicht mehr geht...
Code:
''
' Name : Tribuenenblitz_tiny13V.bas
' Autor : ACVision (c) 2006-2013 by Michael Gewohn, 31.03.2013
'' Funktion : Tribünenblitzer über 5 Schieberegister 74HC595
' µC : ATtiny13V 10PU
'____________________________________________________________________
''
$regfile = "attiny13.dat" ' specify the used micro
$crystal = 9600000 ' used crystal frequency
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 8 ' default use 10 for the SW stack
$framesize = 20 ' default use 40 for the frame space
'____________________________________________________________________
'_____ Variablen - Subroutinen - Labels ___________________________________
''
dim i as byte , k as byte , l as byte , m as byte
'____________________________________________________________________
'_____ Ports definieren _________________________________________________
'
DDRB = &B00000111 'RCK, SI, SCK
portb = &B00011000 ' RCK, SCK, SI - low , Taster 1+ 2 - high'
'____________________________________________________________________
'_____ Pins zuweisen, Schieberegister 74HC595 __________________________
''
SI alias portb.0 ' 5 - Datenbits übertragen
RCK alias portb.1 ' 6 - Anzeigen und Speichern
SCK alias portb.2 ' 7 - Schiebetakt über SHIFTOUT
hin alias pinb.4 ' 3 - Tribühnenblitz 1 - 5
her alias pinb.3 ' 2 - Tribühnenblitz 5 - 1
'____________________________________________________________________
'_____ Hauptprogramm ________________________________________________
''
' main:
''
waitms 200
do
'debounce hin , 0 , blitz
'debounce her , 0 , blitz
if hin = 0 then l = 1 : m = 8 : gosub blitz : waitms 200
if her = 0 then l = 8 : m = 1 : gosub blitz : waitms 200
loop
end
'____________________________________________________________________
'_____ Sub's / Labels _________________________________________________
''
blitz:
for i = l to m
k = lookup(i , Zeichen)
shiftout SI , SCK , k , 1 ' Zeichen ins Register...
RCK = 0 : RCK = 1 : RCK = 0 '...und anzeigen
waitms 100
next i
return
'____________________________________________________________________
'_____ DATA _________________________________________________________'
''
Zeichen:
' 0 1 2 3 4 5
data &B0000_0000 , &B0000_0001 , &B0000_0010 , &B0000_0100 , &B0000_1000 , &B0001_0000
' 6 7 8
data &B0010_0000 , &B0100_0000 , &B1000_0000
' alle an alle aus
data &B11111111 , &B00000000
' 0 1 2 3 4 5
'data &B00111111 , &B00000110 , &B01011011 , &B01001111 , &B01100110 , &B01101101
' 6 7 8 9 dp -
'data &B01111100 , &B00000111 , &B01111111 , &B01100111 , &B10000000 , &B01000000
' A B C d E F
'data &B01110111 , &B01111100 , &B00111001 , &B01011110 , &B01111001 , &B01110001
' G H dp - alle an alle aus
'data &B01111101 , &B01110110 , &B10000000 , &B01000000 , &B11111111 , &B00000000