2. 3.1 Tìm hiểu về chuẩn RS232 trên các cổng kết nối (cổng com) của máy vi tính
5.1.Thiết kế giao diện
- Khởi động chương trình VB6.0
+ MenuBar : các trình đơn của VB.
+ Toolbar : một số chức năng cơ bản của chương trình. + Toolbox: chứa các điều khiển (Control) thơng dụng.
+ Project Explorer: hiển thị các thành phần của ứng dụng đang thực hiện.
+ Properties Window: cửa sổ hiển thị các đặc tính (Properties) thiết kế của các điều khiển.
+ Form Layout Window: xem trước hoặc thay đổi vị trí Form khi thực thi ứng dụng + Workspace: vùng làm việc của chương trình…
- Tiến hành thiết kế giao diện cho chương trình:
+ Thiết kế Form1: Form 1 là biểu mẫu hiển thị các thơng tin vềđề tài như tên
đề tài, người thực hiện, giáo viên hướng dẫn…Form 1 cĩ 2 nút nhấn CommandButon “Continue” và “Exit” để thi hành lện tiếp tục hay thốt khỏi chương trình.
• Dùng nhãn (Label) để tạo các hiển thị chuỗi trên biểu mẫu như tên đề tài, sinh viên thực hiện, giáo viên hướng dẫn…
• Tạo CommandButton “Continue” để thực hiện lệnh tiếp tục chuyển tới Form tiếp theo. Chương trình cho Button “Continue”:
Private Sub CmdCont_Click() Form1.Visible = False
End Sub
• Tạo CommandButton “Exit” đễ thực hiện lệnh thốt khỏi chương trình. Chương trình cho Buton “Exit”
Private Sub cmdExit1_Click() Unload Form1
End Sub
• Dùng 1 Timer để chạy dịng chữ “Hệ thống báo giá trên LCD” từ trái qua phải:
Private Sub Timer1_Timer() ' chu chay phai qua trai
If Label12.Left >= -Me.Width Then Label12.Left = Label12.Left - 15 Else
Label12.Left = Me.Width End If
End Sub
+ Thiết kế Form 2: Form 2 cho phép người dùng nhập các dữ liệu về tên và giá của từng loại sản phẩm. Và xuất các dữ liệu ấy xuống cho vi điều khiển.
• Dùng Texbox để tạo 10 ơ nhập dữ liệu về tên và giá các sản phẩm.
• Dùng CommandButon để tạo 2 Button “Send” và “Exit”. Button “Send” cĩ chức năng gửi các dữ liệu trong 10 ơ TextBox xuống cho vi điều khiển. Button
“Exit” để thốt chương trình. Chương trình cho Button “Send”:
Private Sub cmdSend_Click()
MSComm1.Output = "!" & Text1.Text & "#" MSComm1.Output = "!" & Text2.Text & "#" MSComm1.Output = "!" & Text3.Text & "#" MSComm1.Output = "!" & Text4.Text & "#" MSComm1.Output = "!" & Text5.Text & "#" MSComm1.Output = "!" & Text6.Text & "#" MSComm1.Output = "!" & Text7.Text & "#" MSComm1.Output = "!" & Text8.Text & "#" MSComm1.Output = "!" & Text9.Text & "#" MSComm1.Output = "!" & Text10.Text & "#" End Sub
Chương trình cho Button “Exit”:
Private Sub cmdExit_Click() tt:
Dim vu As Integer
vu = MsgBox("Are you sure you want exit program ? If you argee click OK", 1, "Device Control") (adsbygoogle = window.adsbygoogle || []).push({});
If vu = 1 Then MSComm1.PortOpen = False End Else Cancel = True End If End Sub
- Thiết kế Form 3: Form này để hiển thị hình ảnh vị trí đặt các màn hình LCD để
Click Button “Continue”
Click Button “View”:
Click Button “Cancel” để trở lại Form 2.
Click “OK” nếu đồng ý thốt hoặc ngược lại Click “Cancel”.