VISUAL BASIC 2008: MENGHITUNG NILAI AKHIR

Saya agak bingung sebenarnya mau tulis apa lagi diblog ini, ya udah kalian gak usah ikut mikir, cukup saya aja yang merasa bingung. Kali ini saya akan berbagi ilmu kepada teman semuanya dengan apa yang telah saya pelajari yaitu tentang bahasa pemograman VISUAL BASIC 2008.
  
Program ini saya beri judul "Menghitung Nilai Akhir" sepertinya judulnya lumayan cocok lah.. langsung aja saya berikan tampilan akhirnya nanti seperti gambar ini




Sebelum masuk pada tahap script nya sedikit tips agar memudahkan anda untuk belajar VB.Net ini.
textbot sebaiknya anda ganti nama nya dari yang standar dengan nama singkatan sesuai kebutuhan textbox itu nantinya

contohnya: textbox1 ==> txtnama, dan seterusnya.

oke boss langsung aja pada tahap scriptnya
untuk memasukan script tersebut anda tinggal klik 2x pada atribut yang akan menjalankan perintah tersebut, yang disini ada  1. hitung 2. close 3. clear
dapat anda lihat dari gambar tersebut.

Public Class tugas1

'ini adalah program untuk eksekusi menghitung nilai nya

    Private Sub HITUNG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HITUNG.Click
        Dim nama As String
        Dim tugas As Double
        Dim mid As Double
        Dim uas As Double
        Dim rata As Double
        Dim huruf As String
        Dim ket As String

        nama = txtnama.Text
        tugas = Val(txttugas.Text)
        mid = Val(txtmid.Text)
        uas = Val(txtuas.Text)

        rata = (tugas + mid + uas) / 3
        txtrata.text = rata

        If rata <= 40 Then
            huruf = "E"
            ket = "anda gagal"
        ElseIf rata <= 55 Then
            huruf = "D"
            ket = "cukup"
        ElseIf rata <= 66 Then
            huruf = "C"
            ket = "cukup"
        ElseIf rata <= 80 Then
            huruf = "B"
            ket = "Baik"
        ElseIf rata > 80 Then
            huruf = "A"
            ket = "Sangat Bagus"
        End If
        txtnhuruf.Text = huruf
        txtket.Text = ket

    End Sub
'ini script program untuk tombol close, ini script yang paling panjang dan rumit hehe
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()

    End Sub
'ini sript untuk tombol Clear
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        txtket.Text = ""
        txtmid.Text = ""
        txtnama.Text = ""
        txtnhuruf.Text = ""
        txtrata.Text = ""
        txttugas.Text = ""
        txtuas.Text = ""
    End Sub
End Class

Setelah selesai silahkan jalankan dan lihat hasilnya,

Ingat: atribut dalam program sudah saya ganti dengan nama sesuai keinginan saya, jadi harap hati2 dengan penamaan pada masing2 atribut. bila ada kesulitan, silahkan komen aja, pasti akan saya bantu.. sekian dulu, semoga bermanfaat. salam sukses