1. ชื่อโปรเจ็ค (Project name) : โปรแกรมคำนวณเกรด(Check_grade)
2. Variable(ตัวแปรที่ใช้)
2. Variable(ตัวแปรที่ใช้)
grade = Integer
Result = String
Result = String
3. Object (วัตถุที่ใช้)
3.1 Label1 Text = โปรแกรมคำนวณเกรด
3.2 Label2 Text = กรุณากรอกคะแนนที่ได้
3.3 Label3 Text = ผลลัพธ์คือ visible = False
3.4 TextBox1
3.5 Button1 = คำนวณเกรด
3.6 Button2 = ออกโปรแกรม
3.5 Button1 = คำนวณเกรด
3.6 Button2 = ออกโปรแกรม
4. Source Code(คำสั่งตัวควบคุม)
4.1 Public Class :
Dim grade As Integer
Dim Result As String
Dim Result As String
4.2 Button1 : If (grade >= 80) Then
Result = "เกรดของคุณคือ 4"
ElseIf (grade >= 70) Then
Result = "เกรดของคุณคือ 3"
ElseIf (grade >= 60) Then
Result = "เกรดของคุณคือ 2"
ElseIf (grade >= 50) Then
Result = "เกรดของคุณคือ 1"
Else : Result = "เกรดของคุณคือ 0"
End If
Label3.Text = Result
Label3.ForeColor = Color.Red
Label3.Visible = True
4.3 Button2 :
Result = "เกรดของคุณคือ 4"
ElseIf (grade >= 70) Then
Result = "เกรดของคุณคือ 3"
ElseIf (grade >= 60) Then
Result = "เกรดของคุณคือ 2"
ElseIf (grade >= 50) Then
Result = "เกรดของคุณคือ 1"
Else : Result = "เกรดของคุณคือ 0"
End If
Label3.Text = Result
Label3.ForeColor = Color.Red
Label3.Visible = True
4.3 Button2 :
End
ดาวน์โหลดเอกสารเพื่อทำการเรียนการสอน
