Svenskt forum för elektroniksnack.
https://elektronikforumet.com/forum/
)
- Den där var riktigt fin - inget du tänker göra fler av och sälja? Mer info om detta som sagt...Kod: Markera allt
Bill Of Materials
=================
QTY PART-REFS VALUE
--- --------- -----
Resistors
---------
3 R1,R11,R12 150 ohm
2 R2,R10 10k
1 R3 47 ohm
4 R5-R8 100k
1 R9 12 ohm
Capacitors
----------
2 C2,C4 10u
3 C3,C5,C6 100n
1 C7 0.1u
2 C9,C11 10n
1 C10 4.7u
Integrated Circuits
-------------------
1 U1 LM1117_3.3V
1 U2 PROPELLER
1 U3 24LC256
1 U4 FT232R
Transistors
-----------
1 Q1 BCP55
Diodes
------
1 D1 LED
Miscellaneous
-------------
1 L2 Inductor
1 MOS1 IRLR024N
1 X1 CRYSTAL
Kod: Markera allt
Pri InitLCD
WriteReg($01,$0100) '//set SS and SM bit
WriteReg($02,$0700) '//set 1 line inversion
WriteReg($03,$D028) '//set GRAM write direction and BGR=1
'//***************************Power on sequence******************************'//
WriteReg($10,$0790) '// SAP, BT[3:0], AP, DSTB, SLP, STB
WriteReg($11,$0005) '// DC1[2:0], DC0[2:0], VC[2:0]
WriteReg($12,$0000) '// VREG1OUT voltage
WriteReg($13,$0000) '// VDV[4:0] for VCOM amplitude
delayMS(200) '// Dis-charge capacitor power voltage 200ms
WriteReg($10,$12b0) '// SAP, BT[3:0], AP, DSTB, SLP, STB 1590
WriteReg($11,$0007) '// DC1[2:0], DC0[2:0], VC[2:0]
delayMS(50) '// Delay 50ms
WriteReg($12,$0081) '// VREG1OUT voltage 0091
delAyMS(50) '// Delay 50ms
WriteReg($13,$1800) '// VDV[4:0] for VCOM amplitude 0900
WriteReg($29,$001d) '// VCM[4:0] for VCOMH 0018
delayMS(50)
WriteReg($20,$0000)
WriteReg($21,$0000) '// Delay 50ms
WriTeReg($30,$0000)
WriteReg($31,$0507)'//0507
WriteReg($32,$0003)'//0303
WriteReg($35,$0200)'//0103
WriteReg($36,$0106)'//1400
WriteReg($37,$0000)'//0105
WriteReg($38,$0507)'//0000
WriteReg($39,$0104)
WriteReg($3C,$0200)'//0301
WriteReg($3D,$0005)'//020a
'//*****************************Set GRAM Area*********************************'//
WriteReg($50,$0000) '// Horizontal GRAM Start Address
WriteReg($51,$00EF) '// Horizontal GRAM End Address
WriteReg($52,$0000) '// Vertical GRAM Start Address
WriteReg($53,$013F) '// Vertical GRAM End Address
WriteReg($60,$A71F) '// Gate Scan Line
WriteReg($61,$0001) '// NDL,VLE, REV
WriteReg($6A,$0000) '// set scrolling line
WriteReg($07,$0133)
