PRAKTEK 5 - PENCABANGAN IF

Pertama-tama design Form seperti ini

lalu masukkan source code nya :

Public Class Form1

    Private Sub Btn_if_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if.Click
        Dim usia As String, nilai As Single, thn As Integer
        usia = InputBox("Usia Pegawai saat ini?", "Batasan usia pensiun", 0)
        nilai = Val(usia)
        If nilai >= 55 Then
            thn = nilai - 55
            MessageBox.Show("usia pegawai:" & usia & "Tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
            MessageBox.Show("Keterangan: Pegawai harus pensiun" & thn & "tahun yang lalu", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub

    Private Sub Btn_if_else_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_if_else.Click
        Dim usia As String, nilai As Single, thn As Integer
        usia = InputBox("Usia Pegawai saat ini?", "Batasan usia pensiun", 0)
        nilai = Val(usia)
        If nilai >= 55 Then
            thn = nilai - 55
            MessageBox.Show("usia pegawai:" & usia & "Tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
            MessageBox.Show("Keterangan:Pegawai harus pensiun" & thn & " tahun yang lalu", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            thn = 55 - nilai
            MessageBox.Show("usia pegawai:" & usia & "Tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub

    Private Sub Btn_case_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_case.Click
        Dim isian As String, usia As Integer
        isian = InputBox("Usia Anda saat ini?", "Status Anda")
        usia = Val(isian)
        MessageBox.Show("Usia Anda saat ini:" & usia & "tahun", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Select Case usia
            Case 1 To 4
                MessageBox.Show("Anda sekarang tergolong balita", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case 5 To 16
                MessageBox.Show("Anda sekarang tergolong anak-anak", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case 17 To 24
                MessageBox.Show("Anda sekarang tergolong remaja", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case 25 To 55
                MessageBox.Show("Anda sekarang tergolong dewasa", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case Is >= 56
                MessageBox.Show("Anda sekarang tergolong manula", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Case Else
                MessageBox.Show("Anda salah memasukkan usia", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Select
    End Sub
End Class

Semoga Berhasil!!

PRAKTEK 4 - CARA MENGHITUNG NILAI AKHIR MENGGUNAKAN VISUAL STUDIO

Kali ini saya akan membuat tutorial cara menghitung nilai akhir dan menampilkan nilai huruf dengan menggunakan if dan else if di Microsoft visual basic 2010 express.

Langkah-langkahnya adalah sebagai berikut :

1.      Buka aplikasi  Microsoft visual basic 2010 express ->file->New Project->Windows Form Application, isikan namanya menghitung nilai akhir. Kemudian klik ok.

2.      Kemudian buat tampilan seperti di bawah ini, yang terdiri dari 1 groupbox, 7 label, 7 textbox dan 3 button.

Kemudian ubah semua nama text sesuai kebutuhan.

Keterangan :
Form1 = menghitung nilai akhir

Groupbox 1 = Daftar Nilai

Label1 = Absen

Label2 = Tugas

Label3 = Keaktifan

Label4 = Nilai Uts

Label 5 =  Nilai Uas

Label 6 = Nilai Akhir

Label 7 = Huruf

Button1 = Hitung / btnHitung(name)

Button2 = Clear / btnClear(name)

Button3 = Exit / btnExit(name)

Untuk "name" textboxnya juga di ubah sesuai kebutuhan

Keterangan :

TextBox1 = txtAbsen

TextBox2 =txtTugas

TextBox3 = txtKeaktifan

TextBox4 = txtUts

TextBox5 = txtUas

TextBox6 =txtNilaiAkhir

TextBox7 = txtHuruf

Hingga tampilannya seperti ini.

3.      Setelah itu kemudian masukan source kodenya ke masing-masing button.

·         Button hitung source kodenya adalah sebagai berikut :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnHitung.Click

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

              Dim nilai, huruf 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

                        nilai = absen + tugas + keaktifan + uts + uas

                        txtNilaiAkhir.Text = nilai

                        txtHuruf.Text = huruf

                        If nilai > 85 Then

                       txtHuruf.Text = "A"

                        ElseIf nilai > 70 Then

                        txtHuruf.Text = "B"

                        ElseIf nilai > 50 Then

                        txtHuruf.Text = "C"

                        ElseIf nilai > 30 Then

                        txtHuruf.Text = "D"

                        ElseIf nilai > 10 Then

                        txtHuruf.Text = "E"

                        End If

                         End Sub

·         button Clear source kodenya adalah sebagai berikut :

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnClear.Click

            txtAbsen.Clear()

            txtHuruf.Clear()

            txtKeaktifan.Clear()

            txtNilaiAkhir.Clear()

            txtTugas.Clear()

            txtUas.Clear()

            txtUts.Clear()

                        End Sub

·         button Exit source kodenya adalah sebagai berikut :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click

                          Me.Close()

                          End Sub

  End Class

4.      Setelah semua selesai, run program. Maka tampilannya awal nya akan seperti ini

Kemudian isi textbox sesuai dengan kebutuhan. Saya ambil contoh nilai absen 90, nilai tugas 80, nilai keaktifan 80, nilai uts 90, dan nilai uas 90. Maka hasilnya adalah sebagai berikut .

Jadi nilai akhir anda adalah 87 dan anda mendapat nilai A.

Untuk menghapus semua data , kita klik button Clear . maka hasilnya kembali seperti tampilan awal ketika di run. Tampilannya seperti di bawah ini :

Dan untuk keluar dari program kita tinggal menekan button Exit.

Sekian tutorial sederhana mengenai cara menghitung nilai akhir.

Selamat mencoba

Semoga bermanfaat