tailieunhanh - Kỹ thuật lập trình điều khiển hệ thống part 9

Tham khảo tài liệu 'kỹ thuật lập trình điều khiển hệ thống part 9', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | 328 KỸ THUẬT LẬP TRÌNH ĐIỂU KHIỂN hệ thống R DFMJ Chỉ ra tên file nguồn cẩn ghép vào ứng dụng hay vào thư viện procedure Sender TObject Thủ tục dặt phím thoát begin Close end procedure Sender TObject var Key Char Thù tục phát data khi cố phím dược ấn var s string begin if then nếu đã kết nối thỉ phát data khi có phim dược ấn case Key of 13 if 0 then CR bộ đếm begin s pchar @s 11 length s @Key 1 end else @Key 1 end end procedure Sender TObject DataPtr Pointer DataSize Integer var p pchar s string begin if 0 then s Chương 6. LẬP TRÌNH ĐlỂU KHlÍN hệ TRUYEN tin modem 329 else s p DataPtr while DataSize 0 do begin case PA of 10 vể dầu dòng LF 13 xuống dòng CRJ begin if o 0 then s else s s end 8 là phím Backspace delete s length s 1 else kỵ tự bất kỳ s s PA end dec DataSize inc p end if s 1 then if 0 then s else s end procedure Sender TObject begin Đặt lại 330 KỸ THUẬT LẬP TRÌNH ĐiỂU KHIÊN HỆ THỐNG ApplỵCoiranSettings kết nối if than begin false cấm ấn nút ConnectBtn do đã nối true cho phép ấn nút DisconnectBtn đê san sàng hủy kết nối Connected1 end else Lỗi Error could not connect. Check COM port settings and try end procedure Sender TObject begin Disconnected false true end procedure Sender TObject begin CommPortD river. Comportspeed .

TỪ KHÓA LIÊN QUAN
TÀI LIỆU MỚI ĐĂNG
crossorigin="anonymous">
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.