Form1
Private Sub Command1_Click()
Label5.Caption = (Val(Text2.Text) + Val(Text3.Text)) / 2
If Label5.Caption > 70 Then
Label8.Caption = "Lulus"
Else
Label8.Caption = "Tidak Lulus"
End If
If Label5.Caption >= 85 Then
Label7.Caption = "A"
ElseIf Label5.Caption >= 75 Then
Label7.Caption = "B"
ElseIf Label5.Caption >= 65 Then
Label7.Caption = "C"
Else
Label7.Caption = "D"
Label7.Caption = "D"
End If
Form1.Hide
Form2.Show
Form2.Label6.Caption = Form1.Text1
Form2.Label7.Caption = Form1.Label5
Form2.Label8.Caption = Form1.Label7
Form2.Label9.Caption = Form1.Label8
End Sub
Form2
Private Sub Command1_Click()
Form2.Hide
Form1.Show
End Sub
Input Nama, Nilai UTS, Nilai UAS. Setelah di input, tekan OK.
Kemudian akan menampilkan hasilnya di Form2. Jika tekan Kembali, akan kembali ke form1.
Postingan
