L Tóm tắt thiết kế
1 Thiết kế giao diện dùng để giao tiếp với máy tính
Chương trình thiết kế giao diện Dim 1 As Integer
Dim n As Integer
Private Sub Form_LoadQ
test = 0 Com.Settings = "9600,N,8,1" Com.CommPort = Ï Com.PortOpen = True Com.InputLen = l1 Com.InputMode = comlnputModeBinary Com.RThreshold = ]
LT0.Caption = "TRƯỜNG ĐẠI HỌC KỸ THUÃT CÔNG NGHỆ HỖ CHÍ MINH" LT1.Caption = "KHOA ĐIỆN - ĐIỆN TỬ" LT1.Caption = "KHOA ĐIỆN - ĐIỆN TỬ"
LT2.Caption = "ĐIÊU KHIÉN THIẾT BỊ AC SỬ DỤNG VI ĐIỀU KHIỂN" LT3.Caption = "GIÁO VIÊN HƯỚNG DẪN : TRÀN VĨNH AN" LT3.Caption = "GIÁO VIÊN HƯỚNG DẪN : TRÀN VĨNH AN"
Lbname.Caption = "TRÂN THỊ THANH PHƯƠNG" ForI= I To 8 ForI= I To 8
LTBI().Caption = "THIẾT BỊ THỨ" & Str() & " OFE"
Next 1
For ¡ = 1 To 8
LTBIA().Caption = "THIẾT BỊ THỨ" & Str0) & " OFF" Next 1 Next 1
LbLCD(1).Caption = "TRUONG DHDL KTCN HCM" LbLCD(2).Caption = "LUAN VAN TOT NGHIEP " LbLCD(2).Caption = "LUAN VAN TOT NGHIEP " LbLCD().Caption = "HD: TRAN VINHAN " LbLCD(4).Caption = "SV: TRAN TT PHUONG" End Sub
If Com.CommBEvent = comEvReceive Then
n = Com.Ïnput Fori= 1 To 8
STBIA@).FHIStyle = n Mod 2 If STBIA().EiIIStyle = 0 Then
LTBIA().Caption "THIẾT BỊ THỨ" & Str) & " ON" Else
LTBIA(i).Caption "THIẾT BỊ THỨ" & Str() & " OFEF" End If n=FIx(n/2) Nexti End If End Sub
Private Sub EXIT_ ClickQ Com.Output = "d" Com.PortOpen = False End End Sub
Private Sub Menu_ ClickQ test = test + l
[ftest = 4 Then
test = ]
End If
Select Case test Case Ì
LBLCD(2).Caption = "THIET BI THU 1 SO2 " LBLCD(3).Caption = "THIẾT BI THU 2 SO3 " LbLCD(4).Caption = "THIET BI THU 3 SO 4 "
Case 2
LbLCD(1).Caption = "THIET BI TU 4 DEN 6" LBLCD(2).Caption = "THIET BI THU 4 SO 2 " LBLCD(3).Caption = "THIẾT BI THU 5 SO 3 " LbLCD(4).Caption = "THIET BI THU 6 SO 4"
Case 3
LbLCD(1).Caption = "THIET BI TU 7DEN 9" LbLCD(2).Caption = "THIẾT BI THU 7 SO 2" LbLCD(G).Caption = "THIET BI THU 8 SO 3 " LbLCD(4).Caption = "LOA SO4” End Select
Com.Output = "A" End Sub
Private Sub SWI_ ClickQ
Select Case test
Case I1
STBI(1).FiIIStyle = 1 - STBI(1).FilStyle If STB1(1).FillStyle = 0 Then If STB1(1).FillStyle = 0 Then
LTBI(1).Caption = "THIẾT BỊ THỨ 1 ON" Else Else
LTBI(1).Caption = "THIẾT BỊ THỨ 1 OFF"
End If Case 2
Iƒ STBI(4).FiIStyle = 0 Then
LTBI(4).Caption = "THIẾT BỊ THỨ 4 ON" Else
LTBI(4).Caption = "THIẾT BỊ THỨ 4 OFF"
End If
Case 3
STBI(7).FillStyle = 1 - STBI(7).FilStyle If£STBI(7).FillStyle = 0 Then
LTBI(7).Caption = "THIẾT BỊ THỨ 7 ON"
Else
LTBI(7).Caption = "THIẾT BỊ THỨ 7 OFF"
End If End Select Com.Output = "B" End Sub
Private Sub SW2_ClickQ
Select Case test
Case ]
STBI(@2).FilStyle = 1 - STBI(2).FilIStyle If£ŠSTBI(2).FiIStyle = 0 Then
LTBI(2).Caption = "THIẾT BỊ THỨ 2 ON"
Else
LTBI(2).Caption = "THIẾT BỊ THỨ 2 OFF"
End If Case 2
STBI(5).FillStyle =1-SŠTBI(S).FilStyle IfSTBI(Š).FillStyle = 0 Then
LTBI(S).Caption = "THIẾT BỊ THỨ 5 ON"
Else
LTBI(S).Caption = "THIẾT BỊ THỨ 5 OFF"
End If Case 3
STBI(8).FiIIStyle = 1 - STBI(8).FillStyle IfSTBI(8).FilIStyle = 0 Then IfSTBI(8).FilIStyle = 0 Then
LTBI(8).Caption = "THIẾT BỊ THỨ § ON" Else Else
LTBI(8).Caption = "THIẾT BỊ THỨ 8 OFF" End If End If End Select Com.Output = "C" End Sub
Private Sub SW3_ ClickQ
Select Case test Case ]
STBI(3).FiIIStyle = I - STBI(3).FilStyle IfSTBI(3).FillStyle = 0 Then
LTBI(3).Caption = "THIẾT BỊ THỨ 3 ON"
Else
LTBI(3).Caption = "THIẾT BỊ THỨ 3 OFF"
End If Case 2
STBI(6).FiIIStyle = 1 - STBI(6).FillStyle IfSTBI(6).FiIStyle = 0 Then
Else
LTBI(6).Caption = "THIẾT BỊ THỨ 6 OFF"
End If End Select Com.Output = "E" End Sub l2. Giao điện Œ HE - ` UIANvaH(ƑO —