- Sản lượng gạch mộc qua tráng men (viên/ ca)
4. Ngô Diên Tập (2000), Kỹ thuật ghép nối máy tính, Nhà xuất bản Khoa học kỹ thuật, Hà nội.
Khoa học kỹ thuật, Hà nội.
4. Ngô Diên Tập (2000), Kỹ thuật ghép nối máy tính, Nhà xuất bản Khoahọc kỹ thuật, Hà nội. học kỹ thuật, Hà nội.
Tiếng Anh
1. Allen Bradley, Ethernet - Controlnet - DeviceNet, wvvw.ab.cQm
2. OMRON, SYSMAC, www.omron.com
3. AS - Interface, www.as-interface.com
4. Siemens, The SIMATIC S5 – 100U 5. Siemens, SIMATIC HMI
6. Siemens, SIMATIC Net Industrial Communication conection 7. Siemes, WinCC V 6.0 sp3 Getting Started
8. Siemes, WinCC V 6.0 Communication Manual
-99-
PHỤ LỤC
Các chương trình viết trong Global Script sử dụng Visual Basic
•Chương trình nút Password viết
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal X, ByVal y) Dim ps
ps = InputBox( "Enter pass word "/’Enter password","Enter password") Ifps ="111111" Then Dim cmciButton
Set cmdButton = ScreenItems("btnStart") cmdButton.Enabled =True
Else
MsgBox " Nhap sai password" End If End Sub
•Chương trình nút Khai báo mức truy nhập
Sub OnLButtonDown(ByVal Item, ByVal Flags, By Val X, ByVal y) Dim PS1
PSl=InputBox(" Enter Password", "Password","******") IfPSl ="222222" Then Dim cmdButton
Set cmdButton = ScreenltemsO'btnStart") cmdButton.Enabled =True
Set cmdButton = ScreenItems("btoStOD") cmdButton.Enabled =True
Set cmdButton = ScreenltemsC'btnNghienlieu") cmdButton.Enabled =True
Set cmdButton = ScreenItems("btnBeholieu") cmdButton.Enabled =True
Set cmdButton = ScreenItems("btnSayphun") cmdButton.Enabled =True
Set cmdButton = ScreenItems("btnSilo")
-100-
cmdButton.Enabled =True
Set cmdButton = ScreenItems("btnMayep") cmdButton.Enabled =True
Set cmdButton = ScreenItems("btnSaydung") cmdButton. Enabled =True
Set cmdButton = ScreenItems("btnSaytuynel") cmdButton.Enabled =True
Set cmdButton = ScreenItems("btnLonung") cmdButton.Enabled =True
Set cmdButton = ScreenItems("btnPhanloai") cmdButton.Enabled =True
Elseif PS1 ="333333" Then
Set cmdButton = ScreenItems("btnNghienlieu") cmdButton.Enabled =True
Set cmdButton = ScreenItems("btnBeholieu") cmdButton.Enabled =True
Set cmdButton = ScreenItems("btnSayphun") cmdButton.Enabled =True
Set cmdButton = ScreenItems("btnSilo") cmdButton.Enabled =True
Set cmdButton = ScreenItems("btnMayep") cmdButton.Enabled =True
Elseif PS1 ="444444" Then
Set cmdButton = ScreenItems("btnSaydung") cmdButton.Enabled =Trae
Set cmdButton = ScreenItems,("btnSaytuynel") cmdButton.Enabled =True
-101-
cmdButton.Enabled =True
Set cmdButton = ScreenItems("btnPhanloai") cmdButton.Enabled =True
Else
MsgBox " Password khong co hieu luc" End If
End Sub
•Chương trình viết cho nút Start/Running Sub OnClick(Byval Item)
Dim vi Dim v2 Dim v3 Dim v4 Dim v5 Dim v6 Dim start Dim stopl Dim holieu_swl Dim holieu_sw2 Dim swl_l Dim swl_2 Dim sw2_l Dim sw2_2 Dim sw3_l Dim sw3_2 Dim sw4_l Dim sw4_2 Dim si!o_nhap Dim silo_chuyen