Frage zu Alpfa Anzeigen und zur schaltung code....BITTE UM RAT
Hallo liebes Forum und Bastler
Wünsche Allen noch ein Frohes Neues Jahr und viel gesundheit und was man noch wünscht
Ich würde gern wissen wie es mach bar währ ir diesen code
eine Alpfa Anzeige anzusteuern......?????
Habe noch nichts mit schiebe Register (74HC595) Gemacht oder ist das hier Sehe Bild ok?
die anschlüsse von der nzeige ( a-DP ) kommen noch 2 anzeigen ran und von anzeige 1-3 gehen an Pin PD5-7 würde das hinhauen????? Ich bete zu euch Bitte um rat oder tipps
Bitte um rat
Mit Freundlichen Grüßen
Thorsten Sch.
Hallo liebes Forum und Bastler
Wünsche Allen noch ein Frohes Neues Jahr und viel gesundheit und was man noch wünscht
Ich würde gern wissen wie es mach bar währ ir diesen code
Code:
$regfile = "ATtiny2313.DAT"
$hwstack = 32
$swstack = 10
$framesize = 40
$lib "mcsbyte.lbx"
Config Portb = Output
Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.2 = Output
Config Portd.3 = Output
Config Portd.6 = Input
Portd.6 = 0
Declare Sub Licht
Declare Sub Licht1
' Dim I As Byte
dim Seg1 as byte
dim Seg2 as byte
dim Seg3 as byte
dim Seg4 as byte
dim Bild as Byte
dim j as Byte
Do
If Pind.6 = 0 Then Gosub Licht
If Pind.6 = 1 Then Gosub Licht1
Loop
Sub Licht
'---Die 8 möglichen Laufschriftbilder definieren und eines davon auswählen---\
for Bild = 1 to 8
select case Bild
case 1
Seg1=&B00000000 '-
Seg2=&B00000000 '-
Seg3=&B00000000 '-
Seg4=&B01100010 'L
case 2
Seg1=&B00000000 '-
Seg2=&B00000000 '-
Seg3=&B01100010 'L
Seg4=&B11110010 'U
case 3
Seg1=&B00000000 '-
Seg2=&B01100010 'L
Seg3=&B11110010 'U
Seg4=&B10110110 'C
case 4
Seg1=&B01100010 'L
Seg2=&B11110010 'U
Seg3=&B01100011 'C
Seg4=&B10110110 'Y
case 5
Seg1=&B11110010 'U
Seg2=&B01100011 'C
Seg3=&B10110110 'Y
Seg4=&B00000000 '-
case 6
Seg1=&B01100011 'C
Seg2=&B10110110 'Y
Seg3=&B00000000 '-
Seg4=&B00000000 '-
case 7
Seg1=&B10110110 'Y
Seg2=&B00000000 '-
Seg3=&B00000000 '-
Seg4=&B00000000 '-
case 8
Seg1=&B00000000 '-
Seg2=&B00000000 '-
Seg3=&B00000000 '-
Seg4=&B00000000 '-
end select
for j = 1 to 100 'Zeitschleife. Wert verkleinern für schnelleren Durchlauf.
Portd = &B00000001 : Portb = Seg1 : Waitms 1
Portd = &B00000010 : Portb = Seg2 : Waitms 1
Portd = &B00000100 : Portb = Seg3 : Waitms 1
Portd = &B00001000 : Portb = Seg4 : Waitms 1
next j
next Bild
'---Die 8 möglichen Laufschriftbilder definieren und eines davon auswählen---/
End Sub
Sub Licht1
Portd = 1 : Portb = &B0000100
Waitms 200
End Sub
End
eine Alpfa Anzeige anzusteuern......?????
Habe noch nichts mit schiebe Register (74HC595) Gemacht oder ist das hier Sehe Bild ok?
die anschlüsse von der nzeige ( a-DP ) kommen noch 2 anzeigen ran und von anzeige 1-3 gehen an Pin PD5-7 würde das hinhauen????? Ich bete zu euch Bitte um rat oder tipps
Bitte um rat
Mit Freundlichen Grüßen
Thorsten Sch.