ในบทนี้เราจะมาเขียนโปรแกรมตัดเกรดกัน ด้วย vb.net ซึ่งผมจะสอนการใช้งาน if else และ Select Case ^^
1. เปิดโปรแกรม Visual Studio 2010 Express ขึ้นมา แล้วเลือก New Project แล้วเลือก Windows Forms Application พร้อมกับตั้งชื่อว่า โปรแกรมตัดเกรด หรือ จะตั้งชื่ออื่นก็ได้ตามต้องการ ตามรูป
2. ทำการดีไซด์ตามในรูป โดยหลักๆแล้วเราต้องการให้ใส่คะแนน ในช่อง TextBox1 และกดที่คำนวณ โปรแกรมจะโชว์กล่องข้อความบอกว่าเราได้เกรดอะไร สำหรับเรื่องกล่องข้อความเพื่อนๆสามารถศึกษาได้จากบทนี้ การใช้งาน MessageBox vb.net
3. ดับเบิลคลิกที่ปุ่ม คำนวณเกรด จากนั้นทำการเขียนโค๊ดลงไป
' คำนวณเกรด โดยใช้ if else โค๊ดไม่ได้เยอะหรอกนะครับ แต่ผมอธิบายไปในโค๊ดด้วย
Dim point As Integer 'ประกาศตัวแปร point เป็นจำนวนเต็ม
point = TextBox1.Text 'ให้ point มีค่าเท่ากับค่าที่เราจะกรอกบน textbox1
If point >= 80 And point <= 100 Then
'ถ้าpoint มีค่า 80-100
'ให้แสดงกล่องข้อความบอกว่าคุณได้เกรด A
MessageBox.Show("คุณได้เกรด A", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
ElseIf point >= 75 And point <= 79 Then
'ถ้าpoint มีค่า 75-79
'ให้แสดงกล่องข้อความบอกว่าคุณได้เกรด B+
MessageBox.Show("คุณได้เกรด B+", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
ElseIf point >= 70 And point <= 74 Then
'ถ้าpoint มีค่า 70-74
'ให้แสดงกล่องข้อความบอกว่าคุณได้เกรด B
MessageBox.Show("คุณได้เกรด B", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
ElseIf point >= 65 And point <= 69 Then
'ถ้าpoint มีค่า 65-69
'ให้แสดงกล่องข้อความบอกว่าคุณได้เกรด C+
MessageBox.Show("คุณได้เกรด C+", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
ElseIf point >= 60 And point <= 64 Then
'ถ้าpoint มีค่า 60-64
'ให้แสดงกล่องข้อความบอกว่าคุณได้เกรด C
MessageBox.Show("คุณได้เกรด C", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
ElseIf point >= 55 And point <= 59 Then
'ถ้าpoint มีค่า 55-59
'ให้แสดงกล่องข้อความบอกว่าคุณได้เกรด D+
MessageBox.Show("คุณได้เกรด D+", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
ElseIf point >= 50 And point <= 54 Then
'ถ้าpoint มีค่า 50-54
'ให้แสดงกล่องข้อความบอกว่าคุณได้เกรด D
MessageBox.Show("คุณได้เกรด D", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
ElseIf point >= 0 And point <= 49 Then
'ถ้าpoint มีค่า น้อยกว่า 50
'ให้แสดงกล่องข้อความบอกว่าคุณได้เกรด F
MessageBox.Show("คุณได้เกรด F", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
'คำนวณเกรด โดยใช้ Select Case
Dim point As Integer 'ประกาศตัวแปร point เป็นจำนวนเต็ม
point = TextBox1.Text 'ให้ point มีค่าเท่ากับค่าที่เราจะกรอกบน textbox1
Select Case point
Case 80 To 100
'ถ้าpoint มีค่า 80-100 ให้แสดงกล่องข้อความบอกว่าคุณได้เกรด A
MessageBox.Show("คุณได้เกรด A", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case 75 To 79
'ถ้าpoint มีค่า 75-79 ให้แสดงกล่องข้อความบอกว่าคุณได้เกรด B+
MessageBox.Show("คุณได้เกรด B+", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case 70 To 74
'ถ้าpoint มีค่า 70-74 ให้แสดงกล่องข้อความบอกว่าคุณได้เกรด B
MessageBox.Show("คุณได้เกรด B", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case 65 To 69
'ถ้าpoint มีค่า 65-69 ให้แสดงกล่องข้อความบอกว่าคุณได้เกรด C+
MessageBox.Show("คุณได้เกรด C+", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case 60 To 64
'ถ้าpoint มีค่า 60-64 ให้แสดงกล่องข้อความบอกว่าคุณได้เกรด C
MessageBox.Show("คุณได้เกรด C", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case 55 To 59
'ถ้าpoint มีค่า 55-59 ให้แสดงกล่องข้อความบอกว่าคุณได้เกรด D+
MessageBox.Show("คุณได้เกรด D+", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case 50 To 54
'ถ้าpoint มีค่า 50-54 ให้แสดงกล่องข้อความบอกว่าคุณได้เกรด D
MessageBox.Show("คุณได้เกรด D", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case 0 To 49
'ถ้าpoint มีค่า 0-49 ให้แสดงกล่องข้อความบอกว่าคุณได้เกรด F
MessageBox.Show("คุณได้เกรด F", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
Case Else
'ถ้าหากหรอกตัวเลขอื่นนอกเหนือจากนี้ โปรแกรมก็จะแสดงกล่องข้อความว่า คุณระบุตัวเลขไม่ถูกต้อง
MessageBox.Show("คุณระบุตัวเลขไม่ถูกต้อง", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Select
สำหรับปุ่มออกจากโปรแกรมให้เพื่อนดับเบิ้ลคลิกปุ่มออกจากโปรแกรมแล้วพิมพ์โค๊ดนี้ลงไป
End หรือ จะพิมพ์ว่า Me.close() ก็ได้เช่นกัน
4. จากนั้นทำการเซฟโปรเจค กดที่ File > Save all หรือ กด Ctrl + Shift + S หรือ กดที่ ไอคอน Save all ดังรูป
5. ทดลองรันโปรแกรม กด start Debugging หรือกด F5 และทำการทดสอบโปรแกรม โดยการกรอกคะแนนที่เราต้องการลงไป และกดปุ่มคำนวณเกรด จากนั้นโปรแกรมก็จะแสดงกล่องข้อความบอกว่าเราได้เกรดอะไร ดังรูป
สำหรับบทนี้ก็จบเพียงเท่านี้ครับ
สามารถดาวโหลดproject ไปลองศึกษากันได้ครับ