Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Wyświetlacz od nokii 6100 (BASCOM) odwrócony obraz

luke_dra 17 Lut 2010 21:35 4110 3
  • #1 17 Lut 2010 21:35
    luke_dra
    Poziom 10  

    Witam

    Mam problem z ekranem od Nokii 6100. Wyświetlany tekst i obraz jest odwrócony (odbicie w lustrze). Czym taki stan rzeczy jest spowodowany. Dodaję dwa zdjęcie bo nie wiem gdzie jest góra a gdzie dół na tym wyświetlaczy (Napis "LUKE" jest na współrzędnych 0,0 więc może to jest góra). Bardzo proszę o pomoc w rozwiązania problemu.

    Wyświetlacz od nokii 6100 (BASCOM) odwrócony obraz
    Wyświetlacz od nokii 6100 (BASCOM) odwrócony obraz


    Schemat podłączenia LCD:
    1 VDD 3,3V
    2 /Reset PC0
    3 SDATA PC2
    4 SCLK PC3
    5 /CS PC1
    6 VLCD 3,3V
    7 NC
    8 GND
    9 LED-
    10 LED+ (6V)
    11 NC

    Code:

    $lib "Lcd-pcf8833.lbx "                                     'special color display support
    '$lib "Lcd-epson.lbx"


    $regfile = "m8def.dat"                                      'ATMega 8, change if using different processors
    $crystal = 16000000                                         '8 MHz

    'First we define that we use a graphic LCD
    Config Graphlcd = Color , Controlport = Portc , Cs = 1 , Rs = 0 , Scl = 3 , Sda = 2

    'here we define the colors

    Const Blue = &B00000011   'predefined contants are making programming easier
    Const Yellow = &B11111100
    Const Red = &B11100000
    Const Green = &B00011100
    Const Black = &B00000000
    Const White = &B11111111
    Const Brightgreen = &B00111110
    Const Darkgreen = &B00010100
    Const Darkred = &B10100000
    Const Darkblue = &B00000010
    Const Brightblue = &B00011111
    Const Orange = &B11111000


    'clear the display
    Cls

    'create a cross
    Line(0 , 0) -(130 , 130) , Blue
    Line(130 , 0) -(0 , 130) , Red

    Waitms 1000

    'show an RLE encoded picture
    'Showpic 0 , 0 , Plaatje
    'Showpic 40 , 40 , Plaatje

    Waitms 1000

    'select a font
    Setfont Color16x16
    'and show some text
    Lcdat 100 , 0 , "12345678" , Blue , Yellow

    Lcdat 00 , 0 , "LUKE" , Black , Orange

    Waitms 1000
    Circle(30 , 30) , 10 , Blue

    Waitms 1000
    'make a box
    Box(10 , 30) -(40 , 50) , Red

    'set some pixels
    Pset 32 , 110 , Black
    Pset 38 , 110 , Black
    Pset 35 , 112 , Black
    End


    Plaatje:
    $bgf "kk.BGC"


    $include "color8x8.font"
    $include "color16x16.font"


    Dodany obrazek jest również odwrócony względem tego jak chciałem go dodć
    Wyświetlacz od nokii 6100 (BASCOM) odwrócony obraz Wyświetlacz od nokii 6100 (BASCOM) odwrócony obraz

    0 3
  • Pomocny post
    #2 18 Lut 2010 01:50
    wader_669
    Poziom 28  

    Rozumiem ze testowales na bibliotece do epsona.
    Mowie z gory az tyle sie nie bawilem tymi wyswietlaczami i noty nawet nie czytalem, ale moj dziala jak dodam Glcdcmd &H21 przed petle glowna

    0
  • #3 18 Lut 2010 08:49
    luke_dra
    Poziom 10  

    Na bibliotece od Epsona nie działa wcale, tzn tylko podświetlenie działa, więc używam PCF8833. Dodanie polecenia Glcdcmd &H21 zmieniło mi kolor tła z czarnego na biały.

    Hej wader_669 a czy mogę Ciebie poprosić o przykład jak to zrobiłeś u siebie.

    0
  • #4 18 Lut 2010 21:13
    luke_dra
    Poziom 10  

    Już sobie poradziłem z problemem. Poniżej działający kod. Jest dużo komentarzy ale tylko tyle wchodzi do ATMEGA8 :)

    Code:

    $lib "Lcd-pcf8833.lbx "                                     'special color display support
    '$lib "Lcd-epson.lbx"


    $regfile = "m8def.dat"                                      'ATMega 8, change if using different processors
    $crystal = 16000000                                         '8 MHz

    'First we define that we use a graphic LCD
    Config Graphlcd = Color , Controlport = Portc , Cs = 1 , Rs = 0 , Scl = 3 , Sda = 2

    Config Pinc.1 = Output
    Config Pinc.2 = Output
    Config Pinc.3 = Output

    Cs Alias Pinc.1
    Sclk Alias Pinc.3
    Sdata Alias Pinc.2
    'here we define the colors

    Const Blue = &B00000011                                     'predefined contants are making programming easier
    'Const Yellow = &B11111100
    Const Yellow = &B11110000
    Const Red = &B11100000
    Const Green = &B00011100
    Const Black = &B00000000
    Const White = &B11111111
    Const Brightgreen = &B00111110
    Const Darkgreen = &B00010100
    Const Darkred = &B10100000
    Const Darkblue = &B00000010
    Const Brightblue = &B00011111
    Const Orange = &B11111000

    'Declare Sub Lcd_write(byval Flag As Byte , Byval Valor As Byte)



    Glcdcmd &H36        'Mem_control
    Glcddata &H48       'My=0 Mx=0 V=1 Lao=1 Rbg=0 "00110000"
    Glcdcmd &H21         'Inversion_on

    'clear the display
    Cls

    'create a cross
    'Line(0 , 0) -(130 , 130) , Blue
    'Line(130 , 0) -(0 , 130) , Red

    'Waitms 1000

    'show an RLE encoded picture
    Showpic 0 , 0 , Plaatje
    'Showpic 90 , 5 , Plaatje

    'Waitms 1000
    'select a font
    Setfont Color16x16
    'and show some text
    'Lcdat 100 , 0 , "12345678" , Yellow , White
     'Lcdat 0 , 0 , "LUKE" , Yellow , White


    'Setfont Color32x16a

    Lcdat 50 , 40 , " 4.21" , Yellow , White
    Lcdat 80 , 40 , "-3.41" , Red , White
    Waitms 1000
    'Circle(30 , 30) , 10 , Blue

    'Waitms 1000
    'make a box
    'Box(10 , 30) -(40 , 50) , Red

    'set some pixels
    'Pset 32 , 110 , Black
    'Pset 38 , 110 , Black
    'Pset 35 , 112 , Black
    End


    Plaatje:
    $bgf "tem.BGC"


    '$include "color8x8.font"
    $include "color16x16.font"
    '$include "color32x16a.font"


    I działający ekran

    Wyświetlacz od nokii 6100 (BASCOM) odwrócony obraz

    0