Giao tiếp VB-PIC6F877A

[vutranthelan]

Cho em hỏi là tại sao khi em gửi 1 số 2 byte từ VB xuống PIC thì lần đầu tiên luôn ko truyến đúng. Sau đó em phải thoát VB ra rồi vào lại 1 lần nữa thì mới bắt đầu truyền đúng???

Đây là Code VB:
Private Sub Command1_Click()
Dim delay As Integer
Dim low_byte As Byte
Dim high_byte As Byte
delay = Text1.Text
low_byte = delay Mod 256
high_byte = delay \ 256
MSComm1.Output = Chr$(low_byte) + Chr$(high_byte)

Đây là code bên PIC:
char count,low_byte,high_byte;
int16 delay;
char value=0xff;
#int_RDA
RDA_isr()
{
if (kbhit())
{
switch (count)
{
case 0:low_byte=getc();
break;
case 1:high_byte=getc();
break;
default:break;
}
count++;
if(count=2)
{
count=0;
delay=(high_byte*256)+(low_byte);
}
}
}
void main()
{
enable_interrupts(INT_RDA);
enable_interrupts(GLOBAL);
delay=200;
while(1)
{
if(count=2)
{
count=0;
delay=(delay2*256)+(delay1);
}
output_b(value);
delay_ms(delay);
output_b(!value);
delay_ms(delay);
}
}

Cho em hỏi thêm là có cách nào truyền nhiều byte từ VB sang PIC và truyền nhiều byte từ PIC sang VB hay hơn không, em thấy cách này hơi "gà" thì phải,

[dung h]

chương trình của bạn viết chưa đúng nên nó chạy không như bạn muốn
có vài điểm đó là
if(count=2) dấu = là thục hiện phép gán .bạn sai lỗi cấu trúc cơ bản
khi muốn so sánh thì phải == tức if(count==2)

máy tính giao tiếp với vdk tất cả bằng mã ascii
dữ liệu ở text1.text là kiểu xâu ký tự
khi bạn truyền nhiều byte từ vb xuống vdk thì ta cứ truyền cả xâu xuống khi đó vb tự động tách tùng ký tự trong sâu và chuyển thành mã ascii truyền đi
mscomm1.output = text1.text
và khi đó ở vdk bạn sẽ dùng 1 mảng để lưu các phần tử nhận được rồi chuyển thành số bạn muốn
khi vdk muốn truyền nhiều byte len vb thì bạn phải tách data đó ra làm nhiều byte và truyền lần lượt ascii của nó lên vb(vd 123 tach thành số trăm 1 ,2 chục ,3 dv)

cách tối ưu nhất để truyền nhiều byte từ pc xuống vdk và ngược lại từ vdk lên vb đó là ta đóng gói dữ liệu ta thành các frame gói dữ liệu với cấu trúc lần lượt các byte là:
|START||so byte data||....data...||stop|
chúc thành công!

[vutranthelan]

Nguyên văn bởi dung h

chương trình của bạn viết chưa đúng nên nó chạy không như bạn muốn
có vài điểm đó là
if(count=2) dấu = là thục hiện phép gán .bạn sai lỗi cấu trúc cơ bản
khi muốn so sánh thì phải == tức if(count==2)

máy tính giao tiếp với vdk tất cả bằng mã ascii
dữ liệu ở text1.text là kiểu xâu ký tự
khi bạn truyền nhiều byte từ vb xuống vdk thì ta cứ truyền cả xâu xuống khi đó vb tự động tách tùng ký tự trong sâu và chuyển thành mã ascii truyền đi
mscomm1.output = text1.text
và khi đó ở vdk bạn sẽ dùng 1 mảng để lưu các phần tử nhận được rồi chuyển thành số bạn muốn
khi vdk muốn truyền nhiều byte len vb thì bạn phải tách data đó ra làm nhiều byte và truyền lần lượt ascii của nó lên vb(vd 123 tach thành số trăm 1 ,2 chục ,3 dv)

cách tối ưu nhất để truyền nhiều byte từ pc xuống vdk và ngược lại từ vdk lên vb đó là ta đóng gói dữ liệu ta thành các frame gói dữ liệu với cấu trúc lần lượt các byte là:
|START||so byte data||....data...||stop|
chúc thành công!

Thật sự cám ơn bạn nhiều lắm, bạn có thể cho mình xem một đoạn code ví dụ được không. Ví dụ như mình truyền nhiều biến từ Visual Basic xuống PIC6F877A và ngược lại truyền nhiếu biến từ PIC lên Visual Basic.