Pertemuan 4, 9 Maret 2015 : : Tutorial Aplikasi Menghitung Nilai Akhir semester

Pertama Buka aplikasi VISUAL BASIC 2008, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok

Kemudian buat atribut seperti ini

Buat label

Text:

Label 1 : Text menjadi         “Nama Mahasiswa”

Label 2 : Text menjadi         “Absen”

Label 3 : Text menjadi         “Tugas”

Label 4 : Text menjadi         “Keaktifan”

Label 5 : Text menjadi         “Uts”

Label 6 : Text menjadi         “Uas”

Label 7 : Text menjadi         “Nilai”

Selanjutnya ganti variabel  .   

Name :

Nama mahasiswa menjadi            “txtnama”

Absen menjadi                               “txtabsen”

Tugas                                             “txttugas”

Keaktifan menjadi                           “txtkeaktifan”

Uts menjadi                                     “txtuts”

Uas menjadi                                    “txtuas”

Nilai                                                 “txtnilai”

2. kemudian buat button seperti gambar dibawah ini :

Kemudian ganti variable menjadi

Hitung menjadi                     “btnhitung”

Clear menjadi                       “btnclear”

Exit menjadi                          “btnexit”

Coding btnhitung :

Private Sub btnhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhitung.Click

        Dim absen, tugas, keaktifan, uts, uas As Integer

        Dim nilaiakhir As Integer

        absen = txtabsen.Text * 20 / 100

        tugas = txttugas.Text * 15 / 100

        keaktifan = txtkeaktifan.Text * 10 / 100

        uts = txtuts.Text * 25 / 100

        uas = txtuas.Text * 30 / 100

        nilaiakhir = absen + tugas + keaktifan + uts + uas

        txtnilaiakhir.Text = nilaiakhir

        If nilaiakhir > 85 Then

            MsgBox ("Nilai A")

        ElseIf nilaiakhir > 70 Then

            MsgBox ("Nilai B")

        ElseIf nilaiakhir > 60 Then

            MsgBox ("Nilai C")

        ElseIf nilaiakhir > 50 Then

            MsgBox ("Nilai D")

        ElseIf nilaiakhir > 0 Then

            MsgBox ("Nilai E")

        End If

    End Sub

Coding btnexit :

Private Sub btnexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click

        Close()

    End Sub

Coding btnclear:

   Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclear.Click

        txtnama.Clear()

        txtabsen.Clear()

        txttugas.Clear()

        txtkeaktifan.Clear()

        txtuts.Clear()

        txtuas.Clear()

        txtnilaiakhir.Clear()

    End Sub

Ini adalah hasil jadi aplikasi yang telah di buat

! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! !  ! !  ! ! ! ! ! ! !  ! ! ! ! ! ! ! Selamat Mencoba dan Sukses yahhhh ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !  ! ! ! ! !  ! !  ! ! ! ! ! ! !  ! ! ! ! ! ! !

J J J J J J J J J J

 J J J J J

J J J J J