Schaltung Nachfrage und Bascom ( BITTE UM HILFE )

Thorsten Sch.

Hallo Liebes Forum Und Bastler
Habe vohr eine kleine laufschrieft zu bauen mit der anzeige 5x 5x7 Matrix mit einen normalen TEXT Beispiel;
"Willkommen Bei Famillie Test"...

Möchte Gern Verwenden Diese Bauteile:
5 x 74HC164
1x 74HC138
1x ATtiny2313
5x TC07-HWA oder TC12-HWA
1x 7805 Spannungsregler
220Ohm Für die C1-C5
1x 4Mhz Quarz

Die schaltung ist schon Komplett nur der Bascom Code Dafür sthet leider noch nicht, daher bitte ich EUCH mir zu Helfen.
Ja ich hab den Freund der helfer gefragt nur nicht das richtige gefunden nur 1 in ELEKTOR JUNI 2001 Heft 6 den da gab es die
MODULARES PUNKTMATRIX DISPLAY MIT RS232
Nur da Gibt es den CHIP AT89C2051 Würde Gern den ATtiny2313 Benutzen? Geht das...

werde mal meine schaltbilder die ich gefertig habe mal reinstellen und euch Befragen

Bild1 - Controller

Und Hier Die Schieberegister für die Matrix

Ist das soweit OK oder muss da ma noch was ändern an der schaltung

Weitere daten oder Infos Folgen

Bitte Euch Um rat

Wünsche Euch allen Ein Gesundes Neues Jahr 2012 und viel glück

Mit Freundlichen Grüssen Thorsten Sch.

Thorsten Sch.

hab mal was gefunden im Netz
hier der code

Code

'39;*******************************************************************************
'39;
'39;Titel:	Laufschrift mit 5x7 Dot-Matrix-Anzeigen
'39;Autor:	Thorsten Sch.
'39;Datum:	06.01.2012
'39;Betriebsart: Normal
'39;
'39;*******************************************************************************


'39;Initialisieren


$regfile "attiny2313.dat"
$hwstack = 32
$swstack = 10
$framesize = 40
$crystal = 8000000                               	'39;Es wird ein ATmega8 verwendet


Config Portb = Output                                   	'39;PortB und PortD als Ausgang verwenden
Config Portd = Output




'39;Variablen zuweisen


Daten Alias Portb.0
Schieben Alias Portb.1
Speichern Alias Portb.2




Dim Text As String * 255
Dim Zeile(8) As Long


Dim Anz_zeichen As Byte
Dim Zeichen_nr As Byte
Dim Zeichen As String * 1


Dim Ascii_wert As Byte
Dim Pos_tabelle As Word
Dim Zeichen_zeile As Byte
Dim Nummer As Byte




Dim Pin As Byte
Dim Stelle As Byte




'39;Hauptprogramm




Zeile(1) = 0
Zeile(2) = 0
Zeile(3) = 0
Zeile(4) = 0
Zeile(5) = 0
Zeile(6) = 0
Zeile(7) = 0
Zeile(8) = 0




'39;Startdefinitionen


Pin.0 = 0
Stelle = 1




'39;Texteingabe


Text "0123456789"                                       	'39;Ausgabetext


Anz_zeichen = Len(text)


Gosub Anzeige


Do


Gosub Ausgabe


Loop


End


Anzeige:


For Zeichen_nr = Anz_zeichen To 1 Step -1
Zeichen = Mid(text , Zeichen_nr , 1)
Ascii_wert = Asc(zeichen)
Pos_tabelle = Ascii_wert * 8


Stelle = 1


For Stelle = 1 To 8


Zeichen_zeile = Lookup(pos_tabelle , Zeichensatz)       	'39;Zeichen aus der Tabelle holen und im Array speichern     	'




  Shift Zeile(stelle) , Left , 6


  Zeile(stelle) = Zeile(stelle) + Zeichen_zeile




Incr Pos_tabelle


Next Stelle


Next Zeichen_nr


Stelle = 1


Return




Ausgabe:                                                	'39;Ausgabe des Texts auf der Anzeige (per Multiplexing)




 	Shiftout Daten , Schieben , Zeile(stelle)


 	Set Speichern
 	Reset Speichern


 	Portd.pin = 1
 	Waitms 2                                           	'39;Leuchtdauer der LED's (damit kein Flimmern sichtbar ist)
 	Portd.pin = 0


 	Incr Pin
 	Incr Stelle


 	If Pin > 7 Then Pin = 0
 	If Stelle > 8 Then Stelle = 1


Return




Zeichensatz:


( zeichen zatz endvernd )

Alles anzeigen

so das programm von bascom macht beim combrimieren ein strich durch die rechnung fehler in zeile 29 und 65 wo ist da das proplem? bitte um hilfe oder rat....

mit freundlichen grüssen Thorsten Sch.

walter99

so das programm von bascom macht beim combrimieren ein strich durch die rechnung fehler in zeile 29 und 65 wo ist da das proplem? bitte um hilfe oder rat....

mit freundlichen grüssen Thorsten Sch.

wenn du schon programme von anderen nutzt mu0te auch seine parameter übernehmen, dieses ist für einen atmega 8 geschrieben.
Mit frdl Grüßen

Andy_KEH

Zitat von Thorsten Sch.

Dim Text As String * 255

Ein Blick in die Hilfe ergibt:

Zitat

·
String (up to 254 bytes). Strings are stored as bytes and are terminated
with a 0-byte. A string dimensioned with a length of 10 bytes will occupy 11
bytes.

Ist also schon per Definition zu groß
Außerdem für einen Tiny2313 vielleicht eh ein bisschen viel.....so üppig viel Speicher hat der ja nicht gerade.