ง่ายมาก คุณสามารถลองได้เลย :)
-----แบบทดสอบที่ผมทำตอนเรียน Assembly โปรแกรมแรกเป็นเพียงการสร้างความประทับใจให้กับคุณ หลังจากนั้นจะมีโพสต์ที่จะอธิบายโดยละเอียด
หน่วย หน่วยที่ 1;
อินเตอร์เฟซ
การใช้งาน
Windows, ข้อความ, SysUtils, ตัวแปร, คลาส, กราฟิก, การควบคุม, แบบฟอร์ม,
กล่องโต้ตอบ, StdCtrls, ExtCtrls;
พิมพ์
TForm1 = คลาส (TForm)
Shape1: รูปร่าง;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: T ปุ่ม;
Button2: T ปุ่ม;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Button3: T ปุ่ม;
ขั้นตอน Button1Click (ผู้ส่ง: TObject);
ขั้นตอน Button2Click (ผู้ส่ง: TObject);
//ขั้นตอน Button3Click(ผู้ส่ง: TObject);
//ขั้นตอน BtCalcuClick(ผู้ส่ง: TObject);
ส่วนตัว
{ประกาศส่วนตัว}
สาธารณะ
{ประกาศสาธารณะ}
จบ;
var
แบบฟอร์ม 1: TForm1;
ฟังก์ชัน Sum1(X,Y:จำนวนเต็ม):จำนวนเต็ม;
ฟังก์ชัน Sum2(X,Y:จำนวนเต็ม):จำนวนเต็ม;stdcall;
ฟังก์ชัน Sum3(var X,Y:integer):จำนวนเต็ม;stdcall;
การดำเนินการ
{$R *.dfm}
ขั้นตอน TForm1.Button1Click (ผู้ส่ง: TObject);
var
ฉัน,j:จำนวนเต็ม;
เริ่ม
label1.Caption:=inttostr(sum1(2,3));
label2.Caption:=inttostr(sum2(2,3));
ฉัน:=2;
เจ:=3;
label3.Caption:=inttostr(sum1(i,j));
จบ;
//ผลรวมโปรแกรมเดลฟี
ฟังก์ชัน Sum1(X,Y:จำนวนเต็ม):จำนวนเต็ม;
เริ่ม
ผลลัพธ์:=X+Y;
จบ;
//ผลรวมการประกอบ 1---
ฟังก์ชัน Sum2(X,Y:จำนวนเต็ม):จำนวนเต็ม;stdcall;
เริ่ม
asm
mov eax,X
เพิ่ม eax,Y
mov @result,eax
จบ;
จบ;
//ผลรวมการประกอบ 2---
ฟังก์ชัน Sum3(var X,Y:integer):จำนวนเต็ม;stdcall;
เริ่ม
asm
mov eax,X
mov eax,[eax]
mov edx,Y
เพิ่ม eax,[edx]
mov @result,eax
จบ;
จบ;
ขั้นตอน TForm1.Button2Click (ผู้ส่ง: TObject);
เริ่ม
ปิด;
จบ;
{ขั้นตอน TForm1.Button3Click (ผู้ส่ง: TObject);
var
QuitFlag:บูลีน;
OutBufPtr:คำ;
เริ่ม
asm
mov al,QuitFlag
mov bx,OutBufPtr
จบ;
จบ;}
จบ.