บทที่ 1 ตอน 6 คำสั่งทำซ้ำซ้อนคำสั่งทำซ้ำ 1 ชั้น เรียกว่าคำสั่ง For ซ้อน Do While

ตัวอย่าง การทำงานของตัวอย่างนี้เหมือนกับตัวอย่างที่ผ่านมา ซึ่งเป็นการใช้คำสั่งทำซ้ำซ้อนคำสั่งทำซ้ำ 1 ชั้น ในตัวอย่างเรียกว่าคำสั่ง For ซ้อน Do While

สั่งเกตชุดคำสั่ง Do While จะต้องมีนิพจน์ประกอบคำสั่งทำซ้ำ 3 นิพจน์หากขาดนิพจน์ใดการทำงานจะผิดพลาด

แบบฝึกหัดที่ 1 : ให้นักศึกษาเขียนโปรแกรมเพื่อแปลงค่าตัวเลขของปี พ.ศ.  ไปเป็นปี ค.ศ.  โดยที่ตัวเลขที่รับเข้ามานั้น หากเกิน 2500 จะต้องแปลงค่า

ลักษณะของโปรแกรม :

ต้องการแปลงค่าของปีในช่อง “ปี:” (txtNum1)   จากนั้นไปแสดงค่าที่ช่อง “ปี ค.ศ. :” (txtNum2)   โดยเมื่อมี เหตุการณ์คลิก ที่ปุ่ม “แปลงค่า”   โดยมีเงือนไขว่า หากตัวเลขมากกว่า 2500 จะต้องลบด้วย 543 แต่หากไม่ตัวเลขไม่เกิน 2500 ก็ให้แสดงค่าเดิม

วิเคราะห์ปัญหา

   Input :       ตัวเลขปี  พ.ศ. (Num2)
  Output:       ตัวเลขปี ค.ศ. (Num1)

ขั้นตอนการพัฒนาระบบ :

1.      ตั้งชื่อโปรเจ็คว่า convertYear

2.      # สร้าง Graphic User interface (ตามหน้าจอ)

3.      # ตั้งชื่อออฟเจ็ค

4.      @ สร้างโปรแกรมย่อย setinterface()

5.      @ Form1_Load

6.      ทดสอบ (Run)

7.      @ btnConvert_Click

8.      ทดสอบ (Run)

Graphic User interface:

คำอธิบายตามหมายเลขบรรทัด :

3 ถึง 13         โปรแกรมย่อยของเหตุการณ์คลิกปุ่ม “แปลงค่า”

4 และ 5         ประกาศตัวแปรชนิดจำนวนเต็ม (integer)

6                 ส่งค่าจากคุณสมบัติ Text ของออฟเจ็ค txtNum1 ไปยังตัวแปร num1  (ขวาส่ง ซ้ายรับ)

7                 เปรียบเทียบเงือนไข เมื่อ num1 มากกว่า 2500 หากเงื่อนไขเป็นจริงให้ทำงานหลัง Then

8                 คำนวณตัวเลขโดยนำค่าจาก num1 ลบด้วย 543 แล้วส่งค่าไปยังตัวแปร num2

9                 หากเงื่อนไขที่เปรียบเทียบจากบรรทัดที่ 7 ไม่เป็นจริงให้ทำงานหลัง Else

10                ส่งค่าจากตัวแปร num1 ไปยังตัวแปร num2

11                สิ้นสุดคำสั่ง if 

12                ส่งค่าในตัวแปร num2  ไปยังคุณสมบัติ Text ของออฟเจ็ค txtNum2 เพื่อแสดงผล

15 ถึง 17       โปรแกรมย่อยของเหตุการณ์เมื่อฟอร์มเริ่มต้นทำงาน  Form1_Load

16                เรียกใช้โปรแกรมย่อยที่มีชื่อว่า setinterface()

19 ถึง 24       โปรแกรมย่อยที่สร้างขึ้นมาเอง เพื่อกำหนดค่าเริ่มต้นของ GUI

ทดสอบระบบ :

1.      เมื่อพิมพ์ตัวเลข 2552 ที่ช่อง “ปี” (txtNum1) ค่าที่แสดงในช่อง “ปี ค.ศ.”( txtNum2) ต้องเป็น 2009

2.      เมื่อพิมพ์ตัวเลข 1980 ที่ช่อง “ปี” (txtNum1) ค่าที่แสดงในช่อง “ปี ค.ศ.”( txtNum2) ต้องเป็น 1980

Question? :

1.      เมื่อพิมพ์ตัวอักษรคำว่า computer ลงในช่อง“ปี” (txtNum1) แล้วคลิกทีปุ่ม “แปลงค่า” จะเกิดอะไรขึ้น  ให้เขียนโปรแกรมเพิ่มเพื่อเติมแก้ปัญหาดังกล่าว

2.      เมื่อพิมพ์ตัวเลขที่มากกว่า 999999999 ลงในช่อง“ปี” (txtNum1) แล้วคลิกทีปุ่ม “แปลงค่า” จะเกิดอะไรขึ้น ให้เขียนโปรแกรมเพิ่มเติมเพื่อแก้ปัญหาดังกล่าว

แบบฝึกหัดที่ 2 :เพื่อรับข้อมูลจำนวนสินค่าและราคาสินค้าเพื่อคำนวณและแสดงผลจำนวนเงินที่ต้องชำระ

ลักษณะการทำงาน :

          ป้อนตัวเลขในช่อง “จำนวนสินค้า” และป้อนตัวเลขที่ช่อง “ราคาสินค้า” จากนั้นคลิกที่ปุ่ม “คำนวณเงิน” ระบบจะคำนวณโดยนำ “จำนวนสินค้า” คูณด้วย “ราคาสินค้า” แล้วแสดงผลที่ช่อง “จำนวนเงิน”