บทที่ 3 ตอน 4 โปรแกรมตัดเกรด แบบ 5 เกรด (A-E)

ตัวอย่างที่ 2 โปรแกรมตัดเกรด แบบ 5 เกรด (A-E) ตามเงื่อนไขของคะแนนคือ ถ้าคะแนนตั้งแต่ 80 ขึ้นไปผลลัพธ์คือ A , ถ้าคะแนนตั้งแต่ 70 ขึ้นไปผลลัพธ์คือ B  ถ้าคะแนนตั้งแต่ 60 ขึ้นไปผลลัพธ์คือ C , ถ้าคะแนนตั้งแต่ 50 ขึ้นไปผลลัพธ์คือ D  ถ้าน้อยกว่า 50 ผลลัพธ์คือ E , และหากไม่ตรงเงื่อนไขใดๆ ผลลัพธ์คือ Error
 (1)  ออกแบบหน้าจอและกำหนดค่าคุณสมบัติ Name ของตัวควบคุมดังภาพ

(2)  สร้างคลาส clsGrade.vb ลักษณะการทำงานนั้นจะรับค่าผ่านทางคุณสมบัติ Score และส่งค่าเกรดผ่านทางคุณสมบัตินี้เช่นเดียวกัน ซึ่งเป็นวิธีการเขียนโปรแกรมที่รับและส่งค่าผ่าน property ของคลาส

(3)  เขียนโค้ดคำสั่งในส่วนของคลาสฟอร์ม

|1|  Public Class Form1

|2|      Private Sub btnGrade_Click(……) Handles btnGrade.Click

|3|          Dim obj As New clsGrade

|4|          obj.Score = txtScore.Text

|5|          Dim grade As String = obj.Score

|6|          MsgBox(grade)

|7|      End Sub

|8|  End Class

บรรทัดที่ 3 คือ การประกาศตัวแปรออบเจ็กต์ที่เกิดจากคลาส clsGrade
บรรทัดที่ 4 คือ ส่งค่าจาก TextBox ไปยังคุณสมบัติ obj.Score (ขวาส่ง ซ้ายรับ)
บรรทัดที่ 5 คือ กำหนดค่าเริ่มต้นให้กับตัวแปร grade โดยการส่งค่าจากคุณสมบัติ obj.Score

บรรทัดที่ 6 คือ แสดงผลเกรดจากตัวแปร grade ในกล่องข้อความ

(4) รันโปรแกรมและแสดงผล โดยการใส่ค่าคะแนนในตัวอย่างคือ 82 เมื่อกดปุ่ม เกรด จะแสดงผล