Báo cáo Thí nghiệm Vi xử lý - Nguyễn Phước Lộc

Nội dung text: Báo cáo Thí nghiệm Vi xử lý - Nguyễn Phước Lộc

1. 1 Báo cáo Thí nghiệm Vi Xử Lý Nhóm 2 ĐẠI HỌC QUỐC GIA THÀNH PHỐ HỒ CHÍ MINH TRƯỜNG ĐẠI HỌC BÁCH KHOA €€€€ KHOA ĐIỆN – ĐIỆN TỬ BỘ MÔN ĐIỆN TỬ Public by Nguyễn Phước Lộc – K09 – Tự động hóa Email: loc.plsoft@gmail.com Nguyễn Phước Lộc 40901457 Thí nghiệm Vi Xử Lý | 1
2. 3 Báo cáo Thí nghiệm Vi Xử Lý Nhóm 2 Thí nghiệm 2: Viết lại chương trình hiển thị chữ A ra LED ma trận có sử dụng chương trình con 19 Bài 7: Thí nghiệm với động cơ DC 20 Thí nghiệm1: Viết chương trình cho phép động cơ chạy theo chiều thuận trong vòng 2s, nghỉ 2s, chạy theo chiều ngược 2s, nghỉ 2s và lặp lại. 20 Thí nghiệm2: Viết chương trình điều khiển động cơ với phương pháp PWM, trong đó thời gian bật của xung là 50% chu kỳ. 21 Thí nghiệm Vi Xử Lý | 3
3. 5 Báo cáo Thí nghiệm Vi Xử Lý Nhóm 2 Phần A: Thí nghiệm Vi điều khiển 89s52 Bài 1: Thí nghiệm với nút nhấn và Led đơn Thí nghiệm 1: Viết chương trình thực hiện việc đọc liên tục trạng trạng thái của nút nhấn P1.0 và hiển thị ra LED được nối tại chân P1.1 Code: ORG 2000H LOOP: MOV C, P1.0 MOV P1.1, C SJMP LOOP END Thí nghiệm 2.1: Viết chương trình tạo xung vuông 1Hz ra chân P1.0,biết tần số dao động được dùng trong KIT là 11.059MHz. Code: ORG 2000H LAP: CPL P1.0 CALL DL500 SJMP LAP DL500: PUSH 05 PUSH 06 PUSH 07 MOV R5, #10 L2: MOV R6, #100 L1: MOV R7, #250 DJNZ R7, $ DJNZ R6, L1 DJNZ R5, L2 POP 07 POP 06 POP 05 RET END Thí nghiệm 2.2: Thay đổi tần số xung vuông thành 0.5Hz, với chu kì nhiệm vụ là 30% Code: ORG 2000H LAP: SETB P1.0 CALL DL150 CLR P1.0 LCALL DL350 SJMP LAP DL150: PUSH 07 PUSH 06 Thí nghiệm Vi Xử Lý | 5
4. 7 Báo cáo Thí nghiệm Vi Xử Lý Nhóm 2 ORG 2000H ;Tao xung 1Hz tren P1.0 dung ngat Timer0 LJMP MAIN ORG 200BH INC R5 CJNE R5, #10, ISRT0 MOV R5, #1 CPL P1.0 ISRT0: CLR TR0 CLR TF0 MOV TH0, #HIGH(-50000) MOV TL0, #LOW(-50000) SETB TR0 RETI ORG 2030H MAIN: MOV TMOD ,#01H SETB TF0 MOV IE, #82H SJMP $ END Thí nghiệm 4: Viết chương trình làm cho LED nối đến chân P1.0 chớp tắt với tần số có thể thay đổi được bằng cách nhấn P1.1 (tăng) hoặc P1.2 (giảm) Code: ORG 2000H MOV TMOD, #01H MOV A,#10 LOOP: JNB P1.1,TANG JNB P1.2,GIAM CALL XUNG SJMP LOOP TANG: CJNE A, #255, TANG1 SJMP LOOP TANG1: INC A CALL XUNG SJMP LOOP GIAM: CJNE A, #1, GIAM1 SJMP LOOP GIAM1: DEC A CALL XUNG SJMP LOOP XUNG: MOV R5, A DL50: MOV TH0, #HIGH(-50000) MOV TL0, #LOW(-50000) SETB TR0 Thí nghiệm Vi Xử Lý | 7
5. 9 Báo cáo Thí nghiệm Vi Xử Lý Nhóm 2 MOV DPTR, #0000H MOV A,#71H MOVX @DPTR, A LCALL DELAY MOV A,#0B2H MOVX @DPTR, A LCALL DELAY MOV A,#0D3H MOVX @DPTR, A LCALL DELAY MOV A,#0E4H MOVX @DPTR, A LCALL DELAY SJMP AGAIN DELAY: MOV TH0, #HIGH(-1000) MOV TL0, #LOW(-1000) SETB TR0 JNB TF0, $ CLR TR0 CLR TF0 RET END Thí nghiệm 3: Viết chương trình thể hiện giá trị nhị phân trong thanh ghi R7 ra LED 7 đoạn. Code: ORG 2000H MOV R7, #128 ; Giá trị ví dụ CALL BI2BCD AGAIN: ; HIEN THI HANG DON VI MOV A, 21H MOV DPTR, #DONVI MOVC A, @A+DPTR MOV DPTR, #0000H MOVX @DPTR, A LCALL DELAY ; HIEN THI HANG CHUC MOV A, 22H MOV DPTR, #CHUC MOVC A, @A+DPTR MOV DPTR, #0000H MOVX @DPTR, A LCALL DELAY ; HIEN THI HANG TRAM MOV A, 23H MOV DPTR, #TRAM MOVC A, @A+DPTR MOV DPTR, #0000H MOVX @DPTR, A LCALL DELAY Thí nghiệm Vi Xử Lý | 9
6. 11 Báo cáo Thí nghiệm Vi Xử Lý Nhóm 2 CALL WRITE_TEXT POP ACC INC A PUSH ACC DJNZ R1, LOOP MOV R1,#27 LOOP1: MOV A, #18H CALL WRITE_COMMAND CALL DELAY DJNZ R1,LOOP1 SJMP MAIN TRABANG: MOV DPTR, #TABLE1 MOVC A, @A+DPTR RET ;=== ; LCD_INIT: KHOI DONG LCD ;=== LCD_INIT: MOV A, #38H CALL WRITE_COMMAND MOV A, #0EH CALL WRITE_COMMAND MOV A, #06H CALL WRITE_COMMAND RET ;=== ;=== ; CHO 50MS DE LCD THUC HIEN XONG LENH ;=== WAIT_LCD: MOV R7, #100 LL1: MOV R6, #250 DJNZ R6, $ DJNZ R7, LL1 RET ;=== DELAY: MOV R5, #20 LLL1: MOV R7, #10 LLL2: MOV R6, #250 DJNZ R6, $ DJNZ R7, LLL2 DJNZ R5, LLL1 RET ;=== ;=== Thí nghiệm Vi Xử Lý | 11
7. 13 Báo cáo Thí nghiệm Vi Xử Lý Nhóm 2 OUT_CHAR: JNB TI, $ CLR TI MOV SBUF, A RET TABLE: DB 'Hello world' END Thí nghiệm 2: Viết chương trình nhận các ký tự từ máy tính gửi đến EME-MC8 thông qua Hyper Terminal (bằng cách gõ các ký tự trên bàn phím khi đang ở trong chương trình Hyper Terminal) và hiển thị lên LCD. Code: ORG 2000H EN BIT P3.4 RS BIT P3.5 MOV A, PCON SETB ACC.7 MOV PCON,A MOV SCON,#52H MOV TMOD,#20H MOV TH1,#-3 SETB TR1 MOV A,#01H CALL WRITE_COMMAND MOV DPTR, #8000H CALL LCD_INIT MAIN: CALL IN_CHAR CALL WRITE_TEXT CALL OUT_CHAR SJMP MAIN OUT_CHAR: JNB TI, $ CLR TI MOV SBUF, A RET IN_CHAR: JNB RI, IN_CHAR CLR RI MOV A, SBUF RET ;=== ; LCD_INIT: KHOI DONG LCD ;=== LCD_INIT: MOV A, #38H Thí nghiệm Vi Xử Lý | 13
8. 15 Báo cáo Thí nghiệm Vi Xử Lý Nhóm 2 CLR EN RET END Bài 5: Thí nghiệm điều khiển ADC Thí nghiệm 1: Viết chương trình thực hiện đọc điện áp của biến trở trên kênh 0 và hiển thị ra led 7 đoạn. Code: ORG 2000H MAIN: MOV TMOD,#20H LOOP: MOV DPTR,#4000H MOV A,#0 MOVX @DPTR,A CALL DELAY100US MOVX A,@DPTR CALL BINTOBCD MOV DPTR,#0000H MOV A,R2 ORL A,#0E0H MOVX @DPTR,A CALL DELAY3MS MOV A,R3 ORL A,#0D0H MOVX @DPTR,A CALL DELAY3MS MOV A,R4 ORL A,#0B0H MOVX @DPTR,A CALL DELAY3MS SJMP LOOP DELAY100US: MOV TH1,#-100 MOV TL1,#-100 SETB TR1 JNB TF1,$ CLR TF1 CLR TR1 RET BINTOBCD: MOV B,#10 DIV AB MOV R2,B MOV B,#10 DIV AB MOV R3,B MOV R4,A RET DELAY3MS: MOV R5,#10 Thí nghiệm Vi Xử Lý | 15
9. 17 Báo cáo Thí nghiệm Vi Xử Lý Nhóm 2 MOV A,#30H ADD A,R4 MOV R4,A RET DELAY3MS: CLR TF0 MOV TH0,#HIGH(-10000) MOV TL0,#LOW(-10000) SETB TR0 JNB TF0,$ CLR TR0 RET LCD_INIT: MOV DPTR,#8000H SETB P3.4 CLR P3.5 MOV A,#38H MOVX @DPTR,A CLR P3.4 CALL DELAY3MS SETB P3.4 CLR P3.5 MOV A,#0EH MOVX @DPTR,A CLR P3.4 CALL DELAY3MS SETB P3.4 CLR P3.5 MOV A,#06H MOVX @DPTR,A CLR P3.4 CALL DELAY3MS RET WRITE_TEXT: MOV DPTR,#8000H SETB P3.4 SETB P3.5 MOVX @DPTR,A CLR P3.4 CALL DELAY3MS RET CLR_LCD: MOV DPTR,#8000H SETB P3.4 CLR P3.5 MOV A,#01H MOVX @DPTR,A CLR P3.4 CALL DELAY3MS RET END Thí nghiệm Vi Xử Lý | 17
10. 19 Báo cáo Thí nghiệm Vi Xử Lý Nhóm 2 CHAR_A: DB 03H, 0EDH, 0EEH, 0EEH, 0EDH, 03H END Thí nghiệm 2: Viết lại chương trình hiển thị chữ A ra LED ma trận có sử dụng chương trình con Code: ORG 2000H ;=== ;Xuat ky tu A tren LED ma tran (dung CTCon) ;=== MAIN: MOV R0, #8 MOV R1, #30H MOV DPTR, #CHAR_A MOV A, #0 LAP: MOVC A, @A+DPTR MOV @R1, A INC R1 INC A DJNZ R0, LAP ACALL XUAT ; XUAT: PUSH ACC PUSH R0 PUSH R1 MOV A, #01H MOV R0, #0 MOV R1, #30H LAPC: ACALL QUET_COT ACALL QUET_HANG INC R0 INC R1 ACALL DELAY CJNE R0, #7, LAPC PUSH ACC PUSH R0 PUSH R1 SJMP XUAT RET QUET_COT: PUSH DPH PUSH DPL RR A MOV DPTR, # MOVX @DPTR, A POP DPH POP DPL RET QUET_HANG: PUSH ACC Thí nghiệm Vi Xử Lý | 19
11. 21 Báo cáo Thí nghiệm Vi Xử Lý Nhóm 2 SETB ACC.1 RET DELAY: PUSH 01 LAP: MOV TH0, #HIGH(-50000) MOV TL0, #LOW(-50000) SETB TR0 JNB TF0, $ CLR TR0 CLR TF0 DJNZ R1,LAP POP 01 RET Thí nghiệm2: Viết chương trình điều khiển động cơ với phương pháp PWM, trong đó thời gian bật của xung là 50% chu kỳ. Code: ORG 2000H LJMP MAIN ORG 200BH LJMP ISR_T0 ORG 201BH LJMP ISR_T1 MAIN: MOV TMOD,#11H MOV IE,#10001010B MOV DPTR,#0E000H SJMP $ ISR_T0: CLR TR0 MOV TH0,#HIGH(-50000) MOV TL0,#LOW(-50000) SETB TR0 RETI ISR_T1: CLR TR1 MOV TH0,#HIGH(-50000) MOV TL0,#LOW(-50000) SETB TR0 MOV TH1,#HIGH(-25000) MOV TL1,#LOW(-25000) SETB TR1 CLR A SETB ACC.0 CLR ACC.1 MOVX @DPTR,A RETI END Thí nghiệm Vi Xử Lý | 21
12. 23 Báo cáo Thí nghiệm Vi Xử Lý Nhóm 2 Phần B: Làm việc với PIC 16F690 Bài 8: Thí nghiệm với LED đơn Thí nghiệm1: Viết chương trình chớp tắt LED được nối đến chân RC2 của PIC 16F690 với tần số chớp tắt là 1Hz. Code: #include #use delay(clock=4000000) #use fast_io(C) void main() { set_tris_C(0x00); output_C(0x00); while(1) { output_high(PIN_C0); delay_ms(500); output_low(PIN_C0); delay_ms(500); } } Thí nghiệm2: Viết chương trình thực hiện mạch LED chạy được nối đến 4 LED port C của PIC 16F690 như sau, biết thời gian giữa các trạng thái S (sáng) và T (tắt) là 0.5s: STTT->TSTT->TTST->TTTS->STTT-> Code: #include #use delay(clock=4000000) #use fast_io(C) #byte port_C=0x07 int const a[4] = {0x08, 0x04, 0x02, 0x01}; void main() { set_tris_C(0x00); output_C(0x00); while(1) { int i=0; while(i<4) { port_C = a[i]; delay_ms(500); i++; } i = 0; } Thí nghiệm Vi Xử Lý | 23
13. 25 Báo cáo Thí nghiệm Vi Xử Lý Nhóm 2 { i=i+1; port_c= 15-i; delay_ms(1000); if(i==16) i=0; } } } Bài 9: Thí nghiệm với LED 7 đoạn Thí nghiệm1: Viết chương trình thực hiện mạch đếm lên từ 0 đến F (số Hex), kết quả xuất ra LED 7 đoạn, giá trị bộ đếm tăng lên 1 đơn vị cách nhau mỗi 0.5s. Code: #include #use delay (clock= 4000000) #use fast_io(a) #use fast_io(c) void main () { int state1[16]={0x06,0x04,0x07,0x07,0x05,0x03,0x03,0x06,0x07,0x07,0x07,0x01,0x0 2,0x05,0x03,0x03}; int state2[16]={0x0F,0x01,0x06,0x03,0x09,0x0B,0x0F,0x01,0x0F,0x0B,0x0D,0x0F,0x0 E,0x07,0x0E,0x0c}; int i; set_tris_a(0x00); set_tris_c(0x00); while(1) { for(i=0;i<16;i++) { output_a(state1[i]); output_c(state2[i]); delay_ms(500); } } } Thí nghiệm3: Viết chương trình thực hiện mạch đếm thoả các yêu cầu sau: Đếm lên từ 0 đến F (số Hex) khi mạch vừa reset, Đếm xuống từ F đến 0 (số Hex) ki SW1 được nhấn. Kết quả xuất ra led đơn , giá trị bộ đếm tăng lên (giảm xuống ) 1 đơn vị cách nhau mỗi 0.5s. Code: Thí nghiệm Vi Xử Lý | 25
14. 27 Báo cáo Thí nghiệm Vi Xử Lý Nhóm 2 832-895 D 896-959 E 960-1023 F Code: #include #include #include #include #use delay (clock= 4000000) #use fast_io(a) #use fast_io(c) void main () { int i; int a; set_tris_c(0x00); set_tris_a(0xff); setup_adc_ports( ALL_ANALOG ); setup_adc(ADC_CLOCK_DIV_32); set_adc_channel( 0); delay_ms(10); while(1) { a= read_adc(); if (0<=a&&a<=63) {i=0; } else if(64<=a&&a<=127) { i=1; } else if(128<=a&&a<=191) {i=2; } else if(192<=a&&a<=255) {i=3; } else if(256<=a&&a<=319) {i=4; } else if(320<=a&&a<=383) {i=5; } else if(384<=a&&a<=447) Thí nghiệm Vi Xử Lý | 27
15. 29 Báo cáo Thí nghiệm Vi Xử Lý Nhóm 2 #use delay (clock= 4000000) #use fast_io(a) #use fast_io(c) void main () { int i; int a; set_tris_c(0x00); set_tris_a(0xff); setup_adc_ports( ALL_ANALOG ); setup_adc(ADC_CLOCK_DIV_32); set_adc_channel( 0); delay_ms(10); while(1) { a= read_adc(); i=a/16; output_c(i); } } Phần C: Bài tập lớn Viết chương trình mô phỏng máy tính mini với các phép toán +, - *, / số 3 chữ số. ORG 2000H MOV 50H,#0 EN BIT P3.4 RS BIT P3.5 MOV A, PCON SETB ACC.7 MOV PCON,A MOV SCON,#52H MOV TMOD,#20H MOV TH1,#-3 SETB TR1 MOV A,#01H CALL WRITE_COMMAND MOV DPTR, #8000H CALL LCD_INIT Thí nghiệm Vi Xử Lý | 29
16. 31 Báo cáo Thí nghiệm Vi Xử Lý Nhóm 2 WAIT_LCD: MOV R7, #100 LL1: MOV R6, #250 DJNZ R6, $ DJNZ R7, LL1 RET ;=== DELAY: MOV R5, #20 LLL1: MOV R7, #100 LLL2: MOV R6, #250 DJNZ R6, $ DJNZ R7, LLL2 DJNZ R5, LLL1 RET ;=== ;=== ; TRUYEN DU LIEU CHO LCD - RS=1 ;=== WRITE_TEXT: MOV DPTR, #8000H LCALL WAIT_LCD SETB RS MOVX @DPTR, A SETB EN CLR EN RET ;=== ; TRUYEN LENH CHO LCD - RS=0 ;=== WRITE_COMMAND: MOV DPTR, #8000H LCALL WAIT_LCD CLR RS MOVX @DPTR, A SETB EN CLR EN RET ; === ; === ; CT CON 16BIT / 16BIT ; [R3 R2 R1 R0] = [ R1 R0 ] / [ R3 R2] ; === ; === CHIA_16: MOV A, R2 ADD A, R3 CJNE A,#0,NNNN LJMP ERROR NNNN: Thí nghiệm Vi Xử Lý | 31
17. 33 Báo cáo Thí nghiệm Vi Xử Lý Nhóm 2 NHAN_16: MOV A, R0 MOV B, R2 MUL AB ; MULTIPLY XL X YL PUSH ACC ; STACK RESULT LOW BYTE PUSH B ; STACK RESULT HIGH BYTE MOV A, R0 MOV B, R3 MUL AB ; MULTIPLY XL X YH POP 00H ; RECALL XL*YL HIGH BYTE ADD A, R0 MOV R0, A CLR A ADDC A, B MOV DPL, A MOV A, R2 MOV B, R1 MUL AB ; MULTIPLY XH X YL ADD A, R0 MOV R0, A MOV A, DPL ADDC A, B MOV DPL, A CLR A ADDC A, #0 PUSH ACC ; SAVE INTERMEDIATE CARRY MOV A, R3 MOV B, R1 MUL AB ; MULTIPLY XH X YH ADD A, DPL MOV R2, A POP ACC ; RETRIEVE CARRY ADDC A, B MOV R3, A MOV R1, 00H POP 00H ; RETRIEVE RESULT LOW BYTE ;'''''''''''''''''''''''''' MOV A, R0 MOV R2, A MOV A, R1 MOV R3, A LCALL BINTOASC LCALL HIENTHIKQ ;'''''''''''''''''''''''''''' RET ; === ; === ; CHI SU DUNG BCD 3 DIGIT ; CT CON 16BIT + 16BIT ; [R3 R2 R1 R0] = [ R1 R0 ] + [ R3 R2] ; === ; === CONG_16: MOV A, R0 ; LOAD X LOW BYTE INTO ACC ADD A, R2 ; ADD Y LOW BYTE MOV R0, A ; PUT RESULT IN Z LOW BYTE MOV A, R1 ; LOAD X HIGH BYTE INTO ACC ADDC A, R3 ; ADD Y HIGH BYTE WITH CARRY MOV R1, A ; SAVE RESULT IN Z HIGH BYTE Thí nghiệm Vi Xử Lý | 33
18. 35 Báo cáo Thí nghiệm Vi Xử Lý Nhóm 2 MOV A,20H SUBB A,#30H MOV 20H, A CLR C MOV A, 50H CJNE A, #02H, GG2 MOV 20H, 22H MOV 22H, #0 MOV 21H, #0 GG2: CLR C CJNE A, #03H, GG4 MOV 20H, 21H MOV 21H, 22H MOV 22H, #0 GG4: CLR C MOV A, 22H MOV B, #100 MUL AB MOV R7,A MOV R6, B MOV A,21H MOV B, #10 MUL AB ADD A, 20H PUSH ACC MOV A,B ADDC A, #0 ADD A,R6 MOV B,A POP ACC ADD A,R7 MOV 23H, A ; BYTE THAP MOV A, B ADDC A, #0 MOV 24H, A ; BYTE CAO MOV 50H, #0 RET ; === ; === BI2BCD: MOV B, #10 DIV AB MOV 71H, B ; LUU HANG DON VI MOV B, #10 DIV AB MOV 72H, B ; LUU HANG CHUC MOV 73H, A ; LUU HANG TRAM RET ; === ; === HIENTHIKQ: MOV 55H, #9 MOV 50H, #0 MOV A, #0C9H CALL WRITE_COMMAND CLR C Thí nghiệm Vi Xử Lý | 35
19. 37 Báo cáo Thí nghiệm Vi Xử Lý Nhóm 2 MOV R7, A INC DPTR CLR A MOVC A, @A+DPTR MOV R6, A MOV R4, #'0' ; C 0 then C <- C +1 SJMP SOMA ; goto SOMA SAIDA: MOV A, R4 MOV @R0, A ;TABOUT (POUT) <- C MOV A, R2 ADD A, R6 ; N=N+R MOV R2, A MOV A, R3 ADDC A, R7 MOV R3, A INC R0 ; PSAIDA=PSAIDA +1 CLR A MOVC A, @A+DPTR CJNE A, #1, INCREMENTA ; TAB(P) = 1 ? RET ; If yes, END INCREMENTA: ; If No, P <- P+1 INC DPTR LJMP COM1 ; goto COM1 ; === ; === SO_SANH: CLR C MOV 60H,A SUBB A, #2BH JZ CONG CLR C MOV A,60H SUBB A, #2DH JZ TRU CLR C MOV A,60H SUBB A, #2FH Thí nghiệm Vi Xử Lý | 37
20. 39 Báo cáo Thí nghiệm Vi Xử Lý Nhóm 2 MOV A, #0 LOOPXC: PUSH ACC MOV DPTR, #TABLE MOVC A, @A+DPTR CALL WRITE_TEXT ; MOV A, #07H ; CALL WRITE_COMMAND POP ACC INC A DJNZ R4, LOOPXC MOV 55H, #9 RET THUCHIEN: CLR C MOV A, 55H SUBB A, # 5 JZ TIEPTUC MOV A, # 01H LCALL WRITE_COMMAND MOV R0,#0 MOV R1,#0 MOV R2,#0 MOV R3,#0 MOV 20H, #0 MOV 21H, #0 MOV 22H, #0 MOV 23H, #0 MOV 24H, #0 MOV 30H,#0 MOV 31H, #0 MOV 32H, #0 MOV 33H, #0 MOV 34H, #0 MOV 50H,#0 LJMP NNEXT TIEPTUC: CALL BCD_2_BI MOV R2, 23H MOV R3, 24H MOV A,40H CJNE A, #0AH, ZZ1 CALL CONG_16 RET ZZ1: CJNE A, #0BH, ZZ2 CALL TRU_16 RET ZZ2: CJNE A, #0CH, ZZ3 CALL NHAN_16 RET ZZ3: CJNE A, #0DH,ERROR Thí nghiệm Vi Xử Lý | 39