Private Sub ComboBox1_Click()



If ComboBox1.Text = "AutoCad" Then

TextBox4.Text = "Lp3i Glugur"

TextBox5.Text = "Laboratorium 4"



ElseIf ComboBox1.Text = "Animasi" Then

TextBox4.Text = "Webmedia"

TextBox5.Text = "Laboratorium 3"



ElseIf ComboBox1.Text = "Desain Web" Then

TextBox4.Text = "Webmedia"

TextBox5.Text = "Laboratorium 2"



ElseIf ComboBox1.Text = "IT Software" Then

TextBox4.Text = "SLC Medan"

TextBox5.Text = "Laboratorium 1"



End If

End Sub

Private Sub CommandButton1_Click()



Dim grade As Integer



a = Val(TextBox6.Text) + Val(TextBox7.Text) + Val(TextBox8.Text)

b = a / 3

TextBox9.Text = b



If TextBox9.Text <> "" Then

 grade = CInt(TextBox9.Text)

 End If

 

 If grade >= 0 And grade <= 100 Then

 Select Case grade

 Case 86 To 100: TextBox10.Text = "Excellent"

 Case 71 To 85: TextBox10.Text = "Very Good"

 Case 51 To 70: TextBox10.Text = "Good"

 Case 31 To 50: TextBox10.Text = "Bad"

 Case 0 To 30: TextBox10.Text = "Very Bad"

 End Select

 

 Else: TextBox10.Text = "DATA Invalid!"

 

 End If



End Sub

Private Sub CommandButton2_Click()



With Sheets("Sheet1")

 .Range("B3").Value = TextBox1.Text

 .Range("C3").Value = TextBox2.Text

 .Range("D3").Value = TextBox3.Text

 .Range("E3").Value = ComboBox1.Text

 .Range("F3").Value = TextBox4.Text

 .Range("G3").Value = TextBox5.Text

 .Range("H3").Value = TextBox6.Text

 .Range("I3").Value = TextBox7.Text

 .Range("J3").Value = TextBox8.Text

 .Range("K3").Value = TextBox9.Text

 .Range("L3").Value = TextBox10.Text

End With



End Sub

Private Sub CommandButton3_Click()



ComboBox1.Text = ""

TextBox1.Text = Clear

TextBox2.Text = Clear

TextBox3.Text = Clear

TextBox4.Text = Clear

TextBox5.Text = Clear

TextBox6.Text = Clear

TextBox7.Text = Clear

TextBox8.Text = Clear

TextBox9.Text = Clear

TextBox10.Text = Clear



End Sub