Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Reklama sa Max 7219

[es] :: Elektronika :: Mikrokontroleri :: Reklama sa Max 7219

Strane: 1 2

[ Pregleda: 4332 | Odgovora: 30 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

alarmi ns
Novi Sad

Član broj: 326042
Poruke: 291
*.dynamic.sbb.rs.



+2 Profil

icon Reklama sa Max 721901.03.2023. u 13:12 - pre 13 meseci
Pozdrav svima pokusavam da napravim reklamu sa cetiri segmenta od po 64 bele led diode 10mm koji gura cip max 7219
segment po segment kad probam radi savrseno, ali kada vezem dva sve pocne da brlja.
da bi stvar bila jos zacarenija kupio sam male displeje sa istim cipom ima na kupujem prodajem i to radi savrseno.Imam dva koda i u pbp--u i u protonu i oboje rade isto, gde gresim.Okacicu kod u pbp-u i semu.Unapred hvala
Code:
   Define   OSC   20      ' Set Xtal Frequency
TRISA = %00000001    
TRISB = %00000000
TRISC = %00000000
TRISD = %00000000
TRISE = %0000
ADCON1 = 7 ' PORTA i PORTE su digitalni  ISKLJUCI KOMPARATORE I ANALOGNE ULAZE
include "modedefs.bas"

'-----VARIABLES-----
ADDRESS var word 'variable address for display
DATAREG var word 'variable data register for display
Y VAR BYTE 'contador para cargar address y datareg
X var BYTE
DES VAR BYTE
'ADDRESS2 var word 'variable address for display
'DATAREG2 var word 'variable data register for display
SYMBOL CLK = PORTB.0
SYMBOL DAT = PORTB.1
SYMBOL LOAD = PORTB.2
SYMBOL RXD = PORTC.1
SYMBOL TXD = PORTC.0
'-----PIN SETUPS-----
low dat 'data pin for MAX7219 (1)
low clk 'clock pin for MAX7219 (13)
low load 'load pin for MAX7219 (12)
low rxd:low txd
'-----MAX7219 SETUP-----
ADDRESS = $09 : DATAREG = $00 : gosub MaxWrite ' COMBINACION BINARIA, NO DECODE
'ADDRESS = $0A : DATAREG = $0F : gosub MaxWrite ' INTENSIDAD DE LEDS 1(MIN) A F(MAX)
ADDRESS = $0A : DATAREG = $05 : gosub MaxWrite ' INTENSIDAD DE LEDS 1(MIN) A F(MAX)
ADDRESS = $0B : DATAREG = $0F : gosub MaxWrite ' SCAN LIMIT NUMERO DE DIGITOS
ADDRESS = $0C : DATAREG = $01 : gosub MaxWrite ' NO SHUT, NORMAL OPERATION
'ADDRESS = $0F : DATAREG = $01 : gosub MaxWrite 'test 100% all led
'PAUSE 1500
ADDRESS = $0F : DATAREG = $00 : gosub MaxWrite
GOSUB LIMPIAR
'***
INICIO:   
'    FOR Y = 0 TO 7
'     LOOKUP Y,[$70,$88,$98,$A8,$C8,$88,$70,$00],DATAREG ' LETTER "0"
'     LOOKUP Y,[$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF],DATAREG ' LETTER "0"
'     ADDRESS = Y+1' : DATAREG = DATAREG >> DES  'POMAK U DESNO
'     GOSUB MAXWRITE
'    NEXT Y
'PAUSE 3000
'    FOR Y = 0 TO  7
'     LOOKUP Y,[$70,$88,$98,$A8,$C8,$88,$70,$00],DATAREG ' LETTER "0"
'     LOOKUP Y,[$CC,$CC,$33,$33,$CC,$CC,$33,$33],DATAREG ' LETTER "0"
'     ADDRESS = Y+1' : DATAREG = DATAREG >> DES  'POMAK U DESNO
'     GOSUB MAXWRITE
'    NEXT Y
'PAUSE 3000
'    for y = 0 to 7
'     lookup y,[$08,$2A,$3E,$1C,$1C,$3E,$2A,$08],DATAREG'*
'     lookup y,[$33,$33,$CC,$CC,$33,$33,$CC,$CC],DATAREG'*
'    address = y+1': datareg = datareg >>des
'    gosub maxwrite
'    next y
'pause 3000
'    FOR Y = 0 TO 7   'smajli @_I
'     LOOKUP Y,[$70,$88,$98,$A8,$C8,$88,$70,$00],DATAREG ' LETTER "0"
'     LOOKUP Y,[$10,$26,$46,$40,$40,$46,$26,$10],DATAREG ' LETTER "0"
'     ADDRESS = Y+1' : DATAREG = DATAREG >> DES  'POMAK U DESNO
'     GOSUB MAXWRITE
'    NEXT Y
'PAUSE 3000
    for y = 0 to 7  'smajli @_II
'     lookup y,[$08,$2A,$3E,$1C,$1C,$3E,$2A,$08],DATAREG'*
     lookup y,[$3C,$42,$95,$A1,$A1,$95,$42,$3C],DATAREG'*
     address = y+1': datareg = datareg >>des
     gosub maxwrite
    next y
pause 300'0
'****
GOSUB LIMPIAR
    for y = 0 to 7
    address = y+1': datareg = datareg >>des
    for x = 0 to 7
'      lookup x,[1,2,4,8,16,32,64,128],DATAREG'*
      lookup x,[128,64,32,16,8,4,2,1],DATAREG'*
      gosub maxwrite
      pause 100'500'0                                                   
    next x
      datareg = 0
      gosub maxwrite
      pause 500'0                                                   
      gosub maxwrite
    next y
GOSUB LIMPIAR
GOTO INICIO
'***
MaxWrite:
shiftout DAT,CLK,MSBFIRST,[address,datareg]
shiftout DAT,CLK,MSBFIRST,[address,datareg]
shiftout DAT,CLK,MSBFIRST,[address,datareg]
shiftout DAT,CLK,MSBFIRST,[address,datareg]
'Shift out the data to the 'MAX7219 'first the address, then data.
pulsout LOAD,1 'load the data into the MAX7219
return
'***
LIMPIAR:
for Y = 0 to 7 'write $0F (blank) to all digits
ADDRESS = Y+1 : DATAREG = $00 : gosub MaxWrite
next Y
return
Prikačeni fajlovi
 
Odgovor na temu

ziki_the
Milan Zivkovic
Elektricar
West Pharmaceutical Services
Kovin,Srbija

Član broj: 252616
Poruke: 619
165.225.206.*



+106 Profil

icon Re: Reklama sa Max 721901.03.2023. u 15:20 - pre 13 meseci
A struja dioda? Od 10mm...
Everybody Lies..
 
Odgovor na temu

alarmi ns
Novi Sad

Član broj: 326042
Poruke: 291
*.dynamic.sbb.rs.



+2 Profil

icon Re: Reklama sa Max 721901.03.2023. u 15:28 - pre 13 meseci
Evo ove ledice su u reklami 20ma
Prikačeni fajlovi
 
Odgovor na temu

sfredsfred
Ferenc Santo
serviser
Petrovaradin

Član broj: 224666
Poruke: 6
*.dynamic.sbb.rs.

Sajt: pcsos.info


Profil

icon Re: Reklama sa Max 721901.03.2023. u 15:51 - pre 13 meseci
max ima podesavanje osvetljenja 1-15 pa prema tome i struja
sfredred
 
Odgovor na temu

alarmi ns
Novi Sad

Član broj: 326042
Poruke: 291
*.dynamic.sbb.rs.



+2 Profil

icon Re: Reklama sa Max 721901.03.2023. u 15:59 - pre 13 meseci
Znam. podesio sam to, al opet nece
evo koda i u protonu
Code:
'****************************************************************
'*  Name    : UNTITLED.BAS                                      *
'*  Author  : [select VIEW...EDITOR OPTIONS]                    *
'*  Notice  : Copyright (c) 2020 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 08.12.2020                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :  1,2,4,8,16,32,64,128,256                                                 *
'****************************************************************
Device 18F4620
' ==== 18F4620 Configuration Fuses ===================
Config_Start
OSC = HS ; HS Oscillator
'OSC = INTIO67    ;Internal oscillator block, port function on RA6 and RA7
FCMEN = OFF ; Failsafe Clock Monitor Disabled
IESO = On ; Int/Ext Oscillator Switch Over Disabled 
PWRT = On ; Power Up Timer Enabled
;BORV = 3 ; Brownout Reset Voltage 4.6V
WDT = OFF ; Watchdog Timer Disabled
WDTPS = 1 ; Watchdog Postscaler: 1:1
MCLRE = On ; MCLR disabled
LPT1OSC = On ; T1 Oscillator Disabled 
STVREN = On ; Stack Overflow Reset Enabled
LVP = OFF ; Low Voltage ICSP Disabled 
XINST = OFF ; XINST Disabled
Debug = OFF ; Background Debugger Disabled 
CP0 = OFF ; Code Protection Block 0 Disabled 
CP1 = OFF ; Code Protection Block 1 Disabled 
CP2 = OFF ; Code Protection Block 2 Disabled 
CP3 = OFF ; Code Protection Block 3 Disabled 
CPB = OFF ; Boot Block Code Protection Disabled 
CPD = OFF ; Data EEPROM Code Protection Disabled 
WRT0 = OFF ; Write Protection Block 0 Disabled 
WRT1 = OFF ; Write Protection Block 1Disabled 
WRT2 = OFF ; Write Protection Block 2 Disabled 
WRT3 = OFF ; Write Protection Block 3 Disabled 
WRTB = OFF ; Boot Block Write Protection Disabled 
WRTC = OFF ; Configuration Register Write Protection Disabled 
WRTD = OFF ; Data EEPROM Write Protection Disabled 
EBTR0 = OFF ; Table Read Protection Block 0 Disabled 
EBTR1 = OFF ; Table Read Protection Block 1 Disabled 
EBTR2 = OFF ; Table Read Protection Block 2 Disabled 
EBTR3 = OFF ; Table Read Protection Block 3 Disabled 
EBTRB = OFF ; Boot Block Table Read Protection Disabled 
Config_End
'Remarks On
Xtal = 20 ' Set Xtal Frequency
'All_Digital = True
; Optimiser_Level = 3 ' Full optimisation
; Dead_Code_Remove = On ' Remove redundant ASM mnemonics
'    Reminders = On
    Reminders = OFF 
'    Include "Proton_4.Inc"
'--------------------------------------------------------------------------------------------------- 
' Setup the USART

    Declare LCD_DTPin = PORTD.4
    Declare LCD_RSPin = PORTE.0
    Declare LCD_ENPin = PORTE.1
    Declare LCD_Interface = 4
    Declare LCD_Lines = 2
    Declare LCD_Type = 0
    Declare LCD_CommandUs = 2000
    Declare LCD_DataUs = 56

    Declare Serial_Baud = 9600
    Declare Rsout_Pin = PORTC.0
'    Declare Rsout_Pin = PORTC.6
    Declare Rsout_Mode = 0
    Declare Rsout_Pace = 1000
    Declare Rsin_Pin = PORTC.1
'    Declare Rsin_Pin = PORTC.7
    Declare Rsin_Mode = 0
    Declare Rsin_Timeout = 20'0

    Declare Hserial_Baud = 9600                 ' Set baud rate to 9600
    Declare Hserial_RCSTA = %10010000           ' Enable serial port and continuous receive
    Declare Hserial_TXSTA = %00100100           ' Enable transmit and asynchronous mode
    Declare Hserial_Clear = On                  ' Enable Error clearing on received characters

    Declare All_Digital = True
    Declare PortB_Pullups = True           '   1/0, TRUE/FALSE, or ON/OFF        
    Declare Shift_DelayUs 2
 '---------------------------------------------------------------------------------------------------
' ** Declare Pins Used **
'------------- MAX7210 -----------
    Symbol Clk  = PORTB.0 ' Data is clocked on rising edge of this pin
    Symbol Dta  = PORTB.1 ' Bits are shifted out of this pin
    Symbol Load = PORTB.2 ' Transfers data to LEDs when Pulsed
    Symbol T9600 = 84
    Symbol CR = 13        ' Value to wait for
 '--------------  RTC   -----------
    Symbol SCLK       = PORTA.2        'use   ' Define STORE Pin
    Symbol RST        = PORTA.3        'use   ' Define STORE Pin
    Symbol IO         = PORTA.4        'use   ' Define STORE Pin
'--------------  USB   -----------
'    Symbol DPLU        = PORTC.5    'use   ' Define STORE Pin
'    Symbol DMIN        = PORTC.4    'use   ' Define STORE Pin
'------------ Terminal -----------
    Symbol TER         = PORTB.7    'use   ' Define STORE Pin
'-------------- SD/MMC -----------
'    Symbol SD_CS      = PORTD.0        'use   ' Define CLK Pin
'    Symbol SD_DI      = PORTD.1        'use   ' Define DATA Pin
'    Symbol SD_DO      = PORTD.2        'use   ' Define DATA Pin
'    Symbol SD_CLK     = PORTD.3        'use   ' Define CLK Pin
'--------------------------------------------------------------------------------------------------- 
    CMCON  = $07;       // Disable comparators
    ADCON0 = $00;       //clear ADCON0 to select channel 0 (AN0)
    ADCON1 = %00001110; //VSS,VDD ref. AN0 analog only
    ADCON2 = %00001000; //ADCON2 setup: Left justified, Tacq=2Tad, Tad=2*Tosc (or Fosc/2)
    PORTA  = $00
    TRISA  = %00000001  '//AD
    PORTB  = $0
    TRISB  = %10000000  'Terminal
    PORTC  = $0
    TRISC  = %00000010  'TX
    PORTD  = $0
    TRISD  = %00000000
    PORTE  = $00
    TRISE  = %00000
    Dim XAD2  As Word
    Dim XAD22 As Word
    Dim AD0   As Word'    Dim Uup        As Byte
'    Dim Sat As String * 21
    Dim Sat As String * 4'5'6
    Dim HH[2] As Byte
    Dim MM[2] As Byte
    Dim SS[2] As Byte
    Dim DD[3] As Byte
    Dim DN[2] As Byte
    Dim ME[3] As Byte
    Dim GG[2] As Byte
    RSOut "*ECC DEKA  *",10,13
    RSOut " Dobro Dosli",10,13 
' Subroutine to read ADconvertors
'       Value = 489 * (Ad_Result / 10)              ' Quantasize the result
'       Volts = Value / 10000                       ' Split off the Volts
'        MilliVolts = (Value // 10000) / 100         ' Split off the MilliVolts
'    AD0 = ADIn 0                          ' Read the ADC
'    rsout "** ",Dec AD0 /100 ,13',10' Send key out serial port'***
'    RSOut "** ",Dec AD0 /100 ,13',10' Send key out serial port'***
'    GoSub ADCon
'--------------------------------------------------------------------------------------------------- 
' ** Declare Constants **
Symbol Decode_Reg 9 ' Decode REG, a 1 turns on BCD decoding for each digit. 
Symbol Lum_Reg 10 ' Intensity REG.
Symbol Scan_Reg 11 ' Scan-limit REG.
Symbol Switch_Reg 12 ' On/Off REG.
Symbol Test_Reg 15 ' Test mode REG (all digits on, 100% bright)
Symbol Led = PORTC.4
'---------------------------------------------------------------------------------------------------
' Declare Variables matrixdsiplay
'Dim Counts As Dword ' Variable used for the Demo Counting routine
'Dim Max_Disp As Dword ' 16-bit COL to be displayed by the MAX7219
'Dim Max_Dp As Byte ' Digit number to place Decimal point (0-4)
Dim REG As Byte ' Pointer to the Internal Registers of the MAX7219
Dim COL As Byte ' Data placed in Each REG
'Dim Digit As Byte ' Position of individual numbers within MAX_Disp (0-3)
'Dim Position As Byte ' Position of each LED display (1-4)
'Dim Delay As Dword
    Dim TT  As String * 1 
    Dim CZ  As String * 1 
    Dim ST  As String  * 8'6
'    Dim SerString As String * 56
    Dim SStr As String * 56 
    Dim AD    As Byte
    Dim EX    As Byte
    Dim XD    As Byte
'    Dim SN    As Byte
'    Dim DDX   As Word'Byte
'    Dim MMX   As Word'Byte
Dim CX    As Word
Dim CY    As Word'Byte
Dim ZC    As Byte
Dim CC    As Word'Byte
'    Dim Z     As Byte
'    Dim ITAS[2] As Byte
'    Dim TAS As String * 1 
'    Dim TT  As String * 1 
'    Dim CZ  As String * 1 
'    Dim ST  As String  * 8'6
Dim XX As Word'Byte
Dim YY As Word'Byte
Dim SN As Word'Byte

Dim IDX_A As Word
Dim IDX_B As Word
Dim IDX_C As Word
 
Dim IDX_FC_A As Word
Dim IDX_FC_B As Word
Dim IDX_FC_C As Word

Dim IDX_LB_A As Word
Dim IDX_LB_B As Word
Dim IDX_LB_C As Word
 
Dim IDX_SMF_A As Word
Dim IDX_SMF_B As Word
Dim IDX_SMF_C As Word
 
Dim IDX_SMB_A As Word
Dim IDX_SMB_B As Word
Dim IDX_SMB_C As Word
 
Dim IDX_MM_A As Word
Dim IDX_MM_B As Word
Dim IDX_MM_C As Word
 
;Dim IDX_FLIP As Word
;Dim IDX_BUFF As Word
;Dim IDX_WHILE As Word
 
Dim LETTER As Word
Dim CHAR_ARRAY_LENGTH As Word
Dim MATRIX_BUFF_LENGTH As Word
 
Dim MATRIX_BUFF0[256] As Byte
Dim MATRIX_BUFF1[256] As Byte
Dim MATRIX_BUFF2[256] As Byte
 
'Dim MATRIX_ARRAY0[256] As Byte
Dim MATRIX_ARRAY1[256] As Byte
Dim MATRIX_ARRAY2[256] As Byte
 
Dim MATRIX_ARRAY_TEMP[256] As Byte 
 
Dim CHAR_TEMP As String * 56'255
Dim CHAR_ARRAY As String * 56'255
Dim SERIAL_CHAR_ARRAY As String * 56' 255
Dim SERIAL_CHAR_ARRAY_TEMP As String * 56' 255
Dim SERIAL_CHAR_ARRAY0 As String * 56'255
Dim SERIAL_CHAR_ARRAY1 As String * 56'255
Dim SERIAL_CHAR_ARRAY2 As String * 56
Dim SERIAL_CHAR_ARRAY3 As String * 56
Dim SERIAL_CHAR_ARRAY4 As String * 56
Dim SERIAL_CHAR_ARRAY5 As String * 56
Dim SERIAL_CHAR_ARRAY6 As String * 56
Dim _USART_BUFFER_COUNT As Word 
Dim CHAR_ARRAY_TEMP As String * 56'255
Dim CHAR_ARRAY_FLIP As String * 56'255
'--------------------------------------------------------------------------------------------------- 
'hulp bits & bytes
Dim flag As Bit
Dim FLAG1 As Bit
Dim TOGGLEBIT1 As Bit
Dim TOGGLEBIT2 As Bit
Dim BEGINBIT As Bit
Dim x As Byte
Dim db1 As Bit
Dim text As Byte
Dim DECTEMP As Byte
Dim TEMPBYTE As Byte
Dim length As Byte
'Dim CX As Byte
'Dim CY As Byte
Dim Z As Byte
Dim ITAS[2] As Byte
Dim TAS As String * 1 
BEGINBIT = 0
TOGGLEBIT1 = 1
TOGGLEBIT2 = 0
flag = 0
FLAG1 = 0
text = 0
'Dim SerString[40] As Byte ' Create a 10-byte array.
Dim SerString As String * 56
'SerString = "!Test_ygjMM"'N890,1234567890#" ; MAXIMUM OFF 42 CHARACTERS...
'SerString = "IGI MJSTOR RADI OD JUTRA DO UVECE MOZDA BAS NECE DO PONOCI ALI NIKADA SE NEZNA 12"
'SERIAL_CHAR_ARRAY1 = SerString'"!Test_ygjMMN890,1234567890#" ; MAXIMUM OFF 42 CHARACTERS...
SERIAL_CHAR_ARRAY1 = ""; MAXIMUM OFF 42 CHARACTERS...
SERIAL_CHAR_ARRAY2 = "2"
SERIAL_CHAR_ARRAY3 = "3"
SERIAL_CHAR_ARRAY4 = "4"
SERIAL_CHAR_ARRAY5 = "5"
SERIAL_CHAR_ARRAY6 = "6"
'SERIAL_CHAR_ARRAY2 = "2_ MAJSTOR"
'SERIAL_CHAR_ARRAY3 = "3_ RADI"
'SERIAL_CHAR_ARRAY4 = "4_ UJUTRO"
'SERIAL_CHAR_ARRAY5 = "5_ UVECE"
'SERIAL_CHAR_ARRAY6 = "6_ DANJU JOS BOLJE"
'SERIAL_CHAR_ARRAY6 = "6_IGI MOZDA"
'--------------------------------------
Low Load : Low Dta : Low Clk
' Dallas 1202/1302 RTC ICs.
' Allocate variables
    Dim Rtcyear    As Byte
    Dim Rtcday     As Byte
    Dim Rtcmonth   As Byte
    Dim Rtcdate    As Byte
    Dim Rtchr      As Byte
    Dim Rtcmin     As Byte
    Dim Rtcsec     As Byte
    Dim Rtccontrol As Byte
    Low RST         ' Reset RTC
    Low SCLK
' Set initial time to 8:00:00AM 07/16/99
    Rtcyear = $99
    Rtcday = $06
    Rtcmonth = $07
    Rtcdate = $16
    Rtchr = $20
    Rtcmin = $31
    Rtcsec = 0 
'*** 
'GoSub Settime
'GoSub Ssat
'Clear_Serial_Buffer ' Clear the serial buffer and reset its pointers
CHAR_ARRAY_LENGTH = 0
'DelayMS 500 ' let the pic stabalise
GoSub INIT ' initialize the max7219
For x = 0 To 10
Toggle PORTC.4
DelayMS 100
Next
'DelayMS 1000
RSOut "HELLO",10,13' DUDE ENTER YOUR MESSAGE!!"
'GoTo Txt
'gosub term
SStr = "Test..!"
SN = $60'200
'GoSub XEWrite
'GoSub XERead
'EWrite $5e,[100]  'val (SerString [eX])
GoTo MAIN
'GoSub CCon
'Stop
'***
RADTxt:
For CC = 0 To 55
SStr [CC] = ERead CC + 60'74
Next
RSOut SStr,10,13

For CC = 0 To 55
SStr [CC] = ERead CC + 110'74
Next
RSOut SStr,10,13

For CC = 0 To 55
SStr [CC] = ERead CC + 160'74
'SStr [CC] = ERead CC + 201
Next
RSOut SStr,10,13

For CC = 0 To 55
SStr [CC] = ERead CC + 210'74
'SStr [CC] = ERead CC + 201
Next
RSOut SStr,10,13

For CC = 0 To 55
SStr [CC] = ERead CC + 260'74
'SStr [CC] = ERead CC + 201
Next
RSOut SStr,10,13

For CC = 0 To 55
SStr [CC] = ERead CC + 310'74
'SStr [CC] = ERead CC + 201
Next
RSOut SStr,10,13

GoTo MAIN
'return
'***
WRTxt:
'stop
AD = ERead 200
RSOut "AD ",Dec2 AD ,10,13
'rsout str$ ad'If AD = 99 Then GoTo MAIN ': endif
'If AD = 81 Then GoTo MAIN ': endif
Return
'***
'PR_1:
For CX = 0 To 55
CC = CX + 201
EWrite CC , [SERIAL_CHAR_ARRAY1[CX]]
Next
Clear SStr
For CC = 0 To 55
'SStr [CC] = ERead CC + 74
SStr [CC] = ERead CC + 201
Next
RSOut "ER_1 ",SStr,13
'***
'PR_2
For CX = 0 To 55
CC = CX + 251
EWrite CC , [SERIAL_CHAR_ARRAY2[CX]]
Next
Clear SStr
For CC = 0 To 55
'SStr [CC] = ERead CC + 74
SStr [CC] = ERead CC + 251
Next
RSOut "ER_2 ",SStr,13
'***
'PR_3
For CX = 0 To 55
CC = CX + 301
EWrite CC , [SERIAL_CHAR_ARRAY3[CX]]
Next
Clear SStr
For CC = 0 To 55
'SStr [CC] = ERead CC + 74
SStr [CC] = ERead CC + 301
Next
RSOut "ER_3 ",SStr,13
'***
'PR_4
For CX = 0 To 55
CC = CX + 351
EWrite CC , [SERIAL_CHAR_ARRAY4[CX]]
Next
Clear SStr
For CC = 0 To 55
'SStr [CC] = ERead CC + 74
SStr [CC] = ERead CC + 351
Next
RSOut "ER_4 ",SStr,13
'***
'PR_5
For CX = 0 To 55
CC = CX + 401
EWrite CC , [SERIAL_CHAR_ARRAY5[CX]]
Next
Clear SStr
For CC = 0 To 55
'SStr [CC] = ERead CC + 74
SStr [CC] = ERead CC + 401
Next
RSOut "ER_5 ",SStr,13
'EWrite 200,[99] 
Stop
'***
MAIN:
'GoSub EERead'GoSub BLANKALL 'clear the matrix
RSOut "Term ", Dec2 TER ,10,13'Str Sat,13
If TER = 0 Then GoSub SSat
'GoSub Con 
'GoSub ssat 
'stop
'Select text
'CHAR_ARRAY = SERIAL_CHAR_ARRAY0 '; MAXIMUM OFF 42 CHARACTERS... 
'Case 0
GoSub Con
CHAR_ARRAY = SERIAL_CHAR_ARRAY0 '; MAXIMUM OFF 42 CHARACTERS... 
'Case 1
'CHAR_ARRAY = SERIAL_CHAR_ARRAY1
'Case 2
'CHAR_ARRAY = SERIAL_CHAR_ARRAY2
'Case 3
'CHAR_ARRAY = SERIAL_CHAR_ARRAY3
'Case 4
'CHAR_ARRAY = SERIAL_CHAR_ARRAY4
'Case 5
'CHAR_ARRAY = SERIAL_CHAR_ARRAY5
'Case 6
'CHAR_ARRAY = SERIAL_CHAR_ARRAY6
'EndSelect
'HRSOut "MAIN_",CHAR_ARRAY,13,10 
'HRSOut "aantal karakters = ",Dec Len CHAR_ARRAY,13,10
'HRSOut "karakters = ",Dec Len CHAR_ARRAY,13,10
'Inc text
'If text > 6 Then text = 0
'If text > 1 Then text = 0
'GoSub SERIAL 'look if there are any characters in the buffer
GoSub FLIP_CHAR 'flip the characters 
GoSub LOAD_BUFF 'load the characters in the buffer
GoSub SHIFTMATRIXFRONT
GoSub SHIFTMATRIXBACK 
GoTo MAIN
'***
' Subroutine to write time to RTC & AD
'***
Settime:
    RST = 1         ' Ready for transfer
    SHOut IO, SCLK, LsbFirst, [$8e, 0]    ' Enable write
    RST = 0         ' Reset RTC
    RST = 1         ' Ready for transfer
' Write all 8 RTC registers in burst mode
    SHOut IO, SCLK, LsbFirst, [$be, Rtcsec, Rtcmin, Rtchr, Rtcdate, Rtcmonth, Rtcday, Rtcyear, 0]
    RST = 0         ' Reset RTC
    Return
' Subroutine to read time from RTC
'***
Gettime:
    RST = 1         ' Ready for transfer
    SHOut IO, SCLK, LsbFirst, [$bf] ' Read all 8 RTC registers in burst mode
    SHIn IO, SCLK, LsbPre, [Rtcsec, Rtcmin, Rtchr, Rtcdate, Rtcmonth, Rtcday, Rtcyear, Rtccontrol]
    RST = 0         ' Reset RTC
    Return
'***
ADCon:
    AD0 = ADIn 0                          ' Read the ADC
    XAD2 = AD0 / 13100
    XAD22 = AD0 // 13100     ' Quantasize the result
'    rsout "##",Dec2 XAD2,".",Dec2 XAD22 ,13,10' Send key out serial port
'    HSerOut ["$$",Dec2 XAD2,".",Dec2 XAD22 ,13,10]' Send key out serial port
    RSOut "##",Dec2 XAD2,".",Dec2 XAD22 ,13,10' Send key out serial port
'    HSerOut ["$$",Dec2 XAD2,".",Dec2 XAD22 ,13,10]' Send key out serial port
'    rsout "**",Dec Ad0 ,13,10' Send key out serial port
Return
'***
Time_AD:
    GoSub Gettime   ' Read the time from the RTC
'    GoSub ADCon
'    DelayMS 500
'    RSOut  Hex Rtchr,":", Hex2 Rtcmin,":", Hex2 Rtcsec,"_", Hex2 Rtcdate,".", Hex2 Rtcmonth,".", Hex2 Rtcyear,13,10   ' 9600
    RSOut  Hex2 Rtchr,":", Hex2 Rtcmin,":", Hex2 Rtcsec,"_",_
           Hex2 Rtcdate,".", Hex2 Rtcmonth,".", Hex2 Rtcyear,13,10   ' 9600
    DelayMS 500
    Return
'***
'TTest:
'RSOut Hex Rtcmin
'Return
'***
'Con:
'GoSub Time_AD   ' Read the time from the RTC
'GoSub Gettime
'StrN HH = Str$(Hex2 Rtchr) ' Convert the Integer to a String
'StrN MM = Str$(Hex2 Rtcmin) ' Convert the Integer to a String
'StrN SS = Str$(Hex2 Rtcsec) ' Convert the Integer to a String
'Sat[0] = HH [0]
'Sat[1] = HH [1]
'Sat[2] = ":"
'Sat[3] = MM [0]
'Sat[4] = MM [1]
'Sat[5] = " "
'RSOut "sat ", Str Sat,13
'SERIAL_CHAR_ARRAY6 = Str Sat
'Return
'***
Con:
'RSOut "Term ", dec2 ter ,10,13'Str Sat,13
'If TER = 0 Then GoSub SSat
GoSub Time_AD   ' Read the time from the RTC
StrN HH = Str$(Hex2 Rtchr)    ' Convert the Integer to a String
StrN MM = Str$(Hex2 Rtcmin)   ' Convert the Integer to a String
StrN SS = Str$(Hex2 Rtcsec)   ' Convert the Integer to a String
StrN DD = Str$(Hex1 Rtcday)   ' Convert the Integer to a String
StrN DN = Str$(Hex2 Rtcdate)  ' Convert the Integer to a String
StrN ME = Str$(Hex2 Rtcmonth) ' Convert the Integer to a String
StrN GG = Str$(Hex2 Rtcyear)  ' Convert the Integer to a String
Sat[0] = HH [0]
Sat[1] = HH [1]
Sat[2] = ":"
Sat[3] = MM [0]
Sat[4] = MM [1]
'Sat[5] = " "
'Sat[6] =  ERead (Rtcday*3+0)
'Sat[7] =  ERead (Rtcday*3+1)
'Sat[8] =  ERead (Rtcday*3+2)
'Sat[9] = " "
'Sat[10] = DN [0]
'Sat[11] = DN [1]
'Sat[12] = " "
'Sat[13] =  ERead (Rtcmonth*3+3)
'Sat[14] =  ERead (Rtcmonth*3+4)
'Sat[15] =  ERead (Rtcmonth*3+5)
'Sat[16] = " "
'Sat[17] = GG [0]
'Sat[18] = GG [1]
'Sat[19] = "g"
'RSOut "sat ", Sat ,13
'sat = left$ (Sat , 5)
'RSOut "satco ", Sat ,10,13
'SERIAL_CHAR_ARRAY6 = Str Sat
SERIAL_CHAR_ARRAY0 = Str Sat + " OTVORENO"
RSOut "SCR0 ", SERIAL_CHAR_ARRAY0,10,13
Return
'***
Term:
'RSOut "*",13
RSOut "*_ss-sat/tt-text + ENTER",13,10'Dec SerData,13
'RSIn {KK} , Wait(CR) , TAS
'RSIn Wait(CR) , TAS
'RSOut "T_ss-sat/tt-text",13'Dec SerData,13
'RSIn Str TAS
'RSOut str TAS,13,10
RSIn  TAS
RSOut "*",TAS,10,13
If  TAS = "ss" Then RSOut "SAT",13:GoSub SSat
If  TAS = "tt" Then RSOut "Txt",13:GoSub Txt
'Gosub ssat' Term
Return
'***
SSat:
RSOut "SAT/ss,mm,dan,dat,mes,god",13,10

RSOut "ss_sat",13,10
RSIn   Hex CX', Wait(CR) 
RSOut "sat ", Hex CX ,13,10
Rtchr = CX

RSOut "mm_min",13,10
RSIn   Hex CX', Wait(CR) 
RSOut "min ", Hex CX ,13,10
Rtcmin = CX

RSOut "d_dan ",13,10
RSIn   Hex CX', Wait(CR) 
RSOut "dan ", Hex CX ,13,10
Rtcday = CX

RSOut "dd_dat",13,10
RSIn   Hex CX', Wait(CR) 
RSOut "dat ", Hex CX ,13,10
Rtcdate = CX
 
RSOut "mm_mes ",13,10
RSIn   Hex CX', Wait(CR) 
RSOut "mes ", Hex CX ,13,10
Rtcmonth = CX

RSOut "gg_god",13,10
RSIn   Hex CX', Wait(CR) 
RSOut "god ", Hex CX ,13,10
Rtcyear = CX
Rtcsec = 30
GoSub Settime
GoSub Time_AD
'Return
RSOut "OK_NO",13,10'Dec SerData,13
RSIn Str TAS
RSOut TAS,13,10
If TAS = "ok" Then RSOut "QSAT",13:GoTo QSat
If TAS = "no" Then RSOut "Txt",13:GoTo SSat
QSat:
RSOut "!OK!",10,13
'Stop
Return
'***
Txt:
'Clear SerString
'SerString = "1IGI MAJSTOR RADI OD JUTRA DO UVECE"
'sstr = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
RSOut "File+Enter",10,13
'    RSIn  SStr
'    RSIn Wait(CR) , Serstring
RSIn  SerString
'RSIn {KK} , TAS
'RSIn   Dec CX', Wait(CR) 
'    RSOut "!!", Str SStr ,13
CX = Len SerString : CX = CX - 1 
RSOut "CX_",Dec3 CX,13
TT = SerString [0]
RSOut TT,10,13
SN = Val (TT,Dec) 'broj poruke
'RSOut Str SerString,13
SerString = Right$ ( SerString ,CX)
RSOut Str SerString,10,13
RSOut "SN_",Dec1 SN,10,13
'GoSub EEWrite
'GoSub EERead
RSOut "Jok",10,13
RSIn Wait(CR) , SStr
GoTo Txt
'stop
'for cc = 0 to cx'15
'CC = 10
'CZ = SerString [CC]
'***
'KK:
'GoTo Term
'Return
'***
EERead:
Clear SStr
For CC = 0 To 55
SStr [CC] = ERead CC + SN '60
'SStr [CC] = ERead CC + 150 + SN * 56
Next
SStr = Right$ ( SStr ,10)
RSOut "ER_",SStr,10,13
Return
'***
EEWrite:
For EX = 0 To CX - 1
XD = (150 + EX + SN *56)
CZ = SerString [EX]
EWrite XD, [CZ] 'val (SerString [eX])
'cc = eread xd
Next
'rsout dec3 cc," ",dec3 xd," ",cz
'stop
Return
'***
XERead:
Clear SStr
For CC = 0 To 55
SStr [CC] = ERead CC + SN '60
Next
SStr = Right$ ( SStr ,10)
RSOut "XER_",SStr,10,13
Return
'***
XEWrite:
For CC = 0 To 55'CX - 1
    XD = CC + SN 
    CZ = SStr [CC]
'    RSOut CZ,10,13
    EWrite XD, [CZ] 
Next
Return
'***
'***
Loop: 
        SerOut PORTC.0,T9600,["Hello",10,13]  ' Display "Hello", next line
        SerOut PORTC.6,T9600,["Hello",10,13]  ' Display "Hello", next line
        DelayMS 500    ' Wait .5 second
        SerOut PORTC.0,T9600,["World",10,13,10,13]  ' Display "World", skip a line
        SerOut PORTC.6,T9600,["World",10,13,10,13]  ' Display "World", skip a line
        DelayMS 500    ' Wait .5 second
    HSerOut ["$*ECC DEKA  *",13]',13
    HSerOut ["$ Dobro Dosli",13]',13 
        RSOut "#*ECC DEKA#",13
        RSOut "# Dobro Dosli#",13 
    RSOut "%*ECC DEKA  *",13
    RSOut "% Dobro Dosli",13 
GoTo Loop    ' Do it forever
Return
'*** 
SERIAL:
'!!!!!!!!!!
Return
'*** 
MAX_CHAR:
'!!!!!!!!!!!!
Return 
'***
FLIP_CHAR:
Clear CHAR_ARRAY_FLIP 
CHAR_ARRAY_LENGTH = Len(CHAR_ARRAY)
If CHAR_ARRAY_LENGTH = 0 Then GoTo MAIN
MATRIX_BUFF_LENGTH = CHAR_ARRAY_LENGTH * 6
'MATRIX_BUFF_LENGTH = CHAR_ARRAY_LENGTH * 8
IDX_FC_B = CHAR_ARRAY_LENGTH
    For IDX_FC_A = 0 To CHAR_ARRAY_LENGTH - 1
     CHAR_ARRAY_TEMP = Left$ (CHAR_ARRAY,IDX_FC_B)
     CHAR_TEMP = Right$ (CHAR_ARRAY_TEMP,1)
     CHAR_ARRAY_FLIP[IDX_FC_A] = CHAR_TEMP[0]
     Dec IDX_FC_B
    Next
CHAR_ARRAY = CHAR_ARRAY_FLIP
'rsout CHAR_ARRAY,10,13
Return
'*** 
LOAD_BUFF:
Clear MATRIX_BUFF0
Clear MATRIX_BUFF1
Clear MATRIX_BUFF2
IDX_LB_C = 0 
'HRSOut "char length = ",Dec CHAR_ARRAY_LENGTH - 1,10,13 
For IDX_LB_A = 0 To CHAR_ARRAY_LENGTH - 1
    If CHAR_ARRAY[IDX_LB_A] < 32 Then Break
    LETTER = ((CHAR_ARRAY[IDX_LB_A] - 31) * 6)' - 1
'LETTER = ((CHAR_ARRAY[IDX_LB_A] - 31) * 8)' - 1
    For IDX_LB_B = 0 To 5
'For IDX_LB_B = 0 To 7
    If IDX_LB_C < 255 Then
     MATRIX_BUFF0[IDX_LB_C] = CRead (ALPHABET + LETTER - IDX_LB_B)
'MATRIX_BUFF0[IDX_LB_C] = CRead (ChrDIII + LETTER - IDX_LB_B)
'HRSOut "buffer0-",Dec IDX_LB_C,"= ",Dec MATRIX_BUFF0[IDX_LB_C],10,13
     ElseIf IDX_LB_C > 254 And IDX_LB_C < 511 Then
     MATRIX_BUFF1[IDX_LB_C - 255] = CRead (ALPHABET + LETTER - IDX_LB_B)
'HRSOut "buffer1-",Dec IDX_LB_C- 255,"= ",Dec MATRIX_BUFF1[IDX_LB_C],10,13
     ElseIf IDX_LB_C > 510 And IDX_LB_C < 767 Then
     MATRIX_BUFF2[IDX_LB_C - 255] = CRead (ALPHABET + LETTER - IDX_LB_B)
'HRSOut "buffer2-",Dec IDX_LB_C- 255,"= ",Dec MATRIX_BUFF2[IDX_LB_C],10,13
    EndIf
Inc IDX_LB_C
Next
;HRSOut "IDX_LB_C = ",Dec IDX_LB_C," MBL = ",Dec MATRIX_BUFF_LENGTH,13,10
Next
'rsout "MAX ", str MATRIX_BUFF0 
Return

SHIFTMATRIXFRONT:
    Clear MATRIX_ARRAY1
    Clear MATRIX_ARRAY2
    Clear MATRIX_ARRAY_TEMP
    MATRIX_ARRAY_TEMP[0] = 0
; HRSOut "IDX_SMF_A = ",Dec IDX_SMF_A,13,10
'HRSOut "shiftmatrixfront buff length = ",Dec MATRIX_BUFF_LENGTH,13,10
For IDX_SMF_B = 0 To MATRIX_BUFF_LENGTH - 1
    For IDX_SMF_C = 0 To IDX_SMF_B
'    If IDX_SMF_B < 255 Then 
        MATRIX_ARRAY_TEMP[IDX_SMF_C + 1] = MATRIX_BUFF0[MATRIX_BUFF_LENGTH - IDX_SMF_B + IDX_SMF_C]
'    ElseIf IDX_SMF_B >254 And IDX_SMF_B < 512 Then
'        MATRIX_ARRAY_TEMP[IDX_SMF_C + 1] = MATRIX_BUFF1[MATRIX_BUFF_LENGTH - IDX_SMF_B + IDX_SMF_C] 
'    ElseIf IDX_SMF_B > 511 And IDX_SMF_B < 767 Then
'        MATRIX_ARRAY_TEMP[IDX_SMF_C + 1] = MATRIX_BUFF1[MATRIX_BUFF_LENGTH - IDX_SMF_B + IDX_SMF_C]
'    EndIf 
    Next 
'HRSOut "matrix lengte = ", Dec IDX_SMF_B,10,13 
    For IDX_SMF_C = 0 To IDX_SMF_B 
'    If IDX_SMF_B < 255 Then 
        MATRIX_ARRAY1[IDX_SMF_C] = MATRIX_ARRAY_TEMP[IDX_SMF_C]
'    ElseIf IDX_SMF_B > 254 Then
'    MATRIX_ARRAY2[IDX_SMF_C] = MATRIX_ARRAY_TEMP[IDX_SMF_C]
'    EndIf
    Next
GoSub MAXMATRIX
Next
Return
'***
SHIFTMATRIXBACK:
Clear MATRIX_ARRAY_TEMP
For IDX_SMB_A = 0 To 31' 63
    For IDX_SMB_B = 0 To 30'62
     MATRIX_ARRAY_TEMP[IDX_SMB_B + 1] = MATRIX_ARRAY1[IDX_SMB_B]
    Next
    MATRIX_ARRAY_TEMP[0] = 0
    For IDX_SMB_B = 0 To 62
     MATRIX_ARRAY1[IDX_SMB_B] = MATRIX_ARRAY_TEMP[IDX_SMB_B]
    Next
GoSub MAXMATRIX
Next
Return
'***
MAXMATRIX: 'send data to max7219
  AD0 = ADIn 0                          ' Read the ADC
  DelayMS AD0/100'20'0
'DelayMS 100 'scroll delay
'Low Load 
For IDX_MM_A = 0 To 7 '8 rows
'REG = LookUp IDX_MM_A,[8,7,6,5,4,3,2,1,0] ;[0,1,2,3,4,5,6,7,8]; 'scroll direction??
REG = LookUp IDX_MM_A,[8,7,6,5,4,3,2,1] ;[0,1,2,3,4,5,6,7,8]; 'scroll direction??
'REG = LookUp IDX_MM_A,[3,2,1,0] ;[0,1,2,3,4,5,6,7,8]; 'scroll direction??
    For IDX_MM_B = 0 To 3'7 ' amount of led matrix's.
'        IDX_MM_C = LookUp IDX_MM_B,[0,8,16,24,32,40,48,56] ',72,80,88,96,104,112,120,128,136,142
        IDX_MM_C = LookUp IDX_MM_B,[0,8,16,24] ',72,80,88,96,104,112,120,128,136,142
        COL = MATRIX_ARRAY1[IDX_MM_A + IDX_MM_C] '
        SHOut Dta,Clk,MsbFirst,[REG,COL]
    Next
PulsOut Load ,2
'Low Load
'DelayUS 2
'High Load
Next
Return

MAXALL:
'Low Load 
For IDX_A = 1 To 8 '
 For IDX_B = 0 To 7
  SHOut Dta,Clk,MsbFirst,[REG,COL] 
 Next
PulsOut Load ,2
' Low Load
' DelayUS 2
' High Load
Next
Return
 
BLANKALL:
'Low Load 
For IDX_A = 1 To 8 
    For IDX_B = 0 To 7
    SHOut Dta,Clk,MsbFirst,[IDX_A,0]
    Next
PulsOut Load ,2
'    Low Load
'    High Load
Next
Return
'--------------------------------------------------------------------------------------------------- 
' ** Declare Constants **
'Symbol Decode_Reg 9 ' Decode REG, a 1 turns on BCD decoding for each digit. 
'Symbol Lum_Reg 10 ' Intensity REG.
'Symbol Scan_Reg 11 ' Scan-limit REG.
'Symbol Switch_Reg 12 ' On/Off REG.
'Symbol Test_Reg 15 ' Test mode REG (all digits on, 100% bright)
'Symbol Led = PORTC.4
'---------------------------------------------------------------------------------------------------
INIT: 
REG = Scan_Reg ' Point to the Scan REG
COL = 15 ' Send 8, (Four LED Displays 0-3)
GoSub MAXALL ' MAXALL this 16-bit Word to the MAX7219

REG = Lum_Reg ' Point to the Luminance REG
COL = 5'15 ' Send 5, (COL for Brightness)
GoSub MAXALL ' MAXALL this 16-bit Word to the MAX7219

REG = Decode_Reg ' Point to BCD Decode REG
COL = %00000000 ' Decode the all digits
GoSub MAXALL ' MAXALL this 16-bit Word to the MAX7219

REG = Switch_Reg ' Point to the Switch REG 
COL = 1 ' Set to One, (switches the display ON)
GoSub MAXALL ' MAXALL this 16-bit Word to the MAX7219

REG = Test_Reg ' Point to the Test REG
COL = 1 ' test all digits
GoSub MAXALL ' MAXALL this 16-bit Word to the MAX7219

DelayMS 500
'REG = Test_Reg ' Point to the Test REG
'COL = 0 ' Reset to Zero, (turns off Test mode)
'GoSub MAXALL ' MAXALL this 16-bit Word to the MAX7219

'REG = Test_Reg ' Point to the Test REG
'COL = 1 ' test all digits
'GoSub MAXALL ' MAXALL this 16-bit Word to the MAX7219
'DelayMS 500
 
REG = Test_Reg ' Point to the Test REG
COL = 0 ' Reset to Zero, (turns off Test mode)
GoSub MAXALL ' MAXALL this 16-bit Word to the MAX7219
Return
ALPHABET:
CData 0x00,0x00,0x00,0x00,0x00,0x00,_'// sp
0x00,0x00,0x00,0x2F,0x00,0x00,_'// !
0x00,0x00,0x07,0x00,0x07,0x00,_'// "
0x00,0x14,0x7F,0x14,0x7F,0x14,_'// #
0x00,0x24,0x2A,0x7F,0x2A,0x12,_'// $
0x00,0x23,0x13,0x08,0x64,0x62,_'// %
0x00,0x36,0x49,0x55,0x22,0x50,_'// &
0x00,0x00,0x05,0x03,0x00,0x00,_'// '
0x00,0x00,0x1C,0x22,0x41,0x00,_'// (
0x00,0x00,0x41,0x22,0x1C,0x00,_'// )
0x00,0x14,0x08,0x3E,0x08,0x14,_'// *
0x00,0x08,0x08,0x3E,0x08,0x08,_'// +
0x00,0x00,0x00,0xA0,0x60,0x00,_'// ,
0x00,0x08,0x08,0x08,0x08,0x08,_'// -
0x00,0x00,0x60,0x60,0x00,0x00,_'// .
0x00,0x20,0x10,0x08,0x04,0x02,_'// /
0x00,0x3E,0x51,0x49,0x45,0x3E,_'// 0
0x00,0x00,0x42,0x7F,0x40,0x00,_'// 1
0x00,0x42,0x61,0x51,0x49,0x46,_'// 2
0x00,0x21,0x41,0x45,0x4B,0x31,_'// 3
0x00,0x18,0x14,0x12,0x7F,0x10,_'// 4
0x00,0x27,0x45,0x45,0x45,0x39,_'// 5
0x00,0x3C,0x4A,0x49,0x49,0x30,_'// 6
0x00,0x01,0x71,0x09,0x05,0x03,_'// 7
0x00,0x36,0x49,0x49,0x49,0x36,_'// 8
0x00,0x06,0x49,0x49,0x29,0x1E,_'// 9
0x00,0x00,0x36,0x36,0x00,0x00,_'// :
0x00,0x00,0x56,0x36,0x00,0x00,_'// ;
0x00,0x08,0x14,0x22,0x41,0x00,_'// <
0x00,0x14,0x14,0x14,0x14,0x14,_'// =
0x00,0x00,0x41,0x22,0x14,0x08,_'// >
0x00,0x02,0x01,0x51,0x09,0x06,_'// ?
0x00,0x32,0x49,0x59,0x51,0x3E,_'// @
0x00,0x7C,0x12,0x11,0x12,0x7C,_'// A
0x00,0x7F,0x49,0x49,0x49,0x36,_'// B
0x00,0x3E,0x41,0x41,0x41,0x22,_'// C
0x00,0x7F,0x41,0x41,0x22,0x1C,_'// D
0x00,0x7F,0x49,0x49,0x49,0x41,_'// E
0x00,0x7F,0x09,0x09,0x09,0x01,_'// F
0x00,0x3E,0x41,0x49,0x49,0x7A,_'// G
0x00,0x7F,0x08,0x08,0x08,0x7F,_'// H
0x00,0x00,0x41,0x7F,0x41,0x00,_'// I
0x00,0x20,0x40,0x41,0x3F,0x01,_'// J
0x00,0x7F,0x08,0x14,0x22,0x41,_'// K
0x00,0x7F,0x40,0x40,0x40,0x40,_'// L
0x00,0x7F,0x02,0x0C,0x02,0x7F,_'// M
0x00,0x7F,0x04,0x08,0x10,0x7F,_'// N
0x00,0x3E,0x41,0x41,0x41,0x3E,_'// O
0x00,0x7F,0x09,0x09,0x09,0x06,_'// P
0x00,0x3E,0x41,0x51,0x21,0x5E,_'// Q
0x00,0x7F,0x09,0x19,0x29,0x46,_'// R
0x00,0x46,0x49,0x49,0x49,0x31,_'// S
0x00,0x01,0x01,0x7F,0x01,0x01,_'// T
0x00,0x3F,0x40,0x40,0x40,0x3F,_'// U
0x00,0x1F,0x20,0x40,0x20,0x1F,_'// V
0x00,0x3F,0x40,0x38,0x40,0x3F,_'// W
0x00,0x63,0x14,0x08,0x14,0x63,_'// X
0x00,0x07,0x08,0x70,0x08,0x07,_'// Y
0x00,0x61,0x51,0x49,0x4D,0x43,_'// Z
0x00,0x00,0x7F,0x41,0x41,0x00,_'// [
0xAA,0x55,0xAA,0x55,0xAA,0x55,_'// Backslash (Checker pattern)
0x00,0x00,0x41,0x41,0x7F,0x00,_'// ]
0x00,0x04,0x02,0x01,0x02,0x04,_'// ^
0x00,0x40,0x40,0x40,0x40,0x40,_'// _
0x00,0x00,0x03,0x05,0x00,0x00,_'// `
0x00,0x20,0x54,0x54,0x54,0x78,_'// a
0x00,0x7F,0x48,0x44,0x44,0x38,_'// b
0x00,0x38,0x44,0x44,0x44,0x44,_' //c
0x00,0x38,0x44,0x44,0x48,0x7F,_'// d
0x00,0x38,0x54,0x54,0x54,0x18,_'// e
0x00,0x08,0x7E,0x09,0x01,0x02,_'// f
0x00,0x18,0xA4,0xA4,0xA4,0x7C,_'// g
0x00,0x7F,0x08,0x04,0x04,0x78,_'// h
0x00,0x00,0x44,0x7D,0x40,0x00,_'// i
0x00,0x40,0x80,0x84,0x7D,0x00,_'// j
0x00,0x7F,0x10,0x28,0x44,0x00,_'// k
0x00,0x00,0x41,0x7F,0x40,0x00,_'// l
0x00,0x7C,0x04,0x18,0x04,0x78,_'// m
0x00,0x7C,0x08,0x04,0x04,0x78,_'// n
0x00,0x38,0x44,0x44,0x44,0x38,_'// o
0x00,0xFC,0x24,0x24,0x24,0x18,_'// p
0x00,0x18,0x24,0x24,0x18,0xFC,_'// q
0x00,0x7C,0x08,0x04,0x04,0x08,_'// r
0x00,0x48,0x54,0x54,0x54,0x20,_'// s
0x00,0x04,0x3F,0x44,0x40,0x20,_'// t
0x00,0x3C,0x40,0x40,0x20,0x7C,_'// u
0x00,0x1C,0x20,0x40,0x20,0x1C,_'// v
0x00,0x3C,0x40,0x30,0x40,0x3C,_'// w
0x00,0x44,0x28,0x10,0x28,0x44,_'// x
0x00,0x1C,0xA0,0xA0,0xA0,0x7C,_'// y
0x00,0x44,0x64,0x54,0x4C,0x44,_'// z
0x00,0x00,0x10,0x7C,0x82,0x00,_'// {
0x00,0x00,0x00,0xFF,0x00,0x00,_'// |
0x00,0x00,0x82,0x7C,0x10,0x00,_'// }
0x00,0x00,0x06,0x09,0x09,0x06, '// ~ (Degrees)

ALPHABETII:
CData $00,$00,$00,$00,$00,$00,_ '// space 5
$00,$00,$fa,$00,$00,$00,_ '// ! 11 
$00,$e0,$00,$e0,$00,$00,_ '// " 17
$28,$fe,$28,$fe,$28,$00,_ '// # 23
$24,$54,$fe,$54,$48,$00,_ '// $ 29
$c4,$c8,$10,$26,$46,$00,_ '// % 35
$6c,$92,$aa,$44,$0a,$00,_ '// & 41
$00,$a0,$c0,$00,$00,$00,_ '// ' 47
$00,$38,$44,$82,$00,$00,_ '// ( 53
$00,$82,$44,$38,$00,$00,_ '// ) 59
$28,$10,$7c,$10,$28,$00,_ '// * 65
$10,$10,$7c,$10,$10,$00,_ '// + 71
$00,$0a,$0c,$00,$00,$00,_ '// , 77
$10,$10,$10,$10,$10,$00,_ '// - 83
$00,$06,$06,$00,$00,$00,_ '// . 89
$04,$08,$10,$20,$40,$00,_ '// / 95 
$7c,$8a,$92,$a2,$7c,$00,_ '// 0 101
$00,$42,$fe,$02,$00,$00,_ '// 1 107
$42,$86,$8a,$92,$62,$00,_ '// 2 113
$84,$82,$a2,$d2,$8c,$00,_ '// 3 119
$18,$28,$48,$fe,$08,$00,_ '// 4 125
$e4,$a2,$a2,$a2,$9c,$00,_ '// 5 131 $e5,$a2,$a2,$a2,$9c,$00,_
$3c,$52,$92,$92,$0c,$00,_ '// 6 137
$80,$8e,$90,$a0,$c0,$00,_ '// 7 143
$6c,$92,$92,$92,$6c,$00,_ '// 8 149
$60,$92,$92,$94,$78,$00,_ '// 9 155 
$00,$6c,$6c,$00,$00,$00,_ '// : 161
$00,$6a,$6c,$00,$00,$00,_ '// ; 167
$10,$28,$44,$82,$00,$00,_ '// < 173
$28,$28,$28,$28,$28,$00,_ '// = 179
$00,$82,$44,$28,$10,$00,_ '// > 185
$40,$80,$8a,$90,$60,$00,_ '// ? 191
$4c,$92,$9e,$82,$7c,$00,_ '// @ 197
$7e,$88,$88,$88,$7e,$00,_ '// A 203
$fe,$92,$92,$92,$6c,$00,_ '// B 209
$7c,$82,$82,$82,$44,$00,_ '// C 215
$fe,$82,$82,$44,$38,$00,_ '// D 221
$fe,$92,$92,$92,$82,$00,_ '// E 227
$fe,$90,$90,$90,$80,$00,_ '// F 233
$7c,$82,$92,$92,$5e,$00,_ '// G 239
$fe,$10,$10,$10,$fe,$00,_ '// H 245
$00,$82,$fe,$82,$00,$00,_ '// I 251
$04,$02,$82,$fc,$80,$00,_ '// J 257
$fe,$10,$28,$44,$82,$00,_ '// K 263
$fe,$02,$02,$02,$02,$00,_ '// L 267
$fe,$40,$30,$40,$fe,$00,_ '// M 275
$fe,$20,$10,$08,$fe,$00,_ '// N 281
$7c,$82,$82,$82,$7c,$00,_ '// O 287
$fe,$90,$90,$90,$60,$00,_ '// P 293
$7c,$82,$8a,$84,$7a,$00,_ '// Q 299
$fe,$90,$98,$94,$62,$00,_ '// R 305
$62,$92,$92,$92,$8c,$00,_ '// S 311
$80,$80,$fe,$80,$80,$00,_ '// T 317
$fc,$02,$02,$02,$fc,$00,_ '// U 323
$f8,$04,$02,$04,$f8,$00,_ '// V 329
$fc,$02,$1c,$02,$fc,$00,_ '// W 335
$c6,$28,$10,$28,$c6,$00,_ '// X 341
$e0,$10,$0e,$10,$e0,$00,_ '// Y 347
$86,$8A,$92,$a2,$c2,$00,_ '// Z 353
$00,$fe,$82,$82,$00,$00,_ '// [ 359
$00,$00,$00,$00,$00,$00,_ '// *** do Not remove this empty char *** 
$00,$82,$82,$fe,$00,$00,_ '// ] 
$20,$40,$80,$40,$20,$00,_ '// ^ 
$02,$02,$02,$02,$02,$00,_ '// _ 
$00,$80,$40,$20,$00,$00,_ '// ` 
$04,$2a,$2a,$2a,$1e,$00,_ '// a 
$fe,$12,$22,$22,$1c,$00,_ '// b 
$1c,$22,$22,$22,$04,$00,_ '// c 
$1c,$22,$22,$12,$fe,$00,_ '// d 
$1c,$2a,$2a,$2a,$18,$00,_ '// e 
$10,$7e,$90,$80,$40,$00,_ '// f 
$30,$4a,$4a,$4a,$7c,$00,_ '// g 
$fe,$10,$20,$20,$1e,$00,_ '// h 
$00,$22,$be,$02,$00,$00,_ '// i 
$04,$02,$22,$bc,$00,$00,_ '// j 
$fe,$08,$14,$22,$00,$00,_ '// k 
$00,$82,$fe,$02,$00,$00,_ '// l 
$3e,$20,$18,$20,$1e,$00,_ '// m 
$3e,$10,$20,$20,$1e,$00,_ '// n 
$1c,$22,$22,$22,$1c,$00,_ '// o 
$3e,$28,$28,$28,$10,$00,_ '// p 
$10,$28,$28,$18,$3e,$00,_ '// q 
$3e,$10,$20,$20,$10,$00,_ '// r 
$12,$2a,$2a,$2a,$04,$00,_ '// s 
$20,$fc,$22,$02,$04,$00,_ '// t 
$3c,$02,$02,$04,$3e,$00,_ '// u 
$38,$04,$02,$04,$38,$00,_ '// v 
$3c,$02,$0c,$02,$3c,$00,_ '// w 
$22,$14,$08,$14,$22,$00,_ '// x 
$30,$0a,$0a,$0a,$3c,$00,_ '// y 
$22,$26,$2a,$32,$22,$00,_ '// z 
$00,$10,$6c,$82,$00,$00,_ '// { 
$00,$00,$fe,$00,$00,$00,_ '// | 
$00,$82,$6c,$10,$00,$00,_ '// }
$28,$7c,$aa,$82,$44,$00 '// €
ChrDIII:
CData 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,_'//Ascii-32  Space
0x00,0x00,0x00,0x5F,0x5F,0x00,0x00,0x00,_'//Ascii-33  !
0x00,0x07,0x07,0x00,0x00,0x07,0x07,0x00,_'//Ascii-34  "
0x24,0x7E,0x7E,0x24,0x7E,0x7E,0x24,0x00,_'//Ascii-35  #
0x00,0x24,0x2E,0x6B,0x6B,0x3A,0x12,0x00,_'//Ascii-36  $
0x00,0x66,0x36,0x18,0x0C,0x66,0x62,0x00,_'//Ascii-37  %
0x30,0x7A,0x4F,0x5D,0x37,0x72,0x50,0x00,_'//Ascii-38  &
0x00,0x00,0x00,0x07,0x07,0x00,0x00,0x00,_'//Ascii-39  '
0x00,0x00,0x00,0x3E,0x7F,0x63,0x41,0x00,_'//Ascii-40  (
0x00,0x41,0x63,0x7F,0x3E,0x00,0x00,0x00,_'//Ascii-41  )
0x08,0x2A,0x3E,0x1C,0x1C,0x3E,0x2A,0x08,_'//Ascii-42  *
0x00,0x08,0x08,0x3E,0x3E,0x08,0x08,0x00,_'//Ascii-43  +
0x00,0x80,0xE0,0x60,0x00,0x00,0x00,0x00,_'//Ascii-44  ,
0x00,0x08,0x08,0x08,0x08,0x08,0x08,0x00,_'//Ascii-45  -
0x00,0x00,0x00,0x60,0x60,0x00,0x00,0x00,_'//Ascii-46  .
0x00,0x60,0x30,0x18,0x0C,0x06,0x03,0x00,_'//Ascii-47  /
0x00,0x3E,0x7F,0x49,0x45,0x7F,0x3E,0x00,_'//Ascii-48  0
0x00,0x40,0x42,0x7F,0x7F,0x40,0x40,0x00,_'//Ascii-55  1
0x00,0x42,0x63,0x71,0x59,0x4F,0x46,0x00,_'//Ascii-56  2
0x00,0x21,0x61,0x45,0x4F,0x7B,0x31,0x00,_'//Ascii-51  3
0x00,0x18,0x1C,0x16,0x7F,0x7F,0x10,0x00,_'//Ascii-52  4
0x00,0x27,0x67,0x45,0x45,0x7D,0x39,0x00,_'//Ascii-53  5
0x00,0x3E,0x7F,0x49,0x49,0x79,0x30,0x00,_'//Ascii-54  6
0x00,0x01,0x71,0x79,0x0D,0x07,0x03,0x00,_'//Ascii-55  7
0x00,0x36,0x7F,0x49,0x49,0x7F,0x36,0x00,_'//Ascii-56  8
0x00,0x06,0x4F,0x49,0x69,0x3F,0x1E,0x00,_'//Ascii-57  9
0x00,0x00,0x00,0x36,0x36,0x00,0x00,0x00,_'//Ascii-58  :
0x00,0x00,0x40,0x76,0x36,0x00,0x00,0x00,_'//Ascii-59  ;
0x00,0x00,0x08,0x1C,0x36,0x63,0x41,0x00,_'//Ascii-60  <
0x00,0x24,0x24,0x24,0x24,0x24,0x24,0x00,_'//Ascii-61  =
0x00,0x41,0x63,0x36,0x1C,0x08,0x00,0x00,_'//Ascii-62  >
0x00,0x02,0x03,0x51,0x59,0x0F,0x06,0x00,_'//Ascii-63  ?
0x00,0x3E,0x7F,0x41,0x5D,0x57,0x5E,0x00,_'//Ascii-64  @
0x00,0x7C,0x7E,0x13,0x13,0x7E,0x7C,0x00,_'//Ascii-65  A
0x00,0x7F,0x7F,0x49,0x49,0x7F,0x36,0x00,_'//Ascii-66  B
0x00,0x3E,0x7F,0x41,0x41,0x63,0x22,0x00,_'//Ascii-67  C
0x00,0x7F,0x7F,0x41,0x63,0x3E,0x1C,0x00,_'//Ascii-68  D
0x00,0x7F,0x7F,0x49,0x49,0x49,0x41,0x00,_'//Ascii-69  E
0x00,0x7F,0x7F,0x09,0x09,0x09,0x01,0x00,_'//Ascii-70  F
0x00,0x3E,0x7F,0x41,0x49,0x79,0x79,0x00,_'//Ascii-71  G
0x00,0x7F,0x7F,0x08,0x08,0x7F,0x7F,0x00,_'//Ascii-72  H
0x00,0x00,0x41,0x7F,0x7F,0x41,0x00,0x00,_'//Ascii-73  I
0x00,0x20,0x60,0x40,0x40,0x7F,0x3F,0x00,_'//Ascii-74  J
0x00,0x7F,0x7F,0x1C,0x36,0x63,0x41,0x00,_'//Ascii-75  K
0x00,0x7F,0x7F,0x40,0x40,0x40,0x40,0x00,_'//Ascii-76  L
0x7F,0x7F,0x06,0x0C,0x06,0x7F,0x7F,0x00,_'//Ascii-77  M
0x00,0x7F,0x7F,0x0E,0x1C,0x7F,0x7F,0x00,_'//Ascii-78  N
0x00,0x3E,0x7F,0x41,0x41,0x7F,0x3E,0x00,_'//Ascii-79  O
0x00,0x7F,0x7F,0x09,0x09,0x0F,0x06,0x00,_'//Ascii-80  P
0x00,0x3E,0x7F,0x51,0x21,0x7F,0x5E,0x00,_'//Ascii-81  Q
0x00,0x7F,0x7F,0x09,0x19,0x7F,0x66,0x00,_'//Ascii-82  R
0x00,0x26,0x6F,0x49,0x49,0x7B,0x32,0x00,_'//Ascii-83  S
0x00,0x01,0x01,0x7F,0x7F,0x01,0x01,0x00,_'//Ascii-84  T
0x00,0x3F,0x7F,0x40,0x40,0x7F,0x7F,0x00,_'//Ascii-85  U
0x00,0x1F,0x3F,0x60,0x60,0x3F,0x1F,0x00,_'//Ascii-86  V 
0x7F,0x7F,0x30,0x18,0x30,0x7F,0x7F,0x00,_'//Ascii-87  W
0x00,0x63,0x77,0x1C,0x1C,0x77,0x63,0x00,_'//Ascii-88  X
0x00,0x07,0x0F,0x78,0x78,0x0F,0x07,0x00,_'//Ascii-89  Y
0x00,0x61,0x71,0x59,0x4D,0x47,0x43,0x00,_'//Ascii-90  Z
0x00,0x00,0x00,0x7F,0x7F,0x41,0x41,0x00,_'//Ascii-91  [
0x00,0x03,0x06,0x0C,0x18,0x30,0x60,0x00,_'//Ascii-92  /
0x00,0x41,0x41,0x7F,0x7F,0x00,0x00,0x00,_'//Ascii-93  ]
0x08,0x0C,0x06,0x03,0x06,0x0C,0x08,0x00,_'//Ascii-94  ^
0x40,0x40,0x40,0x40,0x40,0x40,0x40,0x00,_'//Ascii-95  _
0x02,0x06,0x0C,0x08,0x00,0x00,0x00,0x00,_'//Ascii-96  '
0x00,0x20,0x74,0x54,0x54,0x7C,0x78,0x00,_'//Ascii-97  a
0x00,0x7F,0x7F,0x44,0x44,0x7C,0x38,0x00,_'//Ascii-98  b
0x00,0x38,0x7C,0x44,0x44,0x44,0x00,0x00,_'//Ascii-99  c
0x00,0x38,0x7C,0x44,0x44,0x7F,0x7F,0x00,_'//Ascii-100 d
0x00,0x38,0x7C,0x54,0x54,0x5C,0x18,0x00,_'//Ascii-101 e
0x00,0x04,0x7E,0x7F,0x05,0x05,0x00,0x00,_'//Ascii-102 f
0x00,0x98,0xBC,0xA4,0xA4,0xFC,0x7C,0x00,_'//Ascii-103 g
0x00,0x7F,0x7F,0x04,0x04,0x7C,0x78,0x00,_'//Ascii-104 h
0x00,0x00,0x44,0x7D,0x7D,0x40,0x00,0x00,_'//Ascii-105 i 
0x00,0x80,0x80,0xFD,0x7D,0x00,0x00,0x00,_'//Ascii-106 j
0x00,0x7F,0x7F,0x10,0x38,0x6C,0x44,0x00,_'//Ascii-107 k
0x00,0x00,0x41,0x7F,0x7F,0x40,0x00,0x00,_'//Ascii-108 l
0x7C,0x7C,0x0C,0x18,0x0C,0x7C,0x78,0x00,_'//Ascii-109 m
0x00,0x7C,0x7C,0x04,0x04,0x7C,0x78,0x00,_'//Ascii-110 n
0x00,0x38,0x7C,0x44,0x44,0x7C,0x38,0x00,_'//Ascii-111 o
0x00,0xFC,0xFC,0x44,0x44,0x7C,0x38,0x00,_'//Ascii-112 p
0x00,0x38,0x7C,0x44,0x44,0xFC,0xFC,0x00,_'//Ascii-113 q
0x00,0x7C,0x7C,0x04,0x04,0x0C,0x08,0x00,_'//Ascii-114 r
0x00,0x48,0x5C,0x54,0x54,0x74,0x24,0x00,_'//Ascii-115 s
0x00,0x04,0x04,0x3E,0x7E,0x44,0x44,0x00,_'//Ascii-116 t
0x00,0x3C,0x7C,0x40,0x40,0x7C,0x7C,0x00,_'//Ascii-117 u
0x00,0x1C,0x3C,0x60,0x60,0x3C,0x1C,0x00,_'//Ascii-118 v
0x1C,0x7C,0x60,0x30,0x60,0x7C,0x1C,0x00,_'//Ascii-119 w
0x00,0x44,0x6C,0x38,0x38,0x6C,0x44,0x00,_'//Ascii-120 x
0x00,0x9C,0xBC,0xA0,0xA0,0xFC,0x7C,0x00,_'//Ascii-121 y
0x00,0x44,0x64,0x74,0x5C,0x4C,0x44,0x00,_'//Ascii-122 z
0x00,0x00,0x08,0x3E,0x77,0x41,0x41,0x00,_'//Ascii-123 {
0x00,0x00,0x00,0xFF,0xFF,0x00,0x00,0x00,_'//Ascii-124 |
0x00,0x41,0x41,0x77,0x3E,0x08,0x00,0x00,_'//Ascii-125 }
0x0C,0x06,0x06,0x0C,0x18,0x18,0x0C,0x00,_'//Ascii-126 ~
0x00,0x60,0x78,0x5E,0x46,0x58,0x60,0x00, '//Ascii-127 delete
Graf:
CData 0x00,0x00,0x00,0x00,0x00,0x00,_'Graphic character 0
  0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,_'Graphic character 1
  0x07,0x07,0x07,0x00,0x00,0x00,_'Graphic character 2
  0x00,0x00,0x00,0x07,0x07,0x07,_'Graphic character 3
  0xE0,0xE0,0xE0,0x00,0x00,0x00,_'Graphic character 4
  0x00,0x00,0x00,0xE0,0xE0,0xE0,_'Graphic character 5
  0xFF,0xFF,0xFF,0x00,0x00,0x00,_'Graphic character 6
  0x00,0x00,0x00,0xFF,0xFF,0xFF,_'Graphic character 7
  0x07,0x07,0x07,0x07,0x07,0x07,_'Graphic character 8
  0xE0,0xE0,0xE0,0xE0,0xE0,0xE0,_'Graphic character 9
  0xE0,0xE0,0xE0,0x07,0x07,0x07,_'Graphic character 10
  0x07,0x07,0x07,0xE0,0xE0,0xE0,_'Graphic character 11
  0xFF,0xFF,0xFF,0xE0,0xE0,0xE0,_'Graphic character 12
  0xE0,0xE0,0xE0,0xFF,0xFF,0xFF,_'Graphic character 13
  0x07,0x07,0x07,0xFF,0xFF,0xFF,_'Graphic character 14
  0xFF,0xFF,0xFF,0x07,0x07,0x07,_'Graphic character 15
  0x55,0xAA,0x55,0xAA,0x55,0xAA,_'Graphic character 16
  0xAA,0x55,0xAA,0x55,0xAA,0x55,_'Graphic character 17
  0x01,0x01,0x01,0x01,0x01,0x01,_'Graphic character 18
  0x80,0x80,0x80,0x80,0x80,0x80,_'Graphic character 19
  0xFF,0x00,0x00,0x00,0x00,0x00,_'Graphic character 20
  0x00,0x00,0x00,0x00,0x00,0xFF,_'Graphic character 21
  0xFF,0x01,0x01,0x01,0x01,0x01,_'Graphic character 22
  0x01,0x01,0x01,0x01,0x01,0xFF,_'Graphic character 23
  0xFF,0x80,0x80,0x80,0x80,0x80,_'Graphic character 24
  0x80,0x80,0x80,0x80,0x80,0xFF,_'Graphic character 25
  0x00,0x00,0x06,0x09,0x09,0x06,_'User defined character 26
  0x00,0x00,0x00,0x00,0x00,0x00,_'User defined character 27
  0x00,0x00,0x00,0x00,0x00,0x00,_'User defined character 28
  0x00,0x00,0x00,0x00,0x00,0x00,_'User defined character 29
  0x00,0x00,0x00,0x00,0x00,0x00,_'User defined character 30
  0x00,0x00,0x00,0x00,0x00,0x00,_'User defined character 31
  0x00,0x00,0x00,0x00,0x00,0x00,_'32 -   - 20        
  0x00,0x00,0x4F,0x00,0x00,0x00,_'33 - ! - 21
  0x00,0x07,0x00,0x07,0x00,0x00,_'34 - " - 22
  0x14,0x7F,0x14,0x7F,0x14,0x00,_'35 - # - 23
  0x24,0x2A,0x7F,0x2A,0x12,0x00,_'36 - $ - 24
  0x23,0x13,0x08,0x64,0x62,0x00,_'37 - % - 25
  0x36,0x49,0x55,0x22,0x50,0x00,_'38 - & - 26
  0x00,0x05,0x03,0x00,0x00,0x00,_'39 - ' - 27
  0x1C,0x22,0x41,0x00,0x00,0x00,_'40 - ( - 28
  0x00,0x00,0x41,0x22,0x1C,0x00,_'41 - ) - 29
  0x14,0x08,0x3E,0x08,0x14,0x00,_'42 - * - 2A
  0x08,0x08,0x3E,0x08,0x08,0x00,_'43 - + - 2B
  0x00,0x50,0x30,0x00,0x00,0x00,_'44 - , - 2C
  0x08,0x08,0x08,0x08,0x08,0x00,_'45 - - - 2D
  0x00,0x60,0x60,0x00,0x00,0x00,_'46 - . - 2E
  0x20,0x10,0x08,0x04,0x02,0x00,_'47 - / - 2F
  0x3E,0x51,0x49,0x45,0x3E,0x00,_'48 - 0 - 30
  0x00,0x42,0x7F,0x40,0x00,0x00,_'55 - 1 - 31
  0x42,0x61,0x51,0x49,0x46,0x00,_'56 - 2 - 32
  0x21,0x41,0x45,0x4B,0x31,0x00,_'51 - 3 - 33
  0x18,0x14,0x12,0x7F,0x10,0x00,_'52 - 4 - 34
  0x27,0x45,0x45,0x45,0x39,0x00,_'53 - 5 - 35
  0x3C,0x4A,0x49,0x49,0x30,0x00,_'54 - 6 - 36
  0x01,0x71,0x09,0x05,0x03,0x00,_'55 - 7 - 37
  0x36,0x49,0x49,0x49,0x36,0x00,_'56 - 8 - 38
  0x06,0x49,0x49,0x49,0x3E,0x00,_'57 - 9 - 39
  0x00,0x36,0x36,0x00,0x00,0x00,_'58 - : - 3A
  0x00,0x56,0x36,0x00,0x00,0x00,_'59 - ; - 3B
  0x08,0x14,0x22,0x41,0x00,0x00,_'60 - < - 3C
  0x14,0x14,0x14,0x14,0x14,0x00,_'61 - = - 3D
  0x00,0x41,0x22,0x14,0x08,0x00,_'62 - > - 3E
  0x02,0x01,0x51,0x09,0x06,0x00,_'63 - ? - 3F
  0x32,0x49,0x79,0x41,0x3E,0x00,_'64 - @ - 40
  0x7E,0x11,0x11,0x11,0x7E,0x00,_'65 - A - 41
  0x7F,0x49,0x49,0x49,0x36,0x00,_'66 - B - 42
  0x3E,0x41,0x41,0x41,0x22,0x00,_'67 - C - 43
  0x7F,0x41,0x41,0x22,0x1C,0x00,_'68 - D - 44
  0x7F,0x49,0x49,0x49,0x41,0x00,_'69 - E - 45
  0x7F,0x09,0x09,0x09,0x01,0x00,_'70 - F - 46
  0x3E,0x41,0x49,0x49,0x7A,0x00,_'71 - G - 47
  0x7F,0x08,0x08,0x08,0x7F,0x00,_'72 - H - 48
  0x00,0x41,0x7F,0x41,0x00,0x00,_'73 - I - 55
  0x20,0x40,0x41,0x3F,0x01,0x00,_'74 - J - 4A
  0x7F,0x08,0x14,0x22,0x41,0x00,_'75 - K - 4B
  0x7F,0x40,0x40,0x40,0x40,0x00,_'76 - L - 4C
  0x7F,0x02,0x0C,0x02,0x7F,0x00,_'77 - M - 4D
  0x7F,0x04,0x08,0x10,0x7F,0x00,_'78 - N - 4E
  0x3E,0x41,0x41,0x41,0x3E,0x00,_'79 - O - 4F
  0x7F,0x09,0x09,0x09,0x06,0x00,_'80 - P - 56
  0x3E,0x41,0x51,0x21,0x5E,0x00,_'81 - Q - 51
  0x7F,0x09,0x19,0x29,0x46,0x00,_'82 - R - 52
  0x46,0x49,0x49,0x49,0x31,0x00,_'83 - S - 53
  0x01,0x01,0x7F,0x01,0x01,0x00,_'84 - T - 54
  0x3F,0x40,0x40,0x40,0x3F,0x00,_'85 - U - 55
  0x1F,0x20,0x40,0x20,0x1F,0x00,_'86 - V - 56
  0x3F,0x40,0x38,0x40,0x3F,0x00,_'87 - W - 57
  0x63,0x14,0x08,0x14,0x63,0x00,_'88 - X - 58
  0x07,0x08,0x70,0x08,0x07,0x00,_'89 - Y - 59
  0x61,0x51,0x49,0x45,0x43,0x00,_'90 - Z - 5A
  0x7F,0x41,0x41,0x00,0x00,0x00,_'91 - [ - 5B
  0x02,0x04,0x08,0x10,0x20,0x00,_'92 - \ - 5C
  0x00,0x00,0x41,0x41,0x7F,0x00,_'93 - ] - 5D
  0x04,0x02,0x01,0x02,0x04,0x00,_'94 - ^ - 5E
  0x40,0x40,0x40,0x40,0x40,0x00,_'95 - _ - 5F
  0x00,0x01,0x02,0x04,0x00,0x00,_'96 - ` - 60
  0x20,0x54,0x54,0x54,0x78,0x00,_'97 - a - 61
  0x7F,0x48,0x44,0x44,0x38,0x00,_'98 - b - 62
  0x38,0x44,0x44,0x44,0x20,0x00,_'99 - c - 63
  0x38,0x44,0x44,0x48,0x7F,0x00,_'100  d - 64
  0x38,0x54,0x54,0x54,0x18,0x00,_'101  e - 65
  0x08,0x7E,0x09,0x01,0x02,0x00,_'102  f - 66
  0x0C,0x52,0x52,0x52,0x3E,0x00,_'103  g - 67
  0x7F,0x08,0x04,0x04,0x78,0x00,_'104  h - 68
  0x00,0x44,0x7D,0x40,0x00,0x00,_'105  i - 69
  0x00,0x20,0x40,0x44,0x3D,0x00,_'106  j - 6A
  0x7F,0x10,0x28,0x44,0x00,0x00,_'107  k - 6B
  0x00,0x41,0x7F,0x40,0x00,0x00,_'108  l - 6C
  0x7C,0x04,0x18,0x04,0x78,0x00,_'109  m - 6D
  0x7C,0x08,0x04,0x04,0x78,0x00,_'110  n - 6E
  0x38,0x44,0x44,0x44,0x38,0x00,_'111  o - 6F
  0x7C,0x14,0x14,0x14,0x08,0x00,_'112  p - 70
  0x08,0x14,0x14,0x18,0x7C,0x00,_'113  q - 71
  0x7C,0x08,0x04,0x04,0x08,0x00,_'114  r - 72
  0x48,0x54,0x54,0x54,0x20,0x00,_'115  s - 73
  0x04,0x3F,0x44,0x40,0x20,0x00,_'116  t - 74
  0x3C,0x40,0x40,0x20,0x7C,0x00,_'117  u - 75
  0x1C,0x20,0x40,0x20,0x1C,0x00,_'118  v - 76
  0x3C,0x40,0x30,0x40,0x3C,0x00,_'119  w - 77
  0x44,0x28,0x10,0x28,0x44,0x00,_'120  x - 78
  0x0C,0x50,0x50,0x50,0x3C,0x00,_'121  y - 79
  0x44,0x64,0x54,0x4C,0x44,0x00,_'122  z - 7A
  0x08,0x36,0x41,0x00,0x00,0x00,_'123  { - 7B
  0x00,0x00,0x7F,0x00,0x00,0x00,_'124  | - 7C
  0x00,0x00,0x41,0x36,0x08,0x00,_'125  } - 7D
  0x00,0x08,0x04,0x08,0x04,0x00,_'126  ~ - 7E
  0x00,0x000,0x00,0x00,0x00,0x00  '127    - 7F
'***********************************************************
'        EData 0,0,0,"NedPonUtoSreCetPetSubJanFebMarAprMajJunJulAugSepOctNovDec"'61
'        edata 0,""!"#$%&'()*+-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[/]^_'abcdefghijklmnopqrstuvwxyz{|}~"'127-32
'        EData "! #$%&'()*+-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[/]^_'abcdefghijklmnopqrstuvwxyz{|}~"'127-32
'        EData "IGI MJSTOR RADI OD JUTRA DO UVECE"
'        edata'0,0,0,"MonTueWedThuFriSatSunJanFebMarAprMayJunJulAugSepOctNovDec"
'        menu_list:LData "YearMnthDateDay HourMin Mon MoffTmaxTminHmaxHminTop0Top1Hop0Hop1BrdaEsos"
'**********************************************************
'***********************************************************
        EData 0,0,0,"NedPonUtoSreCetPetSubJanFebMarAprMajJunJulAugSepOctNovDec"'61
        EData "ECC DEKA ZA IGI MAJSTORA"'56
'        EData "2_IGI MAJSTOR RADI OD JUTRA DO UVECE_I JOS KOLIKO."'56
'        EData "3_IGI MAJSTOR RADI OD JUTRA DO UVECE_I JOS KOLIKO."'56
'        EData "4_IGI MAJSTOR RADI OD JUTRA DO UVECE_I JOS KOLIKO."'56
'        EData "5_IGI MAJSTOR RADI OD JUTRA DO UVECE_I JOS KOLIKO."'56
'        EData "6_IGI MAJSTOR RADI OD JUTRA DO UVECE_I JOS KOLIKO."'56
''          EData 0,0,0,"NedPonUtoSreCetPetSubJanFebMarAprMajJunJulAugSepOctNovDec"'61
''        EData 0,0,0,"!#$%&'()*+-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[/]^_'abcdefghijklmnopqrstuvwxyz{|}~"'127-32
''        EData 0,0,0," !#$%&'()*+-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[/]^_'abcdefghijklmnopqrstuvwxyz{|}~"'127-32
''          EData "XXX_IGI MJSTOR RADI OD JUTRA DO UVECE"
''        edata'0,0,0,"MonTueWedThuFriSatSunJanFebMarAprMayJunJulAugSepOctNovDec"
''          menu_list:LData "YearMnthDateDay HourMin Mon MoffTmaxTminHmaxHminTop0Top1Hop0Hop1BrdaEsos"
''        edata'0,0,0,"MonTueWedThuFriSatSunJanFebMarAprMayJunJulAugSepOctNovDec"
''          menu_list:LData "YearMnthDateDay HourMin Mon MoffTmaxTminHmaxHminTop0Top1Hop0Hop1BrdaEsos"
'**********************************************************
'    print_eeprom:
'************************************************************
'            Repeat
'                  If read_data=0 Then character=ERead printaddress           'use eeprom for data retrieval
'                  If read_data=1 Then character=LRead menu_list+printaddress    'use ldata for data retrieval
'                  Print At row,printposition,character                    'print to the LCD
'                  Inc printposition                                        'move print position one to the right
'                  Inc printaddress                                        'point to the next position in the table
'           Until printposition=printend+1                                'end loop when all characters have been printed
'            Return
MIX:
    End
    Stop
  
 
Odgovor na temu

alarmi ns
Novi Sad

Član broj: 326042
Poruke: 291
*.dynamic.sbb.rs.



+2 Profil

icon Re: Reklama sa Max 721901.03.2023. u 19:37 - pre 13 meseci
Inace za napajanje koristim onaj coper 5v 6a u metalnom kucistu, i ponekad i modilu koji rade krenu da brljaju pa mislim da je radi napajanja.I dali oko cipa max idu kondenzatori, na semo po kojoj sam pravio module ih nema i to mi je cudno ima samo otpornik od 10k
 
Odgovor na temu

aca_punk

Član broj: 206469
Poruke: 2132



+60 Profil

icon Re: Reklama sa Max 721902.03.2023. u 10:52 - pre 13 meseci
Ja imam problem sa modulom MAX 7219 LED Matrix 8x8 sa 4 segmenta. Pokusao sam sa kodovima iz scatch MD_Parola/Parola_Print_Test i Parola_Scrolling. Problem je u tome sto rec koja treba da se pojavi npr kada je scrolling u pitanju, krene sa 3 segmenta, pa cetvrti, prvi, drugi. Isto i kada ispisem samo rec. Umesto da prvo slovo bude na prvom segmentu, ono je na trecem, drugo na cetvrtom, trece na prvom i cetvrto na drugom.

Jeidino sto mi pada na pamet je da razlemim i isecem plocu na sredinu pa da zalemim ovako: 3. i 4. segment da stavim da budu 1. i 2. a onda bi 1. i 2. bili na 3.i 4. mestu. Da li je uopste ima veze kojim je redom zalemljeno? Trebalo bi da nema ali ne znam gde i sta da menjam u programu.

Pretpostavljam da je problem u nekoj od biblioteka npr: MD_MAX72xx.h ali ja to ne umem da pronadjem!?



 
Odgovor na temu

jozimir
Sustar Jozef
Zajecar

Član broj: 19546
Poruke: 64
62.240.26.*



+7 Profil

icon Re: Reklama sa Max 721902.03.2023. u 14:14 - pre 13 meseci
Možda ovo može da pomogne:
https://www.handsontec.com/dataspecs/module/MAX7219-4-In-1.pdf

Tu opisuju izmene koje treba uneti u MD_MAX72xx.h.
 
Odgovor na temu

aca_punk

Član broj: 206469
Poruke: 2132



+60 Profil

icon Re: Reklama sa Max 721902.03.2023. u 15:43 - pre 13 meseci
Sadrzaj mog fajla MD_MAX72xx.h je drugaciji. Skinuo sam i biblioteku iz PDF dokumenta ali opet nije to to... Isto i MD_MAXT2xx.lib... Nema ono sto je prikazano u PDF fajlu?

Odavde su fajlovi: https://github.com/MajicDesigns/MD_Parola i https://github.com/MajicDesign...2XX/blob/main/src/MD_MAX72xx.h
Prikačeni fajlovi
 
Odgovor na temu

alarmi ns
Novi Sad

Član broj: 326042
Poruke: 291
*.dynamic.a1.rs.



+2 Profil

icon Re: Reklama sa Max 721902.03.2023. u 16:49 - pre 13 meseci
Ali meni mali kupovni moduli rade bez greske, razmisljam da skinem pamel sa malih modula i da zalemim na podnozje na mojoj plocici koji vode ka ledicama, neznan hoce to raditi.
 
Odgovor na temu

aca_punk

Član broj: 206469
Poruke: 2132



+60 Profil

icon Re: Reklama sa Max 721902.03.2023. u 16:54 - pre 13 meseci
Fajl MD_MAX72xx.h i uputstvo iz PDF-a odnosi se na tip modula koji se koristi. Pa bi kako ja razumem trebalo samo izmenjati 1 i 0 tako da jedan od njih bude selektovan.

Jedino sto sam nasao u kodu a da ima veze sa vrstom modula je ovo: https://prnt.sc/vpAuikfVsHAk

Dugo mi stoji taj LED u fioci pa reko kad vec postoji tema da resim i taj problem. Bilo koja biblioteka koju sam skinuo nema definisane module. Treba li mozda ja da ih definisem i u jednom i u drugom fajlu?
 
Odgovor na temu

alarmi ns
Novi Sad

Član broj: 326042
Poruke: 291
*.dynamic.a1.rs.



+2 Profil

icon Re: Reklama sa Max 721902.03.2023. u 17:32 - pre 13 meseci
Znaci mislis ako bi skinuo displej sa fabrickog modula i polemio izlaze na moje ledice da bi radilo?
 
Odgovor na temu

alarmi ns
Novi Sad

Član broj: 326042
Poruke: 291
*.dynamic.a1.rs.



+2 Profil

icon Re: Reklama sa Max 721902.03.2023. u 17:34 - pre 13 meseci
Na pocetku imas definiciju za max
 
Odgovor na temu

aca_punk

Član broj: 206469
Poruke: 2132



+60 Profil

icon Re: Reklama sa Max 721902.03.2023. u 18:01 - pre 13 meseci
Ovo moje cudo radi ali pogresno. Problem je sto ne mogu da nadjem biblioteku koja ima definisane module kao sto je u pdf objasnjeno. Vidim da nisam prvi ali ne znam kako ostali to resavaju. Kada samo taj fajl MD_MAX72xx.h (negde sam ga nasao ali nece da radi sa svojom bibliotekom) prebacim onda ne mogu da kompajliram program.

Definisao sam max 4. Ako mislis na broj modula!

Naso jednu biblioteku koja ima INCLUDE folder i u njemu ova dva fajla koja sadrze definisane module. Ali biblioteka nece da radi ni tako ni kada iz include prebacim u src folder.

https://github.com/mongoose-os...ob/master/include/MD_MAX72xx.h

[Ovu poruku je menjao aca_punk dana 02.03.2023. u 19:21 GMT+1]


Tu treba da pise Hello! :)

[Ovu poruku je menjao aca_punk dana 02.03.2023. u 19:24 GMT+1]
Prikačeni fajlovi
 
Odgovor na temu

alarmi ns
Novi Sad

Član broj: 326042
Poruke: 291
*.dynamic.a1.rs.



+2 Profil

icon Re: Reklama sa Max 721902.03.2023. u 18:27 - pre 13 meseci
Moj kupovni radi idealno, al pravljeni zezeju
 
Odgovor na temu

aca_punk

Član broj: 206469
Poruke: 2132



+60 Profil

icon Re: Reklama sa Max 721902.03.2023. u 18:36 - pre 13 meseci
Posto su ovo novije verzije biblioteka, direktno u scatch codu se napise koji je modul: #define HARDWARE_TYPE MD_MAX72XX::FC16_HW Moj je FC16!

Radi! :)
 
Odgovor na temu

sfredsfred
Ferenc Santo
serviser
Petrovaradin

Član broj: 224666
Poruke: 6
*.dynamic.sbb.rs.

Sajt: pcsos.info


Profil

icon Re: Reklama sa Max 721902.03.2023. u 18:59 - pre 13 meseci
'-----MAX7219 SETUP-----
ADDRESS = $09 : DATAREG = $00 : gosub MaxWrite ' COMBINACION BINARIA, NO DECODE
'ADDRESS = $0A : DATAREG = $0F : gosub MaxWrite ' INTENSIDAD DE LEDS 1(MIN) A F(MAX)
ADDRESS = $0A : DATAREG = $05 : gosub MaxWrite ' INTENSIDAD DE LEDS 1(MIN) A F(MAX)
ADDRESS = $0B : DATAREG = $0F : gosub MaxWrite ' SCAN LIMIT NUMERO DE DIGITOS
ADDRESS = $0C : DATAREG = $01 : gosub MaxWrite ' NO SHUT, NORMAL OPERATION
'ADDRESS = $0F : DATAREG = $01 : gosub MaxWrite 'test 100% all led
'PAUSE 1500
ADDRESS = $0F : DATAREG = $00 : gosub MaxWrite

MaxWrite:
shiftout DAT,CLK,MSBFIRST,[address,datareg]
shiftout DAT,CLK,MSBFIRST,[address,datareg]
shiftout DAT,CLK,MSBFIRST,[address,datareg]
shiftout DAT,CLK,MSBFIRST,[address,datareg]
'Shift out the data to the 'MAX7219 'first the address, then data.
pulsout LOAD,1 'load the data into the MAX7219
return
'***


sfredred
 
Odgovor na temu

alarmi ns
Novi Sad

Član broj: 326042
Poruke: 291
*.dynamic.sbb.rs.



+2 Profil

icon Re: Reklama sa Max 721903.03.2023. u 08:30 - pre 13 meseci
Moze li mi neko od iskusnih elektronicara odgovoriti, posto mi mali displeji rade a moji napravljeni brljave dali bi dobio nesto ako sa letvica sa kupovnih displeja prespojim moje ledice dali bi to radili, panel sa kupovkih displeja se lako vadi zabiden je u letvice.
 
Odgovor na temu

aca_punk

Član broj: 206469
Poruke: 2132



+60 Profil

icon Re: Reklama sa Max 721903.03.2023. u 12:49 - pre 13 meseci
Da li si probao da kupovne LED stavis na tvoju plocu i obrnuto, tvoje LED stavis na kupovnu plocu? Sta se desava?
 
Odgovor na temu

veselinovic
Jovan Veselinovic
Ist. Sarajevo

Moderator
Član broj: 7761
Poruke: 3860
92.36.157.122



+333 Profil

icon Re: Reklama sa Max 721903.03.2023. u 13:07 - pre 13 meseci
Citat:
alarmi ns:
Moze li mi neko od iskusnih elektronicara odgovoriti, posto mi mali displeji rade a moji napravljeni brljave dali bi dobio nesto ako sa letvica sa kupovnih displeja prespojim moje ledice dali bi to radili, panel sa kupovkih displeja se lako vadi zabiden je u letvice.


Probaj definisati pojam brljave.
Mi nismo tu da vidimo sta se desava.
Vjerovatno je da tvoje ledice povuku vise struje nego sto napojna i/ili max moye isporuciti i desi se nesto.

 
Odgovor na temu

[es] :: Elektronika :: Mikrokontroleri :: Reklama sa Max 7219

Strane: 1 2

[ Pregleda: 4332 | Odgovora: 30 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.