หน้าเว็บ

วันพุธที่ 21 พฤศจิกายน พ.ศ. 2555

โปรแกรมตัดเกรด vb.net


ในบทนี้เราจะมาเขียนโปรแกรมตัดเกรดกัน ด้วย 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 ไปลองศึกษากันได้ครับ