Gambar disamping ini adalah hasil akhir dari program perhitungan nilai mahasiswa ini,
Dengan program ini memudahkan para guru , dosen dll dalam memberi penilaian terhadap muridnya.
untuk lebih jelas silahkan di download programnya.
Atau bisa di copy codingan programnya dibawah.
Private Sub Command1_Click()
Dim rata As Double
rata = (Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text)) / 3
Text6.Text = CInt(rata)
End Sub
Private Sub Command2_Click()
Text9.Text = (Text6.Text * (20 / 100)) + (Text7.Text * (70 / 100)) + (Text8.Text * (10 / 100))
nilai = (Text9.Text)
If nilai >= 80 And nilai <= 100 Then
Text10.Text = " A "
Label11.Caption = "Selamat " + Text1.Text + ", Anda LULUS"
ElseIf nilai >= 70 And nilai < 80 Then
Text10.Text = "B"
Label11.Caption = "Selamat " + Text1.Text + ", Anda LULUS"
ElseIf nilai >= 60 And nilai < 70 Then
Text10.Text = "C"
Label11.Caption = "Selamat " + Text1.Text + ", Anda LULUS"
ElseIf nilai >= 50 And nilai < 60 Then
Text10.Text = "D"
Label11.Caption = "Selamat " + Text1.Text + ", Anda LULUS"
ElseIf nilai >= 10 And nilai < 50 Then
Text10.Text = "E"
Label11.Caption = "Maaf " + Text1.Text + ", Anda GAGAL"
Else
Text10.Text = "Salah Input"
Label11.Caption = "Salah Input"
End If
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Label11.Caption = ""
Text1.SetFocus
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Text6_C()
End Sub
@
Tagged @ Pemrograman
0 komentar:
Post a Comment