![]() |
|
Tài trợ cho PIC Vietnam |
Giao tiếp cổng COM và LPT RS232, RS485 và LPT là những giao tiếp cơ bản và kinh điển khi mới học về vi điều khiển... |
![]() |
|
Ðiều Chỉnh | Xếp Bài |
|
![]() |
#1 |
Nhập môn đệ tử
Tham gia ngày: Oct 2010
Bài gửi: 8
: |
em cũng đang gặp vấn đè về truyền nhận rs232
mong các anh xem thử đoạn code có lỗi chỗ nào ko??? ////////////////////////////// #include <16F877a.h> #include <def_877a.h> # use delay (clock =12000000) #fuses hs,nowdt,nolvp,noprotect #use rs232(baud=9600,parity=N,xmit=PIN_C6,rcv=PIN_C7) #int_RDA void ngat_RDA() { char data; data=getc(); if(data=='1') rb0=1; else if (data=='2') rb1=1; } void main() { //trisd=0x00; //portd=0x00; trisb=0x00; trisc=0x80; portb=0x00; enable_interrupts(int_RDA); enable_interrupts(global); } em mô phỏng bằng cổng com ảo Serial Port Driver |
![]() |
![]() |
![]() |
#2 |
Đệ tử 1 túi
Tham gia ngày: Jan 2006
Bài gửi: 14
: |
Chán quá, lọ mọ một mình mãi vẫn không được. mình Post cả phần VB nhờ mọi ng kiểm tra xem có lối định dạng dữ liệu không nhé. Mình nối tắt chân 11 và 12 của Max232 để thử thì mình gửi chữ A nó trả về đúng chư A luôn.
Private Sub Exit_Click() MSComm1.PortOpen = False End End Sub Private Sub Form_Load() With MSComm1 .CommPort = 1 .RThreshold = 1 .Settings = "9600,n,8,1" .PortOpen = True End With TText.Text = "NHAP KY TU TRUYEN DI" RText.Text = "KY TU NHAN DUOC" End Sub Private Sub MSComm1_OnComm() If (MSComm1.CommEvent = comEvReceive) Then buff = MSComm1.Input a = Asc(buff) RText.Text = a End If End Sub Private Sub RButton_Click() RText.Text = a End Sub Private Sub TButton_Click() MSComm1.Output = TText.Text End Sub ![]() Phần Code cho pic mình dùng code do Đồng chí Bolsevik sửa giúp. (Thanks đồng chí!) #include<16f877.h> //cẩn thận nhầm 16f877a #FUSES XT, NOWDT, NOPUT, NOPROTECT, NODEBUG, NOBROWNOUT, NOLVP, NOWRT #use delay(clock=4000000) // defind crystal = 4MHz #use rs232(baud=9600,xmit=PIN_C6, rcv=PIN_C7, bits=8) // Uses RS232 Baud-rate 9600 , TX PIN = RC6, RX PIN = RC7 #int_RDA void RDA_isr() { char key_in; key_in=getc(); //delay_ms(1000); trong 1s lại có ký tự gửi đến thì trả về không đúng putc(key_in); } main() { enable_interrupts(global); enable_interrupts(INT_RDA); while (true) { } } |
![]() |
![]() |
![]() |
#3 |
Đệ tử 6 túi
Tham gia ngày: Nov 2008
Nơi Cư Ngụ: Di Linh
Bài gửi: 131
: |
Nếu bạn đã chắc chắn khi nối chân 11, 12 của max 232 thì VB truyền nhận dc( gửi A , nhận A ) thì bạn kiểm tra xem ( thật kĩ ) từ chân 11,12 của max232 có đến đúng thứ tự chân RC6, RC7 hay không ? Mình nói lại bạn hãy kểm tra thật kĩ , xem 11, 12 trong data shet là ngõ vào hay ngõ ra .
Cũng chính vì quá tin tưởng Easy PiC ( phiên bản cũ ) của TM nên mình cũng bị như bạn. chỉ cần đảo chéo RC6 , RC7 là dc. còn PIClab 40 thì mình không biết thế nào |
![]() |
![]() |
![]() |
#4 |
Nhập môn đệ tử
Tham gia ngày: Oct 2008
Bài gửi: 7
: |
mình cũng mới làm giao tiếp, mình dùng chương trình kiểm tra đơn giản dưới đây thì nhận và gửi đều chính xác,..Nhưng khi muốn khai báo xung lên 40M ( thạch anh thật là 10M) dung hspll thì không nhận đúng nữa, nó gửi lên những ký tự lung tung,... không biết khi khai báo hspll thì có tính lai baurate không nhỉ????? #include<18f4550.h>
#fuses hs,noprotect,nowdt #use delay(clock=10M) #use rs232(baud=9600,xmit=pin_c6,rcv=pin_c7,bits=8,pari ty=N) #use fast_io(b) int16 dodai,dem=0; int input_ready; char mang[1000]; int8 text[100]; #int_rda void nhan() { //disable_interrupts(int_timer0); //if(kbhit()) mang[dem]=getc(); putc(mang[dem]); if(mang[dem]==0x0d) { dodai=dem; mang[dem]='\0'; input_ready=1; dem=0; } dem++; // enable_interrupts(int_timer0); } void main() { int16 i,j; input_ready=0; set_tris_b(0); enable_interrupts(global); enable_interrupts(int_rda); output_b(255); while(1) { if(input_ready==1) { printf("CHUOI=%s",mang); input_ready=0; dem=0; } } } |
![]() |
![]() |
![]() |
#5 |
Nhập môn đệ tử
Tham gia ngày: Oct 2008
Bài gửi: 7
: |
ko ai giúp minh à???chương trình truyền và nhận đều ok, chỉ có điều mình muốn hỏi là khi khai báo nhân xung thạch anh(10M*4) thì khai báo baurate nhu thế nào(có phải nhân : baud=9600*4 lên không nhỉ???? help!! gấp nhé các bạn
|
![]() |
![]() |
![]() |
#6 |
Nhập môn đệ tử
Tham gia ngày: Jul 2009
Bài gửi: 2
: |
mấy bác cho e hỏi vấn đề như sau:
- Em lam mach 485, giao tiếp máy tính gồm có một hệ thống dùng 8951, và một hệ thống dùng PIC. Vấn đề là nếu cắm 8951 giao tiếp với MT thì OK, nhưng khi cắm chung mạng với PIC thì 8951 bị treo, không hoạt động nữa, trong khi PIC vẫn hoạt động tôt. Em cũng đã cấp nguon riêng cho board 485 roi. Mong các bác giúp đỡ |
![]() |
![]() |
![]() |
#7 |
Đệ tử 3 túi
Tham gia ngày: Jan 2010
Bài gửi: 52
: |
cái này dể thôi mà.
mình ra đọc báo đây (đến giờ rồi ![]() tí nữa mình vào bầy cho có gì hỏi qua yahoo cũng đc danghien_004
__________________
HIENCLUBVN -Naval Academy |
![]() |
![]() |
![]() |
#8 |
Đệ tử 5 túi
Tham gia ngày: Dec 2010
Bài gửi: 101
: |
có gì mình qua bạn luôn nhà cũng gần mà.
|
![]() |
![]() |
![]() |
Ðiều Chỉnh | |
Xếp Bài | |
|
|