Giao tiếp RS232 trên PC bằng Visual Basic 6.0

[hiendinh]

Anh ngô hải Bắc ơi,hiện em đang làm 1 đề tài về môtr, về phần lập trình keil c thì em làm đã xong nhưng trong đề tài của em còn có phần kết nối với computer dùng vjsual basic anh à, hiện em đang làm các cổng com mà khó quá, anh có thể hướng dẫn giúp em không?
lập trình 89c52 motor bước 5 pháe dùng c và viuabasic tạo giao diện đẹp anh à,
jup1 em với nha

[thanhvu_tv87]

mình nghỉ bạn nên tìm tài liệu rồi về nhà đọc cho kỷ cái nào không hiểu hay gặp khó khăn chổ nào rồi anh Bắc sẽ giúp cho...mình nói vậy có đúng không nưa..í mà còn nhiều cao thủ trên đây nửa ma.....

[0207]

Thân chào mấy anh,em có vấn đề này xin mấy anh giúp đở.Trong code phần cmdsend bị lỏi em không biết sửa làm sao,xin ý kiến từ mấy anh...xin thank rất nhìu.....
file kem theo:

[tld007]

sao không có ai thảo luận về phần này nữa vậy ta

[TheHouse]

Truyền từ PC xuống thì được, nhưng truyền lên vẫn chưa được, có ai biết phần này không. Viết code cho 89 truyền lên, nhưng làm sao để trên VB nhận được ?

[linhnguyen]

Cái này đầu topic có rồi mà

[aloneman]

Các huynh ơi! Làm thế nào mình tạo ra sự kiện oncomm (tao oncomm chủ động).Ý em là mình dùng một lệnh nào đó để tạo ra sự kiện oncom chứ không đợi VDk truyền lên! Em đã set rthreshold lến 1,và cho MSCOMM1.input="A" Nhưng bị báo lổi 383 property is read only!giúp em với

[hoangvi07]

Cảm ơn bạn này rất nhiều! Mình đang rất cần cái này.

[phamthuan]

khi nhận xong kí tự hơặc đoạn text cổng nối tiếp có phát ra tín hiệu gì không. Trên VB ta nhận đựoc là gì?

[asimo]

Bác cho tôi hỏi chút.
1. Tôi có test phần mềm demo viết trên VB để điều khiển cho SCARA. Khi kết nối với cổng COM của computer chạy phần mềm với cổng COM của bộ điều khiển thì khi chạy điều khiển được lần lượt 3 khớp của SCARA, nghĩa là đk được lần lượt 3 motor. Lúc đầu tôi nghĩ với 1 cổng thì chỉ điều khiển được 1motor. Như vậy, với 3motor sẽ phải có 3 tín hiệu điều khiển, đồng thời nó cũng có 3 sensor. Vậy không hiểu làm thế nào mà điều khiển được chỉ với 1 cổng COM.
2. Tôi có thể dùng cổng 1 COM có sẵn của controller đó để điều khiển đông thời 3 motor với 3tín hiệu điều khiển khác nhau được không. Vì tôi kiểm tra phần mềm demo sẵn có thì nó điều khiển lần lượt.
3. Phần mềm demo dạng file exe, vậy có cách nào xem code của nó được không.
Cảm ơn bác

[anhtuanmos]

Chào các bác ! Em đang phải làm giao diện cho giao tiếp RS232 (bằng VB) của con ATMega32 (đọc 2 kênh ADC ) với PC (hiển thị giá trị hiện thời của cả 2 kênh song song ở dạng đồ thị gian) mà chưa biết bắt đầu từ đâu. Các bác chỉ giáo cho em với ! Em cũng vừa mới tìm hiêu VB nên chưa có biết mô tê gì cả. Mong các cao thủ hướng đẫn cụ thể từ đơn giản một chút nhé ! Thanks các bác nhiều !

[student_dtvt]

Mấy bác cho em hỏi cái này. Em truyền nhận dữ liệu giữa 16f877 và VB6 đã nhận đc nhưng chỉ với thạch anh 4000000Hz, khi thay đổi cái này thì lại không nhận được. Em làm với kit thạch anh 24Mhz ko thể nhận dữ liệu được. Mong các bác chỉ giáo giùm em với.

VB:

Private Sub Command1_Click()
On Error GoTo OpenFalse
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
Exit Sub
OpenFalse:
MsgBox Err.Description & vbLf + vbCr + "Loi, khong the mo cong. Hay dong cac ung dung dang su dung cong COM"

End Sub

Private Sub Command2_Click()
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
End
End Sub

Private Sub Command3_Click()
On Error GoTo sendfalse
MSComm1.Output = Text1.Text
Exit Sub
sendfalse:
MsgBox Err.Description & vbLf + vbCr + "Loi, Cong COM chua duoc mo, nhan Connect"
End Sub

Private Sub Form_Load()
With MSComm1
.Settings = cmbBaudRate.Text + "N,8,1"
.RThreshold = 1
.SThreshold = 0
.InBufferSize = 1024
.OutBufferSize = 1024
.InputMode = comInputModeText
.ParityReplace = ""
.CommPort = Switch(cmbComPort.Text = "COM 1", 1, cmbComPort.Text = "COM 2", 2, cmbComPort.Text = "COM 3", 3, cmbComPort.Text = "COM 4", 4)
End With
End Sub

Private Sub MSComm1_OnComm()
Dim StringIn As String
If MSComm1.CommEvent = comEvReceive Then
StringIn = MSComm1.Input 'Nhan chuoi du lieu to VCOM
Text2.Text = StringIn
End If
End Sub




PIC:
#include <16f877a.h>
#FUSES NOWDT, HS, NOPUT,NOPROTECT, NODEBUG, NOBROWNOUT, NOLVP, NOCPD, NOWRT
#use delay(clock=4000000)
#use rs232(baud=9600, parity=N, xmit=pin_C6, rcv=pin_C7)
#include <stdlib.h>
#byte porta = 0x05
#byte portb = 0x06
#byte portc = 0x07
#byte porte = 0x09
int8 y,i,a,b,c,d,e;
int16 x;
char string[5];
BYTE CONST maled[]={0xc0,0xf9,0xa4,0xb0,0x99,0x92,0x82,0xf8,0x80,0x9 0};

void nhan_rs232()
{

for(i=0;i<=4;i++)
{
string[i]=getc();
}
printf("%s",string);
y=0;
x=atol(string);
a=x/10000;
x=x%10000;
b=x/1000;
x=x%1000;
c=x/100;
x=x%100;
d=x/10;
x=x%10;
e=x;

a=maled[a];
b=maled[b];
c=maled[c];
d=maled[d];
e=maled[e];

for(i=0;i<=200;i++)
{
output_A(0b01111);
output_D(a);
delay_ms(1);
output_A(0b11111);

output_A(0b10111);
output_D(b);
delay_ms(1);
output_A(0b11111);

output_A(0b11011);
output_D(c);
delay_ms(1);
output_A(0b11111);

output_A(0b11101);
output_D(d);
delay_ms(1);
output_A(0b11111);

output_A(0b11110);
output_D(e);
delay_ms(1);
output_A(0b11111);
}


}
/*void xoa()
{
for(i=0;i<=4;i++)
{
string[i]=0;
}
}*/
void main()
{
set_tris_b(0);
set_tris_e(0);
while(true)
{
if(y==0)
{
nhan_rs232();
delay_ms(100);

}
}
}


Em làm nhận một số 5 chữ số hiển thị led 7 đoạn

đây là file mô phỏng: Giao tiep RS232.rar

[thezodiacno1]

cac bac oi giup e phan nhan du lieu tu thiet bi len may tinh lam sao? giup do dum e di.

[thezodiacno1]

cac bac giup e voi e dang can gap

[ozonedark2]

mấy bác cho em hỏi
em lập trình vb cho 4 led đơn và lưu thay đổi dữ liệu trong bảng text kèm theo hiển thị ngày giờ mỗi lần thay đổi phải xuống hàng em đánh thế này nhưng nó không xuống hàng mà thay đổi trên dòng đầu
text1.text = now & vbCrlf
giúp em với