Giao diện điều khiển và giám sát nhiệt độ khí sấy cần đảm bảo đợc các chức năng đo lờng và điều khiển hệ thống sấy trên máy vi tính. Cụ thể các chức năng bao gồm:
+ Nhận kết quả đo nhiệt độ của vi điều khiển và hiển thị nên giao diện. + Cho phép Đặt nhiệt độ từ bàn phím và đa nhiệt độ đó suống vi điều khiển.
+ Dừng quá trình sấy từ bàn phím.
+ Cho phép hệ thống hoạt động chở lại từ bàn phím. + Tuỳ chọn chế độ sấy, và định thời gian sấy.
Từ các yêu cầu của hệ thống đặt ra chúng tôi tiến hành nghiên cứu và xây dựng đợc giao diện điều khiển và giám sát nhiệt độ nh sau:
Giao diện đợc thiết lập gồm, 13 Label dùng để gi các nhãn và phần văn bản thể hiện trên giao diện. 3 TextBox để hiển thị phần nhiệt độ đặt, nhiệt độ của lò sấy và sai lệch của hai nhiệt độ trớc. 4 CommandButton dùng để điều khiển các chức năng đặt nhiệt độ, cho phép dừng hệ thống, cho hệ thống hoạt động chở lại sau khi dừng và đóng giao diện. 1 bộ Timer để điều khiển thời gian đọc dữ liệu từ cổng com1. 1 MSComm dùng để điều khiển cổng com
Phần mã chơng trình đợc viết cụ thể nh sau: Dim a, b, x, luu
Private Sub Command1_Click() a = CByte(txtDat.Text)
x = Chr(a)
MSComm1.Output = x End Sub
Private Sub Command2_Click() End
End Sub
Private Sub Command3_Click() b = Chr(0)
MSComm1.Output = b End Sub
Private Sub Command4_Click() b = Chr(1)
MSComm1.Output = b End Sub
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2 MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1" MSComm1.InputLen = 0
MSComm1.PortOpen = True End Sub
Private Sub Timer1_Timer() Dim moi, xuat
Dim y As Byte
moi = MSComm1.Input For y = 20 To 150 Step 1 If moi = Chr(y) Then xuat = y Next y If xuat > 10 Then Text2.Text = xuat Text3.Text = (a - xuat) End If End Sub
Chơng 5