Hướng dẫn giao tiếp Serial port sử dụng VB.Net 2008 qua một số ví dụ

Ở đây mình không nhắ lại về cổng nối tiếp của máy tính,cách viết chươngtrình bằng VB hay cách kết nối các phần cứng vào máy tình. Mình chỉ trình bàymột số ví dụ đơn giản dễ hiểu có thể mô phỏng được ngay trên máy tính màkhông cần phải làm phần cứng thông qua một số phần mềm đã đề cập ở trên.Các ví dụ này được mình xây dựng lại hoặc phát triển thêm thông quamột số kiến thức tìm hiểu trên mạng internet. Do kiến thức còn hạn chế nêntrong quá trình thực hiện có điều gì...
Nội dung trích xuất từ tài liệu:
Hướng dẫn giao tiếp Serial port sử dụng VB.Net 2008 qua một số ví dụTUT 1 Sonbui1903 Hướng dẫn giao tiếp Serial port sử dụng VB.Net 2008 qua một số ví dụI: Chuẩn bị1: Mở đầu Ở đây mình không nhắ lại về cổng nối tiếp của máy tính,cách viết chươngtrình bằng VB hay cách kết nối các phần cứng vào máy tình. Mình chỉ trình bàymột số ví dụ đơn giản dễ hiểu có thể mô phỏng được ngay trên máy tính màkhông cần phải làm phần cứng thông qua một số phần mềm đã đề cập ở trên. Các ví dụ này được mình xây dựng lại hoặc phát triển thêm thông quamột số kiến thức tìm hiểu trên mạng internet. Do kiến thức còn hạn chế nêntrong quá trình thực hiện có điều gì chưa vừa lòng hay cần góp ý các bạn có thểliên hệ với mình theo địa chỉ Bùi Văn Sơn Lớp Cơ Điện Tử 2k3, Trường ĐH Công Nghiệp Hà Nội SĐT: 0973928584 – 0979693828 Email: sonbui.haui@gmail.com Y!M: sonbui1903Cảm ơn bạn đã download tài liệu này!2: Các phần mềm mình sử dụng: - Virtual Serial Port Driver - Microsoft Visual Studio 2008 - Proteus 7.7 SP2 - PIC C Compiler 4.107Để downloal các phần mềm này các bạn có thể tìm trên mạng internet . Do vấnđề liên quan đến bản quền nên mình không cung cấp link cho các bạn. Nếu bạnkhông tìm được thì có thề liên hệ mình theo địa chỉ ở trên. Cách cài đặt chắckhông cần phải hướng dẫn. Nếu bạn nào không cài đặt được hoặc cài đặt bị lỗithì có thể liên hệ mình.Trong hướng dẫn mình sử dụng hệ điều hành Windows 7 SP1 . Nếu bạn sử dụnghệ điều hành khác có thể sẽ khác nhau về giao diện , các bạn linh động giúp mìnhnhéChat giữa hai máy tính qua cổng ComTUT 1 Sonbui19033: Tạo cổng Com ảo để mô phỏng cho các ví dụ Các bạn sử dụng phần mềm Virtual Serial Port Driver để tạo hai cổngCom ảo được nối với nhauXem online và tải về clip hướng dẫnỞ đây mình sử dụng Virtual.Serial.Port.Driver.6.9.1.134 và laptop của mìnhkhông có cổng Com vật lý nên số cổng được bắt đầu từ Com 1. Bấm “Add pair”để nối hai cổng với nhauKiểm tra trong drivers của máy tính xem có chưa.Nếu thấy như hình dưới là đượcChat giữa hai máy tính qua cổng ComTUT 1 Sonbui1903Chat giữa hai máy tính qua cổng ComTUT 1 Sonbui1903II: Các ví dụCác câu lệnh sử dụng với Serialport có thể xem tại:http://msdn.microsoft.com/en-us/library/system.io.ports.serialport.aspx#Y30781: Chat giữa hai máy tính sử dụng cổng Com đơn giản1.1: Xây dựng giao diệnMở một dự án mới và kéo thả các công cụ cần thiết trong tool boxClip hướng dẫn 1Clip hướng dẫn chỉnh sửa các đối tượngGiao diện chương trình sau khi làm xongDùng các công cụ trong toolbox tạo giao diện như trênChỉnh các thông số theo bảng sau:Công cụ Name TextForm Form1 Demo Chat qua cổng Com dùng VB- Sonbui.haui@gmail.comComboBox ComboBox 1Button Button 1 Kết nốiButton Button 2 Ngắt kết nốiButton Button 3 GửiLabel Label 1 Chọn CổngLabel Label 2 Trạng thái kết nốiLabel Label 6 Metechvn.comChat giữa hai máy tính qua cổng ComTUT 1 Sonbui1903TextBox1 TextBoxRichTextBox RichTextBox1SerialPort SerialPort11.2: Lập trìnhĐể lập trình cho các đối tượng bạn double click vào các đối tượng1.2.1: Đóng/ mở cổng khi bật hoặc tắt chương trìnhKhi mở chương trìnhPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load If SerialPort1.IsOpen Then SerialPort1.Close() End If Lấy danh sách các cổng có trên máy For i As Integer = 0 ToMy.Computer.Ports.SerialPortNames.Count - 1 ComboBox1.Items.Add(My.Computer.Ports.SerialPortNames(i)) Next Button2.Enabled = False Button3.Enabled = False End SubKhi đòng chương trìnhChat giữa hai máy tính qua cổng ComTUT 1 Sonbui1903Private Sub Form1_FormClosed(ByVal sender As System.Object, ByVal eAs System.Windows.Forms.FormClosedEventArgs) HandlesMyBase.FormClosed If SerialPort1.IsOpen Then ...