roboforum.ru

Технический форум по робототехнике.

 

Подключение LCD дисплея к AT90S2313

Программирование микроконтроллеров AVR, PIC, ARM.
Разработка и изготовление печатных плат для модулей.

Подключение LCD дисплея к AT90S2313

Сообщение gambit6 » 18 янв 2005, 19:01

Купил дисплейчик DataVision 16210 вот думаю как подключить его к контроллеру, чтобы он выводил хотя бы какой-то текст (наприме "ТЕСТ") при замыкании прерывания INT1.
Материала по данной теме в инете очень мало... нужна его распиновка, примерная схема подключения к AT90S2313 и пример программы на С под AVRedit.
Аватара пользователя
gambit6
 
Сообщения: 189
Зарегистрирован: 10 янв 2005, 12:18
Откуда: Санкт-Петербург

Сообщение EdGull » 18 янв 2005, 19:14

Если на васике программить не в падлу 8-) , то в нем все есть,
код будет выглядеть примерно вот так:

$lib "lcd4.lbx"
Config Lcd = 16 * 2
Config Lcdmode = Pin

Cls
Lcd "test"
Lowerline
Lcd "12345678"

схема подключения в нем тоже указана
Аватара пользователя
EdGull
 
Сообщения: 10211
Зарегистрирован: 28 дек 2004, 20:33
Откуда: Тольятти
Skype: Ed_Gull
прог. языки: Bascom AVR Basic
ФИО: Гуль Эдуард Викторович

Сообщение gambit6 » 19 янв 2005, 00:48

Что за "васик" ? где скачать можно?
Аватара пользователя
gambit6
 
Сообщения: 189
Зарегистрирован: 10 янв 2005, 12:18
Откуда: Санкт-Петербург

Сообщение EdGull » 19 янв 2005, 00:53

Bascom AVR Basic
качать отсюда http://www.mcselec.com/bascom-avr.htm
Аватара пользователя
EdGull
 
Сообщения: 10211
Зарегистрирован: 28 дек 2004, 20:33
Откуда: Тольятти
Skype: Ed_Gull
прог. языки: Bascom AVR Basic
ФИО: Гуль Эдуард Викторович

Сообщение gambit6 » 19 янв 2005, 03:37

А на CodeVision может кто исходник с коментариями чирканет?
Аватара пользователя
gambit6
 
Сообщения: 189
Зарегистрирован: 10 янв 2005, 12:18
Откуда: Санкт-Петербург

Сообщение nest » 21 янв 2005, 12:32

add: вот тут ещё посмотреть можно http://atmel.ru/Articles/Atmel17.htm

1 Vss -> GND
2 Vcc -> 5V
3 Vee -> GND (для теста достаточно с массой соединить)
4 RS -> PD4 am AVR
5 RW -> GND
6 E -> PD5 am AVR
7 DB0 -> GND
8 DB1 -> GND
9 DB2 -> GND
10 DB3 -> GND
11 DB4 -> PD0 am AVR
12 DB5 -> PD1 am AVR
13 DB6 -> PD2 am AVR
14 DB7 -> PD3 am AVR

на PORTD0 прицепить светодиод - нехай мигает когда текст вывели.
delay подкрограмки подкорректировать под свой кварц... это у меня тут вроде для 10 мгц, т.е. на меньших частостах ОБЯЗАНО уже работать... если не критично - можно и так оставить...
комментарии немецкие... переводить всё влом : )

ЗЫ: экранчик управляется в 4-битном режиме... и ТОЛЬКО выводит буквы (RW не используется). программировать свои знаки - сами уж ...


LCD-Test.asm:

Код: Выделить всёРазвернуть
.include "2313def.inc"

.def temp0 = r16
.def temp1 = r17
.def temp2 = r18
.def temp3 = r19
.def COU_HI= r20
.def COU_LO= r21

.CSEG
.ORG 0
rjmp RESET
.org INT0addr
rjmp ECHO
   
RESET:
ldi   temp0,RAMEND   ;Locate stack
out   SPL,temp0



ldi temp1, 0x00000001    ;Pin D0 = выход (сюда тестовый светодиод подключить, будет мигать. но не обязательно : ) )
out DDRD, temp1
ldi temp1, 0xFF    ;Port B = выход
out DDRB, temp1



nop
nop
nop
nop
nop
nop



sbi PORTD,1
rcall DELAYSEK
cbi PORTD,1
rcall DELAYSEK


          rcall lcd_init     ;Display initialisieren
          rcall lcd_clear    ;Display стереть

          ldi temp1, 'P'     ;знак/букву вывести
          rcall lcd_data

          ldi temp1, 'r'     ;знак/букву вывести
          rcall lcd_data
         
          ldi temp1, 'i'     ;знак/букву вывест
          rcall lcd_data

          ldi temp1, 'v'     ;знак/букву вывести
          rcall lcd_data

          ldi temp1, 'e'     ;знак/букву вывести
          rcall lcd_data
         
          ldi temp1, 't'     ;знак/букву вывести
          rcall lcd_data

          ldi temp1, ' '     ;знак/букву вывести
          rcall lcd_data

          ldi temp1, 0xA3     ;знак/букву вывести (можно и так в шестнадцатиричном коде. коды берутся из таблицы твоего ЖКИ модуля)
          rcall lcd_data
                     
loop: ; а тут просто мигаем светодиодом. надпись на экране уже стоит.
sbi PORTD,1
rcall DELAYSEK
cbi PORTD,1
rcall DELAYSEK
rjmp loop

DELAYSEK:
; -----------------------------
; delaying 1999998 cycles:
         ldi  R25, $12
WGLOOP0A:  ldi  R23, $BC
WGLOOP1A:  ldi  R24, $C4
WGLOOP2A:  dec  R24
         brne WGLOOP2A
         dec  R23
         brne WGLOOP1A
         dec  R25
         brne WGLOOP0A
; -----------------------------
ret

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                 LCD-Routinen                ;;
;;                 ============                ;;
;;              (c)andreas-s@web.de            ;;
;;                                             ;;
;; 4bit-Interface                              ;;
;; DB4-DB7:       PD0-PD3                      ;;
;; RS:            PD4                          ;;
;; E:             PD5                          ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



;sendet ein Datenbyte an das LCD
lcd_data:
          mov temp2, temp1             ;"Sicherungskopie" für
                                       ;die Übertragung des 2.Nibbles
          swap temp1                   ;Vertauschen
          andi temp1, 0b00001111       ;oberes Nibble auf Null setzen
          sbr temp1, 1<<4              ;entspricht 0b00010000
          out PORTB, temp1             ;ausgeben
          rcall lcd_enable             ;Enable-Routine aufrufen
                                       ;2. Nibble, kein swap da es schon
                                       ;an der richtigen stelle ist
          andi temp2, 0b00001111       ;obere Hälfte auf Null setzen
          sbr temp2, 1<<4              ;entspricht 0b00010000
          out PORTB, temp2             ;ausgeben
          rcall lcd_enable             ;Enable-Routine aufrufen
          rcall delay50us              ;Delay-Routine aufrufen
          ret                          ;zurück zum Hauptprogramm

;sendet einen Befehl an das LCD
lcd_command:                            ;wie lcd_data, nur ohne RS zu setzen
          mov temp2, temp1
          swap temp1
          andi temp1, 0b00001111
          out PORTB, temp1
          rcall lcd_enable
          andi temp2, 0b00001111
          out PORTB, temp2
          rcall lcd_enable
          rcall delay50us
          ret

;erzeugt den Enable-Puls
lcd_enable:
          sbi PORTB, 5                 ;Enable high
rcall delay50us
          cbi PORTB, 5                 ;Enable wieder low
          ret                          ;Und wieder zurück                    

;Pause nach jeder Übertragung
delay50us:                              ;50us Pause
; =============================
;    delay loop generator
; -----------------------------
; delaying 48 cycles:
         ldi  temp1, $11
WGLOOP0:  dec  temp1
         brne WGLOOP0
; -----------------------------
; =============================
          ret                          ;wieder zurück

;Längere Pause für manche Befehle
delay5ms:                               ;5ms Pause
;ret ; !!!!!!!
; =============================
;    delay loop generator
; -----------------------------
; delaying 49995 cycles:
         ldi  temp1, $65
WGLOOP0C:  ldi  temp2, $A4
WGLOOP1C:  dec  temp2
         brne WGLOOP1C
         dec  temp1
         brne WGLOOP0C
; -----------------------------
; delaying 6 cycles:
         ldi  temp1, $02
WGLOOP2C:  dec  temp1
         brne WGLOOP2C
; =============================
          ret                          ;wieder zurück

;Initialisierung: muss ganz am Anfang des Programms aufgerufen werden
lcd_init:
          ldi   temp3,50
powerupwait:
          rcall   delay5ms
          dec   temp3
          brne   powerupwait
          ldi temp1, 0b00000011        ;muss 3mal hintereinander gesendet
          out PORTB, temp1             ;werden zur Initialisierung
          rcall lcd_enable             ;1
          rcall delay5ms
          rcall lcd_enable             ;2
          rcall delay5ms
          rcall lcd_enable             ;und 3!
          rcall delay5ms
          ldi temp1, 0b00000010        ;4bit-Modus einstellen
          out PORTB, temp1
          rcall lcd_enable
          rcall delay5ms
          ldi temp1, 0b00101000        ;noch was einstellen...
          rcall lcd_command
          ldi temp1, 0b00001100        ;...nochwas...
          rcall lcd_command
          ldi temp1, 0b00000100        ;endlich fertig
          rcall lcd_command
          ret

;Sendet den Befehl zur Löschung des Displays
lcd_clear:
          ldi temp1, 0b00000001   ;Display löschen
          rcall lcd_command
          rcall delay5ms
          ret

ECHO:
cli ; disable global interrupts
ldi   temp0,0b00000000 ; Timer 1 -> STOP!
out   TCCR1B,temp0     ; Timer 1 -> STOP!
nop
nop
nop
reti
Аватара пользователя
nest
 
Сообщения: 977
Зарегистрирован: 21 янв 2005, 12:16
Откуда: Germany
Предупреждения: -4
прог. языки: asm


Вернуться в Микроконтроллеры

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 7

Mail.ru counter