tailieunhanh - Giáo trình Turbo Pascal 7.0 - Lý thuyết, bài tập và lời giải part 4

Tham khảo tài liệu 'giáo trình turbo pascal - lý thuyết, bài tập và lời giải part 4', 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ả | TS. Bùi Thế Tâm 60 Giáo trình Turbo Pascal TextMode Lo LastMode Font8x8 LastCol Lo WindMax 1 LastRow Hi WindMax 1 GoToXYfl LastRow TextBackground Black Textcolor White Write Ins-InsLine Del-DelLine 27 24 25 261-Cursor Alt-W-Window Alt-R-Random Esc-Exit Dec LastRow 80 div LastCol Randomize end procedure MakeWindow var X Y Width Height Word begin Width Random LastCol-2 2 Height Random LastRow-2 2 X Random Lasted-Width 1 Y Random LastRow-Height 1 Window X Y x width Y Height if OrigMode Mono then begin TextBackground White Textcolor Black ClrScr Window X l Y l X Width-1 Y Height-1 TextBackground Black Textcolor White ClrScr end else begin TextBackground Random 8 Textcolor Random 7 9 end ClrScr end procedure RandomText begin repeat Write Chr Random 256-32 32 until KeyPressed end begin Initialize MakeWindow Done False repeat Ch ReadKey case Ch of 0 begin Ch ReadKey case Ch of 17 MakeWindow Alt-W 19 RandomText Alt-R 45 Done True Alt-X 72 GotoXY WhereX WhereY-l Up 75 GotoXY WhereX-1 WhereY Left 77 GotoXY WhereX 1 WhereY Right 80 GotoXY WhereX WhereY l Down 82 InsLine Ins 83 DelLme end end Del 3 Done True Ctrl-C 13 WriteLn Enter 27 Done True else Write Ch end until Done TextMode OrigMode end. Esc Bien CheckBreak boolean thuộc unit Crt dùng đổ dicu khiến việc dừng chương trình. Khi CheckBreak True ta có thể dừng chương trình bất kỳ lúc nào bằng cách ấn Ctrl Break khi ChcckBreak False thì bỏ khả năng này. TS. Bùi Thế Tâm 61 Giáo trình Turbo Pascal 3. Tạo âm thanh Các hàm và tliú tục đe lạo ảtn thanh Thủ tục Sound n word làm cho loa phát ra một âm thanh có tần sô là n Hertz cho đến khi gặp thú tục Nosound. Thú tục Nosơund tắt âm thanh dã phát ra do thú tục Sound. Thủ tục Dclay m word dừng chương trình trong thời gian m mill giây. Có thể dùng ba thủ tục này dế tạo một nốt nhạc. Một nốt nhạc dược đặc trưng bới cao độ và trường dộ. cao độ được thể hiện bới thủ tục Sound n trường dộ được the hiện bời thù tục Dclay m . Ví dụ để tạo nót sol tròn dùng bộ ba lệnh sound 392 .

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.