Xây dựng đoạn mạng truyền thông công nghiệp sử dụng giao thức USS

LỜI CAM ĐOAN Em xin cam đoan công trình nghiên cứu riêng em, không chép từ tài liệu Các số liệu, kết đồ án trung thực chưa công bố công trình khác Sinh viên thực Tạ Duy Khương LỜI CẢM ƠN Đầu tiên, em xin bày tỏ lòng cảm ơn chân thành tới thầy giáo Th.S Vũ Văn Rực hướng dẫn, bảo nhiệt tình, giúp em có hội tiếp xúc với thiết bị thực tế hoàn thành đồ án Em xin cảm ơn tất thầy, cô tổ Bộ môn Điện điện tử viễn thông Trường Đại học Hàng Hải Việt Nam truyền đạt kiến thức suốt thời gian em học trường để em ứng dụng vào đồ án Cuối em xin gửi lời cảm ơn đến bố, mẹ bạn động viên, tạo điều kiện thuận lợi cho em hoàn thành đồ án MỤC LỤC DANH MỤC BẢNG Số bảng Tên bảng Trang Bảng 1.1 Chức chân cổng RS232 kiểu chân 15 Bảng 1.2 Các thông số mặt điện chuẩn RS232 16 Bảng 1.3 Các thông số mặt điện chuẩn RS485 16 Bảng 2.1 Ý nghĩa giá trị thông số P910 18 Bảng 2.2 Các tốc độ truyền thông 19 Bảng 2.3 Ý nghĩa bit điều khiển tin trạm chủ gửi xuống trạm tớ 25 Bảng 2.4 Ý nghĩa bit điều khiển tin trạm tớ gửi trạm chủ 25 Bảng 2.5 Ý nghĩa bit byte STW1 STW2 26 Bảng 2.6 Ý nghĩa bit byte ZSW1 ZSW2 27 Bảng 3.1 Chức chân MAX485 35 Bảng 3.2 Bảng trạng thái điều khiển truyền tin MAX485 36 Bảng 3.3 Bảng trạng thái điều khiển nhận tin MAX485 37 Bảng 3.4 Chức chân LCD 38 DANH MỤC HÌNH VẼ Số hình Tên hình Trang Hình 1.1 Mô hình phân cấp chức mạng công nghiệp Hình 1.2 Truyền bit song song truyền bit nối tiếp Hình 1.3 Các chế độ truyền tải Hình 1.4 Cấu trúc bus Hình 1.5 Cấu trúc mạch vòng tích cực Hình 1.6 Cấu trúc hình Hình 1.7 Mô hình OSI 11 Hình 1.8 Các phương pháp truy nhập bus 13 Hình 1.9 Truyền dẫn chênh lệch không đối xứng đối xứng 14 Hình 1.10 Sơ đồ chân giắc cắm RS232 loại DB - Các đầu nối điều khiển chân đầu nối DB-9 Hình 2.1 bảng điều khiển phía trước cho giao diện RS485 14 20 Hình 2.2 Điện trở mạng sở 21 Hình 2.3 Cấu trúc điện 21 Hình 2.4 Khung truyền ký tự 23 Hình 2.5 Cấu trúc điện trạm chủ gửi xuống trạm tớ 24 Hình 2.6 Cấu trúc điện trạm tớ gửi trạm chủ 24 Hình 2.7 Cấu trúc ADR 24 Hình 2.8 Cấu trúc PKE 25 Hình 3.1 Sơ đồ chân ATMEGA16L 31 Hình 3.2 Mạch điện tối thiểu ATmega16L 32 Hình 3.3 Sơ đồ chân MAX232 33 Hình 3.5 Sơ đồ nguyên lý MAX232 33 Hình 3.6 Sơ đồ ghép nối ATmega16L với RS232 35 Hình 3.7 Sơ đồ chi tiết MAX485 36 Hình 3.8 Sơ đồ nguyên lý IC 74LS257 37 Hình 3.9 Màn hình LCD 16×2 38 Hình 3.10 Ghép nối vi điều khiển với LCD 40 Hình 3.11 Khối nguồn card truyền thông 40 Hình 3.12 Sơ đồ nguyên lý card truyền thông 41 Hình 3.13 Sơ đồ mạch in lớp TOP 42 Hình 3.14 Sơ đồ mạch in lớp BOTTOM 42 Hình 3.15 Bàn thí nghiệm mạng truyền thông 43 Hình 3.16 Biến tần MicroMaster Vecter 43 Hình 3.17 Biến tần MicroMaster ECO 43 Hình 3.18 Mặt trước card truyền thông 44 Hình 3.19 Mặt sau card truyền thông 44 Hình 3.20 Lưu đồ thuật toán hàm ngắt nhận liệu 45 Hình 3.21 Lưu đồ thuật toán điều khiển biến tần 46 Hình 3.22 Form giới thiệu 47 Hình 3.23 Form giao diện điều khiển giám sát 47 Hình 3.24 Form xây dựng tin truyền thông 48 Hình 3.25 Form cài đặt thông số cho biến tần 48 MỞ ĐẦU Tính cấp thiết đề tài Hiện công nghệ bus trường trở thành lĩnh vực kỹ thuật phát triển Mạng truyền thông gần có mặt tất nhà máy, xí nghiệp công nghiệp nhiều dạng, quy mô khác lĩnh vực điều khiển tự động hoá Khi xây dựng giải pháp tự động hoá, vấn đề đưa chọn hệ thống mạng truyền thông để phù hợp với nhu cầu nhiệm vụ ứng dụng cụ thể Do việc tìm hiểu, nghiên cứu lĩnh vực mạng truyền thông công nghiệp trở thành vấn đề cấp thiết Mục đích đề tài Đề tài “ Xây dựng đoạn mạng truyền thông công nghiệp sử dụng giao thức USS” để điều khiển giám sát hệ thống biến tần thuộc dòng MicroMaster hãng Siemen Đối tượng phạm vi nghiên cứu Đối tượng nghiên cứu đề tài dòng biến tần MicroMaster Vecter MicroMaster ECO phòng thí nghiệm môn Điện tự động công nghiệp Trong đề tài em thực việc sử dụng giao thức USS để điều khiển giám sát hoạt động biến tần thông qua máy tính vi điều khiển Phương pháp nghiên cứu khoa học Trước tiên, em nghiên cứu lý thuyết giao thức USS dòng biến tần MicroMaster để hiểu cấu trúc điện, sau xây dựng tổng hợp điện để điều khiển biến tần thông qua giao thức Sau đó, em tiến hành thiết kế card truyền thông xây dựng phần mềm điều khiển Ý nghĩa khoa học thực tiễn đề tài Việc xây dựng mạng truyền thông công nghiệp biến tần giúp việc điều khiển, giám sát hoạt động biến tần thuận lợi Ngoài phát triển thêm để phối hợp hoạt động biến tần mạng để giải toán công nghệ phức tạp thực tế CHƯƠNG TỔNG QUAN VỀ MẠNG TRUYỀN THÔNG CÔNG NGHIỆP 1.1 Mạng truyền thông công nghiệp ? Hiện mạng truyền thông công nghiệp khái niệm chung đưa để hệ thống mạng truyền thông số, truyền bit nối tiếp, sử dụng để ghép nối thiết bị công nghiệp Các mạng truyền thông công nghiệp ngày mở khả liên kết mạng nhiều mức khác từ cảm biến, cấu chấp hành cấp trường máy tính điều khiển máy tính cấp điều hành xí nghiệp quản lý công ty Đặc điểm mạng truyền thông công nghiệp đơn giản, sử dụng dây dẫn chi phí cho việc lắp đặt giá thành đầu tư rẻ Mạng truyền thông công nghiệp có cấu hình linh hoạt, dễ lắp đặt, có khả nâng cao độ xác tăng tính tin cậy Vì lý mà mạng truyền thông công nghiệp phù hợp với nhà máy đại như: hoá dầu, thực phẩm, điện, luyện kim,… 1.2 Vai trò mạng truyền thông công nghiệp Trong thời đại phát triển vũ bão khoa học kỹ thuật, nước ta giai đoạn hội nhập kinh tế quốc tế giải pháp tự động hoá, nâng cao trình độ khoa học công nghệ vấn đề mang tính thời Việc ghép nối thiết bị, truyền nhận thông tin chúng vấn đề hệ thống tự động hoá Việc sử dụng mạng truyền thông công nghiệp đem lại nhiều lợi ích như: + Đơn giản hóa liên kết thiết bị, số lượng lớn thiết bị thuộc chủng loại khác ghép nối với thông qua đường truyền + Tiết kiệm cáp nối dễ dàng việc thiết kế, lắp đặt hệ thống, nhờ có cấu trúc đơn giản mà việc thiết kế hệ thống trở nên dễ dàng nhiều + Nâng cao tính tin cậy, tính xác thông tin, nhờ kỹ thuật truyền thông số mà thông tin truyền bị sai lệch, đồng thời thiết bị nối mạng có thêm khả tự phát lỗi chuẩn đoán lỗi có + Nâng cao độ linh hoạt tính mở hệ thống, hệ thống mạng theo chuẩn quốc tế tạo điều kiện cho việc sử dụng thiết bị nhiều hãng khác Việc thay thiết bị, nâng cấp mở rộng phạm vi chức hệ thống dễ dàng nhiều + Đơn giản hoá việc tham số hoá, chuẩn đoán xác định vị trí xảy lỗi thiết bị Với đường truyền nhất, thiết bị trao đổi liệu trình mà gửi cho liệu tham số, liệu trạng thái, liệu cảnh báo liệu chẩn đoán + Mạng truyền thông công nghiệp sử dụng mở nhiều khả ứng dụng hệ thống Sử dụng mạng truyền thông công nghiệp cho phép áp dụng kiến trúc điều khiển điều khiển phân tán, điều khiển giám sát chuẩn đoán lỗi qua mạng Internet 1.3 Phân loại đặc trưng hệ thống mạng công nghiệp Để phân loại phân tích đặc trưng hệ thống mạng truyền thông công nghiệp ta vào thứ tự phân cấp sau: Quản lý công ty Mạng công ty Điều hành sản xuất Mạng xí nghiệp Điều khiển giám sát Điều khiển Chấp hành Bus hệ thống, Bus trình Bus điều khiển Bus trường, Bus thiết bị Bus cảm biến/chấp hành Hình 1.1 Mô hình phân cấp chức mạng công nghiệp Ta thấy cấp chức mang tính chất hơn, tính tác động nhanh thời gian phản ứng cao Các cấp không thiết phải có thời gian phản ứng nhanh cấp lưu lượng liệu cần truyền thông xử lý lại nhiều nhiều Tương ứng với năm cấp chức bốn cấp hệ thống truyền thông Từ mô hình ta thấy cấp cấp điều khiển giám sát thuật ngữ “bus” thường dùng thay cho “mạng” phần lớn hệ thống mạng phía có cấu trúc vật lý logic kiểu bus Bus trường (Fieldbus): khái niệm dùng ngành công nghiệp chế biến để hệ thống bus nối tiếp sử dụng kỹ thuật truyền tin số để kết nối thiết bị thuộc nhiều cấp điều khiển với với thiết bị cấp chấp hành, thiết bị trường hay cảm biến vào phân tán Một số kiểu bus trường thích hợp nối mạng thiết bị cảm biến cấu chấp hành với điều khiển gọi bus chấp hành/cảm biến Đặc điểm bus trường: + Có tính thời gian thực cao + Thường điều khiển theo chu kỳ vòng kín + Dữ liệu trao đổi lượng thông tin điện thường hạn chế khoảng vài byte + Tốc độ truyền thông thấp (dưới 1Mb/s) + Việc trao đổi thông tin biến trình chủ yếu mang tính chất định kỳ, tuần hoàn Bus hệ thống (System bus): hệ thống mạng công nghiệp dùng để kết nối máy tính điều khiển máy tính cấp điều khiển giám sát gọi bus hệ thống Các trạm kỹ thuật, trạm vận hành trạm chủ trao đổi thông tin qua bus hệ thống Đặc điểm bus hệ thống: + Tốc độ truyền thông tương đối nhanh (khoảng vài Mbit/s) + Tính thời gian thực trung bình + Điều khiển theo chu trình (vòng đáp ứng cỡ vài chục ms) 10 break; case 2: hien_thi_2(); break; } } } Chương trình Visual Basic 6.0 a Chương trình module Option Explicit '******************************************** Public telegram_nhan() As Byte Public telegram_truyen(1 To 14) As Byte Public buffer As Variant '******************************************** Public form_hien_thi As Integer Public time_update As Integer 'STX-> byte 'LGE-> byte 'ADR-> byte 'PKE1 va PKE2-> byte va byte 'IND1 va IND2-> byte va byte 'VAL1 va VAL2-> byte va byte 'STW1 va STW2 -> byte 10 va byte 11 'HSW1 va HSW2-> byte 12 va byte 123 'BCC-> byte 14 Public load As Integer Public COM As Integer Public bien_tan As Integer '******************************************** Public thong_so As Integer Public value_thong_so As Integer '******************************************** Public prm_form7 As Integer Public i As Integer Public j As Integer '******************************************** Public Const Base16 = "0123456789ABCDEF" '******************************************** Public Function Hex2Dec(ByVal strHex As String) As Long Dim i As Long, result As Long, tmp As String For i = To Len(strHex) tmp = UCase(Mid(strHex, i, 1)) result = result + (InStr(1, Base16, tmp) - 1) * (16 ^ (Len(strHex) - i)) Next Hex2Dec = result End Function '******************************************** Public Sub truyen() buffer = telegram_truyen() Form2.MSComm1.Output = buffer End Sub '******************************************** Public Sub nhan() buffer = Form2.MSComm1.Input telegram_nhan() = buffer End Sub '**************************************************************** Public Sub RW_thong_so(ByVal bt As Integer, dai_luong As String, command As String) If dai_luong "" Then Select Case dai_luong Case "U" telegram_truyen(5) = 137 Case "I" telegram_truyen(5) = 132 Case "F" telegram_truyen(5) = 131 Case "N" telegram_truyen(5) = 135 End Select thiet_lap_byte_1 (bt) ElseIf command = "R" Then If thong_so < 255 Then telegram_truyen(4) = 16 'PKE1 telegram_truyen(5) = thong_so 'PKE2 Else telegram_truyen(4) = thong_so \ 256 telegram_truyen(5) = thong_so - telegram_truyen(4) * 256 'PKE2 telegram_truyen(4) = telegram_truyen(4) Or 16 'PKE1 End If telegram_truyen(8) = 'VAL1 telegram_truyen(9) = 'VAL2 thiet_lap_byte_3 (bt) ElseIf command = "W1" Then If thong_so < 255 Then telegram_truyen(4) = 32 'PKE1 telegram_truyen(5) = thong_so 'PKE2 Else telegram_truyen(4) = thong_so \ 256 telegram_truyen(5) = thong_so - telegram_truyen(4) * 256 'PKE2 telegram_truyen(4) = telegram_truyen(4) Or 32 'PKE1 End If telegram_truyen(8) = (value_thong_so * 10) \ 256 'VAL1 telegram_truyen(9) = (value_thong_so * 10) - 256 * telegram_truyen(8) 'VAL2 thiet_lap_byte_3 (bt) ElseIf command = "W2" Then If thong_so < 255 Then telegram_truyen(4) = 32 'PKE1 telegram_truyen(5) = thong_so 'PKE2 Else telegram_truyen(4) = thong_so \ 256 telegram_truyen(5) = thong_so - telegram_truyen(4) * 256 'PKE2 telegram_truyen(4) = telegram_truyen(4) Or 32 'PKE1 End If telegram_truyen(8) = 'VAL1 telegram_truyen(9) = value_thong_so 'VAL2 thiet_lap_byte_3 (bt) End If End Sub '************************************************************* Public Sub on_off(ByVal bt As Integer, command As String, type_off As String) 'On Error GoTo co_loi Dim f_setpoint As Long Select Case command Case "on" telegram_truyen(3) = bt 'ADR If Form2.optLeft(bt).value = True Then telegram_truyen(10) = 20 'STW1->14H ElseIf Form2.optRight(bt).value = True Then telegram_truyen(10) = 12 'STW1->0CH End If telegram_truyen(11) = 127 'STW2->7FH Do While True f_setpoint = Val(InputBox("Tan so dat", "Dat tan so cho bien tan " & Str(bt), 25)) If (IsNumeric(f_setpoint) And f_setpoint 0) Then Exit Do Loop f_setpoint = (f_setpoint * 16384) / (2 ^ 7) telegram_truyen(12) = f_setpoint \ 256 'HSW1 telegram_truyen(13) = f_setpoint - 256 * telegram_truyen(12) 'HSW2 Case "off" telegram_truyen(3) = bt 'ADR 'Select Case type_off telegram_truyen(10) = 12 telegram_truyen(11) = 125 telegram_truyen(12) = 'HSW1 telegram_truyen(13) = 'HSW2 'End Select Case "off_all" telegram_truyen(3) = 32 'ADR telegram_truyen(10) = 12 'STW1 telegram_truyen(11) = 125 'STW2->7DH-> Chon OFF2 telegram_truyen(12) = 'HSW1 telegram_truyen(13) = 'HSW2 Case "on_all" telegram_truyen(3) = 32 'ADR telegram_truyen(10) = 12 'STW1->0CH telegram_truyen(11) = 127 'STW2->7FH telegram_truyen(12) = 10 'HSW1, telegram_truyen(13) = 'HSW2 End Select thiet_lap_byte_2 (bt) End Sub '*************************************************************** Public Sub thiet_lap_byte_1(ByVal bt As Integer) telegram_truyen(1) = 'STX telegram_truyen(2) = 12 'LGE telegram_truyen(3) = bt 'ADR telegram_truyen(4) = 16 'PKE1 telegram_truyen(6) = 'IND1 telegram_truyen(7) = 'IND2 telegram_truyen(8) = 'VAL1 telegram_truyen(9) = 'VAL2 telegram_truyen(10) = '4 'STW1 telegram_truyen(11) = 'STW2 telegram_truyen(12) = 'HSW1 telegram_truyen(13) = 'HSW2 telegram_truyen(14) = 'BCC For i = To 13 telegram_truyen(14) = telegram_truyen(i) Xor telegram_truyen(14) Next End Sub '******************************************** Public Sub thiet_lap_byte_2(ByVal bt As Integer) telegram_truyen(1) = 'STX telegram_truyen(2) = 12 'LGE telegram_truyen(4) = 'PKE1 telegram_truyen(5) = 'PKE2 telegram_truyen(6) = 'IND1 telegram_truyen(7) = 'IND2 telegram_truyen(8) = 'VAL1 telegram_truyen(9) = 'VAL2 telegram_truyen(14) = 'BCC For i = To 13 telegram_truyen(14) = telegram_truyen(i) Xor telegram_truyen(14) Next End Sub '******************************************** Public Sub thiet_lap_byte_3(ByVal bt As Integer) telegram_truyen(1) = 'STX telegram_truyen(2) = 12 'LGE telegram_truyen(3) = bt 'ADR telegram_truyen(6) = 'IND1 telegram_truyen(7) = 'IND2 telegram_truyen(10) = '4 'STW1 telegram_truyen(11) = 'STW2 telegram_truyen(14) = 'BCC For i = To 13 telegram_truyen(14) = telegram_truyen(i) Xor telegram_truyen(14) Next End Sub '******************************************** Public Function kt_bit(ByVal data As Byte, x As Integer) As Boolean If (data And ^ x) = ^ x Then kt_bit = True Else kt_bit = False End If End Function b Chương trình cho Giao diện điều khiển giám sát Option Explicit Dim inv As Integer Dim prm As Integer Private Sub about_Click() Form8.Show End Sub '*************************************************** Private Sub cmdConnect_Click() If (cmdConnect.Caption = "Kết nối" And MSComm1.PortOpen = False) Then Combo1.Locked = True On Error GoTo co_loi With MSComm1 InputMode = comInputModeBinary Settings = "9600,e,8,1" CommPort = Combo1.ListIndex + InputLen = RThreshold = PortOpen = True End With COM = MSComm1.CommPort If MSComm1.PortOpen = True Then cmdConnect.Caption = "Ngắt kết nối" Label47.BackColor = &H80FF80 Label47.Caption = "Đã kết nối với cổng COM" & CStr(COM) End If Call update_speed_Click 'Timer2.Enabled = True inv = prm = ElseIf (cmdConnect.Caption = "Ngắt kết nối" And MSComm1.PortOpen = True) Then Label47.Caption = "Chưa kết nối với cổng COM !" Label47.BackColor = &HC0C0FF Combo1.Locked = False MSComm1.PortOpen = False cmdConnect.Caption = "Kết nối" Timer2.Enabled = False End If Exit Sub co_loi: MsgBox "Khong co cong COM" & CStr(Combo1.ListIndex + 1) & " hoac no dang duoc su dung boi chuong trinh khac" & vbCrLf & "Ban hay chon cong COM khac!" cmdConnect.Caption = "Kết nối" Combo1.Locked = False Label47.Caption = "Chưa kết nối với cổng COM !" Label47.BackColor = &HC0C0FF End Sub '***************************************************** Private Sub cmdStart_all_Click() If MSComm1.PortOpen = False Then MsgBox "Hay ket noi voi mot cong COM truoc !", 32 + vbOKOnly, "Thong bao" Else Timer2.Enabled = False Call on_off(32, "on_all", "") Call truyen 'Timer2.Enabled = True End If End Sub '*************************************************** Private Sub cmdStart_Click(Index As Integer) If MSComm1.PortOpen = False Then MsgBox "Hay ket noi voi mot cong COM truoc !", 32 + vbOKOnly, "Thong bao" Else Timer2.Enabled = False Call on_off(Index, "on", "") Call truyen 'Timer2.Enabled = True cmdStart(Index).Caption = "Đặt tần số" End If End Sub '***************************************************** Private Sub cmdStop_all_Click() If MSComm1.PortOpen = False Then MsgBox "Hay ket noi voi mot cong COM truoc !", 32 + vbOKOnly, "Thong bao" Else Timer2.Enabled = False Call on_off(32, "off_all", "") Call truyen 'Timer2.Enabled = True End If End Sub '*************************************************** Private Sub cmdStop_Click(Index As Integer) If MSComm1.PortOpen = False Then MsgBox "Hay ket noi voi mot cong COM truoc !", 32 + vbOKOnly, "Thong bao" Else Timer2.Enabled = False Call on_off(Index, "off", "") Call truyen 'Timer2.Enabled = True cmdStart(Index).Caption = "Khởi động" End If End Sub '********************************************************** Private Sub cmdThoat_Click() Unload Me End Sub '**************************************************************** Private Sub Form_Load() form_hien_thi = Timer2.Enabled = False th_gi = Time cmdConnect.Caption = "Kết nối" Label47.Caption = "Chưa kết nối với cổng COM !" Label47.BackColor = &HC0C0FF For i = To optLeft(i).value = False optRight(i).value = True Next For i = To Combo1.AddItem "COM" & CStr(i + 1) Next Combo1.ListIndex = End Sub '*********************************************** Private Sub Form_Unload(Cancel As Integer) If MsgBox("Ban co chac muon thoat chuong trinh", 32 + vbYesNo, "Xac nhan thoat chuong trinh") = vbYes Then If MSComm1.PortOpen = True Then MSComm1.PortOpen = False End If End Else Cancel = True End If End Sub '**************************************************** Private Sub lbl_bt_Click(Index As Integer) If Form2.MSComm1.PortOpen = False Then MsgBox "Hay ket noi voi mot cong COM truoc !", 32 + vbOKOnly, "Thong bao" Else bien_tan = Index Form2.Hide Form7.Show End If End Sub '**************************************************** Private Sub make_uss_Click() If Form2.MSComm1.PortOpen = False Then MsgBox "Hay ket noi voi mot cong COM truoc !", 32 + vbOKOnly, "Thong bao" Else Form2.Timer2 = False form_hien_thi = Form2.Hide Form1.Show End If End Sub '**************************************************************** Private Sub MSComm1_OnComm() If (MSComm1.CommEvent = comEvReceive And MSComm1.InBufferCount = 14) Then Call doc_thong_so End If End Sub 'HiÓn thÞ thêi gian Private Sub Timer1_Timer() th_gi = Time End Sub '**************************************************************** Private Sub Timer2_Timer() If prm < Then prm = prm + Else prm = If inv < Then inv = inv + Else inv = End If End If Select Case prm Case Call RW_thong_so(inv, "F", "") Case Call RW_thong_so(inv, "N", "") Case Call RW_thong_so(inv, "I", "") Case Call RW_thong_so(inv, "U", "") End Select Call truyen End Sub Public Sub doc_thong_so() Call nhan If (Timer2.Enabled = True And form_hien_thi = 2) Then Select Case prm Case txtF(inv) = CStr((telegram_nhan(8) * ^ + telegram_nhan(9)) / 10) Case txtN(inv) = CStr(telegram_nhan(8) * ^ + telegram_nhan(9)) If (telegram_nhan(8) * ^ + telegram_nhan(9)) Then shpOn(inv).FillColor = vbRed shpOff(inv).FillColor = QBColor(7) cmdStart(inv).Caption = "Đặt tần số" Else shpOn(inv).FillColor = QBColor(7) shpOff(inv).FillColor = vbRed cmdStart(inv).Caption = "Khởi động" End If Case txtI(inv) = CStr((telegram_nhan(8) * ^ + telegram_nhan(9)) / 10) Case txtU(inv) = CStr((telegram_nhan(8) * ^ + telegram_nhan(9)) / 10) End Select ElseIf (Timer2.Enabled = False And form_hien_thi = 2) Then Timer2.Enabled = True ElseIf form_hien_thi = Then With Form7 If Timer1.Enabled = True Then Select Case prm_form7 Case txtF = CStr((telegram_nhan(8) * ^ + telegram_nhan(9)) / 10) Case txtN = CStr(telegram_nhan(8) * ^ + telegram_nhan(9)) Case txtI = CStr((telegram_nhan(8) * ^ + telegram_nhan(9)) / 10) Case txtU = CStr((telegram_nhan(8) * ^ + telegram_nhan(9)) / 10) End Select Else Timer1.Enabled = True Select Case thong_so Case 1, 6, 9, 77, 910 If Combo2.ListIndex = telegram_nhan(9) Then Combo2.ListIndex = telegram_nhan(9) End If Case 2, 3, 12, 13, 81, 83, 94 txtval = CStr((telegram_nhan(8) * ^ + telegram_nhan(9)) / 10) Case 80, 85 txtval = CStr((telegram_nhan(8) * ^ + telegram_nhan(9)) / 100) Case 82, 84 txtval = CStr((telegram_nhan(8) * ^ + telegram_nhan(9))) End Select End If End With ElseIf form_hien_thi = Then With Form1 For i = To 13 '******************************************************* If i < 13 Then txt_nhan = txt_nhan & telegram_nhan(i) & "_" Else txt_nhan = txt_nhan & telegram_nhan(i) & vbCrLf End If Next End With End If End Sub NHẬN XÉT TÓM TẮT CỦA GIÁO VIÊN HƯỚNG DẪN Tinh thần thái độ, cố gắng sinh viên trình làm luận văn: Đánh giá chất lượng luận văn tốt nghiệp (so với nội dung yêu cầu đề mặt: lý luận, thực tiễn, chất lượng thuyết minh vẽ): Chấm điểm giáo viên hướng dẫn (Điểm ghi số chữ) Hải Phòng, ngày tháng năm 20 Giáo viên hướng dẫn ThS Phạm Thị Hồng Anh ĐÁNH GIÁ CỦA GIÁO VIÊN PHẢN BIỆN Đánh giá chất lượng luận văn tốt nghiệp mặt: thu thập phân tích số liệu ban đầu, sở lý thuyết, vận dụng vào điều kiện cụ thể, chất lượng thuyết minh vẽ, mô hình (nếu có), ý nghĩa khoa học thực tiễn luận văn: Chấm điểm giáo viên phản biện (Điểm ghi số chữ) Hải Phòng, ngày tháng năm 20 Giáo viên phản biện [...]... với những bức điện có độ dài lớn Giao thức USS có thể sử dụng cho hệ thống truyền thông kiểu đa điểm (như phần cứng RS485) hoặc truyền thông kiểu điểm - điểm (như giao diện EIA RS232) Ưu điểm của giao thức USS: + Sử dụng phương pháp truy nhập bus Master/Slave + Chỉ sử dụng một trạm chủ + Sử dụng được tối đa 32 trạm trên một đoạn mạng (bao gồm 1 trạm chủ và 31 trạm tớ) + Giao tiếp đơn giản, dễ thực hiện... hơn tần số đặt 0 Không sử dụng nút Right 1 Có sử dụng nút Right 0 Không sử dụng nút Left 1 Có sử dụng nút Left 10 Frequency at Setpoint 11 ON Right 12 ON Left 13 Không sử dụng 0 Không sử dụng 14 Không sử dụng 0 Không sử dụng 15 Không sử dụng 0 Không sử dụng + HSW: có chiều dài 2 byte, nó chứa tần số đặt mà trạm chủ gửi đến biến tần HSW được chia tỉ lệ theo từng giá trị, giả sử giá trị 16348 (4000H)... kết nối biến tần với card truyền thông cũng như đã cài đặt đầy đủ những thông số cần thiết cho biến tần trong việc truyền thông với máy tính thông qua giao diện USS ta thu được một mạng truyền thông đơn giản Khi đó ta có thể điều khiển và giám sát hoạt động của biến tần một cách dễ dàng thông qua máy tính cá nhân 2.2 Kiến trúc giao thức Giao thức USS cung cấp phương pháp truyền thông tin trên nhiều hệ... trực tiếp bằng việc cài đặt thông số trên bảng điều khiển, ngoài ra biến tần còn có thể được điều khiển từ xa thông qua giao diện nối tiếp RS485 sử dụng giao thức USS bằng cách ghép nối biến tần với máy tính và thiết lập một giao thức chung cho hai thiết bị này Phần sau đây ta sẽ tìm hiểu kỹ hơn về giao thức USS được xây dựng bởi hãng Siemens, đây là một giao thức truyền thông nối tiếp đơn giản, nó... hợp cấu trúc này tương tự cấu trúc bus 1.6 Kiến trúc giao thức 1.6.1 Dịch vụ truyền thông và giao thức Đối với mỗi hệ thống truyền thông, kiến trúc giao thức là nền tảng để việc tìm hiểu các dịch vụ cũng như các hình thức giao tiếp trong hệ thống Một hệ thống truyền thông sẽ cung cấp dịch vụ truyền thông cho các thành viên tham gia trong hệ thống mạng Các dịch vụ đó dùng để thực hiện các trao đổi dữ... phòng của các công ty, nó cung cấp các dịch vụ trao đổi thông tin nội bộ với các khách hàng, ghép nối giữa các cấp quản lý với các xí nghiệp và các cụm công nghệ Đặc điểm của mạng công ty gần giống mạng viễn thông hay một mạng máy tính trên diện rộng, nó có thể ghép nối với các máy in và máy tính phòng ban Dạng mạng sẽ là mạng máy tính, mạng internet Đặc điểm của mạng công ty: + Thường sử dụng mạng Ethernet,... điều kiện truyền thông của các thiết bị điều khiển USS cung cấp phương tiện truyền thông nối tiếp cho hệ thống gồm một trạm chủ và một vài trạm tớ Các bộ điều khiển PLC hoặc PC có thể được sử dụng một cách linh hoạt và thuận tiện trong truyền thông USS Các thiết bị hiển thị và thiết bị tự động hoá cũng có thể được sử dụng với giao thức USS này Nó đảm bảo sự an toàn và tin cậy trong truyền thông cả với... hoạt động 0 Biến tần không có lỗi 1 Biến tần có lỗi 0 Sử dụng trạng thái OFF2 1 Không sử dụng trạng thái OFF2 35 5 OFF3 Available 6 Swicth On Inhibit 0 Sử dụng trạng thái OFF3 1 Không sử dụng trạng thái OFF3 0 Biến tần không cấm bật đầu ra 1 Biến tần cấm bật đầu ra 0 Không sử dụng cảnh báo 1 Có sử dụng cảnh báo 7 Warning 8 Không sử dụng 1 Không sử dụng 9 Control Mode 0 Điều khiển tại chỗ 1 Điều khiển... như các chức năng điều khiển 2.3 Giao diện phần cứng Dòng biến tần MicroMaster cho phép điều khiển từ xa thông qua giao diện nối tiếp RS485 bằng cách sử dụng giao thức USS Để kết nối với biến tần ta có thể sử dụng đầu nối DB-9 của bảng điều khiển ở mặt trước của biến tần hoặc sử dụng các đầu nối điều khiển Chú ý không được sử dụng đầu nối ở chân 24 và 25 nếu có ý định sử dụng đầu nối RS485 trên bảng điều... (confirmation) đã được đáp ứng Giao thức là các quy tắc, thủ tục phải tuân theo trong việc giao tiếp giữa bên cung cấp dịch vụ và bên sử dụng dịch vụ, hay đây chính là ngôn ngữ chung cho các đối tác tham gia truyền thông Giao thức cấp cao gần với người sử dụng thường thực hiện bằng phần mềm Giao thức cấp thấp gần với phần cứng thường được thực hiện trực tiếp bởi các mạch điện tử Một chuẩn giao thức bao gồm các thành