Displej je napravljen od 8 pločica. Na svakoj se nalazi 16 LED, 16 otpora i 2 komada mojih omiljenih 74HC595.
Ovdje se nalazi samo osnovni dio programa; ostatak je na stranicama literature i softvera; Bascom programi , pod imenom: trk_r6. Još treba promijeniti ASCII tablicu u naša slova....To za koji dan....Tekst se još za sada ukucava u kontroler, ali za koji dan će da se uspostavi i veza sa računalom, pa će se tekst ukucati preko njega.
' (c) Boris Felc 2000
' putujuči tekst
' Prikaz serijski na 2x74595 i tako 8 puta
' Zadnja revizija 16.11.2013.
'-------------------------------------------------------------------------------
$regfile = "m8def.dat"
' $crystal = 8000000
$hwstack = 40
$swstack = 16
$framesize = 32
Config Portb = Output
Config Portc = Output
Zapamti Alias Portc.1
Klok Alias Portc.2
'-------------------------------------------------------------------------------
Dim Poruka As String * 150
Dim Polja(500) As Byte
Dim Kolona As Byte
Dim Jedan_znak As String * 1
Dim Znak As Byte
Dim Mjesto_znaka As Byte
Dim Temp As Byte
Dim Polja_ptr As Byte
Dim Citanje_table As Integer
Dim Duzina_poruke As Word
Dim Duzina_polja As Word
'-------------------------------------------------------------------------------
Poruka = "Danas je cijeli dan bilo lijepo vrijeme."
Duzina_poruke = Len(poruka)
Duzina_polja = Duzina_poruke * 6
Duzina_polja = Duzina_polja + 8
For Mjesto_znaka = 1 To Duzina_poruke
Jedan_znak = Mid(poruka , Mjesto_znaka , 1)
Citanje_table = Asc(jedan_znak)
Citanje_table = Citanje_table - 32
Citanje_table = Citanje_table * 6
For Kolona = 0 To 5
Temp = Lookup(citanje_table , Table)
Polja(polja_ptr) = Temp
Incr Citanje_table
Incr Polja_ptr
Next
Next
Polja_ptr = 1
'------------------------------------------------------------------------------
Do
Reset Zapamti : Waitms 1
Set Klok : Waitms 1
Portb = Polja(polja_ptr)
Polja_ptr = Polja_ptr + 1
If Polja_ptr > Duzina_polja Then Polja_ptr = 0
Reset Klok : Waitms 1
Set Zapamti : Waitms 1
Waitms 200
Loop
'-------------------------------------------------------------------------------
Table:
Data 0 , 0 , 0 , 0 , 0 , 0 'space
.......i tako dalje