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

Wyświetlacz VFT sterowany UART-em

nouki 13 Mar 2009 16:45 2556 17
  • #2 6276893
    janbernat
    Poziom 38  
    To wygląda jakby był sterowany zwykłym RS.
    Fajne...
  • #4 6278391
    gbr3
    Poziom 15  
    W datasheecie masz wszystko zaczyna się na stronie 10.
  • #5 6278534
    nouki
    Poziom 25  
    Potrzebuje to na bascoma bo takie są wymagania pracy jaką mam wykonać do :szkoły: :)
    Już odpaliłem jeden sterowany szyną I2C wyświetlacz i zajeło mi to xxx czasu ale ten Zaczyna mnie przerastać bo kombinuje już 2 dzień i ... Ciemny ciągle jest..... a na teście tak ładnie wyświetla ....
    Zmieniałem szybkości transmisji i ....

    A tak szczerze to nie kombinowałem z uart-em pod bascomem bo wole C :) ale ponoć że trzeba być uniwersalnym człowiekiem to mam to zrobić w bascomie decyzja odgórna.
  • #6 6278614
    gbr3
    Poziom 15  
    No to jak juz uruchomisz uart to najpierw do niego wyślij:
    1B Hex + 40 Hex- inicjalizacja wyswietlacza
    0B Hex - HOME
    Po tym wyslij jakis znak/napis powinno dzialać :D
    Jezeli nic zworkami nie robiles to po usarcie nadawaj na 9600 8N1,do tego musisz pomiedzy atmege i wyświetlacz dac max232.
  • Pomocny post
    #8 6278676
    gbr3
    Poziom 15  
    Po atmedze tez musi byc bo poziomy napiec beda nie takie i atmega z wyswietlaczem sie nie "dogada" :)
  • #9 6278751
    nouki
    Poziom 25  
    no to sprawdze jutro to sobie.

    Wyklepałem takie coś na szybko (tylko się nie śmiać :) :
    
    $baud = 9600
    $crystal = 8000000
    
    Open "comd1:9600,8,N,1" For Output As   1b Hex + 40 Hex
    Open "comd1:9600,8,N,1" For Output As 0b Hex
    
    Print "Witaj"
    
    
    End
    
  • #12 6289235
    nouki
    Poziom 25  
    Nic nie mówi przechodzi.

    Jak pisałem nie bawiłem się Uart-em pod Bascomem więc nie bardzo wiem jak dane z pdf-a zastosować w Bascomie.
  • #13 6289266
    ZbeeGin
    Poziom 39  
    No to otwieramy helpa na stronie OPEN# i czytamy jak się tego właściwie używa.

    I jeszcze jednen szczegół. W nocie wyświetlacza jest narysowane (co pewnie przeoczyłeś), że RxD jest zanegowana i dlatego po stronie AVR-ka też linię TxD musisz zanegować.
    W przypadku OPEN# możesz dopisać klauzulę INVERTED.

    A teraz do czytelni.
  • #16 6289729
    nouki
    Poziom 25  
    Więc poczytałem i mam takie coś.

    
    $regfile = "m8def.dat"
    $baud = 9600
    $crystal = 8000000
    
    Open "COMD.1:9600,8,N,1,INVERTED" For Output As #1
    Print #1 , "Witaj d d d d"
    Close #1
    End
    
    


    A jak wysłać mu polecenie inicjacji "ESC @ (1B Hex + 40 Hex)"
    i inne polecenia ??
  • Pomocny post
    #17 6289773
    ZbeeGin
    Poziom 39  
    nouki napisał:
    Więc poczytałem i mam takie coś.

    Już lepiej.

    nouki napisał:
    A jak wysłać mu polecenie inicjacji "ESC @ (1B Hex + 40 Hex)"

    Print #1, "{027}{064}";

    albo
    Print #1, Chr(&H1B);Chr(&H40);
  • #18 6290801
    nouki
    Poziom 25  
    Odpaliłem go ale troszke inaczej:

    
    $regfile = "m8def.dat"
    $crystal = 8000000
    
    Dim Odczyt(2) As Byte
    Dim T As Integer
    Dim T1 As Single
    Dim Napis As String * 5
    Config 1wire = Portd.3
    
    Wait 1
    Open "COMD.1:9600,8,N,1," For Output As #1
    Print #1 , Chr(&H1b) ; Chr(&H40) ;       
    Close #1
    
    Do
    
    Open "COMD.1:9600,8,N,1," For Output As #1
    
    
    Print #1 , Chr(&H0b);                                      
    Print #1 , "**  TEMPERATURA  ***"
    Print #1 , Chr(&H0a) ;                                      
    Print #1 , Chr(&H0d) ;
    Print #1 , "ZEW: "                                          
    
    
    1wreset                                                     
      1wwrite &HCC                                             
      1wwrite &H44
                                                   
      Waitms 750
                                                          
      1wreset                                                   
      1wwrite &HCC                                           
      1wwrite &HBE                   
      Odczyt(1) = 1wread(2)                                   
      T = Odczyt(2)                                            
      Shift T , Left , 8                                      
      T = T + Odczyt(1)                                        
      T1 = T * 0.0625                                         
    Napis = Fusing(t1 , "#.#")
    Print #1 , Chr(&H1f) ; Chr(&H24) ; Chr(7) ; Chr(2);
    Print #1 , Napis ; Chr(&Hf8) ; "C" ;
    


    P.s invert powoduje dziwne znaki

    Wygląda to tak:
    Wyświetlacz VFT sterowany UART-em
REKLAMA