Cài đặt lại tham số kết nối nối Bắt đầu Kiểm tra kết nối với phần cứng - Soạn thảo bản điện ( Tựđộng hoặc nhân công). - Mã dịch bản điện bằng mật ngữ M82. - Nạp bản điện vào EPROM. - Đọc bản điện thành tiếng việt. - Cài đặt các tham số kết nối. - Cài đặt cấu hình cho phần mềm.
Hình 5-4. Lưu đồ thuật toán phần mềm trên máy vi tính Sai Sai
Số hóa bởi Trung tâm Học liệu – Đại học Thái Nguyên http://www.lrc-tnu.edu.vn
Sau đó PC-MORSE sẽ kiểm tra việc kết nối với thiết bị phần cứng, (Bằng cách kiểm tra xem có đƣợc kết nối với cổng COM hay không); Nếu có kết nối PC- MORSE sẽ hiện các MENU để NSD lựa chọn các chức năng khai thác, đồng thời hiện vạch báo kết nối ở góc trên bên phải màn hình máy tính. Nếu không có kết nối PC-MORSE sẽ hiển thị hộp thoại "Cài đặt kết nối với phần cứng", yêu cầu NSD chọn lại các tham số kết nối.
Đoạn mã lệnh VISUAL BASIC dƣới đây sẽ gán các tham số kết nối vào cổng COM, sau đó mở cổng COM. Nếu quá trình mở cổng COM thất bại, chƣơng trình sẽ tự động thông báo và hiện hộp thoại để NSD cài đặt lại các tham số.
'================Khởi động kết nối============================== Load MCOM 'Load hộp thoại kết nối vào bộ nhớ
Dim Sb As String Dim a, B As Integer '---Gán cổng com--- a = Val(Trim(Comp)) MCOM.MSComm1.CommPORT = a '---gán tốc độ--- Sb = Trim(Comsp) '---gán kiểm tra chẵn lẻ--- Sc = Trim(Compa)
If Trim(Sc) = "Even" Then Sb = Trim(Sb) & ", E" If Trim(Sc) = "Odd" Then Sb = Trim(Sb) & ", O" If Trim(Sc) = "None" Then Sb = Trim(Sb) & ", N" If Trim(Sc) = "Mark" Then Sb = Trim(Sb) & ", M" If Trim(Sc) = "Space" Then Sb = Trim(Sb) & ", S"
'---gán số BIT dữ liệu--- Sc = Trim(Comdata)
Số hóa bởi Trung tâm Học liệu – Đại học Thái Nguyên http://www.lrc-tnu.edu.vn
'---gán BIT STOP--- -
Sc = Trim(ComSTOP)
Sb = Trim(Sb) & ", " & Trim(Sc)
MCOM.MSComm1.settings = Trim(Sb)
'---gán hết data trong bộ nhận--- MCOM.MSComm1.InputLen = 0
'---mở thử cổng com--- On Error Resume Next
MCOM.MSComm1.PORTOpen = True
'---nếu bị lỗi không mở đƣợc--- If Err Then
Beep
MCOM.Label6.Caption = "Các thông số sai, hãy chọn lại.." MCOM.Show (1) '----hiện hộp thoại cài đặt lại các tham số-
'---Nếu không bị lỗi thì phát tín hiệu mời phần cứng trả lời--- Else
MCOM.Hide
MCOM.MSComm1.Output = "??????" 'tín hiệu mời phần cứng trả lời. End If
+ MODUL kiểm tra phát báo một báo vụ bất kỳ
Số hóa bởi Trung tâm Học liệu – Đại học Thái Nguyên http://www.lrc-tnu.edu.vn
Để kiểm tra phát báo cho một báo vụ bất kỳ ( Từ MANIP 01 đến MANIP 80) trong giảng đƣờng (Giả sử báo vụ số 10); Đòi hỏi phần mềm trên máy tính phải điều khiển đƣợc thiết bị phần cứng WIN MORSE, điều khiển khối "Chọn MANIP nghe kiểm tra" về vị trí MANIP cần kiểm tra (MANIP số 10). Sau đó thu tín hiệu ấn / nhả của MANIP kiểm tra, giải mã và gửi về máy tính. Giao diện khai báo của NSD trên máy tính nhƣ sau:
Sau khi đã khai báo xong, NSD chọn nút " Bắt đầu kiểm tra"; Thì phần mềm trên máy tính sẽ truyền xuống PIC MASTER một khung dữ liệu, có cấu trúc nhƣ sau: 1 BYTE bắt đầu 1 BYTE ghi chức năng 3 BYTES ghi tốc độ