![]() |
|
Tài trợ cho PIC Vietnam |
MPASM Lập trình bằng hợp ngữ là một việc làm vô cùng vất vả, tuy nhiên, để hiểu và làm việc với vi điều khiển, hợp ngữ trở thành một công cụ khá đắc lực ... |
![]() |
|
Ðiều Chỉnh | Xếp Bài |
![]() |
#1 |
Đệ tử 1 túi
Tham gia ngày: Jul 2006
Bài gửi: 19
: |
![]() Cac huynh de cho minh hoi chut xiu :
Chuong trinh ben duoi minh viet de hien thi ki tu A len LCD ,nhung khi mo phong no thi khong chay ,minh khong biet sai o cho nao ,cac huynh de kiem tra dum va sua dum cho minh nha ,minh dang lam de tai nen dang can gap .Cam on nhieu! Code:
TITLE "HIEN THI LEN LCD" PROCESSOR P16F876A #INCLUDE <P16F876A.INC> ;CHEN THU VIEN LIEN KET CHO CHUONG TRINH __CONFIG 3F71H ;CAU HINH CAC BIT HE THONG ERRORLEVEL -302 ;BO DI CAC LOI CHON BANK cblock 0X020 LCD_TEMP LCD_TEMP1 DELAY X_DELAY endc LCD_DATA EQU PORTB LCD_DATA_TRIS EQU TRISB LCD_CTRL EQU PORTA ; PORTA control bits LCD_E EQU 2 LCD_RW EQU 1 LCD_RS EQU 0 org 0x000 GOTO START START ;HIEN THI NHIET DO LEN LCD LCDINIT CLRF LCD_CTRL MOVLW 0x01E CALL X_DELAY500 ; 30 * 0.5mS = 15mS MOVLW 0x038 ; 8-bit-interface, 2-lines CALL LCDPUTCMD MOVLW 0x000 ; disp.off, curs.off, no-blink CALL LCDDMODE CALL LCDCLEAR MOVLW 0x004 ; disp.on, curs.off CALL LCDDMODE MOVLW 0x002 ; auto-inc (shift-cursor) CALL LCDEMODE ;MOVLW 0x01E ;CALL X_DELAY500 CALL LCDPUTCHAR RETURN ;************************************************* ********************* LCDBUSY BSF STATUS,RP0 ; bank 1 MOVLW 0x0FF ; Set PORTB for input MOVWF LCD_DATA_TRIS BCF STATUS, RP0 ; bank 0 BCF LCD_CTRL, LCD_RS ; lenh dang duoc viet len LCD BSF LCD_CTRL, LCD_RW ; vdk doc du lieu tu LCD BSF LCD_CTRL, LCD_E ; cho phep giao tiep LCD MOVF LCD_DATA, W ; Read busy flag + DDram address BCF LCD_CTRL, LCD_E ; cam ANDLW 0x80 ; Check Busy flag, High = Busy BTFSS STATUS, Z GOTO LCDBUSY LCDNOTBUSY BCF LCD_CTRL, LCD_RW BSF STATUS, RP0 ; bank 1 MOVLW 0x000 MOVWF LCD_DATA_TRIS ; Set PORTB for output BCF STATUS, RP0 ; bank 0 RETURN ;************************************************* ******************** LCDDMODE ANDLW 0x007 ; Strip upper bits IORLW 0x008 ; Function set CALL LCDPUTCMD RETURN ;************************************************* ********************* LCDCLEAR MOVLW 0x001 CALL LCDPUTCMD RETURN ;************************************************* ******************** LCDEMODE ANDLW 0x003 ; Strip upper bits IORLW 0x004 ; Function set CALL LCDPUTCMD RETURN ;************************************************* ********************* LCDPUTCHAR Movlw 0x080 ;dinh dia chi de xuat A CALL LCDPUTCMD Movlw 'A' movwf LCD_TEMP CALL LCDBUSY ; Wait for LCD to be ready BCF LCD_CTRL, LCD_RW ; vdk viet du lieu len LCD BSF LCD_CTRL, LCD_RS ; du lieu dang duoc viet len LCD BSF LCD_CTRL, LCD_E ; cho phep giao tiep LCD MOVF LCD_TEMP, W MOVWF LCD_DATA ; Send data to LCD BCF LCD_CTRL, LCD_E ; cam giao tiep LCD RETURN ;************************************************* ********************* LCDPUTCMD MOVWF LCD_TEMP ; Command to send is in W CALL LCDBUSY ; Wait for LCD to be ready BCF LCD_CTRL, LCD_RW ; vdk viet du lieu len LCD BCF LCD_CTRL, LCD_RS ; lenh dang duoc viet len LCD BSF LCD_CTRL, LCD_E ; cho phep giao tiep LCD MOVF LCD_TEMP, W MOVWF LCD_DATA ; Send data to LCD BCF LCD_CTRL, LCD_E ; cam giao tiep LCD RETURN ;************************************************* ****************** DELAY500 MOVLW D'165' ; +1 1 cycle MOVWF DELAY ; +2 1 cycle DELAY500_LOOP DECFSZ DELAY, F ; step1 1 cycle GOTO DELAY500_LOOP ; step2 2 cycles DELAY500_END RETURN ; +3 2 cycles ;*********************************** a delay of 'W' * 500mS X_DELAY500 MOVWF X_DELAY ; +1 1 cycle X_DELAY500_LOOP CALL DELAY500 ; step1 wait 500uSec DECFSZ X_DELAY, F ; step2 1 cycle GOTO X_DELAY500_LOOP ; step3 2 cycles X_DELAY500_END RETURN ; +2 2 cycles end hinh mo_phong_LCD duoi day: thay đổi nội dung bởi: namqn, 16-04-2007 lúc 07:00 PM. |
![]() |
![]() |
![]() |
#2 |
Trưởng lão PIC bang
|
Module LCD của bạn nhìn lạ lắm, không có vẻ là một module của Proteus. Bạn chọn module LM016L (trong Optoelectronics, Alphanumeric LCDs) thử xem.
Lần sau bạn chú ý chuyển thành tập tin dạng .gif hay .jpg trước rồi hãy gửi kèm, như vậy sẽ tiết kiệm được không gian lưu trữ và băng thông cho diễn đàn. Thân,
__________________
Biển học mênh mông, sức người có hạn. Đang gặp vấn đề cần được giúp đỡ? Hãy dành ra vài phút đọc luồng sau: http://www.picvietnam.com/forum/showthread.php?t=1263 |
![]() |
![]() |
![]() |
#3 | |
Đệ tử 1 túi
Tham gia ngày: Jul 2006
Bài gửi: 19
: |
![]() Trích:
|
|
![]() |
![]() |
![]() |
#4 |
Trưởng lão PIC bang
|
Bạn đã xem thử ví dụ của Proteus chưa? (Ví dụ nằm trong thư mục 'Samples\PIC 4 bit LCD Driver', trong thư mục cài đặt Proteus).
Tôi hỏi một câu hơi thừa: Bạn biết cách nạp chương trình đã dịch vào PIC trong Proteus chứ? Bạn có mạch thật chứ? Nên thử trên mạch thật. Thân,
__________________
Biển học mênh mông, sức người có hạn. Đang gặp vấn đề cần được giúp đỡ? Hãy dành ra vài phút đọc luồng sau: http://www.picvietnam.com/forum/showthread.php?t=1263 |
![]() |
![]() |
![]() |
#5 |
Đệ tử 1 túi
Tham gia ngày: Jul 2006
Bài gửi: 19
: |
![]() em viết chương trình hiển thị chữ lên lcd bằng ngôn ngữ C và mô phỏng bằng Proteus thì nó chạy ,còn chương trình asm này thì em mô phỏng không thấy chạy ,em mắc mạch thật để kiểm tra nhiều lần vẫn không thấy có dấu hiệu gì .
|
![]() |
![]() |
![]() |
#6 |
Trưởng lão PIC bang
|
Bạn thử hình dung tình huống module LCD của bạn được khởi tạo mặc định là giao tiếp ở chế độ 4-bit sau khi bật nguồn. Khi đó phần mã thiết lập chế độ 8-bit của bạn ở trên có ổn không? Ngay cả giao tiếp mặc định là 8-bit sau khi bật nguồn thì phần code của bạn vẫn không ổn.
Các trình biên dịch ngôn ngữ cấp cao thường thực hiện thiết lập một cách tổng quát, không phụ thuộc vào chế độ giao tiếp mặc định khi bật nguồn của module LCD. Bạn có thể xem thử code hợp ngữ được sinh ra cho chương trình C của bạn để biết họ khởi tạo module ra sao. Bạn nên tìm đọc datasheet của HD44780 (đa số chip điều khiển LCD ký tự là tương thích với HD44780), trong đó bạn sẽ thấy quy trình khởi tạo LCD, và sẽ thấy chỗ không ổn trong phần code của bạn. Thân,
__________________
Biển học mênh mông, sức người có hạn. Đang gặp vấn đề cần được giúp đỡ? Hãy dành ra vài phút đọc luồng sau: http://www.picvietnam.com/forum/showthread.php?t=1263 thay đổi nội dung bởi: namqn, 13-05-2007 lúc 11:33 PM. |
![]() |
![]() |
![]() |
#7 |
Nhập môn đệ tử
Tham gia ngày: Jun 2006
Bài gửi: 10
: |
ôi quả thực là nhìn vào chương trình LCD của bạn chả ổn tí nào.Thực ra viết cho LCD đơn giản hơn ,mà bạn viết hơi rối nên khó đọc . Có lẽ bạn nên sắp xếp lại cho gọn hơn thì dễ tra lỗi hơn nhiều
__________________
Lưu Diệc Phi - My Love |
![]() |
![]() |
![]() |
#8 |
Nhập môn đệ tử
Tham gia ngày: Apr 2007
Bài gửi: 10
: |
anh namdinhno1 có thể post lên code phần khởi tạo cho LCD được không?em chưa hiểu rõ lắm về lập trình hiển thị trên LCD, muốn tìm hiểu mà khó quá!
|
![]() |
![]() |
![]() |
#9 |
Nhập môn đệ tử
Tham gia ngày: Apr 2007
Bài gửi: 10
: |
Bắt đầu tìm hiểu LCD
Theo như bác namqn chỉ dẫn, em đã load datasheet HD44780 về, có đoạn viết trong ảnh em gửi kèm.
Cho em hỏi, Khi viết code thì chỉ cần làm theo các bước như trên hay còn phải khai báo thêm thủ tục gì nữa? Mong mọi người giúp đỡ |
![]() |
![]() |
![]() |
#10 | |
Đệ tử 1 túi
Tham gia ngày: Jul 2006
Bài gửi: 19
: |
![]() Trích:
chương trình ở đây Code:
#include <p16f877a.inc> ;========================== Hien thi ra LCD ;===== Port B = D7 ... D0 ;===== RE0->RS; RE1->RW; RE2->E cblock 0X020 count delay x_delay endc ;========================== org 0X00 GOTO MAIN MAIN bsf STATUS,RP0 ; chon bank 1 movlw 0x00 movwf TRISE movwf TRISB MOVLW 0X83 MOVWF ADCON1 ;cac ngo dieu khien la digital bcf STATUS,RP0 ; chon bank 0 clrf PORTE clrf PORTB call dl100ms call dl100ms call dl100ms ;========================== start call lcdinit call dl100ms ;========================== call line1 call line2 call dl100ms call dl100ms goto $ ;========================== line1 movlw 081h ;dinh dia chi call address call st_line1 return ;========================== line2 movlw 0c7h ;dinh dia chi call address call st_line2 return ;========================== st_line1 clrf count bcf STATUS,2 display1 movf count,0 call text1 xorlw 0x00 btfsc STATUS,2 goto exit1 call display_lcd incf count,1 goto display1 exit1 bcf STATUS,2 return ;========================== st_line2 clrf count bcf STATUS,2 display2 movf count,0 call text2 xorlw 0x00 btfsc STATUS,2 goto exit2 call display_lcd incf count,1 goto display2 exit2 bcf STATUS,2 return ;==========================HIEN THI KI TU display_lcd bsf PORTE,2 ;set E nop nop bsf PORTE,0 ;set RS bcf PORTE,1 ;clr RW movwf PORTB call dl2ms bcf PORTE,2 ;clr E nop nop bcf PORTE,0 ;clr RS call dl100ms return ;==========================KHOI TAO LCD lcdinit bsf PORTE,2 ;set RS nop nop bcf PORTE,0 ;clr RS bcf PORTE,1 ;clr RW movlw 38h ;8 bits,2 lines movwf PORTB call dl2ms bcf PORTE,2 ;clr E call dl05ms ;================= bsf PORTE,2 nop nop bcf PORTE,0 bcf PORTE,1 movlw 0eh ;display on, cursor underline on,cursor blink off movwf PORTB call dl2ms bcf PORTE,2 call dl05ms ;================= call clrscr bsf PORTE,2 nop nop bcf PORTE,0 bcf PORTE,1 movlw 06h ;increment,display shift off movwf PORTB call dl2ms bcf PORTE,2 call dl05ms return ;========================== XOA MAN HINH clrscr bsf PORTE,2 ;set E nop nop bcf PORTE,0 ;clr RS bcf PORTE,1 ;clr RW movlw 01h movwf PORTB call dl2ms ;2mS bcf PORTE,2 call dl05ms ;05mS return ;================= ;============================GUI DIA CHI address bsf PORTE,2 ;set E nop nop bcf PORTE,0 ;clr RS bcf PORTE,1 ;clr RW movwf PORTB call dl100ms bcf PORTE,2 ;clr E call dl05ms return ;******************************************delay 0.5ms = 500uS dl05ms movlw D'165' ; +1 1 cycle movwf delay ; +2 1 cycle delay500_loop decfsz delay, F ; step1 1 cycle goto delay500_loop ; step2 2 cycles delay500_end return ; +3 2 cycles ;*********************************** delay 100ms dl100ms movlw D'200' ; +1 1 cycle movwf x_delay ; +1 1 cycle x_delay500_loop call dl05ms ; step1 wait 500uSec decfsz x_delay, F ; step2 1 cycle goto x_delay500_loop ; step3 2 cycles x_delay500_end return ; +2 2 cycles ;*********************************** delay 2ms dl2ms movlw D'4' ; +1 1 cycle movwf x_delay ; +1 1 cycle x_delay500_loop1 call dl05ms ; step1 wait 500uSec decfsz x_delay, F ; step2 1 cycle goto x_delay500_loop1 ; step3 2 cycles x_delay500_end1 return ;========================== text1 addwf 02h,1 retlw 'N' retlw 'H' retlw 'I' retlw 'E' retlw 'T' retlw ' ' retlw 'D' retlw 'O' retlw ' ' retlw 'P' retlw 'H' retlw 'O' retlw 'N' retlw 'G' retlw 0 text2 addwf 02h,1 retlw '3' retlw '0' retlw 0x0df retlw 'C' retlw 0 ;========================== END thay đổi nội dung bởi: namqn, 12-05-2007 lúc 06:52 PM. |
|
![]() |
![]() |
![]() |
#11 |
Trưởng lão PIC bang
|
Trình tự khởi tạo LCD ở chế độ giao tiếp 8-bit (theo datasheet của HD44780):
- Bật nguồn, chờ 15 ms sau khi nguồn đạt 4.5 V - Ghi lệnh 0x3x ra LCD (chưa dùng BF được) - Chờ 4.1 ms - Ghi lệnh 0x3x ra LCD (chưa dùng BF được) - Chờ 100 us - Ghi lệnh 0x3x ra LCD (chưa dùng BF được) - Ghi lệnh b'0011NFxx' ra LCD (chưa dùng BF được) - Ghi lệnh tắt màn hình (chưa dùng BF được) - Ghi lệnh xóa màn hình (chưa dùng BF được) - Ghi lệnh thiết lập cách nhập dữ liệu (chưa dùng BF được) - Kết thúc quá trình khởi tạo Từ đây trở đi có thể dùng BF. Code của bạn chưa thực hiện quá trình khởi tạo này cho LCD. Nếu bạn thực hiện đầy đủ những thao tác này mà LCD vẫn không làm việc thì bạn có thể: - Yêu cầu tôi gửi file .hex để bạn thử module - Tìm xem chip điều khiển của module thực sự là chip gì, và tìm datasheet của nó. Thân,
__________________
Biển học mênh mông, sức người có hạn. Đang gặp vấn đề cần được giúp đỡ? Hãy dành ra vài phút đọc luồng sau: http://www.picvietnam.com/forum/showthread.php?t=1263 |
![]() |
![]() |
![]() |
#12 | |
Đệ tử 1 túi
Tham gia ngày: Jul 2006
Bài gửi: 19
: |
![]() Trích:
|
|
![]() |
![]() |
![]() |
#13 |
Đệ tử 1 túi
Tham gia ngày: Jul 2006
Bài gửi: 19
: |
![]() anh namqn oi,em đã khởi tạo thêm các lệnh như anh đã nói và không kiểm tra cờ bận mà chỉ dùng delay thôi nhưng nó vẫn không chạy ,à ghi lệnh b'0011NF00' ra lcd không dùng được vì nó không phải là số nhị phân.
|
![]() |
![]() |
![]() |
#14 | |
Trưởng lão PIC bang
|
Trích:
Bạn định nghĩa 'không chạy' như thế nào? Nếu bạn chưa thực hiện đặt font và số dòng thì liệu LCD có hiển thị đúng những gì bạn muốn không? Tôi thấy bạn hỏi lung tung mọi chỗ, nhưng không biết bạn đã thử tutorial về LCD của Nigel Goodwin chưa? Thân,
__________________
Biển học mênh mông, sức người có hạn. Đang gặp vấn đề cần được giúp đỡ? Hãy dành ra vài phút đọc luồng sau: http://www.picvietnam.com/forum/showthread.php?t=1263 |
|
![]() |
![]() |
![]() |
#15 |
Trưởng lão PIC bang
|
Về mạch thử nghiệm thực tế của bạn:
- Bạn đang dùng thạch anh tần số bao nhiêu? - Bạn đã xác định là mạch chạy tốt bằng một ví dụ nháy LED chứ? Thân,
__________________
Biển học mênh mông, sức người có hạn. Đang gặp vấn đề cần được giúp đỡ? Hãy dành ra vài phút đọc luồng sau: http://www.picvietnam.com/forum/showthread.php?t=1263 |
![]() |
![]() |
![]() |
|
|