โปรแกรมเครื่องคิดเลขเป็นหนึ่งในงานเขียนโปรแกรมทั่วไป แอปพลิเคชันดังกล่าวสามารถใช้งานได้ในเกือบทุกภาษาโปรแกรม ภาษาโปรแกรมที่ได้รับความนิยมมากที่สุดภาษาหนึ่งคือ Delphi ซึ่งสามารถใช้เขียนโค้ดเครื่องคิดเลขที่ง่ายและมีประสิทธิภาพ
จำเป็น
สภาพแวดล้อมการเขียนโปรแกรม Delphi
คำแนะนำ
ขั้นตอนที่ 1
เริ่มสภาพแวดล้อมการเขียนโปรแกรม Delphi ที่คุณใช้ วางแผนอินเทอร์เฟซสำหรับแอปพลิเคชันของคุณ ในแบบฟอร์มจะมีทั้งหมด 26 ปุ่ม โดย 10 ปุ่มสำหรับตัวเลข ส่วนที่เหลือเป็นปุ่มสำหรับฟังก์ชัน นอกจากนี้ จะมีองค์ประกอบ TPanel ซึ่งจะแสดงผลลัพธ์ของการดำเนินการ
ขั้นตอนที่ 2
เพิ่มตัวแปร 4 ตัวในรหัสที่จะเก็บตัวเลขที่ผู้ใช้ป้อนและกำหนดโหมด ตัวอย่างเช่น:
var
a, b, c: จริง; // ตัวเลขที่ผู้ใช้ป้อน
d: จำนวนเต็ม; // การกระทำของเครื่องคิดเลข
ขั้นตอนที่ 3
ตัวแปรที่สร้างขึ้นสามารถเพิ่มได้ทั้งแบบมีการป้องกันและแบบส่วนตัว ตอนนี้จัดการเหตุการณ์ OnClick สำหรับแต่ละปุ่มตัวเลข สำหรับตัวเลขทั้งหมด รหัสจะเหมือนกัน:
ขั้นตอน TForm1. Button1Click (ผู้ส่ง: TObject);
เริ่ม
Panel1. Caption: = Panel1. Caption + 'หมายเลข'
จบ;
แทนที่ “number” ด้วยชื่อปุ่ม (หากเป็นหมายเลข 0 ให้แทนที่ Panel1. Caption + '0')
ขั้นตอนที่ 4
ตัวแปร d อยู่ในรูปแบบจำนวนเต็ม และจะมีค่าตัวเลขที่สอดคล้องกันของการกระทำใดๆ หากมีการคูณ คุณสามารถตั้งค่าการดำเนินการเป็นค่า 1 ถ้าหาร - ค่า 2 ถ้าบวก - ค่า 3 ฯลฯ สำหรับการดำเนินการคูณ โค้ดจะมีลักษณะดังนี้:
ขั้นตอน TForm1. ButtonMultiplyClick (ผู้ส่ง: TObject); // คูณการกระทำ
เริ่ม
a: = StrToFloat (Panel1. Caption); // หลังจากกดปุ่ม ค่าของตัวแปร a จะถูกบันทึก
ง: = 1; // ตัวแปรการกระทำถูกตั้งค่าเป็นค่าที่สอดคล้องกัน
Panel1. Caption: = '';
จบ;
ขั้นตอนที่ 5
ทำการดำเนินการที่คล้ายกันสำหรับการหาร (ButtonDivClick), การบวก (ButtonPlusClick), การลบ (ButtonMinusClick) และการยกกำลัง (ButtonPowerClick)
ขั้นตอนที่ 6
ในการประมวลผลค่า `` = '' คุณต้องสร้างเงื่อนไขเคสและพิจารณาแต่ละการกระทำตามลำดับ:
ขั้นตอน TForm1. ButtonClick (ผู้ส่ง: TObject);
เริ่ม
กรณี d ของ
1: เริ่มต้น // ถ้า d = 1 เช่น กดปุ่มคูณ การกระทำที่เกี่ยวข้องจะเกิดขึ้น
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
จบ;
2: เริ่ม
a: = StrToFloat (Panel1. Caption);
ค: = a / b;
Panel1. Caption: = FloatToStr (c);
ขั้นตอนที่ 7
จัดการการบวก การลบ และการยกกำลังในลักษณะเดียวกัน เครื่องคิดเลขพร้อมแล้ว