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ử p8

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ử p8', 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ả | 72 if int Lis 0 .ff_attrib 16 dem- 1 while done nhap ten file vao mang cau truc FF dem done findnext FF if done Lis dem FF if int Lis dem .ff_attrib 16 dem- 1 dem 1 int NumDir dem done findfirst ftype FF FA_RDONLY FA_HIDDEN FA_SYSTEM FA_ARCH for int j 0 j strlen 1 j Lis dem .ff_name j tolower j while done nhap ten file vao mang cau truc FF dem done findnext FF for int j 0 j strlen 1 j Lis dem .ff_name j tolower j int NumFile dem-NumDir char Note 50 30 setcolor BLACK sprintf Note d files and d directories found NumFile NumDir outtextxy x61 5 y61 y62-y61-textheight Note 2 Note int temp y11 Dem 0 i if dem 0 truong hop dia hoan toan trong neu la mot thu muc rong thi khong thuoc truong hop nay strcpy Lis 0 .ff_name int tempx1 x21 1 tempx2 x22 tempy1 y11 14-3 tempy2 y11 14 8 3 setcolor BLACK LIGHTGREEN for i 0 i 15 i dem i hien thi ten file outtextxy x21 8 temp 14 Lis i .ff_name setfillstyle SOLID_FILL BLUE bar tempx1 tempy1 tempx2 tempy2 setcolor YELLOW outtextxy x21 8 y11 14 Lis 0 .ff_name vach sang tai vi tri dau tien int oldx1 tempx1 oldy1 tempy1 oldx2 tempx2 oldy2 tempy2 int over 0 int ppp 0 do while 1 ShowMouse lpEvent GetEvent lay bien co chuot int j nhanphim if kbhit kiem tra co nhan phim nhanphim getch if nhanphim 0 nhanphim getch switch nhanphim 13 case 81 page down if ppp 12 17 ppp 0 else goto MouseDown case 80 mui ten xuong nhanphim 1 MouseDown HideMouse if Dem 14 9 Dem dem-1 j Dem 1 Dem dem-1 else over if ove r dem-14 9 over-- goto End j Dem setcolor WHITE MAGENTA temp y11 for i over-1 i 15 over-1 i dem i xoa ten file outtextxy x21 8 temp 14 Lis i .ff_name setcolor BLACK LIGHTGREEN temp y11 for i over i 14 over i dem i outtextxy x21 8 temp 14 Lis i .ff_name goto Arrowkey break case 73 page up if ppp 12 ppp 0 else goto MouseUp case 72 len nhanphim 1 MouseUp HideMouse if Dem 0 j Dem-1 else over-- if over -1 over goto End j Dem setcolor WHITE MAGENTA temp y11 for i over 1 i 15 over 1 i xoa ten file outtextxy x21 8 .