Lập trình giao tiếp VB6 với vđk qua RS232
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (1.19 MB, 10 trang )
10/2/2015
Lập trình giao tiếp VB6 với VĐK qua RS232 | Cộng đồng cơ điện tử Việt Nam | Mechatronics
Đăng nhập hoặc Đăng ký
Trang chủ
Tìm kiếm
Diễn đàn
Download
Video
Có gì mới?
Nội quy diễn đàn: Bạn nên đọc trước khi tham gia diễn đàn
Trang chủ
Diễn đàn
Kỹ thuật Máy tính
Hướng dẫn sử dụng diễn đàn: Những hướng dẫn chung nhất khi sử dụng diễn đàn
Công cụ lập trình
Yahoo đóng gó
VB
Lập trình giao tiếp VB6 với VĐK qua RS232
Thảo luận trong 'VB'
Đang xem chủ đề này ( Thành viên: 0, Khách: 1)
1
2
3
4
5
6
→
16
Next >
Đăng 24/11/12
#1
Bài viết dưới đây sẽ hướng dẫn chi tiết các bạn mới làm quen với vi điều khiển và tìm hiểu về giao tiếp giữa VĐK với
máy tính (PC) qua cổng nối tiếp RS232. (Mình sẽ làm trực tiếp với PIC16F877a vì nó khá thông dụng và nhiều code
tham khảo cho các bạn)
sgesvn
Moderator
Số bài viết: 2,313
Đã được thích: 2,955
Các bước cần chuẩn bị:
Phần mềm mô phòng Proteus
Các bạn có thể download tại đây: Proteus 7.10 Cho Anh Em Đây | Cộng đồng cơ điện tử Việt Nam | Mechatronics
Phần mềm CCS.
Các bạn có thể downlaod tại đây:
Phần Mềm Ccs 4.114 (update) | Cộng đồng cơ điện tử Việt Nam | Mechatronics
Phần mềm COM ảo
COM AO.rar
Eltima Software Virtual Serial Port Driver 6.9.rar
Eltima Software Virtual Serial Port Driver 7.1.289.rar
Mình khuyên các bạn nên dùng bản 6.9 vì bản 7.1 không biết sao mình dùng trên win7 bị lỗi.
Phần mềm VB6
Thảo luận Soft, Tool VB6 Cho Cơ Điện Tử | Cộng đồng cơ điện tử Việt Nam | Mechatronics
Tiếp theo là một số tài liệu cho các bạn tham khảo.
Các tài liệu và ứng dụng về PIC:
Tổng hợp Project cơ bản với PIC 16F877A | Cộng đồng cơ điện tử Việt Nam | Mechatronics
/>
1/10
10/2/2015
Lập trình giao tiếp VB6 với VĐK qua RS232 | Cộng đồng cơ điện tử Việt Nam | Mechatronics
Tài liệu học ccs:
Tài liệu học CCS | Cộng đồng cơ điện tử Việt Nam | Mechatronics
Tài liệu về lập trình giao tiếp cổng COM
giaotrinhDLDK.pdf
Chủ đề cùng chuyên mục:
Cần giúp
cần giúp bài tập matlab
Giúp mình lỗi này với.
Cấu Trúc Chương Trình Ngắt Trong VB6
cần giúp về VB!!!!
thắc mắc về cáp chuyển đổi com sang usb
Giáo trình VB của SSDG
Cần mọi người giúp về điều khiển 8led...
Cần giú về lỗi run time error '424'...
Lập trình VB giao tiếp với MT
dungvt, LêQuốcQuân, caonhan_2004 và 19 others thích bài này.
#1
05 quần lót nữ
cotton viền ren
muachung.vn
Chất liệu cotton mềm,
co giãn, thấm hút tạo
cảm giác dễ chịu khi
mặc, chỉ 85.000đ Mua
ngay
Hạt Mắc ca
nhập ÚC Tốt
cho tim mạch
31%
muachung.vn
Cung cấp năng lượng,
giảm cholesterol, ngừa
bệnh tim mạch, huyết
áp, tốt cho thai.Mua
ngay
Đăng 24/11/12
#2
Tiếp theo sẽ là ví dụ giao tiếp giữa PIC16F877a với PC qua RS232. PC có nhiệm vụ gửi lệnh bất tắt các LED thông
qua PIC, PIC có nhiệm vụ lấy giá trị nhiệt độ từ LM35 gửi lên PC.
Lập trình với PIC
Để PIC có thể sử dụng giao tiếp rs232 các bạn phải sử dụng:
sgesvn
Moderator
Mã:
#use rs232 (options)
Số bài viết: 2,313
Đã được thích: 2,955
Với option là một số lựa chọn cơ bản như sau:
Mã:
#use rs232(baud=9600,parity=N,xmit=PIN_C6,rcv=PIN_C7)
baud: tốc độ truyền
parity: Giao thức truyền
Xmit: Chân gửi trên VĐK
rcv: Chân nhận trên VĐK
Các lệnh nhận dữ liệu từ PC:
Mã:
value = getc()
value = fgetc(stream)
value=getch()
value=getchar()
Tất cả các giá trị nhận về đều là 8 bít.
Các lệnh gửi dữ liệu lên PC:
Mã:
putc (cdata)
putchar (cdata)
fputc(cdata, stream)
Các dữ liệu gửi đi cũng là 8 bít.
ví dụ đoạn code sau:
/>
2/10
10/2/2015
Lập trình giao tiếp VB6 với VĐK qua RS232 | Cộng đồng cơ điện tử Việt Nam | Mechatronics
Mã:
putc('*');
for(i=0; i<10; i++)
putc(buffer[i]);
putc(13);
Ngoài ra còn có thể sử dụng lệnh Printf (stream)
ví dụ:
Mã:
byte x,y,z;
printf("HiThere");
printf("RTCCValue=>%2x\n\r",get_rtcc());
printf("%2u %X %4X\n\r",x,y,z);
printf(LCD_PUTC, "n=%u",n);
Để hiểu hơn về các lệnh này các bạn vui lòng đọc help của ccs
Còn đây là code truyền giá trị nhiệt độ và nhận lệnh bật tắt LED bằng ccs:
Mã:
switch (data)
{
case '1':
{
RB0=1;
break;
}
case '2':
{
RB1=1;
break;
}
case '3':
{
RB2=1;
break;
}
case '4':
{
RB3=1;
break;
}
{
RB4=1;
break;
}
case '6':
{
RB5=1;
break;
}
case '7':
{
Các file đính kèm:
terminal.rar
Kích thước:
Đọc:
594 bytes
1,495
maivu89, nguyenpuc, dungvt và 10 others thích bài này.
#2
Đăng 24/11/12
#3
Tiếp tục là viết gia diện trên VB.
Các bạn sử dụng các button. label, shape của VB6 đề tạo một giao diện như hình vẽ:
/>
3/10
10/2/2015
Lập trình giao tiếp VB6 với VĐK qua RS232 | Cộng đồng cơ điện tử Việt Nam | Mechatronics
sgesvn
Moderator
Số bài viết: 2,313
Đã được thích: 2,955
Đ1 ~Đ8 là lệnh bật hoặc tắt các đèn từ 1 đến 8.
Một ô text đề ghi giá trị nhận được từ PIC gửi lên.
Thiết lập các giá trị cổng COM
Mã:
Private Sub Form_Load()
i = 0
' cai dat thong so cho cong com...." COMFIG FOR COM PORT "
Timer2.Enabled = False
With MSComm1
.CommPort = 1 'cong COM 1
.Settings = "9600,N,8,1" 'Baudrate=9600,Ko KT chan le,frame 8 bit,1 bit stop
.InBufferSize = 1024 'Bo dem 1024 byte thi day
.InputLen = 0 'Doc toan bo gia tri bo dem
.RThreshold = 1 'Cho phep ngat khi su kien Receiver o MSCOMM
.SThreshold = 0 'Ko cho phep ngat khi su kien Send o MMSCOMM
.OutBufferSize = 512
.InputMode = comInputModeText
.PortOpen = True 'Mo cong COM
End With
End Sub
Các lệnh gửi dữ liệu xuống PIC ví dụ:
Mã:
MSComm1.Output = "0"
Đoạn code nhận dữ liệu từ PIC gửi lên:
Mã:
Private Sub MSComm1_OnComm()
Dim StringIn As String
If MSComm1.CommEvent = comEvReceive Then
StringIn = MSComm1.Input
Text2.Text = Asc(StringIn)
End If
End Sub
Các file đính kèm:
Test_VB.rar
Kích thước:
Đọc:
72.9 KB
2,635
changnhoc123, htulipden, will_cs và 7 others thích bài này.
#3
Đăng 24/11/12
#4
Việc làm cuối cùng là test xem kết quả làm được ra sao:
/>
4/10
10/2/2015
Lập trình giao tiếp VB6 với VĐK qua RS232 | Cộng đồng cơ điện tử Việt Nam | Mechatronics
Khời động phần mềm COM ảo, add kết nối giữa COM1 và COM2
sgesvn
Moderator
Số bài viết: 2,313
Đã được thích: 2,955
Chạy mô phỏng trên proteus
Chạy VB6
Kết quả:
/>
5/10
10/2/2015
Lập trình giao tiếp VB6 với VĐK qua RS232 | Cộng đồng cơ điện tử Việt Nam | Mechatronics
tuanhat108, minhtrieu200, toi ngu kinh và 10 others thích bài này.
#4
Đăng 24/11/12
#5
Chưa kịp xem lại bài chỉ cả, đang say sưa viết bài đã có anh vào ném gạch rồi thông cảm vì tớ không muốn có bài
nào đó chèn vào đoạn đầu nên del đi rồi, và sửa lại code cho nó hợp lý nhé (Vì code lấy từ một project giám sát thiết bị
từ ngày xưa, nó gồm nhiều cái trong đó nên khi xóa bớt đi nó vẫn còn thế
Mã:
sgesvn
Moderator
Số bài viết: 2,313
Đã được thích: 2,955
void main()
{
enable_interrupts(int_RDA);
enable_interrupts(global);
setup_ADC(ADC_clock_internal);
setup_ADC_ports(AN0);
set_ADC_channel(0);
set_tris_b(0);
set_tris_a(0b1);
set_tris_c(0x80);
set_tris_d(0);
PORTB=0;
porta=0;
portc=0;
portd=0;
while(1)
{
x=read_ADC();
x=x/2.049;
putc(x);
chuc=x/10;
dv=x%10;
portd=swap(chuc)+dv;
}
}
Quynh con, toi ngu kinh, VinhCòi và 3 others thích bài này.
#5
Đăng 24/11/12
#6
Hi vong có gì thắc mắc hoặc góp ý thêm, hoặc phát triển để gửi nhiều byte mọi người viết bài tại thread này và cùng
nhau thảo luận
sgesvn
Moderator
Số bài viết: 2,313
/>
6/10
10/2/2015
Lập trình giao tiếp VB6 với VĐK qua RS232 | Cộng đồng cơ điện tử Việt Nam | Mechatronics
Đã được thích: 2,955
June, phamennho và Admin thích bài này.
#6
Đăng 25/11/12
#7
cám ơn anh về bài viết. anh có thể làm với 89 được không ? (vẫn là bài trên)
card màn hình anh có thể mua hộ em ?
phamennho
Kỹ sư
Số bài viết: 261
Đã được thích: 58
#7
Đăng 25/11/12
#8
Khi nào mua máy mình phải học cái này mới được. Hay!
dovanhieu
Super Moderator
Số bài viết: 1,305
Đã được thích: 1,779
ĐT: 0165 764 0498 094 814 2824
#8
Đăng 25/11/12
#9
phamennho said: ↑
cám ơn anh về bài viết. anh có thể làm với 89 được không ? (vẫn là bài trên)
card màn hình anh có thể mua hộ em ?
Làm việc với 89 thì bạn đọc tài liệu ở #1: giao tiep may tinh[codientu.org].pdf
sgesvn
Moderator
Số bài viết: 2,313
Đã được thích: 2,955
Phần ví dụ đấy, có đầy đủ cho bạn, tớ không cài trìn biên dịch nên không sửa code cho bạn giống như trên được,
nhưng đại loại giống nhau, ở đó còn hướng dẫn truyền 2 hay nhiều byte. Dùng code đó có vấn đề gì bạn lại đưa lên
đây thảo luân, vì phần nhận trên VB ở đó chưa được tối ưu cho lắm.
Card màn hình thì có thể mua cho bạn, nhưng bạn đang ở đâu? Hỏi để biết xem có mua hộ được không chứ ở
xa thì quang tèo.
dovanhieu said: ↑
Khi nào mua máy mình phải học cái này mới được. Hay!
Không có máy tính mà lại post bài được hả bạn, nhà nhóm reporter dạo này trầm vậy
June thích bài này.
#9
/>
7/10
10/2/2015
Lập trình giao tiếp VB6 với VĐK qua RS232 | Cộng đồng cơ điện tử Việt Nam | Mechatronics
Đăng 25/11/12
#10
Em tranh thủ mượn máy bạn post bài lên diễn đàn, em vẫn chưa mua được máy. Thành viên của nhóm
còn chưa được nhiều. Mà em lại chưa mua được nên nhóm hơi trầm. Nhưng tháng tới có lẽ khác, sẽ nhộn nhịp
hơn nhiều đấy anh ạ.
dovanhieu
Super Moderator
Số bài viết: 1,305
Đã được thích: 1,779
ĐT: 0165 764 0498 094 814 2824
david0bom và sgesvn thích bài này.
#10
1
2
3
4
5
6
→
16
Next >
(Bạn phải Đăng nhập hoặc Đăng ký để trả lời bài viết.)
Tags: pic 16f877a, vb6, visualbasic 6.0, giao tiếp vđk và máy tính, VĐK với máy tính (PC)
Chia sẻ trang này
Tweet
1
1
Like 21 people like this. Be the first of your friends.
Đăng ký | Đăng nhập
Cộng đồng Cơ điện t…
Quần joggers denim bo ống
30%
muachung.vn
Kiểu dáng thời trang, lưng thun co
giãn, thoái mái vận động, chỉ
175.000đ Xem ngay!
3 quần mặc trong váy phối ren
muachung.vn
Quần ôm bó, tôn dáng gợi cảm, giúp
bạn luôn tự tin và thoải mái, chỉ
99.000đ Mua ngay!
Bạn cần biết
Tuyển nhân sự 2015
HD sử dụng diễn đàn
Nội quy diễn đàn
Thông báo từ diễn đàn
Chú ý trước khi đặt câu hỏi
Cách đặt câu hỏi
/>
8/10
10/2/2015
Trang chủ
Lập trình giao tiếp VB6 với VĐK qua RS232 | Cộng đồng cơ điện tử Việt Nam | Mechatronics
Diễn đàn
Kỹ thuật Máy tính
Công cụ lập trình
VB
Bông tai hạt tròn 1 lớn 1 nhỏ siêu
hot
muachung.vn
Máy mài móng cho thú cưng
30%
muachung.vn
Tour Du lịch Khách sạn Giá RẺ
Đà Lạt
muachung.vn
Bông tai đang được săn lùng với thiết
kế độc đáo, ấn tượng. 65.000đ/ 5
đôi. Sở hữu ngay
Cắt móng cho thú cưng dễ dàng và
nhanh chóng, không tổn thương
móng, chỉ 85.000đ Xem ngay!
Đặt phòng, book tour dễ dàng và
thuận tiện. Chất lượng tuyệt hảo. Ưu
đãi cực lớn.XEM NGAY
Cộng đồng của những người đam mê kỹ thuật, nơi trao đổi, thảo luận, hỏi đáp
những vẫn đề liên quan đến kỹ thuật.
Website thuộc quyền sở hữu của Công ty TNHH Công nghệ FilTechPlus
Chúng tôi không chịu trách nhiệm về nội dung đăng tải của người dùng.
/>
OUR LINKS
THÔNG TIN
Điện tử cơ bản
Thông báo chung
Vi điều khiển
Bản tin công nghệ
CAD/CAM/CNC
HD sử dụng forum
9/10
10/2/2015
Lập trình giao tiếp VB6 với VĐK qua RS232 | Cộng đồng cơ điện tử Việt Nam | Mechatronics
FOLLOW US
Tài liệu điện tử
Thắc mắc Góp ý
Tài liệu cơ khí
Tài nguyên diễn đàn
Share ACC VIP
Liên hệ Quảng cáo
LIÊN KẾT BẠN BÈ
FilTech.com.vn
echipkool.net
vietdesigner.net
Hacking & Security
Máy lọc nước Hải Phòng
diendan.shpt.info
Diễn đàn sử dụng XenForo™ ©2011 XenForo Ltd.
/>
Giao diện PC Tiếng Việt Quy định và Nội quy
10/10
