1. Buat tampilan aplikasi dengan menyusun beberapa Label, TextBox, dan CommandButton,seperti gambar di bawah ini:
2. Double klik pada CommandButton “HASIL” dan masukkan syntax:
Private Sub Command1_Click()
Text3.Text = (Val(Text1.Text) + Val(Text2.Text)) / 2
If Text3.Text >= 60 Then
Text4.Text = "LULUS"
Else
Text4.Text = "TIDAK LULUS"
End If
End Sub
3. Double klik pada Commandbutton “HAPUS” dan masukkan syntax:
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
4. Double klik pada CommandButton “KELUAR” dan masukkan syntax:
Private Sub Command3_Click()
End
End Sub
5. Klik pada toolbar Start atau Run
6. Masukkan Nilai UTS dan UAS
7. Klik pada opsi “HASIL” untuk melihat nilai rata-rata dan keterangan “LULUS/TIDAK LULUS”
8. Klik pada opsi “HAPUS” untuk menghapus data
9. Untuk menghentikan program, Klik pada opsi “KELUAR”
10. Selesai
Sumber: Tugas Laporan Akhir Laboratorium Sistem Informasi universitas Gunadarma
Referensi link untuk Mahasiswa Universitas Gunadarma:
Tidak ada komentar:
Posting Komentar