tailieunhanh - Giáo trình hình thành quy trình điều khiển thiết bị bán dẫn chứa các mạch logic điện tử p10

Tham khảo tài liệu 'giáo trình hình thành quy trình điều khiển thiết bị bán dẫn chứa các mạch logic điện tử p10', kỹ thuật - công nghệ, điện - điện tử phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | 92 setcolor WHITE if Color WHITE setcolor BLACK outtextxy l t b-t-textheight S 2-b t-3 S1 outtextxy l 5 t b-t-textheight S 2 S ---------------------------------------------------------- void TEXTBOX PressTextBox setcolor BLACK line l t r t line l t l b setcolor WHITE line l b r b line r t r b ---------------------------------------------------------- void TEXTBOX Path lay duong dan nhap vao vao bien S cua TEXTBOX char a int C1 Color1 C1 la mau cua text trong textbox o che do nhap ten file setcolor C1 outtextxy l 5 t b-t-textheight S 2 S chiso 0 MouseText l textwidth S 4 t b-t textheight S 2 Color C1 S gia dau nhac chuot char stemp 128 strcpy stemp S while a getch 13 a 27 kiem tra phim Enter switch a kiem tra ky tu nhap vao case 0 switch a getch case 71 home MouseText l 6 t b-t textheight S 2 Color C1 S chiso -strlen S break case 72 break case 73 break case 75 left arrow int f textwidth S int xt l 6 f --chiso 8 int yt t b-t textheight S 2 if xt l 6 xt l 6 f chiso 8 MouseText xt yt Color C1 S so 8 la be ngang 1 ky tu break case 77 right arrow if chiso 0 break f textwidth S MouseText l f 6 chiso 8 t b-t textheight S 2 Color C1 S so 8 la be ngang 1 ky tu break case 79 end f textwidth S MouseText l f 6 t b-t textheight S 2 Color C1 S chiso 0 break 93 case 80 case 81 case 82 break case 83 del setcolor GREEN outtextxy l 5 t b-t-textheight S 2 S DelChar strlen S chiso f textwidth S setcolor YELLOW outtextxy l 5 t b-t-textheight S 2 S MouseText l f 6 chiso 8 t b-t textheight S 2 Color C1 S so 8 la be ngang 1 ky tu break break case 8 backspace setcolor Color outtextxy l 5 t b-t-textheight S 2 S chiso-- DelChar strlen S setcolor C1 outtextxy l 5 t b-t-textheight S 2 S MouseText l textwidth S 6 chiso 8 t b- t textheight S 2 Color C1 S break case 27 Esc strcpy S stemp return default if a 32 a 126 if strlen S 2 8 r-l break setcolor GREEN outtextxy l 5 t b-t-textheight S 2 S InsertChar a setcolor C1 outtextxy l 5 t b-t-textheight S 2 S MouseText l textwidth S 6 chiso 8 t b-t .