Chương 3: CHƯƠNG TRèNH ĐIỀU KHIỂN
3.2 Chương trỡnh cho mỏy tớnh
Dựng Visual basic Giao diện chương trỡnh: 1) Giao diện chớnh:
3)Code
Dim x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16 As Double Dim ashut_mn As Single
Dim asday_mn1 As Single Dim ndhoi_mn1 As Single Dim asday_mn2 As Single Dim ndhoi_mn2 As Single Dim asvan_1c As Single Dim asbinh_ngung As Single Dim ndbinh_ngung As Single Dim asbinh_chua As Single Dim asbay_hoi As Single Dim ndkho_lanh As Single Dim asdau_mn2 As Single Dim dd_maynen1 As Single Dim asdau_mn1 As Single Dim dd_maynen2 As Single Private Sub Command1_Click() GSmaynen.Show ViTriGS.Hide PcuahutMN.Hide binhngung.Hide binhchua.Hide Pbayhoi.Hide
Nhietdokholanh.Hide MoichatlanhMN1.Hide MoichatlanhMN2.Hide End Sub
Private Sub Command1_GotFocus() Label1.Visible = True
End Sub
Private Sub Command10_Click() ViTriGS.Hide MoichatlanhMN2.Show PcuahutMN.Hide ViTriGS.Hide GSmaynen.Hide binhngung.Hide binhchua.Hide Pbayhoi.Hide Nhietdokholanh.Hide MoichatlanhMN1.Hide End Sub
Private Sub Command2_Click() PcuahutMN.Show ViTriGS.Hide GSmaynen.Hide binhngung.Hide binhchua.Hide Pbayhoi.Hide Nhietdokholanh.Hide MoichatlanhMN1.Hide MoichatlanhMN2.Hide End Sub
Private Sub Command3_Click() MSComm1.PortOpen = False End
End Sub
binhngung.Show ViTriGS.Hide PcuahutMN.Hide GSmaynen.Hide binhchua.Hide Pbayhoi.Hide Nhietdokholanh.Hide MoichatlanhMN1.Hide MoichatlanhMN2.Hide End Sub
Private Sub Command5_Click() binhchua.Show binhngung.Hide ViTriGS.Hide PcuahutMN.Hide GSmaynen.Hide Pbayhoi.Hide Nhietdokholanh.Hide MoichatlanhMN1.Hide MoichatlanhMN2.Hide End Sub
Private Sub Command6_Click() Pbayhoi.Show binhchua.Hide binhngung.Hide ViTriGS.Hide PcuahutMN.Hide GSmaynen.Hide Nhietdokholanh.Hide MoichatlanhMN1.Hide MoichatlanhMN2.Hide End Sub
Private Sub Command8_Click() Nhietdokholanh.Show
Pbayhoi.Hide binhchua.Hide binhngung.Hide ViTriGS.Hide
PcuahutMN.Hide GSmaynen.Hide
MoichatlanhMN1.Hide MoichatlanhMN2.Hide End Sub
Private Sub Command9_Click() MoichatlanhMN1.Show Nhietdokholanh.Hide Pbayhoi.Hide binhchua.Hide binhngung.Hide ViTriGS.Hide PcuahutMN.Hide GSmaynen.Hide MoichatlanhMN2.Hide End Sub
Private Sub Form_Load() MSComm1.CommPort = 1 MSComm1.Settings = "9600,n,8,1" MSComm1.InputLen = 0 MSComm1.PortOpen = True MSComm1.RThreshold = 1 Label1.Visible = False End Sub
Private Sub Label1_Click() Caidat.Show
Me.Hide End Sub
Private Sub Label2_Click() MHC.Show
Me.Hide End Sub
Private Sub Label3_Click() Me.Hide
End Sub
Private Sub MSComm1_OnComm() Dim dem As String
Dim nhan As String Dim kiemtra As Integer
If MSComm1.CommEvent = comEvReceive Then dem = MSComm1.Input
If Asc(dem) = 255 Then bantin1 = True If bantin1 = True Then
nhan = nhan & dem
kiemtra = kiemtra Xor Val(dem) If Len(nhan) = 18 Then
bcc = Asc(Mid(nhan, 18, 1))
If bcc = kiemtra Then 'ban tin ko co loi
x1 = Asc(Mid(nhan, 2, 1)) * 16 + Asc(Mid(nhan, 3, 1)) ashut_mn = 40 * x2 / 255 - 100 ' ap suat hut cua may nen
x2 = Asc(Mid(nhan, 4, 1)) * 16 + Asc(Mid(nhan, 5, 1)) asday_mn1 = 40 * x2 / 255 - 100 ' ap suat cua day may nen 1
x3 = Asc(mmid(nhan, 6, 1)) * 16 + Asc(Mid(nhan, 7, 1))
ndhoi_mn1 = 40 * x2 / 255 - 100 'nhiet do hoi moi chat lanh cua day may nen 1
x4 = Asc(Mid(nhan, 8, 1)) * 16 + Asc(Mid(nhan, 9, 1)) asday_mn2 = 40 * x2 / 255 - 100 'ap suat cua day may nen 2
x5 = Asc(Mid(nhan, 10, 1)) * 16 + Asc(Mid(nhan, 11, 1))
ndhoi_mn2 = 40 * x2 / 255 - 100 'nhiet do hoi moi chat lanh cua day may nen 2
x6 = Asc(Mid(nhan, 12, 1)) * 16 + Asc(Mid(nhan, 13, 1))
asvan_1c = 40 * x2 / 255 - 100 'ap suat hoi moi chat lanh sau van mot chieu
x7 = Asc(Mid(nhan, 14, 1)) * 16 + Asc(Mid(nhan, 15, 1)) asbinh_ngung = 40 * x2 / 255 - 100 'ap suat binh ngung
x8 = Asc(Mid(nhan, 16, 1)) * 16 + Asc(Mid(nhan, 17, 1)) ndbinh_ngung = 40 * x2 / 255 - 100 'nhiet do binh ngung End If
nhan = "" kiemtra = 0 End If End If
If Asc(dem) = 200 Then bantin2 = True If bantin2 = True Then
nhan = nhan & dem
kiemtra = kiemtra Xor Val(dem) If Len(nhan) = 20 Then
bcc = Asc(Mid(nhan, 20, 1))
If bcc = kiemtra Then 'ban tin ko co loi
x9 = Asc(Mid(nhan, 2, 1)) * 16 + Asc(Mid(nhan, 3, 1)) asbinh_chua = 40 * x2 / 255 - 100 'ap suat binh chua
x10 = Asc(Mid(nhan, 4, 1)) * 16 + Asc(Mid(nhan, 5, 1)) 'muc binh chua
x11 = Asc(Mid(nhan, 6, 1)) * 16 + Asc(Mid(nhan, 7, 1)) asbay_hoi = 40 * x2 / 255 - 100 'ap suat bay hoi
x12 = Asc(Mid(nhan, 8, 1)) * 16 + Asc(Mid(nhan, 9, 1)) ndkho_lanh = 40 * x2 / 255 - 100 'nhiet do kho lanh
x13 = Asc(Mid(nhan, 10, 1)) * 16 + Asc(Mid(nhan, 11, 1)) asdau_mn1 = 40 * x2 / 255 - 100 'ap suat dau boi tron may nen 1
x14 = Asc(Mid(nhan, 12, 1)) * 16 + Asc(Mid(nhan, 13, 1))
dd_maynen1 = 40 * x2 / 255 - 100 'dong dien dong co lai may nen 1
x15 = Asc(Mid(nhan, 14, 1)) * 16 + Asc(Mid(nhan, 15, 1)) asdau_mn1 = 40 * x2 / 255 - 100 'ap suat dau boi tron may nen 2
x16 = Asc(Mid(nhan, 16, 1)) * 16 + Asc(Mid(nhan, 17, 1))
dd_maynen2 = 40 * x2 / 255 - 100 'dong dien dong co lai may nen 2 x17 = Asc(Mid(nhan, 18, 1)) x18 = Asc(Mid(nhan, 19, 1)) End If nhan = "" kiemtra = 0
End If End If End Sub
KẾT LUẬN
Với phần em đĩ trỡnh bày ở trờn đĩ giải quyết được một số vần đề như: nghiờn cứu tổng quan về hệ thống lạnh trong cụng nghiệp, xõy dựng phần cứng và viết chương trỡnh điều khiển trờn vi điều khiển AT89C51, thiết lập giao diện giao tiếp giữa người và mỏy trờn mỏy vi tớnh dựng phần mềm VB. Nhưng cũng khụng thể trỏnh khỏi những vấn đề mà em chưa giải quyết được như: bài làm mới chỉ dựng lại ở mức độ lý thuyết chưa cú mạch thật để kiếm chứng tớnh đỳng đắn của hệ thống giỏm sỏt.