mmmmmxm>s=mmxsaexmơmœaxaxsaa>aasaaơờơờơơơơm
Dim D1 As Integer Dim D2 As Integer Dim D3 As Integer Dim stl As String Dim st2 As String Dim st3 As String Dim sll As String Dim sl2 As String Dim s]3 As String Dim pl As String Dim p2 As String Dim p3 As String
Private Sub btExit_ClickQ) Dim dapung As Integer dapung = MsgBox("Do You Want To Exit", 36, "Exit Window") If dapung = 6 Then
End MSComm1.PortOpen = False Timer1.Enabled = False End If
End Sub Private Sub Command1_Click()
Form2.Show Form1.Hide End Sub
Private Sub Command2_ClickQ) HScroll1.Value = 0
HScroll2. Value = 0 HScroll3. Value = 0 Option2.Value = True Option4. Value = True Option6. Value = True
Text9 = "O01"
sll = Text9 Text10 = "002"
sl2 = Textl0 Textl1 = "003"
a nnnnnnn=nnaĩaĩẵăẫăa
SVTH : PHẠM TRUNG HIỂU Trang 79
Luận án Tốt Nghiệp - - :
DIEU KHIỂN TB ĐIỆN QUA MẠNG VĐK GVHD : NGUYEN VIEN QUOC
Oe sl3 = Textll
Text2 = 0 Text3 =0 Text4 = 0 Text7 = 0 Text12 = 0 Text13 = 0 Label8 = 0 Label10 = 0 Label12 =0 Check1.Value = 0 Check2.Value = 0 Check3.Value = 0 Check4.Value = 0 Check5.Value = 0 Check6.Value = 0 Check7.Value = 0 Check8.Value = 0 Check9.Value = 0 Check10.Value = 0 Check11.Value = 0 Check12.Value = 0 Check13.Value = 0 Check14.Value = 0 Check15.Value = 0 Check16. Value = 0 Check17.Value = 0 Check18.Value = 0 Check19.Value = 0 Check20. Value = 0 Check21.Value = 0 Check22.Value = 0 Check23.Value = 0 Check24. Value = 0 End Sub
Private Sub Command3_Click() If Len(Text9.Text) = 0 Then sll = "000" & Text9.Text If (Len(Text9.Text) > 0 And Len(Text9.Text) < 2) Then sl] = "00" & Text9.Text
na
SVTH : PHẠM TRUNG HIẾU Trang 80
Luận án Tốt Nghiệp - - :
DIEU KHIỂN TB ĐIỆN QUA MẠNG VĐK GVHD : NGUYÊN VIÊN QUỐC
a
If Len(Text9.Text) = 2 Then sll = "0" & Text9.Text If Len(Text9.Text) > 2 Then sll = Text9.Text
End Sub
Private Sub Command4_ClickQ) If Len(Text10.Text) = 0 Then sl2 = "000" & Text10.Text If (Len(Text10.Text) > 0 And Len(Text10.Text) < 2) Then s12 = "00" &
Text10.Text If Len(Text10.Text) = 2 Then sl2 = "0" & Text10.Text If Len(Text10.Text) > 2 Then sl2 = Text10.Text
End Sub
Private Sub Command5_ClickQ If Len(Text11.Text) = 0 Then sl3 = "000" & Textl1.Text If (Len(Text11.Text) > 0 And Len(Text11.Text) < 2) Then s13 = "00" &
Textl1.Text If Len(Text11.Text) = 2 Then sl]3 = "0" & Text11.Text If Len(Text11.Text) > 2 Then sl3 = Text11.Text
End Sub
Private Sub Command6_ClickQ) If (Text7 <= 100) And (Option1.Value = True) Then pl = (Text7 * 255) / 100
HScroll1.Value = Round(p1, 1) End If
End Sub
Private Sub Command7_Click() If (Text12 <= 100) And (Option3.Value = True) Then p2 = (Text12 * 255) / 100
HScroll2. Value = Round(p2, 1) End If
End Sub
Private Sub Command8_ClickQ If (Text13 <= 100) And (OptionS. Value = True) Then p3 = (Text13 * 255) / 100
HScroll3.Value = Round(p3, 1) End If
End Sub
a
SVTH : PHAM TRUNG HIEU Trang 81
Luận án Tốt Nghiệp - - -
DIEU KHIỂN TB ĐIỆN QUA MẠNG VĐK GVHD : NGUYÊN VIÊN QUỐC
a
Private Sub Form_LoadQ If MSComm1.PortOpen = True Then MSComm1.PortOpen = False MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 0 MSComm1.PortOpen = True Timer! .Interval = 100
Timer1.Enabled = True Timer2.Interval = 100 Timer2.Enabled = True Timer3.Interval = 100 Timer3.Enabled = True Timer4.Interval = 100 Timer4.Enabled = True Timer5.Interval = 500 Timer5.Enabled = True
HScroll1.Value = 0 HScroll2.Value = 0 HScroll3. Value = 0 Option2. Value = True Option4. Value = True Option6. Value = True sll = Text9
s12 = Text10 si3 = Text11 End Sub
Private Sub Timer1_Timer() If Option!. Value = True Then
Text2 = HScroll1.Value Label8 = Round((Text2 * 100) / 255, 0) If Len(Text2.Text) = 0 Then st! = "000" & Text2.Text If (Len(Text2.Text) > 0 And Len(Text2.Text) < 2) Then stl = "00" &
Text2.Text If Len(Text2.Text) = 2 Then st] = "0" & Text2.Text If Len(Text2.Text) > 2 Then stl = Text2.Text
End If
a
SVTH : PHAM TRUNG HIEU Trang 82
Luận án Tốt Nghiệp - - .
DIEU KHIEN TB DIEN QUA MANG VDK GVHD : NGUYEN VIEN QUOC
me
If Option2. Value = True Then
stl = D1 If Len(stl) = 0 Then stl = "000" & stl
If (Len(st1) > 0) And (Len(st1) < 2) Then stl = "00" & stl If Len(st1) = 2 Then stl = "0" & stl
If Len(st1) > 2 Then sti = stl End If
End Sub
Private Sub Timer2_Timer() If Option3. Value = True Then
Text3.Text = HScroll2.Value Label10 = Round((Text3 * 100) / 255, 0) If Len(Text3.Text) = 0 Then st2 = "000" & Text3.Text If (Len(Text3.Text) > 0 And Len(Text3.Text) < 2) Then st2 = "00" &
Text3.Text If Len(Text3.Text) = 2 Then st2 = "0" & Text3.Text If Len(Text3.Text) > 2 Then st2 = Text3.Text
End If If Option4. Value = True Then
st2 = D2 If Len(st2) = 0 Then st2 = "000" & st2 If (Len(st2) > 0) And (Len(st2) < 2) Then st2 = "00" & st2 If Len(st2) = 2 Then st2 = "0" & st2
If Len(st2) > 2 Then st2 = st2 End If
End Sub
Private Sub Timer3_Timer() If OptionS. Value = True Then
Text4 = HScroll3. Value Label12 = Round((Text4 * 100) / 255, 0) If Len(Text4.Text) = 0 Then st3 = "000" & Text4.Text If (Len(Text4.Text) > 0 And Len(Text4.Text) < 2) Then st3 = "00" &
Text4.Text If Len(Text4.Text) = 2 Then st3 = "0" & Text4.Text If Len(Text4.Text) > 2 Then st3 = Text4.Text
End If
Oe
SVTH : PHAM TRUNG HIEU Trang 83
Luận án Tốt Nghiệp - - :
DIEU KHIỂN TB ĐIỆN QUA MẠNG VĐK GVHD : NGUYỄN VIÊN QUÔC
If Option6.Value = True Then st3 = D3
If Len(st3) = 0 Then st3 = "000" & st3 If (Len(st3) > 0) And (Len(st3) < 2) Then st3 = "00" & st3 If Len(st3) = 2 Then st3 = "0" & st3
If Len(st3) > 2 Then st3 = st3
End If End Sub
Private Sub Timer4_Timer() D1=0
If Check1.Value = 1 Then D1 =D1 +1 If Check2. Value = 1 Then D1 =D1 +2 If Check3.Value = 1 Then D1 =D1+4 If Check4. Value = 1 Then D1 = D1 +8 If Check5.Value = 1 Then D1 = D1 + 16 If Check6.Value = 1 Then D1 = D1 + 32 If Check7. Value = 1 Then D1 = D1 + 64 If Check8. Value = 1 Then D1 = D1 + 128
D2=0 If Check9.Value = 1 Then D2 = D2 + 1 If Check10.Value = 1 Then D2 = D2 +2 If Check11.Value = 1 Then D2 = D2 + 4 If Check12.Value = 1 Then D2 = D2 + 8 If Check13.Value = 1 Then D2 = D2 + 16 If Check14.Value = 1 Then D2 = D2 + 32 If Check15.Value = 1 Then D2 = D2 + 64 If Check16.Value = 1 Then D2 = D2 + 128
D3 =0 If Check17.Value = 1 Then D3 = D3 + 1 If Check18.Value = 1 Then D3 = D3 + 2 If Check19.Value = 1 Then D3 = D3 +4 If Check20. Value = 1 Then D3 = D3 + 8 If Check21.Value = 1 Then D3 = D3 + 16 If Check22.Value = 1 Then D3 = D3 + 32 If Check23.Value = 1 Then D3 = D3 + 64 If Check24.Value = 1 Then D3 = D3 + 128
SVTH : PHAM TRUNG HIEU Trang 84
Luận án Tốt Nghiệp ĐIỀU KHIỂN TB ĐIỆN QUA MẠNG VĐK
End Sub
Private Sub Timer5_Timer() MSComm1.Output = "@" + sll + stl + Chr$(13) 'Textl.Text = "@" + sll + stl + Chr$(13)
MSComm1.Output = "@" + sl2 + st2 + Chr$(13) 'Text5.Text = "@" + sl2 + st2 + Chr$(13)
MSComm1.Output = "@" + sI3 + st3 + Chr$(13) 'Text6.Text = "@" + sl3 + st3 + Chr$(13)
Text8.Text= Date &" "& Time End Sub
SVTH : PHẠM TRUNG HIỂU Trang 85
GVHD: NGUYEN VIEN QUỐC
Luận án Tốt Nghiệp - - :
ĐIỀU KHIỂN TB ĐIỆN QUA MẠNG VĐK GVHD : NGUYEN VIEN QUOC
B. GIỚI THIỆU LINH KIỆN.
I. AT89C51
U19
` P0.0/ADO P2.0/A8 -2—n VJ
Soe PHẾ E89) a3 B roc
=8... ma da 38 na (ADI)
ỉ—Š5-| P0.8/AD6 P2.8/A14 | 2g— F1,2 LỊ $3 38 E1 P0.1 (ADI) CH= Po.7/AD? P2.7/A16 [Ƒ TH P1.5L] 4 37 E1 P0.2 (ADZ2)
OP] ero paar Fi P1.4 L| 5 36 E1 P0.3 (AD3) D—jjrt2 psig ys P1.6 LÍ 6 35H P0.4 (AD4) OE] era PsamLirP P16] 7 34 1 POS (ADS) Ðj|Pte PsoNRLiỆEG Pi.7r| 8 33 E1 P0.6 (AD®)
"1... RST L] 9 32 HE P07 (AD7)
Œ— ` }XTAL2 PpsENL2—n (RXD) FP3.0 LÌỊ 10 31 EA/VPFF
D~$ÿ | EAvpp (TXD) P3.1 Cf 11 so E ALE/PROG
(INTử).P3.2 LÍ 12 99 PSEN
AT89C51 (TNT1)P3.3 LỊ 135 281 P2.7 (A15)
(To) P3.4 LÍ 14 27 EIP2,6 (A14) (T1)P3.5 DỊ 15 2610 P2.5 (A13}
(WH)P3.6 LỊ 16 25T1P2.4 (A12) (RB)P3.7 LỊ 17 24H P2.3 (A11)