Bascom és NOKIA 5110 LCD

Hogyan programozzak AVR chipet? Programozók beállításai...
Bascom nyelvű programok...
Válasz küldése
Avatar
Tom2tom
DrótVégénSzéndarab
Hozzászólások: 34
Csatlakozott: 2008. december 22. hétfő, 7:00

Bascom és NOKIA 5110 LCD

Hozzászólás Szerző: Tom2tom »

Sziasztok,

A segítségeteket szeretném kérni a fenti kijelző kezelésében.
http://shop.tavir.hu/product_info.php/l ... 8160-p-195

2 féle kódot is próbáltam, de sajnos a kijelző nem reagál.
ATMega8A-val próbálom kezelni 3.3 V feszültségen.
Nem vagyok kezdő, kezeltem már pl. EADOGM grafikus kijelzőt.
SPI-t még nem használtam, csak UART-ot és I2C-t, valamint karakteres kijelzőket.

Kód1:

Kód: Egész kijelölése

$regfile = "m8def.dat"
$crystal = 1000000

Declare Sub Address
Declare Sub Graphic
Declare Sub Words

'Ddrb = &B11111111
'Portb = &B11111111
'Ddrd = &B11111100
'Portd = &B11111111

Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.2 = Output
'Config Portd.7 = Output

'Config Spi = Soft , Dout = Portd.3 , Ss = None , Clock = Portd.4


'Dim Var As Byte
Dim Fset1 As Byte
Dim Bias As Byte
Dim Vop As Byte
Dim Temp As Byte
Dim Fset2 As Byte
Dim Disp As Byte
Dim Graph As Byte
Dim Count As Word
Dim Xaddress As Byte
Dim Yaddress As Byte
Dim Value As Word
Dim Value2 As Word
Dim Wvalue As Word
Dim Text As String * 10
Dim Sign As String * 1
Dim Lenght As Byte
Dim Loops As Byte

Config Spi = Hard , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4


  Portd.1 = 0
  Waitus 250
  Portd.1 = 1

  Fset1 = &B00100001
  Bias = &B00010101
  Vop = &B10110010
  Temp = &B00000110
  Fset2 = &B00100000
  Disp = &B00001100
  Value2 = 512

'Dc Alias portd.0
'Re Alias portd.1
'Ce Alias portd.2

  Spiinit
  Portd.0 = 0
  Portd.1 = 1
  Portd.2 = 1

  Portd.2 = 0
  Spiout Fset1 , 1
  Portd.2 = 1
  Portd.2 = 0
  Spiout Bias , 1
  Portd.2 = 1
  Portd.2 = 0
  Spiout Vop , 1
  Portd.2 = 1
  Portd.2 = 0
  Spiout Temp , 1
  Portd.2 = 1
  Portd.2 = 0
  Spiout Fset2 , 1
  Portd.2 = 1
  Portd.2 = 0
  Spiout Disp , 1
  Portd.2 = 1

  Graph = &B00000000
  For Count = 0 To 503
  Portd.0 = 1
  Portd.2 = 0
  Spiout Graph , 1
  Portd.2 = 1
  Next

  Xaddress = &B10011011
  Yaddress = &B01000001
  Call Address

  Text = "A9B3C7"
  Call Words
Do

 nop

Loop


End

Sub Address
   Portb.0 = 0
   Portb.2 = 0
   Spiout Yaddress , 1
   Portb.2 = 1
   Portb.2 = 0
   Spiout Xaddress , 1
   Portb.2 = 1
   Portb.0 = 1
End Sub

Sub Graphic
   Portb.0 = 1
   For Count = 1 To 6
   Read Graph
   Portb.2 = 0
   Spiout Graph , 1
   Portb.2 = 1
   Next Count
   Portb.0 = 0
End Sub

Sub Words
  Lenght = Len(text)
  For Loops = 1 To Lenght
  If Loops = 1 Then
  Sign = Left(text , 1)
  Elseif Loops = Lenght Then
  Sign = Right(text , 1)
  Else
  Sign = Mid(text , Loops , 1)
  End If
  If Sign = "0" Then Restore 0:
  If Sign = "1" Then Restore 1:
  If Sign = "2" Then Restore 2:
  If Sign = "3" Then Restore 3:
  If Sign = "4" Then Restore 4:
  If Sign = "5" Then Restore 5:
  If Sign = "6" Then Restore 6:
  If Sign = "7" Then Restore 7:
  If Sign = "8" Then Restore 8:
  If Sign = "9" Then Restore 9:
  If Sign = "A" Then Restore A:
  If Sign = "B" Then Restore B:
  If Sign = "C" Then Restore C:
  If Sign = "D" Then Restore D:
  If Sign = "E" Then Restore E:
  If Sign = "F" Then Restore F:
  If Sign = "G" Then Restore G:
  If Sign = "H" Then Restore H:
  If Sign = "I" Then Restore I:
  If Sign = "J" Then Restore J:
  If Sign = "K" Then Restore K:
  If Sign = "L" Then Restore L:
  If Sign = "M" Then Restore M:
  If Sign = "N" Then Restore N:
  If Sign = "O" Then Restore O:
  If Sign = "P" Then Restore P:
  If Sign = "Q" Then Restore Q:
  If Sign = "R" Then Restore R:
  If Sign = "S" Then Restore S:
  If Sign = "T" Then Restore T:
  If Sign = "U" Then Restore U:
  If Sign = "V" Then Restore V:
  If Sign = "W" Then Restore W:
  If Sign = "X" Then Restore X:
  If Sign = "Y" Then Restore Y:
  If Sign = "Z" Then Restore Z:
  'Call Graphic
  Next Loops
End Sub

0:
Data &H00 , &H3E , &H41 , &H41 , &H41 , &H3E
1:
Data &H00 , &H00 , &H41 , &H7F , &H40 , &H00
2:
Data &H00 , &H42 , &H61 , &H51 , &H49 , &H46
3:
Data &H00 , &H22 , &H41 , &H49 , &H49 , &H36
4:
Data &H00 , &H18 , &H14 , &H52 , &H7F , &H50
5:
Data &H00 , &H4F , &H49 , &H49 , &H49 , &H31
6:
Data &H00 , &H3E , &H49 , &H49 , &H49 , &H32
7:
Data &H00 , &H03 , &H01 , &H71 , &H09 , &H07
8:
Data &H00 , &H36 , &H49 , &H49 , &H49 , &H36
9:
Data &H00 , &H26 , &H49 , &H49 , &H49 , &H3E

A:
Data &H00 , &H78 , &H16 , &H11 , &H16 , &H78
B:
Data &H00 , &H7F , &H49 , &H49 , &H49 , &H36
C:
Data &H00 , &H3E , &H41 , &H41 , &H41 , &H22
D:
Data &H00 , &H7F , &H41 , &H41 , &H41 , &H3E
E:
Data &H00 , &H7F , &H49 , &H49 , &H49 , &H41
F:
Data &H00 , &H7F , &H09 , &H09 , &H09 , &H01
G:
Data &H00 , &H3E , &H41 , &H41 , &H49 , &H3A
H:
Data &H00 , &H7F , &H08 , &H08 , &H08 , &H7F
I:
Data &H00 , &H00 , &H41 , &H7F , &H41 , &H00
J:
Data &H00 , &H30 , &H40 , &H40 , &H40 , &H3F
K:
Data &H00 , &H7F , &H08 , &H14 , &H22 , &H41
L:
Data &H00 , &H7F , &H40 , &H40 , &H40 , &H40
M:
Data &H00 , &H7F , &H02 , &H0C , &H02 , &H7F
N:
Data &H00 , &H7F , &H06 , &H08 , &H30 , &H7F
O:
Data &H00 , &H3E , &H41 , &H41 , &H41 , &H3E
P:
Data &H00 , &H7F , &H09 , &H09 , &H09 , &H06
Q:
Data &H00 , &H3E , &H41 , &H51 , &H21 , &H5E
R:
Data &H00 , &H7F , &H09 , &H19 , &H29 , &H46
S:
Data &H00 , &H26 , &H49 , &H49 , &H49 , &H32
T:
Data &H00 , &H01 , &H01 , &H7F , &H01 , &H01
U:
Data &H00 , &H3F , &H40 , &H40 , &H40 , &H3F
V:
Data &H00 , &H0F , &H30 , &H40 , &H30 , &H0F
W:
Data &H00 , &H3F , &H40 , &H38 , &H40 , &H3F
X:
Data &H00 , &H63 , &H14 , &H08 , &H14 , &H63
Y:
Data &H00 , &H07 , &H08 , &H70 , &H08 , &H07
Z:
Data &H00 , &H61 , &H51 , &H49 , &H45 , &H43
Kód2:

Kód: Egész kijelölése

$regfile = "m8def.dat"
$crystal = 1000000

'lcd
Config Portd = Output
'Config Portd.1 = Output
'Config Spi = Hard , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 1
'Config Spi = Soft , Dout = Portd.3 , Ss = None , Clock = Portd.4
Config Spi = Soft , Dout = Portd.3 , Din = Portd.7 , Ss = None , Clock = Portd.4
'Lcd_cs Alias Portb.4
Dim Tout As Byte
Lcd_cmd Alias Portd.0
Lcd_res Alias Portd.1

Const Extcmd = &H21
Const Contrmid = &HC8
Const Tempcomp2 = &H06
Const Bias48 = &H13
Const Normcmd = &H20
Const Lcdinv = &H0D
Const Lcdnorm = &H0C
Const Lcdxaddr0 = &H80
Const Lcdpdown = &H24
Const Lcdact = &H20

Declare Sub Tcmd(byval Tlcdcmd As Byte)                     'command mode
Declare Sub Tlcdinit                                        'inicializalas
Declare Sub Tcls                                            'torles

Dim I As Integer                                            ' A For Csiklusoknak
Dim J As Integer                                            ' a for csiklusoknak
Dim Text1 As String * 14                                    'betuk irasahoz,ez a kiirando sor
Dim Text2 As Integer                                        'negativ a sor vagy sem
Dim Texx As Integer                                         'a data sorbol ez lesz a kezdo pont
Dim Betu As String * 1                                      '  mien betu van a kiirando sorba
Dim Digii As Word                                           'a digital portrol leolvasot ertek bilentyu
Dim Mm1 As Integer                                          ' az elso kepes menu,mi legyen kirajzolva
Dim Poss As Integer                                         'az elso kepes menuhoz,a job-bal billentyu lenyomasaval csoken vagy no az erteke

Dim Berrorcode As Byte
Dim Gbtemp1 As Byte                                         ' scratch byte

'Spiinit

Tlcdinit                                                    'inicializalas
Tcmd Lcdact                                                 ' LCD aktiv
Poss = 1


Main_loop:

'******************************* A Program ****************************
Menu:

Wait 1
Berrorcode = 12
Text1 = "error:     " + Str(berrorcode)
Gosub Printt

Goto Menu


'itt ir ki sorokat ha betuk vanak
Printt:
For I = 1 To Len(text1)
 Betu = Mid(text1 , I , 1)
 Select Case Betu
  Case "a" : Texx = 0
  Case "b" : Texx = 1
  Case "c" : Texx = 2
  Case "d" : Texx = 3
  Case "e" : Texx = 4
  Case "f" : Texx = 5
  Case "g" : Texx = 6
  Case "h" : Texx = 7
  Case "i" : Texx = 8
  Case "j" : Texx = 9
  Case "k" : Texx = 10
  Case "l" : Texx = 11
  Case "m" : Texx = 12
  Case "n" : Texx = 13
  Case "o" : Texx = 14
  Case "p" : Texx = 15
  Case "q" : Texx = 16
  Case "r" : Texx = 17
  Case "s" : Texx = 18
  Case "t" : Texx = 19
  Case "u" : Texx = 20
  Case "v" : Texx = 21
  Case "w" : Texx = 22
  Case "x" : Texx = 23
  Case "y" : Texx = 24
  Case "z" : Texx = 25
  Case " " : Texx = 26
  Case "1" : Texx = 28
  Case "2" : Texx = 29
  Case "3" : Texx = 30
  Case "4" : Texx = 31
  Case "5" : Texx = 32
  Case "6" : Texx = 33
  Case "7" : Texx = 34
  Case "8" : Texx = 35
  Case "9" : Texx = 36
  Case "0" : Texx = 28
  Case "/" : Texx = 41
  Case Else : Goto Exit_case
 End Select

 Texx = Texx * 6
 For J = 0 To 5
  Tout = Lookup(texx , Da1)
  'negativ iras
  If Text2 = 1 Then
   Tout = Tout Xor &HFF
  End If
  Spiout Tout , 1
  Incr Texx
 Next J

 Exit_case:
Next I
Tcmd Lcdact
Return

Goto Main_loop
End


'====================== I N I C I A L I Z Á L Á S ==============================

'********************************* Tcmd(Tlcdcmd) ***************************
Sub Tcmd(byval Tlcdcmd As Byte)
Reset Lcd_cmd
Spiout Tlcdcmd , 1
Set Lcd_cmd
End Sub

'********************************** inicializalas *******************************
'inicializalas
Sub Tlcdinit
Spiinit
'Reset Lcd_cs
Reset Lcd_res
Set Lcd_res
Tcmd Extcmd
Tcmd Contrmid
Tcmd Tempcomp2
Tcmd Bias48
Tcmd Normcmd
Tcmd Lcdnorm
Tcls
End Sub

'************************************torles *********************************
'torles
Sub Tcls
Local Tword As Word
Tcmd Normcmd
Tcmd Lcdnorm
Tcmd Lcdxaddr0
Tout = 0
For Tword = 0 To 503
Spiout Tout , 1
Next
End Sub



'carakter font
Da1:
Data 120 , 20 , 18 , 20 , 120 , 0 , 126 , 74 , 74 , 74 , 52 , 0 , 60 , 66 , 66 , 66 , 36 , 0 , 126 , 66 , 66
Data 66 , 60 , 0 , 126 , 82 , 82 , 66 , 66 , 0 , 124 , 18 , 18 , 18 , 2 , 0 , 60 , 66 , 66 , 82 , 52 , 0
Data 126 , 16 , 16 , 16 , 126 , 0 , 0 , 0 , 122 , 0 , 0 , 0 , 50 , 66 , 66 , 66 , 62 , 0 , 126 , 8 , 20
Data 34 , 64 , 0 , 126 , 64 , 64 , 64 , 0 , 0 , 126 , 4 , 8 , 4 , 126 , 0 , 126 , 4 , 24 , 32 , 126 , 0
Data 60 , 66 , 66 , 66 , 60 , 0 , 126 , 18 , 18 , 18 , 12 , 0 , 60 , 66 , 82 , 98 , 60 , 0 , 126 , 18 , 50
Data 82 , 76 , 0 , 36 , 74 , 74 , 74 , 48 , 0 , 2 , 2 , 126 , 2 , 2 , 0 , 62 , 64 , 64 , 64 , 62 , 0
Data 14 , 48 , 64 , 48 , 14 , 0 , 14 , 48 , 76 , 48 , 14 , 0 , 66 , 36 , 24 , 36 , 66 , 0 , 6 , 8 , 112
Data 8 , 6 , 0 , 98 , 82 , 82 , 74 , 70 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 126 , 74 , 126 , 74 , 126 , 0
Data 0 , 4 , 126 , 0 , 0 , 0 , 100 , 82 , 82 , 74 , 68 , 0 , 66 , 74 , 74 , 74 , 52 , 0 , 24 , 20 , 18
Data 122 , 16 , 0 , 38 , 74 , 74 , 74 , 50 , 0 , 60 , 82 , 82 , 82 , 52 , 0 , 2 , 98 , 18 , 10 , 6 , 0
Data 52 , 74 , 74 , 74 , 52 , 0 , 12 , 82 , 82 , 82 , 44 , 0 , 60 , 66 , 66 , 66 , 60 , 0 , 8 , 8 , 62
Data 8 , 8 , 0 , 8 , 8 , 8 , 8 , 8 , 0 , 34 , 20 , 8 , 20 , 34 , 0 , 0 , 16 , 12 , 2 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0

'analog digital menu
M1:
Data 0 , 0 , 0 , 192 , 240 , 48 , 240 , 192 , 0 , 0 , 0 , 128 , 240 , 112 , 0 , 16 , 240 , 240 , 16 , 16 , 48
Data 224 , 192 , 0 , 0 , 0 , 0 , 192 , 224 , 48 , 16 , 16 , 48 , 112 , 64 , 0 , 128 , 128 , 128 , 128 , 0 , 0
Data 128 , 128 , 128 , 128 , 128 , 0 , 0 , 128 , 128 , 128 , 0 , 128 , 128 , 128 , 0 , 0 , 128 , 128 , 128 , 0 , 0
Data 128 , 128 , 0 , 128 , 128 , 0 , 192 , 224 , 128 , 0 , 0 , 128 , 128 , 128 , 0 , 0 , 128 , 128 , 0 , 128 , 128
Data 0 , 0 , 12 , 15 , 11 , 2 , 11 , 15 , 14 , 0 , 28 , 31 , 3 , 0 , 0 , 8 , 15 , 15 , 8 , 8 , 12
Data 7 , 3 , 0 , 0 , 0 , 0 , 3 , 7 , 12 , 8 , 8 , 8 , 4 , 0 , 7 , 15 , 8 , 8 , 15 , 7 , 0
Data 8 , 15 , 15 , 0 , 15 , 15 , 8 , 0 , 1 , 7 , 12 , 7 , 1 , 0 , 0 , 7 , 15 , 10 , 10 , 11 , 0
Data 8 , 15 , 15 , 8 , 0 , 0 , 15 , 15 , 8 , 0 , 7 , 15 , 10 , 11 , 11 , 0 , 8 , 15 , 15 , 8 , 0
Data 252 , 252 , 252 , 252 , 248 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 224 , 224 , 240 , 240 , 240 , 112 , 16 , 16 , 16 , 16 , 16 , 16 , 240 , 240 , 240 , 240 , 240
Data 16 , 16 , 16 , 240 , 240 , 16 , 16 , 16 , 16 , 144 , 16 , 16 , 16 , 48 , 112 , 240 , 240 , 240 , 224 , 224 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 240 , 248 , 248 , 248 , 248
Data 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 255 , 255 , 63 , 7 , 1 , 0 , 128 , 152 , 156 , 0 , 0 , 0 , 15 , 255 , 255 , 63 , 1
Data 0 , 192 , 254 , 63 , 1 , 0 , 0 , 96 , 126 , 63 , 15 , 0 , 0 , 128 , 224 , 255 , 255 , 255 , 255 , 255 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255
Data 15 , 15 , 15 , 15 , 7 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 255 , 254 , 62 , 206 , 246 , 247 , 231 , 255 , 63 , 222 , 222 , 62 , 254 , 31 , 159 , 222 , 30
Data 254 , 31 , 255 , 30 , 254 , 62 , 94 , 94 , 158 , 254 , 30 , 190 , 223 , 255 , 223 , 15 , 223 , 255 , 255 , 255 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 15 , 31 , 31 , 31 , 31
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 15 , 15 , 30 , 29 , 29 , 29 , 30 , 31 , 30 , 29 , 29 , 30 , 31 , 28 , 31 , 31 , 28
Data 31 , 31 , 28 , 31 , 31 , 30 , 29 , 29 , 29 , 31 , 28 , 31 , 31 , 31 , 31 , 28 , 31 , 31 , 15 , 15 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0

'szamologep menu
M2:
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 192 , 224 , 48 , 16 , 16 , 48 , 112 , 64 , 0 , 128
Data 128 , 128 , 128 , 0 , 16 , 240 , 240 , 0 , 0 , 0 , 128 , 128 , 128 , 128 , 0 , 128 , 128 , 128 , 128 , 128 , 128
Data 0 , 0 , 16 , 240 , 240 , 0 , 0 , 0 , 128 , 128 , 128 , 128 , 0 , 128 , 192 , 224 , 128 , 0 , 0 , 128 , 128
Data 128 , 128 , 0 , 0 , 128 , 128 , 128 , 128 , 128 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 7 , 12 , 8 , 8 , 8 , 4 , 0 , 13 , 15
Data 10 , 7 , 15 , 8 , 8 , 15 , 15 , 8 , 0 , 7 , 15 , 8 , 8 , 5 , 0 , 0 , 7 , 15 , 8 , 15 , 15
Data 8 , 0 , 8 , 15 , 15 , 8 , 0 , 13 , 15 , 10 , 7 , 15 , 8 , 0 , 15 , 15 , 8 , 0 , 7 , 15 , 8
Data 8 , 15 , 7 , 0 , 8 , 15 , 15 , 8 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 252 , 252 , 252 , 252 , 248 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 224 , 224 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240
Data 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 224 , 224 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 240 , 248 , 248 , 248 , 248
Data 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 255 , 255 , 1 , 254 , 98 , 98 , 98 , 226 , 226 , 98 , 98 , 98 , 226 , 226 , 98 , 98 , 98
Data 226 , 226 , 98 , 98 , 98 , 98 , 98 , 98 , 126 , 254 , 254 , 254 , 254 , 254 , 254 , 1 , 255 , 255 , 255 , 255 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255
Data 15 , 15 , 15 , 15 , 7 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 255 , 255 , 0 , 255 , 146 , 146 , 146 , 255 , 255 , 146 , 146 , 146 , 255 , 255 , 146 , 146 , 146
Data 255 , 255 , 146 , 146 , 146 , 254 , 146 , 146 , 146 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 255 , 255 , 255 , 255 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 15 , 31 , 31 , 31 , 31
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 15 , 15 , 31 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30
Data 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 31 , 31 , 31 , 15 , 15 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0

'ora ebreszto menu
M3:
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 192 , 240 , 48 , 240 , 192 , 0 , 0 , 16 , 240 , 240 , 0 , 0 , 0 , 128
Data 128 , 128 , 128 , 0 , 128 , 128 , 0 , 128 , 0 , 128 , 128 , 128 , 128 , 128 , 128 , 128 , 128 , 128 , 0 , 0 , 0
Data 0 , 0 , 0 , 192 , 224 , 48 , 16 , 16 , 48 , 112 , 64 , 16 , 240 , 240 , 0 , 0 , 0 , 128 , 128 , 128 , 128
Data 0 , 0 , 0 , 128 , 128 , 128 , 128 , 0 , 16 , 240 , 240 , 0 , 128 , 128 , 128 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 12 , 15 , 11 , 2 , 11 , 15 , 14 , 8 , 0 , 15 , 15 , 8 , 0 , 13 , 15
Data 10 , 7 , 15 , 8 , 0 , 15 , 15 , 8 , 0 , 8 , 15 , 15 , 0 , 15 , 15 , 0 , 15 , 15 , 8 , 0 , 0
Data 0 , 0 , 0 , 3 , 7 , 12 , 8 , 8 , 8 , 4 , 0 , 8 , 15 , 15 , 8 , 0 , 7 , 15 , 8 , 8 , 15
Data 7 , 0 , 7 , 15 , 8 , 8 , 5 , 0 , 8 , 15 , 15 , 11 , 15 , 13 , 8 , 0 , 0 , 0 , 0 , 0 , 0
Data 252 , 252 , 252 , 252 , 248 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 224 , 224 , 240 , 112 , 112 , 112 , 240 , 240 , 240 , 240 , 112 , 112 , 112 , 240 , 240 , 240 , 240
Data 240 , 240 , 240 , 240 , 240 , 240 , 240 , 112 , 112 , 240 , 240 , 240 , 240 , 240 , 112 , 112 , 240 , 240 , 224 , 224 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 240 , 248 , 248 , 248 , 248
Data 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 255 , 255 , 206 , 198 , 211 , 216 , 220 , 255 , 255 , 238 , 202 , 219 , 192 , 228 , 255 , 255 , 255
Data 221 , 221 , 255 , 255 , 255 , 255 , 222 , 192 , 192 , 223 , 255 , 255 , 255 , 222 , 192 , 192 , 223 , 255 , 255 , 255 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255
Data 15 , 15 , 15 , 15 , 7 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 255 , 127 , 7 , 233 , 233 , 7 , 127 , 255 , 255 , 125 , 1 , 1 , 127 , 255 , 255 , 175 , 7
Data 87 , 7 , 15 , 127 , 255 , 255 , 119 , 7 , 31 , 111 , 247 , 255 , 7 , 247 , 7 , 247 , 7 , 255 , 255 , 255 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 15 , 31 , 31 , 31 , 31
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 15 , 15 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31
Data 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 15 , 15 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0

'tranzisztor teszter menu
M4:
Data 0 , 48 , 24 , 8 , 248 , 248 , 8 , 24 , 48 , 64 , 192 , 128 , 64 , 64 , 128 , 192 , 64 , 192 , 192 , 0 , 64
Data 192 , 192 , 64 , 192 , 128 , 0 , 128 , 64 , 192 , 192 , 64 , 0 , 64 , 208 , 208 , 0 , 0 , 128 , 192 , 64 , 64
Data 192 , 0 , 64 , 224 , 240 , 64 , 0 , 128 , 192 , 64 , 64 , 192 , 128 , 0 , 64 , 192 , 192 , 64 , 64 , 0 , 0
Data 64 , 224 , 240 , 64 , 0 , 128 , 192 , 64 , 192 , 128 , 0 , 128 , 192 , 64 , 64 , 192 , 0 , 64 , 224 , 240 , 64
Data 0 , 0 , 0 , 4 , 7 , 7 , 4 , 0 , 0 , 4 , 7 , 7 , 4 , 0 , 6 , 7 , 5 , 3 , 7 , 4 , 0
Data 7 , 7 , 0 , 7 , 7 , 0 , 0 , 6 , 5 , 4 , 6 , 0 , 4 , 7 , 7 , 4 , 0 , 6 , 5 , 5 , 7
Data 2 , 0 , 0 , 7 , 7 , 4 , 0 , 3 , 7 , 4 , 4 , 7 , 3 , 0 , 4 , 7 , 7 , 4 , 0 , 0 , 0
Data 0 , 7 , 7 , 4 , 0 , 3 , 7 , 5 , 5 , 5 , 0 , 6 , 5 , 5 , 7 , 2 , 0 , 0 , 7 , 7 , 4
Data 252 , 252 , 252 , 252 , 248 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 224 , 224 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 112 , 112 , 48 , 176 , 176
Data 176 , 48 , 48 , 112 , 112 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 224 , 224 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 240 , 248 , 248 , 248 , 248
Data 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 31 , 7 , 225 , 248 , 252 , 1 , 254 , 127 , 191 , 223
Data 239 , 239 , 247 , 250 , 252 , 254 , 252 , 240 , 198 , 30 , 254 , 254 , 254 , 254 , 254 , 254 , 254 , 255 , 255 , 255 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255
Data 15 , 15 , 15 , 15 , 7 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 255 , 255 , 254 , 254 , 254 , 254 , 254 , 248 , 224 , 142 , 62 , 126 , 0 , 254 , 253 , 251 , 183
Data 143 , 15 , 7 , 31 , 255 , 127 , 63 , 143 , 227 , 248 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 15 , 31 , 31 , 31 , 31
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 15 , 15 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 30 , 30 , 29 , 29 , 29
Data 29 , 29 , 29 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 30 , 31 , 31 , 15 , 15 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0

'oscilloszkop menu
M5:
Data 0 , 0 , 0 , 0 , 0 , 192 , 224 , 48 , 16 , 16 , 48 , 224 , 192 , 0 , 0 , 128 , 128 , 128 , 128 , 0 , 0
Data 128 , 128 , 128 , 128 , 0 , 128 , 160 , 160 , 0 , 0 , 16 , 240 , 240 , 0 , 0 , 16 , 240 , 240 , 0 , 0 , 0
Data 128 , 128 , 128 , 128 , 0 , 0 , 0 , 128 , 128 , 128 , 128 , 0 , 0 , 128 , 128 , 128 , 128 , 0 , 0 , 128 , 128
Data 128 , 128 , 0 , 0 , 128 , 128 , 128 , 128 , 128 , 128 , 0 , 0 , 0 , 128 , 128 , 128 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 3 , 7 , 12 , 8 , 8 , 12 , 7 , 3 , 0 , 13 , 11 , 10 , 14 , 5 , 0 , 7
Data 15 , 8 , 8 , 5 , 0 , 8 , 15 , 15 , 8 , 0 , 8 , 15 , 15 , 8 , 0 , 8 , 15 , 15 , 8 , 0 , 7
Data 15 , 8 , 8 , 15 , 7 , 0 , 13 , 11 , 10 , 14 , 5 , 0 , 7 , 15 , 8 , 8 , 5 , 0 , 7 , 15 , 8
Data 8 , 15 , 7 , 0 , 32 , 63 , 63 , 40 , 8 , 15 , 7 , 0 , 7 , 15 , 10 , 11 , 11 , 0 , 0 , 0 , 0
Data 252 , 252 , 252 , 252 , 248 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 224 , 224 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240
Data 160 , 240 , 240 , 240 , 48 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 16 , 240 , 240 , 240 , 240 , 240 , 224 , 224 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 240 , 248 , 248 , 248 , 248
Data 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 127 , 255 , 127 , 127 , 127 , 127 , 159 , 207 , 63 , 255 , 255 , 63 , 199 , 121 , 199 , 63 , 255
Data 170 , 255 , 63 , 193 , 126 , 240 , 15 , 255 , 255 , 127 , 127 , 129 , 254 , 112 , 15 , 255 , 255 , 127 , 255 , 127 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255
Data 15 , 15 , 15 , 15 , 7 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 252 , 251 , 252 , 255 , 255 , 255 , 252 , 227
Data 94 , 207 , 240 , 255 , 255 , 255 , 255 , 248 , 135 , 31 , 224 , 255 , 255 , 255 , 255 , 252 , 253 , 253 , 253 , 255 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 15 , 31 , 31 , 31 , 31
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 15 , 15 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31
Data 21 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 15 , 15 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0

'elenalas kondenzator szinkod menu
M6:
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 128 , 192 , 96 , 32 , 32 , 96 , 224 , 128 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 32 , 224 , 224 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 128 , 192 , 96 , 32 , 32 , 96 , 224 , 128 , 0 , 0 , 0 , 0 , 0 , 0 , 32 , 224 , 224 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 7 , 15 , 24 , 16 , 16 , 16 , 8 , 0 , 14 , 31 , 17 , 17
Data 31 , 14 , 0 , 16 , 31 , 31 , 16 , 0 , 14 , 31 , 17 , 17 , 31 , 14 , 0 , 17 , 31 , 31 , 17 , 1 , 0
Data 0 , 0 , 0 , 7 , 15 , 24 , 16 , 16 , 16 , 8 , 0 , 26 , 31 , 21 , 15 , 31 , 16 , 16 , 31 , 31 , 16
Data 0 , 14 , 31 , 17 , 17 , 11 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 252 , 252 , 252 , 252 , 248 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 224 , 224 , 240 , 240 , 240 , 240 , 240 , 240 , 48 , 176 , 176 , 176 , 176 , 176 , 176 , 176 , 176
Data 176 , 176 , 176 , 48 , 176 , 48 , 176 , 48 , 176 , 48 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 240 , 224 , 224 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 240 , 248 , 248 , 248 , 248
Data 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 255 , 255 , 255 , 254 , 254 , 254 , 254 , 222 , 88 , 219 , 219 , 27 , 251 , 251 , 251 , 251 , 251
Data 251 , 251 , 251 , 248 , 251 , 248 , 251 , 248 , 251 , 248 , 254 , 254 , 254 , 254 , 254 , 255 , 255 , 255 , 255 , 255 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255
Data 15 , 15 , 15 , 15 , 7 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 255 , 255 , 255 , 253 , 253 , 253 , 253 , 221 , 208 , 223 , 223 , 192 , 253 , 253 , 253 , 253 , 255
Data 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 15 , 31 , 31 , 31 , 31
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 15 , 15 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31
Data 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 31 , 15 , 15 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0


'analog digital program
Da30:
Data 255 , 255 , 255 , 255 , 1 , 129 , 121 , 69 , 121 , 129 , 1 , 253 , 25 , 33 , 193 , 253 , 1 , 129 , 121 , 69 , 121
Data 129 , 1 , 253 , 1 , 1 , 1 , 1 , 1 , 249 , 5 , 5 , 5 , 249 , 1 , 1 , 249 , 5 , 5 , 37 , 233 , 1
Data 1 , 1 , 1 , 253 , 5 , 5 , 5 , 249 , 1 , 1 , 253 , 1 , 1 , 249 , 5 , 5 , 37 , 233 , 1 , 1 , 253
Data 1 , 5 , 5 , 253 , 5 , 5 , 129 , 121 , 69 , 121 , 129 , 1 , 253 , 1 , 1 , 1 , 1 , 1 , 255 , 255 , 255
Data 255 , 255 , 255 , 255 , 0 , 153 , 36 , 36 , 200 , 1 , 0 , 253 , 0 , 0 , 248 , 5 , 4 , 37 , 232 , 0 , 0
Data 253 , 24 , 33 , 193 , 253 , 1 , 128 , 120 , 68 , 121 , 129 , 1 , 252 , 0 , 0 , 0 , 1 , 1 , 1 , 0 , 4
Data 4 , 252 , 4 , 5 , 1 , 253 , 37 , 36 , 36 , 0 , 1 , 152 , 36 , 36 , 201 , 1 , 5 , 4 , 252 , 4 , 5
Data 0 , 0 , 0 , 1 , 0 , 0 , 1 , 0 , 0 , 0 , 1 , 0 , 1 , 1 , 1 , 1 , 0 , 0 , 255 , 255 , 255
Data 255 , 255 , 255 , 255 , 248 , 248 , 249 , 249 , 248 , 248 , 248 , 249 , 248 , 248 , 248 , 249 , 249 , 249 , 248 , 248 , 248
Data 249 , 248 , 248 , 248 , 249 , 248 , 249 , 248 , 248 , 248 , 249 , 248 , 249 , 249 , 249 , 249 , 248 , 248 , 248 , 248 , 248
Data 248 , 249 , 248 , 248 , 248 , 249 , 249 , 249 , 249 , 248 , 248 , 248 , 249 , 249 , 248 , 248 , 248 , 248 , 249 , 248 , 248
Data 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 255 , 255 , 255
Data 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 255 , 255 , 255 , 255 , 255 , 255
Data 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 1 , 1 , 1 , 253 , 253 , 109 , 125 , 57 , 1
Data 241 , 249 , 13 , 13 , 13 , 13 , 249 , 241 , 1 , 253 , 253 , 205 , 205 , 121 , 49 , 1 , 13 , 13 , 13 , 253 , 253
Data 13 , 13 , 13 , 1 , 1 , 1 , 1 , 1 , 1 , 249 , 253 , 13 , 253 , 249 , 1 , 1 , 1 , 1 , 1 , 1 , 1
Data 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 255 , 255 , 255 , 255 , 255 , 255
Data 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 248 , 248 , 248 , 251 , 251 , 248 , 248 , 248 , 248
Data 248 , 249 , 251 , 251 , 251 , 251 , 249 , 248 , 248 , 251 , 251 , 248 , 249 , 249 , 251 , 248 , 248 , 248 , 248 , 251 , 251
Data 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 249 , 251 , 251 , 251 , 249 , 248 , 248 , 248 , 248 , 248 , 248 , 248
Data 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 248 , 255 , 255 , 255 , 255 , 255 , 255
Vissza a tetejére
Avatar
Robert
Elektronbűvölő
Hozzászólások: 10191
Csatlakozott: 2005. december 9. péntek, 7:00

Re: Bascom és NOKIA 5110 LCD

Hozzászólás Szerző: Robert »

Tipp:
viewtopic.php?t=42&start=75
Vissza a tetejére
Avatar
Tom2tom
DrótVégénSzéndarab
Hozzászólások: 34
Csatlakozott: 2008. december 22. hétfő, 7:00

Re: Bascom és NOKIA 5110 LCD

Hozzászólás Szerző: Tom2tom »

Köszönöm az ötletet, de sajnos a link által megadott fórumtéma linkje nem működik.
Elkalauzol a régi fórum oldalra és ott nem hozza be a keresett fájlt.
http://avr.tavir.hu/modules.php?name=Up ... 128LCD.RAR
Vissza a tetejére
Avatar
Tom2tom
DrótVégénSzéndarab
Hozzászólások: 34
Csatlakozott: 2008. december 22. hétfő, 7:00

Re: Bascom és NOKIA 5110 LCD

Hozzászólás Szerző: Tom2tom »

Siker! :D

A bizonyíték:
https://www.youtube.com/watch?v=gYHNMdofaYU

Találtam egy kódot, amit egy ATMega128-ba betöltve életre kelt a kijelző.
http://heiko-power.net/Bascom/1.8%20Spi%20ST7735R.zip

Ezt a kódot lefaragtam akkora mératűre, hogy beférjen egy Mega8-ba (ez látható a videón).
75%-ot foglal a CHIP-ből.

Kód: Egész kijelölése

'*******************************************************************************
'Display
'         CS --> portb.0
'    A0 / DC --> portb.1
'      Reset --> portb.2
'       Mosi --> portb.3
'        SCK --> portb.5
'*******************************************************************************

$regfile = "m8def.dat"
$crystal = 4000000
$hwstack = 250
$swstack = 250

$framesize = 300

$baud = 57600
'*******************************************************************************

Declare Sub Lcd_init()
Declare Sub Lcd_write_command(byval Command As Byte)
Declare Sub Lcd_write_data(byval Da_ta As Byte)
Declare Sub Lcd_clear(byval Color As Word)
Declare Sub Lcd_text(byval S As String , Byval Xoffset As Byte , Byval Yoffset As Byte , Byval Fontset As Byte , Byval Forecolor As Word , Byval Backcolor As Word )
Declare Sub Lcd_set_pixel(byval X As Byte , Byval Y As Byte , Byval Color As Word)
Declare Sub Lcd_set_window(byval Xs As Byte , Byval Ys As Byte , Byval Xe As Byte , Byval Ye As Byte)
Declare Sub Lcd_write_color(byval Color As Word)


Const Modus = 0                                             '0=Portrait  1=Landscape
Const Disp_typ = 0                                          'RGB order 0=Black Tab   1=Red Tab

Const Transparent = &H1000

Const Red = &HF800
Const Green = &H07E0
Const Blue = &H001F
Const White = &HFFFF
Const Black = &H0000
Const Yellow = &HFFE0
Const Cyan = &H0410
Const Magenta = &H8010
Const Brown = &HFC00
Const Olive = &H8400
Const Light_gray = &H8410
Const Dark_gray = &H4208
Const Light_blue = &H841F
Const Light_green = &H87F0
Const Light_cyan = &H87FF
Const Light_red = &HFC10
Const Gray1 = &HC618
Const Gray2 = &HA514
Const Gray3 = &H630C
Const Gray4 = &H4208
Const Gray5 = &H2104
Const Gray6 = &H3186

Const Blue0 = &H1086
Const Blue1 = &H3188
Const Blue2 = &H4314
Const Blue3 = &H861C

Const Cyan0 = &H3D34
Const Cyan1 = &H1DF7

Const Green0 = &H0200
Const Green1 = &H0208

Dim Color_array(12) As Word
Color_array(1) = &HF800
Color_array(2) = &H0400
Color_array(3) = &H001F
Color_array(4) = &HFFFF
Color_array(5) = &H07FF
Color_array(6) = &HF81F
Color_array(7) = &HA145
Color_array(8) = &HFD20
Color_array(9) = &HFE19
Color_array(10) = &HEC1D
Color_array(11) = &H0208
Color_array(12) = &H861C


'*******************************************************************************
Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output
Lcd_cs Alias Portb.0
Lcd_dc Alias Portb.1
Lcd_reset Alias Portb.2
Portb.0 = 1
'*******************************************************************************


 Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = High , Phase = 1 , Clockrate = 4 , Noss = 1
  Spsr = 1
 Spiinit

'use for demo
Dim Xx As Byte , Yy As Byte , Temp As Byte , Yy1 As Byte , Xx1 As Byte , Col5 As Word , Teller As Byte
Dim X1a As Byte


Call Lcd_init()

'*******************************************************************************
'Main
Do
'*******************************************************************************
'test Portrait
'*******************************************************************************
#if Modus = 0

 Wait 2
 Call Lcd_clear(black)

' Wait 2
' Call Lcd_clear(red)

' Wait 2
' For X1a = 10 To 100
'  Call Lcd_set_pixel(20 , X1a , White)
' Next X1a

'  Wait 5
' Call Lcd_clear(blue)
'  Wait 2
' Call Lcd_clear(black)
 Call Lcd_text( "1234567890123456" , 0 , 0 , 1 , White , Black)
 Call Lcd_text( "ABCDEFGHIJKLMNOP" , 0 , 10 , 1 , White , Black)
 Call Lcd_text( "QRSTUVWXYZ123456" , 0 , 20 , 1 , White , Black)

 Call Lcd_text( "abcdefghijklmnop" , 0 , 30 , 1 , White , Black)
 Call Lcd_text( "qrstuvwxyz123456" , 0 , 40 , 1 , White , Black)
 Call Lcd_text( "Azt mondta az o-" , 0 , 50 , 1 , White , Black)

 Call Lcd_text( "reg Kis, ne csak" , 0 , 60 , 1 , White , Black)
 Call Lcd_text( "egyunk, igyunk  " , 0 , 70 , 1 , White , Black)
 Call Lcd_text( "is.--x--x--x--x-" , 0 , 80 , 1 , White , Black)
 Wait 5
#endif

Loop

End

'*******************************************************************************
' send Color Data
'*******************************************************************************
Sub Lcd_write_color(byval Color As Word)
  Local Coll As Byte , Colh As Byte
  Coll = Low(color)
  Colh = High(color)

  Lcd_cs = 0
  Lcd_dc = 1
  Spiout Colh , 1
  Spiout Coll , 1
  Lcd_cs = 1
End Sub

'*******************************************************************************
'  Set Windows
'*******************************************************************************
Sub Lcd_set_window(byval Xs As Byte , Byval Ys As Byte , Byval Xe As Byte , Byval Ye As Byte)

   Call Lcd_write_command(&H2a)                             'column set x
   Call Lcd_write_data(&H00)
   Call Lcd_write_data(xs)                                  'start
   Call Lcd_write_data(&H00)
   Call Lcd_write_data(xe)                                  'end

   Call Lcd_write_command(&H2b)                             'row set  y
   Call Lcd_write_data(&H00)
   Call Lcd_write_data(ys)                                  'Start
   Call Lcd_write_data(&H00)
   Call Lcd_write_data(ye)                                  'end

   Call Lcd_write_command(&H2c)                             'write to ram
End Sub

'*******************************************************************************
' LCD draw Text
'*******************************************************************************
Sub Lcd_text(byval S As String , Xoffset As Byte , Yoffset As Byte , Fontset As Byte , Forecolor As Word , Backcolor As Word )
    Local Tempstring As String * 1 , Temp As Word           'Dim local the variables
    Local A As Word , Pixels As Byte , Count As Byte , Carcount As Byte , Lus As Byte
    Local Row As Byte , Byteseach As Byte , Blocksize As Byte , Dummy As Byte
    Local Colums As Byte , Columcount As Byte , Rowcount As Byte , Stringsize As Byte
    Local Xpos As Byte , Ypos As Byte , Pixel As Word , Pixelcount As Byte
    Stringsize = Len(s) - 1                                 'Size of the text string -1 because we must start with 0

    For Carcount = 0 To Stringsize                          'Loop for the numbers of caracters that must be displayed
        If Fontset = 1 Then Restore Font8x8                 'Add or remove here fontset's that you need or not,
'         If Fontset = 2 Then Restore Font12x16
'         If Fontset = 3 Then Restore Font8x12
'         If Fontset = 4 Then Restore Font6x10
'         If Fontset = 5 Then Restore Font10x16
            Temp = Carcount + 1                             'Cut the text string in seperate caracters
            Tempstring = Mid(s , Temp , 1)
            Read Row : Read Byteseach : Read Blocksize : Read Dummy       'Read the first 4 bytes from the font file
            Temp = Asc(tempstring) - 32                     'Font files start with caracter 32
            For Lus = 1 To Temp                             'Do dummie read to point to the correct line in the fontfile
               For Count = 1 To Blocksize
                   Read Pixels
               Next Count
            Next Lus
            Colums = Blocksize / Row                        'Calculate the numbers of colums
            Row = Row * 8                                   'Row is always 8 pixels high = 1 byte, so working with row in steps of 8.
            Row = Row - 1                                   'Want to start with row=0 instead of 1
            Colums = Colums - 1                             'Same for the colums
            For Rowcount = 0 To Row Step 8                  'Loop for numbers of rows
                A = Rowcount + Yoffset
                For Columcount = 0 To Colums                'Loop for numbers of Colums
                    Read Pixels
                    Xpos = Columcount                       'Do some calculation to get the caracter on the correct Xposition
                    Temp = Carcount * Byteseach
                    Xpos = Xpos + Temp
                    Xpos = Xpos + Xoffset
                    For Pixelcount = 0 To 7                 'Loop for 8 pixels to be set or not
                        Ypos = A + Pixelcount               'Each pixel on his own spot
                        Pixel = Pixels.0                    'Set the pixel (or not)
                        If Pixel = 1 Then
                           Pixel = Forecolor
                        Else
                            Pixel = Backcolor
                        End If
                        If Pixel <> Transparent Then
                        Call Lcd_set_pixel(xpos , Ypos , Pixel)
                        End If

                        Shift Pixels , Right                'Shift the byte 1 bit to the right so the next pixel comes availible
                    Next Pixelcount
                Next Columcount
            Next Rowcount
         Next Carcount
End Sub

'*******************************************************************************
'Set Pixel
'*******************************************************************************
Sub Lcd_set_pixel(byval X As Byte , Byval Y As Byte , Byval Color As Word)
   Local Xx As Byte , Yy As Byte
   Xx = X                                                   ' + 1
   Yy = Y                                                   '+ 1
'  Swap X , Y
   Call Lcd_set_window(x , Y , Xx , Yy)
   Call Lcd_write_color(color)
End Sub

'*******************************************************************************
'  Clear Display
'*******************************************************************************
Sub Lcd_clear(byval Color As Word)
   Local Zahl As Word
   Local Hb As Byte , Lb As Byte
   Hb = High(color)
   Lb = Low(color)
#if Modus = 1
  Call Lcd_set_window(0 , 0 , 159 , 127)
#else
  Call Lcd_set_window(0 , 0 , 127 , 159)
#endif
  Lcd_cs = 0
  Lcd_dc = 1
  For Zahl = 1 To 20480                                     '20480
      Spiout Hb , 1
      Spiout Lb , 1
   Next
  Lcd_cs = 1
End Sub

'*******************************************************************************
' send Command
'*******************************************************************************
Sub Lcd_write_command(byval Command As Byte)
 Lcd_cs = 0
 Lcd_dc = 0
 Spiout Command , 1
 Lcd_cs = 1
End Sub

'*******************************************************************************
'  send Data
'*******************************************************************************
Sub Lcd_write_data(byval Da_ta As Byte)
 Lcd_cs = 0
 Lcd_dc = 1
 Spiout Da_ta , 1
 Lcd_cs = 1
End Sub

'*******************************************************************************
' Init the display
'*******************************************************************************
Sub Lcd_init()

 Lcd_reset = 0
 Waitms 150
 Lcd_reset = 1
 Waitms 150

 Call Lcd_write_command(&H01)                               'Softreset
 Waitms 150
 Call Lcd_write_command(&H11)                               'sleep Mode off
 Waitms 500

 Call Lcd_write_command(&Hb1)                               'frame control normal
 Call Lcd_write_data(&H01)
 Call Lcd_write_data(&H2c)
 Call Lcd_write_data(&H2d)

 Call Lcd_write_command(&Hb2)                               'frame control idle
 Call Lcd_write_data(&H01)
 Call Lcd_write_data(&H2c)
 Call Lcd_write_data(&H2d)

 Call Lcd_write_command(&Hb3)                               'frame control partial
 Call Lcd_write_data(&H01)
 Call Lcd_write_data(&H2c)
 Call Lcd_write_data(&H2d)
 Call Lcd_write_data(&H01)
 Call Lcd_write_data(&H2c)
 Call Lcd_write_data(&H2d)

 Call Lcd_write_command(&Hb4)                               'display inversion
 Call Lcd_write_data(&B0000_0111)                           '07

 Call Lcd_write_command(&Hc0)                               'power control
 Call Lcd_write_data(&H2a)                                  '2a
 Call Lcd_write_data(&H02)
 Call Lcd_write_data(&H84)

 Call Lcd_write_command(&Hc1)                               'power control2
 Call Lcd_write_data(&Hc5)

 Call Lcd_write_command(&Hc2)                               'power control3
 Call Lcd_write_data(&H0a)
 Call Lcd_write_data(&H00)

 Call Lcd_write_command(&Hc3)                               'power control4
 Call Lcd_write_data(&H8a)
 Call Lcd_write_data(&H2a)

 Call Lcd_write_command(&Hc4)                               'power control5
 Call Lcd_write_data(&H8a)
 Call Lcd_write_data(&Hee)

 Call Lcd_write_command(&Hc5)                               'power control
 Call Lcd_write_data(&H0e)

 Call Lcd_write_command(&H20)                               'no invert display

#if Modus = 1                                               'Landscape
 #if Disp_typ = 0
   Call Lcd_write_command(&H36)                             'memory access control
   Call Lcd_write_data(&Ha0)                                'R-G-B  Black tab
 #else
 Call Lcd_write_command(&H36)                               'memory access control
 Call Lcd_write_data(&Ha8)                                  'B-G-R  Red Tab
 #endif
#endif

#if Modus = 0                                               'Portrait
 #if Disp_typ = 0
   Call Lcd_write_command(&H36)                             'memory access control
   Call Lcd_write_data(&Hc0)                                'R-G-B  Black tab
 #else
 Call Lcd_write_command(&H36)                               'memory access control
 Call Lcd_write_data(&Hc8)                                  'B-G-R  Red Tab
 #endif
#endif

 Call Lcd_write_command(&H3a)                               'color mode 16Bit
 Call Lcd_write_data(&H05)

 Call Lcd_write_command(&H2a)                               'column set
 Call Lcd_write_data(&H00)
 Call Lcd_write_data(&H00)
 Call Lcd_write_data(&H00)
 Call Lcd_write_data(&H7f)                                  '127 end     7f

 Call Lcd_write_command(&H2b)                               'row set
 Call Lcd_write_data(&H00)
 Call Lcd_write_data(&H00)
 Call Lcd_write_data(&H00)
 Call Lcd_write_data(&H9f)                                  '159 end   9f

'Call Lcd_write_command(&He0)
' Call Lcd_write_data(&H0f)
' Call Lcd_write_data(&H1a)
' Call Lcd_write_data(&H0f)
' Call Lcd_write_data(&H18)
' Call Lcd_write_data(&H2f)
' Call Lcd_write_data(&H28)
' Call Lcd_write_data(&H20)
' Call Lcd_write_data(&H22)
' Call Lcd_write_data(&H1f)
' Call Lcd_write_data(&H1b)
' Call Lcd_write_data(&H23)
' Call Lcd_write_data(&H37)
' Call Lcd_write_data(&H00)
' Call Lcd_write_data(&H07)
' Call Lcd_write_data(&H02)
' Call Lcd_write_data(&H10)

'Call Lcd_write_command(&He1)
' Call Lcd_write_data(&H0f)
' Call Lcd_write_data(&H1b)
' Call Lcd_write_data(&H0f)
' Call Lcd_write_data(&H17)
' Call Lcd_write_data(&H33)
' Call Lcd_write_data(&H2c)
' Call Lcd_write_data(&H29)
' Call Lcd_write_data(&H2e)
' Call Lcd_write_data(&H30)
' Call Lcd_write_data(&H30)
' Call Lcd_write_data(&H39)
' Call Lcd_write_data(&H3f)
' Call Lcd_write_data(&H00)
' Call Lcd_write_data(&H07)
' Call Lcd_write_data(&H03)
' Call Lcd_write_data(&H10)


 Call Lcd_write_command(&H29)
 Waitms 100
 Call Lcd_write_command(&H13)                               'normal display on
 Waitms 100
End Sub

'*******************************************************************************
'$include "Font\Font12x16.font"
$include "Font\Font8x8.font"
'$include "Font\font8x12.font"
'$include "Font\font6x10.font"
'$include "Font\font10x16.font"
'*******************************************************************************
Vissza a tetejére
Válasz küldése

Vissza: “Bascom-AVR nyelvű programozás (AVR programozásának lehetőségei)”