วันพฤหัสบดีที่ ๓๐ สิงหาคม พ.ศ. ๒๕๕๐
โครงงาน
2. ชื่อผู้จัดทำโครงงาน
3. หลักการและเหตุผล
4. วัตถุประสงค์
5. ประโยชน์ที่จะได้รับ
6. ขอบเขตของงานที่ทำ
7. ขั้นตอนและวิธีดำเนินงาน
8. เครื่องมือที่ใช้
~Project 3.1.1~
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~
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('ใส่ชื่อของเราที่นี่') < เมื่อคลิกที่ปุ่ม Button1 แล้วจะแสดง message box ขึ้นมา แสดงชื่อ
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
MessageDlg('ใส่ข้อมูลที่ต้องการจะใส่', MtWarning, [MbYes, MbNo, MbHelp], 1) < เมื่อกดที่ button2 ให้แสดง Dialog Box Warning ที่มีตัวเลือก Yes และ No ขึ้นมา แสดงข้อความข้อมูลของตัวเราend;
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.textedit3.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 หรือ Noif 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.textedit3.Text :=floattostr(sumn1); < แสดงคำตอบใน edit3.text
end;
~Project 1.3.3~
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;
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.textend;
ถ้าต้องการหารเลขเอาเศษ ต้องใช้คำสั่ง 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.textend;
วันพฤหัสบดีที่ ๒๘ มิถุนายน พ.ศ. ๒๕๕๐
วันพฤหัสบดีที่ ๑๔ มิถุนายน พ.ศ. ๒๕๕๐
~Project 1.2.1~
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 ตามลำดับ