Khi NSD khởi động phần mềm PC-MORSE, thì việc đầu tiên là hiện giao diện cho NSD (Hiện MDIFORM). Công việc tiếp theo là đọc các tham số, do NSD đã cài đặt trong lần sử dụng trước đó để gán lại và các biến của chương trình.
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-
Học viên: Hoàng Việt Sơn – K12 KT ĐT – ĐH Kỹ thuật công nghiệp
- Kiểm tra phát báo 1 manip bất kỳ.- Kiểm tra phát báo 4 manip. - Kiểm tra phát báo 4 manip.
- Biên dịch lại kết quả kiểm tra phát báo.- Phát lại tín hiệu Morse kiểm tra đã ghi âm. - Phát lại tín hiệu Morse kiểm tra đã ghi âm.
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ínhSai Sai
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)
Sb = Trim(Sb) & ", " & Trim(Sc)
'---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ỳ
Để 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
Học viên: Hoàng Việt Sơn – K12 KT ĐT – ĐH Kỹ thuật công nghiệp
/ 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 độ