Frage zu Alpfa Anzeigen <-ERLEDIGT / NEU code hilfe....BITTE UM RAT

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

Alles anzeigen

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?????

Bitte um rat
Mit Freundlichen Grüßen
Thorsten Sch.

Prytek

ALPHA Anzeige...

Jede "LED" braucht 20mA somit musst du noch den Vorwiderstand einbauen
Wenn es mehrere Segmente werden, musst du GND noch mit dem Controller dazu schalten und einem Transistor.

Habe hier mal ein Beispiel:

[Blockierte Grafik: http://i42.tinypic.com/1zodvg2.jpg]

Dann ist hier noch das Datenblatt, welches dir verrät, welcher PIN GND und die Anoden sind:

http://www.alldatasheet.com/datasheet-pdf/…C08-11SRWA.html

Gruß Denis

Thorsten Sch.

ich möchte die hier verwenden Link und diese möchte ich gern 3 stück plus transistor wie in deiner schaltung an den atmega8....
nur was muss ich den da im code ändern und würde es gehen, ja gehen tut es nur WIE?????

Mit freundlichen Grüßen
Thorsten Sch.

Thorsten Sch.

Hallo Forum Nutzer und bastler
Ich möchte wie im diesen beitrag eine laufschrieftanzeige dahrstellen mit Alpfa Anzeigen
hier ein foto und die daten

1x ATmega8515
es sollen 5 Anzeigen werden (alpfa)
es sollen 5 Trasistoren zum ansteuern der anzeigen

und hier hab ich den code der soweit ja nur halb funktioniert brauch dabei mal ne hilfe ist das soweit ok oder kann man da noch was ändern
ich bitte um rat

hier der code

Code

$regfile = "8515def.DAT"
$hwstack = 32
$swstack = 10
$framesize = 40
$lib "mcsbyte.lbx"


Config Porta = Output
Config Portb = Output
Config Portc.0 = Output
Config Portc.1 = Output
Config Portc.2 = Output
Config Portc.3 = Output
Config Portc.6 = Input
Portc.6 = 0


Declare Sub Licht
Declare Sub Licht1


Dim I As Byte


Do
If Pinc.6 = 0 Then Gosub Licht
If Pinc.6 = 1 Then Gosub Licht1
Loop


Sub Licht
Dim Seg1 As Byte
Dim Seg2 As Byte
Dim Seg3 As Byte
Dim Seg4 As Byte
Dim Seg5 As Byte
Dim Seg6 As Byte
Dim Seg7 As Byte
Dim Seg8 As Byte


Dim Bild As Byte
Dim J As Byte


'---Die 8 möglichen Laufschriftbilder definieren und eines davon auswählen---\
'Der Text Schiebt sich Von Rechts Nach links Rein-----
For Bild = 1 To 6
Select Case Bild
Case 1
Seg1 = &B11111111                                       	'-
Seg2 = &B00000000                                       	'-
Seg3 = &B11111111                                       	'-
Seg4 = &B00000000                                       	'-
Seg5 = &B11111111                                       	'-
Seg6 = &B11110000                                       	'-
Seg7 = &B00001111                                       	'-
Seg8 = &B11110000                                       	'-


Case 2
Seg1 = &B00001111                                       	'-
Seg2 = &B11110000                                       	'-
Seg3 = &B00001111                                       	'-
Seg4 = &B11110000                                       	'-
Seg5 = &B00001111                                       	'-
Seg6 = &B11110000                                       	'-
Seg7 = &B00001111                                       	'-
Seg8 = &B11110000                                       	'-


Case 3
Seg1 = &B00000000                                       	'-
Seg2 = &B11110000                                       	'-
Seg3 = &B00000000                                       	'-
Seg4 = &B00000000                                       	'-
Seg5 = &B00000000                                       	'-
Seg6 = &B00111111                                       	'-
Seg7 = &B00000000                                       	'-
Seg8 = &B00000000                                       	'-


Case 4
Seg1 = &B00000000                                       	'-
Seg2 = &B00111100                                       	'-
Seg3 = &B00000000                                       	'-
Seg4 = &B00111111                                       	'-
Seg5 = &B00000011                                       	'-
Seg6 = &B00000000                                       	'-
Seg7 = &B00000000                                       	'-
Seg8 = &B00000000                                       	'-


Case 5
Seg1 = &B00000000                                       	'-
Seg2 = &B00000000                                       	'-
Seg3 = &B00000000                                       	'-
Seg4 = &B00000000                                       	'-
Seg5 = &B00000000                                       	'-
Seg6 = &B00000000                                       	'-
Seg7 = &B00000000                                       	'-
Seg8 = &B00000000                                       	'-


End Select




For J = 1 To 200                                        	'Zeitschleife. Wert verkleinern für schnelleren Durchlauf.
Portc = &B00000001 : Portb = Seg1 : Porta = Seg2 : Waitms 1
Portc = &B00000010 : Portb = Seg3 : Porta = Seg4 : Waitms 1
Portc = &B00000100 : Portb = Seg5 : Porta = Seg6 : Waitms 1
Portc = &B00001000 : Portb = Seg7 : Porta = Seg8 : 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

Alles anzeigen

Ich Bitte Um rat und tipps, Mit Freundliche
Grüße Thorsten Sch.

Thorsten Sch.

Hallo Forum Und Bastler

Vielen dank an eure hilfe ich habe es selber hinbekommen danke schaut hier hab da ein video reingestellt....

Mit Freundlichen grüßen
Thorsten Sch.

Thorsten Sch.

Hallo Forum und Bastler
Ich habe mir eine platine endweckeln lassen mit Alpfa anzeigen.

Meine daten dazu:
1x ATmega8515
6x PSC08-11SRWA
werden durch transistoren angesteuert
und eine ISP programier Stelle.....

Hier eine Bild von der fertigen platine
VORDERSEITE

RÜCKSEITE

Und hier mein groses proplem der code:

Code

$regfile = "8515def.DAT"
$hwstack = 200
$swstack = 200
$framesize = 200
$lib "mcsbyte.lbx"


Config Porta = Output
Config Portb = Output
Config Portc.0 = Output
Config Portc.1 = Output
Config Portc.2 = Output
Config Portc.3 = Output
Config Portc.4 = Output
Config Portc.5 = Output
Config Portd.0 = Output                                 	'dp
Config Portd.1 = Output                                 	'Pro. LED1
Config Portd.2 = Output                                 	'Pro. LED2
Config Portd.6 = Input
Portd.6 = 1
Config Portd.7 = Input
Portd.7 = 1


Dim Seg1 As Byte
Dim Seg2 As Byte
Dim Seg3 As Byte
Dim Seg4 As Byte
Dim Seg5 As Byte
Dim Seg6 As Byte
Dim Seg7 As Byte
Dim Seg8 As Byte
Dim Seg9 As Byte
Dim Seg10 As Byte
Dim Seg11 As Byte
Dim Seg12 As Byte


Dim Bild As Byte
Dim J As Byte
'---Die 8 möglichen Laufschriftbilder definieren und eines davon auswählen---\
'Der Text Schiebt sich Von Rechts Nach links Rein-----
For Bild = 1 To 50


Select Case Bild


Case 1
Seg1 = &B00000000                                       	'-
Seg2 = &B00000000                                       	'-
Seg3 = &B00000000                                       	'-
Seg4 = &B00000000                                       	'-
Seg5 = &B00000000                                       	'-
Seg6 = &B00000000                                       	'-
Seg7 = &B00000000                                       	'-
Seg8 = &B00000000                                       	'-
Seg9 = &B00000000                                       	'-
Seg10 = &B00000000                                      	'-
Seg11 = &B00000000                                      	'-
Seg12 = &B00000000                                      	'-


Case 2
Seg1 = &B00000000                                       	'-
Seg2 = &B00000000                                       	'-
Seg3 = &B00000000                                       	'-
Seg4 = &B00000000                                       	'-
Seg5 = &B00000000                                       	'-
Seg6 = &B00000000                                       	'-
Seg7 = &B00000000                                       	'-
Seg8 = &B00000000                                       	'-
Seg9 = &B00000000                                       	'-
Seg10 = &B00000000                                      	'-
Seg11 = &B11001001                                      	'W
Seg12 = &B10101000                                      	'W


---------------------------und so weiter


Case 44
Seg1 = &B00000000                                       	'-
Seg2 = &B00000000                                       	'-
Seg3 = &B00000000                                       	'-
Seg4 = &B00000000                                       	'-
Seg5 = &B00000000                                       	'-
Seg6 = &B00000000                                       	'-
Seg7 = &B00000000                                       	'-
Seg8 = &B00000000                                       	'-
Seg9 = &B00000000                                       	'-
Seg10 = &B00000000                                      	'-
Seg11 = &B00000000                                      	'-
Seg12 = &B00000000                                      	'-
End Select


For J = 1 To 120                                        	'Zeitschleife. Wert verkleinern für schnelleren Durchlauf.
Portc = &B00000001 : Porta = Seg1 : Portb = Seg2 : Waitms 1
Portc = &B00000010 : Porta = Seg3 : Portb = Seg4 : Waitms 1
Portc = &B00000100 : Porta = Seg5 : Portb = Seg6 : Waitms 1
Portc = &B00001000 : Porta = Seg7 : Portb = Seg8 : Waitms 1
Portc = &B00010000 : Porta = Seg9 : Portb = Seg10 : Waitms 1
Portc = &B00100000 : Porta = Seg11 : Portb = Seg12 : Waitms 1
Portd.2 = 1 : Waitms 1
Portd.1 = 0 : Waitms 1
Next J


Next Bild
'---Die 8 möglichen Laufschriftbilder definieren und eines davon auswählen---/
End Sub


End

Alles anzeigen

wenn ich noch mehr zeilen einfüge also (case46 und bis case 50) mecker BASCOM rum.....
so nu zu meine Frage würde das auch irgendwie anders gehen?hab einen code gefunden mit der ich auch meine WC anzeige bebaut und programiert habe, bitte schauen code unten......

Alpfa anzeige.txt<--- Bitte klicken

Ich bitte euch um rat oder tipps.........
Mit Freundlichen Grüßen Thorsten Sch.

Thorsten Sch.

Hallloooooo FOOOORUUUMMMMM jemand da der mir verleicht helfen könnte danke
Thorsten Sch.

Benutzer online in diesem Thema