roboforum.ru

**gambit6** » 18 янв 2005, 19:01

Купил дисплейчик DataVision 16210 вот думаю как подключить его к контроллеру, чтобы он выводил хотя бы какой-то текст (наприме "ТЕСТ") при замыкании прерывания INT1.
Материала по данной теме в инете очень мало... нужна его распиновка, примерная схема подключения к AT90S2313 и пример программы на С под AVRedit.

**EdGull** » 18 янв 2005, 19:14

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

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

Cls
Lcd "test"
Lowerline
Lcd "12345678"

схема подключения в нем тоже указана

**gambit6** » 19 янв 2005, 00:48

Что за "васик" ? где скачать можно?

**EdGull** » 19 янв 2005, 00:53

Bascom AVR Basic
качать отсюда http://www.mcselec.com/bascom-avr.htm

**gambit6** » 19 янв 2005, 03:37

А на CodeVision может кто исходник с коментариями чирканет?

**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

roboforum.ru

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

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

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