logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

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

luke_dra 17 Lut 2010 21:35 4698 3
REKLAMA
  • #1 7710697
    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

    
    $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
  • REKLAMA
  • Pomocny post
    #2 7711759
    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
  • REKLAMA
  • #3 7712041
    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.
  • #4 7715572
    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 :)

    
    $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
REKLAMA