Phân tích tư tưởng của nhân dân qua đoạn thơ: Những người vợ nhớ chồng… Những cuộc đời đã hóa sông núi ta trong Đất nước của Nguyễn Khoa Điềm
3398
1
0
9 trang
Tham khảo tài liệu giáo trình phân tích quy trình ứng dụng điều chế thiết bị bán dẫn chứa các mạch logic điện tử p6, khoa học tự nhiên, vật lý phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả
Nội dung trích xuất từ tài liệu:
Giáo trình phân tích quy trình ứng dụng điều chế thiết bị bán dẫn chứa các mạch logic điện tử p6
. LUAÂÄN VAÊN TOÁT NGHIEÄP 56
;KeyKRB : Chuong trinh con quet ban phim. Ma cua phim an duoc cat
;trong thanh
; ghi A.
;DELAY : Chuong trinh con tri hoan theo thoi hang 0.1 ms. He so tri
;hoan duoc
; nap vao thanh ghi A.
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++++++++
;#####################################################################
;Khai bao cac nhan duoc su dung.
;#####################################################################
RegCNT equ 03h
PortA equ 00h
PortB equ 01h
PortC equ 02h
CntI79 equ 0A001h
DataI79 equ 0A000h
KEYBRD equ 0216h
DELAY equ 0310h
KeyGO equ 17h
;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
End
.
57
LUAÂÄN VAÊN TOÁT NGHIEÄP
B.Module Demo.cpp
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include screen.h
#include mouse.h
#include button.hpp
#include textbox.hpp
#include list.hpp
#include disklist.hpp
#include send.hpp
#define NumBox 2
#define NumBut 2
LPEVENT lpEvent; //bien chua cac bien co chuot
char szMessage[128];
BUTTON But[NumBut],NutKiem;
TEXTBOX Box[NumBox],Port;
char DiskName[27],DName;
char ftype[15]=*.prn;
char inter_Path[100]=;
char RequF[100];
unsigned int St_address,End_address=0;
char Sta_hex[5],End_hex[5];
//---------------------------------------------------------
int TestPressedButton(int x,LPEVENT lpEvent);
int TestPressTexbox(int x,LPEVENT lpEvent,char layra[],unsigned
*attribp);
void MainProgram();
int TestPressList(LIST L,LPEVENT lpEvent,char s[],unsigned
*attrib,char *typ);//nhap bang liet ke
int SendFile();
//---------------------------------------------------------
void main(void)
{
InitGraphics();
InitValues(Download Program.);
InitScreen();
if (!InitMouse(&MainWindow.rViewPort))
{
OutMessage(Mouse driver not found. Init mouse and return);
getch();
closegraph();
exit(1);
}
ShowMouse();
MainProgram();
closegraph();
}
.
58
LUAÂÄN VAÊN TOÁT NGHIEÄP
//---------------------------------------------------------
void MainProgram()
{
char Name[20],buffer[MAXPATH];
unsigned attrib,Attribp;
SEND Send;
LIST L;
But[0].InitButton(200,380,250,400,LIGHTGRAY,Send);
But[1].InitButton(400,380,450,400,LIGHTGRAY,Exit);
Box[0].InitTextBox(50,70,477,90,GREEN,LIGHTGREEN,Open File);
Port.InitTextBox(50,270,250,290,GREEN,LIGHTGREEN,Out port);
Port.GetS_in(LPT1);
L.InitList(480,70,500,90,LIGHTGRAY);
But[0].OutButton();//xuat nut lenh
But[1].OutButton();//xuat nut lenh
Box[0].OutTextBox();//xuat hop nhap text
Port.OutTextBox();
L.Show();
setcolor(BLACK);
line(50,150,250,150);
line(50,150,50,215);
setcolor(WHITE);
line(50,215,250,215);
line(250,150,250,215);
outtextxy(50,130,Free memory request);
outtextxy(55,158,Start ad :);
outtextxy(55,178,End ad :);
outtextxy(55,198,Total :);
OutMessage(Click mouse to chose action);
int kkkk;
char RequestFile[15]=;
do//kiem tra nhap chuot chon cong viec
{
ShowMouse();
lpEvent = GetEvent();//lay bien co chuot
if(TestPressedButton(2,lpEvent)==0)//kiem tra xem da click vao
nut nao
//0:nhan OK
{
char InName[100],OutName[100];
Box[0].GetS(InName);
if(InName[strlen(InName)-1]==\)
InName[strlen(InName)-1]= ;
_dos_getfileattr(InName,&attrib);
if(attrib==16)
{
OutMessage();
OutError(Please enter a file name);
OutMessage(Click mouse to chose action);
}
else//la file
{
if(End_address!=0)
{
if(OutError(Are you sure ?))
{
OutMessage(Sending... Press Esc to stop if time is
over.);
Send.CatFile(Sta_hex,End_hex,inter_Path);
.
59
LUAÂÄN VAÊN TOÁT NGHIEÄP
Send.Out();
HideMouse ...
