วันพฤหัสบดีที่ ๓๐ สิงหาคม พ.ศ. ๒๕๕๐

โครงงาน

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 1.3.1~


ในปุ่ม 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~



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

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~



ตัวอย่างในการใช้คำสั่งคิดเลข
การบวก
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~



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

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~



การหารตัวเลข จะต้องกำหนดตัวเลขให้เป็นจำนวนจริง ดัง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;

วันพฤหัสบดีที่ ๒๘ มิถุนายน พ.ศ. ๒๕๕๐

วันพฤหัสบดีที่ ๑๔ มิถุนายน พ.ศ. ๒๕๕๐

~Project 1.2.1~



1.ดังรูป
2.โปรแกรมแสดงชื่อใน Label,Radiobutton,Checkbox และ Edit
3.สีเปลี่ยนไป และComponentที่สามารถเปลี่ยนสีได้คือ Edit,Label,Radiobutton และ Checkbox
4.ผลที่ได้คือ เมื่อรันโปรแกรมแล้ว ไม่สามารถแก้ไขตัวอักษรได้ และComponentที่มี Enabled คือ Edit,Label,Radiobutton และ Checkbox
5.ใช้กำหนดขอบของ Component นั้นๆ
6.ทำให้ตัวอักษรเป็นตัวพิมพ์ใหญ่ทั้งหมด เมื่อกำหนด PasswordChar แล้ว ทำให้ตัวอักษรกลายเป็น*ทั้งหมด
7.ทำให้สามารถกำหนดจำนวนตัวอักษรได้
8.ทำให้ตัวอักษรไปอยู่ด้านซ้ายของ Radiobutton และ Checkbox แทน
9.ทำให้แสดงว่า Radiobutton และ Checkbox นั้นถูกเลือกไว้แล้ว
10.ใช้ Properties Picture ในการโหลดรูปภาพจากคอมพิวเตอร์
11.ใช้ Properties Shape ในการเปลี่ยนรูปร่าง และใช้ Properties Color ในBrush ในการเปลี่ยนสีรูป
12.เมื่อรันโปรแกรมแล้วนำCurser ไปวางที่บริเวณของObject จะทำให้Curser เปลี่ยนเป็นรูปที่กำหนด
13.Properties Height และ Width ใช้กำหนดความกว้างและความยาวส่วน Properties Top และ Left ใช้กำหนดตำแหน่งวัตถุตามแนว Y และ X ตามลำดับ

วันพฤหัสบดีที่ ๗ มิถุนายน พ.ศ. ๒๕๕๐

Welcome To SOulzSoCieTiez!

ขอต้อนรับสู่โลกแห่งวิญญาณ SOulzSoCieTiez!