Mình thử trên PICLAB40 của TME và sử dụng luôn serial port monitor cua trình dịch CCS để test nên khả năng lỗi phần cứng dc giảm thiểu. khi nạp xong ct và vào serial port monitor thấy nhận dc dữ liệu hexa 00 00 00 00 00 00 tuần tự xuất hiện cho đến khi đầy màn hình. kiểm tra form VB tự viết thì ký tự nhận dc luôn là 0. Như vậy có phải là PIC phát dữ liệu liên tục lên PC ko?

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
http://i424.photobucket.com/albums/p...Hunter_001.jpg


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)
{
}
}

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

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;
}



}
}

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

bạn thử đổi int buf; thành char buf ;xem sao. Nếu ko được thì có lẽ là do phần cứng hoặc trình gửi trên PC thôi, mình test thử code bạn rồi, vẫn nhận được mà.Mầ bạn phải để putc(buf) lên thì mới kiểm tra được chứ! thời gian gửi tín hiệu nhanh ko kip thấy led sang đâu!)

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 đỡ

Hi, mình cũng đang dùng serial port monitor của CCS, nó có phần send mã ASCII và HEX, bạn thử gửi một giá trị khác 0 xuống PIC xem sao, vì có thể bộ đệm đang là số 0 nên bạn thấy toàn 0 thôi, thay đổi giá trị để kiểm tra nhé bạn.

mạch chuyển đổi từ RS232 sang RS485
 

Anh em làm ơn xem giúp mình xem mạch chuyển đổi từ RS232 sang RS485 mình vẽ có đúng chưa,mình dùng kiểu truyền 4 dây. Rất cảm ơn.
http://www.mediafire.com/?1um2m5z2m5e

Nhờ các bạn xem giúp mình mạch chuyển đổi từ RS485 sang 232 có đúng chưa, mình chưa rõ 2 chân DE và RE của IC75176 trong 2 mạch chuyển đổi mình đã post sử dụng thế nào, Rất mong chỉ bảo
http://www.mediafire.com/?id2yzemnzzz

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

cái này dể thôi mà.
mình ra đọc báo đây (đến giờ rồi :D)
tí nữa mình vào bầy cho
có gì hỏi qua yahoo cũng đc
danghien_004

code của bạn như thế là OK rồi. có điều trong code chưa có biến toàn cục data, nếu bạn code như vậy thì nên khai báo : char data
còn khi khai báo rs232 thì đã định nghĩa 2 chân RC6 và RC7 rồi ko cần set tris nữa đâu.
Thân

mình cảm ơn đã quan tâm nhưng mình nghĩ biến data là cục bộ cũng được mà. tại data chỉ dùng trong hàm phục vụ ngắt nối tiếp..
nếu chương trình này ok thì chắc sai trong vb rồi. ???????
thân

bạn minhkhoa1990 chỉ cần thêm vòng lặp while(true) trong main là chạy thôi.

Nếu bạn viết như thế thì khi nhảy vào ngắt set đèn sáng,rồi thoát ngắt..chạy trong main có portb=0x00 thì làm sao mà đèn sáng được chứ...

Bạn thử dùng chương trình (VB+PIC+Phần mềm COM ảo) đơn giản này do minh viết:
http://www.picvietnam.com/forum/atta...7&d=1305211415

uh cảm ơn bạn nhé. có vòng lăp while(true) ko mà cũng quên..hii
uh mà cho mình hỏi ban biết giao tiếp rs232 2 con pic cung luc ko??

Ý bạn là 3 thiết bị 1 PC + 2 PIC phải ko?
Không được đâu bạn ạ,vì RS232 chỉ cho phép liên kết điểm-điểm thôi..tức chỉ có 2 thiết bị trên đường truyền RS232..Một giải pháp là dùng RS485...,bạn chỉ dùng các mạch chuyển đổi RS232-RS485 (có trên diễn dàn) sau đó lập trình tương tự như cho RS232 thôi...

stupid11 vẫn khỏe chứ ông làm đề tài xong chưa ! thằng bạn cùng phòng ông lam quang báo xong chưa nhỉ .tui vẫn chưa xong nè.hình như cái quang báo của bạn ông là 16x64 một màu đứng không.không biết bạn của ông quet hàng hay quet cột nhỉ .còn tui làm quét hàng chạy chữ dc từ trên xuống dưới hoặc ngược lại theo phong chữ ngang thì không khó nhưng chạy từ trái qua phải không dc.còn làm từ trái qua phải ngược lại theo phong chữ đứng thì cho chay chữ từ trên xuống dước khó quá .nếu mà hai phong chữ thì tui mới lam dc 4 kieu do.còn nếu ma dùng một phong chũ tui bo tay rồi.không biết ông bạn của ông làm như thế nào nhỉ.tính nhờ ông bạn chỉ giáo tý

Mình đang làm mô hình...,thằng bạn mình nó làm,mô phỏng chạy rồi đấy...giờ nó đang làm phần cứng.hôm nào qua hỏi nó....có gì trao đổi qua mail nhé.,chứ trao đổi ngoài luồng thế này ko hay cho lắm..Hjj.

có gì mình qua bạn luôn nhà cũng gần mà.