PIC Vietnam

Go Back   PIC Vietnam > Truyền thông > Giao tiếp cổng COM và LPT

Tài trợ cho PIC Vietnam
Trang chủ Đăng Kí Hỏi/Ðáp Thành Viên Lịch Tìm Kiếm Bài Trong Ngày Ðánh Dấu Ðã Ðọc Vi điều khiển

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

Trả lời
 
Ðiều Chỉnh Xếp Bài
Old 20-06-2011, 02:45 PM   #1
minhkhoa1990
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
minhkhoa1990 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Old 04-05-2009, 02:47 PM   #2
digan
Đệ tử 1 túi
 
digan's Avatar
 
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)
{
}
}
digan vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Old 04-05-2009, 03:44 PM   #3
phandinh
Đệ 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
phandinh vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Old 28-05-2009, 01:51 PM   #4
thienkien
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;
}



}
}
thienkien vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Old 29-05-2009, 07:40 PM   #5
thienkien
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
thienkien vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Old 04-07-2009, 10:00 PM   #6
quang_minh
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 đỡ
quang_minh vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Old 20-06-2011, 07:57 PM   #7
danghien719
Đệ tử 3 túi
 
danghien719's Avatar
 
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
danghien719 vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Old 23-06-2011, 02:59 AM   #8
phatcddt08a
Đệ tử 5 túi
 
phatcddt08a's Avatar
 
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à.
phatcddt08a vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn
Trả lời

Ðiều Chỉnh
Xếp Bài

Quyền Sử Dụng Ở Diễn Ðàn
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Mở
Smilies đang Mở
[IMG] đang Mở
HTML đang Tắt

Chuyển đến


Múi giờ GMT. Hiện tại là 12:48 PM.


Được sáng lập bởi Đoàn Hiệp
Powered by vBulletin®
Page copy protected against web site content infringement by Copyscape
Copyright © PIC Vietnam