Panowie , próbuje ruszyć wyświetlacz UC1608 240x128 , jeszcze nie podpiąłem ani jednego przewodu a tu już problem .
Bascom wywala błąd przy kompilacji dotyczący rozdzielczości wyświetlacza , przyjmuje tylko 128x64sed .
240x128sed wywala błąd domyślam się że problem tkwi w bibliotece , tylko ja nie wiem gdzie trzeba pogmerać aby było dobrze .
kod testowy kiedyś pobrałem z MCS razem z bibliotekami , aktualnie brak dostępu do bibliotek ( pewnie z powodu wojny )
Code: [Zaznacz cały] [Rozwiń/Zwiń]
- '===============================================================================
- '
- ' UC1608 LCD test example
- '
- ' SPI-mode 9 bit
- '
- ' MrShilov 2014
- '
- '===============================================================================
- $regfile = "m8def.dat"
- $crystal = 8000000
- $hwstack = 32
- $swstack = 32
- $framesize = 32
- '*******************************************************************************
- $lib "glcd-UC1608-spi.lib" 'Library must be in LIB directory
- Config Graphlcd = 128x64sed , Si = Portb.5 , Sclk = Portb.4 'błąd przy kompilacji nie przyjmuje 240x128sed , 240x128
- '
- ' "Sclk" must be connected to D0 of display
- ' "Si" must be connected to D3 of display
- ' D6 of display must be connected to GND
- ' D7 of display must be connected to +3,3V
- ' CD, WR0, WR1, BM0, BM1 of display must be connected to GND
- 'Const Negative_lcd = 1 'Optional screen inversion
- 'Const Rotate_lcd = 1 'Optional rotate screen to 180°
- Dim I As Byte , Text As String * 4
- '***************************** Program *****************************************
- Initlcd
- Do
- Cls
- Showpic 0 , 0 , Pic1
- For I = 63 To 0 Step -1
- Lcdcontrast I
- Waitms 30
- Next
- For I = 1 To 63 'Contrast 0...63
- Lcdcontrast I
- Waitms 30
- Next
- Wait 1
- Cls
- Setfont Font6x8
- Lcdat 5 , 15 , " 10 october"
- Lcdat 6 , 20 , " Friday " , 1 'Last parameter - inversion
- Lcdat 7 , 38 , "2014"
- Setfont Font12x16dig
- I = 10
- Do
- Incr I
- If I > 20 Then Exit Do
- Text = Str(i)
- Lcdat 2 , 21 , "23:" ; Text
- Waitms 500
- Lcdat 2 , 21 , "23 " ; Text
- Waitms 500
- Loop
- Loop
- End
- '===============================================================================
- Pic1:
- $bgf "pic1.bgf"
- $include "font6x8.font"
- $include "font12x16dig.font"
Podpinam jedną bibliotekę do obsługi po SPI