โครงงาน

1. ชื่อโครงงาน
2. ชื่อผู้จัดทำโครงงาน
3. หลักการและเหตุผล
4. วัตถุประสงค์
5. ประโยชน์ที่จะได้รับ
6. ขอบเขตของงานที่ทำ
7. ขั้นตอนและวิธีดำเนินงาน
8. เครื่องมือที่ใช้

~Project 3.1.1~

1. if (total price > 100000) then bonus : = (total Price * 10) / 100

2. if x = 2 then edit1.text : = 'เลข 2'
else
edit1.text : = 'ไม่ทราบค่า'

3. if (Score >= 70) and (Score <= 80) then edit1.text : = 'เกรด B' 4. if x = 1 or y=1 then edit1.text : = 'ไม่ถูกต้อง' 5. if (lengh <= 5) then showmessage : = '10 บาท' else if (lengh >= 5) and (lengh <= 10) then showmessage : = '15 บาท' else if (lengh > 10) then showmessgae : = '20 บาท'

6.ถ้าน้ำหนักมากกว่า ส่วนต่างของส่วนสูงกับขนาดตัว แสดงผลว่า 'Your Weight is over Standard'

7.ถ้าค่าของ Ssalary มากกว่าหรือเท่ากับ 10000บาท และ ค่าของ Salary ต่ำกว่า 50000 ภาษีจะเท่ากับ ค่าของ salary คูณด้วย 0.15

8.ถ้ายอดขายมากกว่า30000 จะได้ค่าตอบแทนเป็น 5% ของยอดขาย

9.ถ้า x น้อยกว่า 50 แสดงผลว่า 'ไม่ผ่าน' ถ้าx มีค่าตั้งแต่ 50 ให้แสดงผลว่า ผ่าน

10. ถ้า คะแนน ตั้งแต่1 ถึง5 แสดงผลว่า Bad ถ้าคะแนน ตั้งแต่7 ขึ้นไปให้แสดงว่า Fair ถ้าคะแนนตั้งแต่9ขึ้นไปให้แสดงผลว่า Good

~Project 5.1.1~

~Download Here~

~Project 1.3.1~

~Download Here~

ในปุ่ม Show Your Name ซึ่งจะแสดงชื่อออกมาจะใช้Code ดังนี้

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('ใส่ชื่อของเราที่นี่') < เมื่อคลิกที่ปุ่ม Button1 แล้วจะแสดง message box ขึ้นมา แสดงชื่อ
end;

ส่วนปุ่ม Show Your Information จะใช้ code ดังนี้

procedure TForm1.Button2Click(Sender: TObject);
begin
MessageDlg('ใส่ข้อมูลที่ต้องการจะใส่', MtWarning, [MbYes, MbNo, MbHelp], 1) < เมื่อกดที่ button2 ให้แสดง Dialog Box Warning ที่มีตัวเลือก Yes และ No ขึ้นมา แสดงข้อความข้อมูลของตัวเรา

end;

ปุ่ม Show Time ใช้code ดังนี้

procedure TForm1.Button3Click(Sender: TObject);
begin
Messagedlg('Now Time is '+ Timetostr(now), MtError, [MbOK, Mbcancel, MbHelp], 1) < แสดงMessage Dialog Error แสดงเวลาในขณะนั้น โดยใช้คำสั่ง Timetostr(now) โดยแสดง ตัวเลือก Ok Cance; และ Help
end;

~Project 1.3.4~

~Download Here~

ตัวอย่างการคำนวณ

procedure TForm1.Button1Click(Sender: TObject);
var sumn1 : real; < กำหนดให้ค่าของ sumn1 เป็นจำนวนจริง
begin
sumn1 :=strtofloat(edit1.text)+strtofloat(edit2.text)-strtofloat(edit3.text)*strtofloat(edit4.text) +strtofloat(edit5.text); < นำค่าใน edit1.textบวกกับ edit2.text ลบกับ edit3.text คูณกับ edit4.text บวกกับ edit4.text
edit6.text :=floattostr(sumn1); < แสดงคำตอบใน edit6.text
end;

~Project 1.3.2~

~Download Here~

ตัวอย่างในการใช้คำสั่งคิดเลข

การบวก

procedure TForm1.Button1Click(Sender: TObject);
var sumn1 : integer; < กำหนดให้ sumn1 เป็นจำนวนเต็ม
begin
sumn1 := strtoint(edit1.text)+strtoint(edit2.Text); < ให้นำค่าในedit1.text มาบวกกับค่าใน edit2.text
edit3.text :=inttostr(sumn1); < นำคำตอบมาใส่ใน edit3.text
end;

การลบ

procedure TForm1.Button2Click(Sender: TObject);
var sumn1 : integer; < กำหนดให้ sumn1 เป็นจำนวนเต็ม
begin
sumn1 := strtoint(edit1.text)-strtoint(edit2.Text); < นำจำนวนในedit1.text มาลบกับedit2.text

edit3.text :=inttostr(sumn1); < นำคำตอบมาใส่ใน edit3.text
end;

ถ้าต้องการจะเปลี่ยนเป็นการคูณก็สามารถเปลี่ยนเครื่องหมายได้โดยเปลี่ยนเครื่องหมายในตัวคำสั่งดังที่กล่าวไปแล้ว

นอกจากนี้ เราจะใช้คำสั่งเพื่อสร้างปุ่มปิดโปรแกรม โดยใช้ code ดังนี้

procedure TForm1.BitBtn1Click(Sender: TObject);
var answer : word; < กำหนดให้ answer เป็นคำ
begin answer :=messageDlg(คุณต้องการจะออกจากโปรแกรมหรือไม่',mtconfirmation,[mbyes,mbno],0); < ให้แสดงDialog Box ยืนยันการออกโปรแกรม โดยมรตัวเลือกคือ Yes หรือ No

if answer = mryes then < ถ้าตอบว่า yes
close < ให้ปิดโปรแกรม
else < ถ้าไม่ได้ตอบ yes
showmessage('Back To Program ..OK!'); < แสดงข้อความว่า Back To Program..OK!
end;

~Project 1.3.5~

~Download Here~

จะใช้คำสั่งคล้ายๆกับที่แล้วมาเช่นในการบวกเลข

procedure
TForm1.Button1Click(Sender: TObject);
var sumn1 : real; < กำหนดให้ sumn1 เป็นจำนวนจริง
begin
sumn1 := strtofloat(edit1.text)+strtofloat(edit2.Text); < นำจำนวนใน edit1.text มาบวกกับ edit2.text

edit3.Text :=floattostr(sumn1); < แสดงคำตอบใน edit3.text
end;

~Project 1.3.3~

~Download Here~

การหารตัวเลข จะต้องกำหนดตัวเลขให้เป็นจำนวนจริง ดังcode นี้

procedure TForm1.Button4Click(Sender:
TObject);
var sumn1 :real; < กำหนดให้ค่า sumn1 เป็นเลขจำนวนจริง
begin
sumn1 := strtofloat(edit1.text)/strtofloat(edit2.Text); < ให้นำค่าใน edit1.text และ edit2.text มาหารกัน
edit3.Text :=floattostr(sumn1); < แสดงผลคำตอบใน edit3.text
end;

ถ้าต้องการให้โปรแกรม หารเลข โดยปัดเศษให้ใช้คำสั่ง DIV ตามนี้

procedure TForm1.Button2Click(Sender: TObject);

var sumn1 :integer; < กำหนดให้ sumn1 เป้นจำนวนเต็ม

begin

sumn1 := strtoint(edit1.text)DIV strtoint(edit2.Text); < นำจำนวนใน edit1.text และ edit2.text หารปัดเศษ
edit3.Text :=inttostr(sumn1); < แสดงคำตอบลงใน edit3.text

end;

ถ้าต้องการหารเลขเอาเศษ ต้องใช้คำสั่ง MOD

procedure TForm1.Button6Click(Sender: TObject);

var sumn1 :integer; < กำหนดให้ sumn1 เป้นจำนวนเต็ม

begin
sumn1 := strtoint(edit1.text)MOD strtoint(edit2.Text); < นำจำนวนใน edit1.text และedit2.text หารหาเศษ
edit3.Text :=inttostr(sumn1); < แสดงคำตอบลงใน edit3.text

end;