Buatlah Design Sederhana Seperti Gambar Berikut
Tuliskan script berikut ini didalam button Proses
nhasil.Text = (Val(nrapot.Text) * 0.4) + (Val(nun.Text) * 0.6) ' Val digunakan untuk mengkonversi String ke Integer
If Val(nhasil.Text) >= 5.5 Then
keterangan.Text = "Selamat anda dinyatakan lulus"
Else
keterangan.Text = "Maaf, anda dinyatakan tidak lulus"
End If
If Val(nhasil.Text) >= 5.5 Then
keterangan.Text = "Selamat anda dinyatakan lulus"
Else
keterangan.Text = "Maaf, anda dinyatakan tidak lulus"
End If
Tidak ada komentar:
Posting Komentar