[Tugas Pemrograman Visual] Program Nilai Mahasiswa Pada VB.Net

Malam gaes...

Posting kali ini membuat program nilai mahasiswa. Tenang, saya akan tetap berikan sourcecodenya juga. Silakan design form kalian masing-masing.

Silakan isi list programnya.

Public Class Form1
    Dim w As Byte

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        hidupmati(False, False, False, False, False, False, False, False, False, False, False, False, False, False, False, False)
        w = 1
        rubahbutton(True, False, False, False, False, True)
        buattabel()
        NPM.Items.Add("13110057")
        NPM.Items.Add("13120147")
        NPM.Items.Add("13130289")
        NPM.Items.Add("13120344")
        NPM.Items.Add("13110490")

        kodedosen.Items.Add("lab01")
        kodedosen.Items.Add("lab02")
        kodedosen.Items.Add("lab03")

        kodematakuliah.Items.Add("K01")
        kodematakuliah.Items.Add("K02")
        kodematakuliah.Items.Add("K03")

        Dim x As Integer
        For x = 100 To 1 Step -3
            nHadir.Items.Add(x)
            nTugas.Items.Add(x)
            nUTS.Items.Add(x)
            nUAS.Items.Add(x)
        Next

        nakhir.Enabled = False
        huruf.Enabled = False
        ket.Enabled = False

    End Sub

    Sub jurjen()
        Dim jen = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
        Dim jur = Microsoft.VisualBasic.Mid(NPM.Text, 5, 2)
        If jen = "11" Then
            jenjang.Text = "S1"
        ElseIf jen = "12" Then
            jenjang.Text = "D3"
        ElseIf jen = "13" Then
            jenjang.Text = "D1"
        End If
        If jur = "00" Then
            jurusan.Text = "TI"
        ElseIf jur = "01" Then
            jurusan.Text = "SI"
        ElseIf jur = "02" Then
            jurusan.Text = "MI"
        ElseIf jur = "03" Then
            jurusan.Text = "KA"
        ElseIf jur = "04" Then
            jurusan.Text = "DG"
        End If
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged


        If NPM.Text = "13110057" Then
            nama.Text = "Abya Aliya"
            Call jurjen()
        ElseIf NPM.Text = "13120147" Then
            nama.Text = "Soenan Widjaya"
            Call jurjen()
        ElseIf NPM.Text = "13130289" Then
            nama.Text = "Eric Evan"
            Call jurjen()
        ElseIf NPM.Text = "13120344" Then
            nama.Text = "Vita Sara"
            Call jurjen()
        ElseIf NPM.Text = "13110490" Then
            nama.Text = "Firman Muhammad"
            Call jurjen()
        End If
    End Sub

    Private Sub kddosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
        If kodedosen.Text = "lab01" Then
            namadosen.Text = "Mesran, M.Kom"
        ElseIf kodedosen.Text = "lab02" Then
            namadosen.Text = "Guidio Leonarde Ginting, M.Kom"
        ElseIf kodedosen.Text = "lab03" Then
            namadosen.Text = "Surya Darma Nst, M.Kom"

        End If

    End Sub

    Private Sub kdmakul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodematakuliah.SelectedIndexChanged

        If kodematakuliah.Text = "K01" Then
            namamatakuliah.Text = "Pemrograman Visual I"
        ElseIf kodematakuliah.Text = "K02" Then
            namamatakuliah.Text = "Sistem Basis Data"
        ElseIf kodematakuliah.Text = "K03" Then
            namamatakuliah.Text = "Arsitektur Data"
        End If

    End Sub

    Private Sub b_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bproses.Click

        nAkhir.Text = 0.1 * nHadir.Text + 0.15 * nTugas.Text + 0.3 * nUTS.Text + 0.45 * nUAS.Text
        If nakhir.Text >= 90 Then
            huruf.Text = "A"
            ket.Text = "LULUS"
        ElseIf nakhir.Text >= 80 Then
            huruf.Text = "B"
            ket.Text = "LULUS"
        ElseIf nakhir.Text >= 70 Then
            huruf.Text = "C"
            ket.Text = "LULUS"
        ElseIf nakhir.Text >= 60 Then
            huruf.Text = "D"
            ket.Text = "LULUS"
        ElseIf nakhir.Text <= 50 Then
            huruf.Text = "E"
            ket.Text = "GAGAL"
        End If

    End Sub

    Sub bersih()
        NPM.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kodedosen.Text = ""
        namadosen.Text = ""
        kodematakuliah.Text = ""
        namamatakuliah.Text = ""
        nHadir.Text = ""
        ntugas.Text = ""
        nUTS.Text = ""
        nUAS.Text = ""
        nakhir.Text = ""
        huruf.Text = ""
        ket.Text = ""
        NPM.Focus()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bhapus.Click

        bersih()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bkeluar.Click
        Me.Close()
    End Sub

    Sub buattabel()
        LV.Columns.Add("No", 30, HorizontalAlignment.Center)
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Nama", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Jenjang", 70, HorizontalAlignment.Left)
        Lv.Columns.Add("Jurusan", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Kode", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Dosen", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Kode", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Mata Kuliah", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Kehadiran", 70, HorizontalAlignment.Left)
        Lv.Columns.Add("Nilai Tugas", 70, HorizontalAlignment.Left)
        LV.Columns.Add("UTS", 70, HorizontalAlignment.Left)
        LV.Columns.Add("UAS", 70, HorizontalAlignment.Left)
        Lv.Columns.Add("Nilai Akhir", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Huruf", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Ket", 70, HorizontalAlignment.Left)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True
    End Sub

    Sub isitabel()
        Dim Isi As New ListViewItem
        Isi.Text = w
        Isi.SubItems.Add(NPM.Text)
        Isi.SubItems.Add(nama.Text)
        Isi.SubItems.Add(jenjang.Text)
        Isi.SubItems.Add(jurusan.Text)
        Isi.SubItems.Add(kodedosen.Text)
        Isi.SubItems.Add(namadosen.Text)
        Isi.SubItems.Add(kodematakuliah.Text)
        Isi.SubItems.Add(namamatakuliah.Text)
        Isi.SubItems.Add(nHadir.Text)
        Isi.SubItems.Add(ntugas.Text)
        Isi.SubItems.Add(nUTS.Text)
        Isi.SubItems.Add(nUAS.Text)
        Isi.SubItems.Add(nakhir.Text)
        Isi.SubItems.Add(huruf.Text)
        Isi.SubItems.Add(ket.Text)
        Lv.Items.Add(Isi)
        w = w + 1
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsimpan.Click
        isitabel()
    End Sub

    Sub hidupmati(ByVal q1 As Boolean, ByVal q2 As Boolean, ByVal q3 As Boolean, ByVal q4 As Boolean, ByVal q5 As Boolean, ByVal q6 As Boolean, ByVal q7 As Boolean, ByVal q8 As Boolean, ByVal q9 As Boolean, ByVal q10 As Boolean, ByVal q11 As Boolean, ByVal q12 As Boolean, ByVal q13 As Boolean, ByVal q14 As Boolean, ByVal q15 As Boolean, ByVal q16 As Boolean)
        NPM.Enabled = q1
        nama.Enabled = q2
        jenjang.Enabled = q3
        jurusan.Enabled = q4
        kodedosen.Enabled = q5
        namadosen.Enabled = q6
        kodematakuliah.Enabled = q7
        namamatakuliah.Enabled = q8
        nHadir.Enabled = q9
        nTugas.Enabled = q10
        nUTS.Enabled = q11
        nUAS.Enabled = q12
        nAkhir.Enabled = q13
        huruf.Enabled = q14
        ket.Enabled = q15
        LV.Enabled = q16
    End Sub

    Private Sub bbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bbaru.Click
        hidupmati(True, True, True, True, True, True, True, True, True, True, True, True, False, False, False, True)
        rubahbutton(True, True, True, True, True, True)
        NPM.Focus()
        bersih()
    End Sub

    Private Sub HapusItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusitem.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Sub rubahbutton(ByVal e1 As Boolean, ByVal e2 As Boolean, ByVal e3 As Boolean, ByVal e4 As Boolean, ByVal e5 As Boolean, ByVal e6 As Boolean)
        bbaru.Enabled = e1
        bsimpan.Enabled = e2
        bproses.Enabled = e3
        bhapus.Enabled = e4
        hapusitem.Enabled = e5
        bkeluar.Enabled = e6
    End Sub
End Class

Silakan copas gaes, semoga bermanfaat. Gud Nite.

Read More

[Tugas Pemrograman Visual] Aplikasi Penjualan Tiket Film Menggunakan VB.Net

Berjumpa lagi.

Di tengah-tengah hari libur ini, saya tetap memikirkan tugas-tugas yang diberikan oleh dosen saya (curhat deh). Postingan ini juga salah satunya. Karena banyak orang senang menonton film, maka saya akan memberikan sedikit bocoran aplikasi penjualan tiketnya menggunakan vb.net seperti yang sudah saya pelajari.

Berikut listing programnya:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Kode.Items.Add("A001")
        Kode.Items.Add("A002")
        Kode.Items.Add("A003")
        Kode.Items.Add("A004")
    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        If Kode.Text = "A001" Then
            namastudio.Text = "Studio 1"
            Kelas.Text = "Eksklusif"
            harga.Text = 100000
        ElseIf Kode.Text = "A002" Then
            namastudio.Text = "Studio 2"
            Kelas.Text = "Bisnis"
            harga.Text = 80000
        ElseIf Kode.Text = "A003" Then
            namastudio.Text = "Studio 3"
            Kelas.Text = "Ekonomi"
            harga.Text = 70000
        Else
            namastudio.Text = "Studio 4"
            Kelas.Text = "Super Ekonomi"
            harga.Text = 60000
        End If
        Jumlah.Focus()
    End Sub

    Sub Hapus()
        Kode.Text = ""
        namastudio.Text = ""
        Kelas.Text = ""
        Harga.Text = ""
        Jumlah.Text = ""
        totalharga.Text = ""
        diskon.Text = ""
        totalbayar.Text = ""
        Dibayar.Text = ""
        Kembalian.Text = ""
    End Sub


    Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress
        If e.KeyChar = Chr(13) Then
            totalharga.Text = harga.Text * jumlah.Text
            If Jumlah.Text >= 5 Then
                diskon.Text = "10%"
                diskon.Text = 0.1 * totalharga.Text
            Else
                diskon.Text = "0%"
                diskon.Text = 0
            End If
            totalbayar.Text = totalharga.Text - diskon.Text
            Dibayar.Focus()
        End If

    End Sub

    Private Sub Bkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bkeluar.Click
        Me.Close()
    End Sub

    Private Sub Dibayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Dibayar.KeyPress
        If e.KeyChar = Chr(13) Then
            kembalian.Text = dibayar.Text - totalbayar.Text
        End If
    End Sub

    Private Sub Bhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bhapus.Click
        Call Hapus()
    End Sub
End Class

Semoga bermanfaat dan dapat menambah wawasan teman-teman semuanya. Good night.

Read More

[Tugas Pemograman Visual] Belajar Looping Piramida Pada VB.Net

Hai guys, malam-malam seperti ini seru juga untuk belajar (memang tugas lagi banyak sih hehe). Kali ini saya akan memosting tentang looping piramida. Yes, perulangan pada VB.net. Langsung aja lihat designnya di bawah ini.

Lalu silakan ikuti coding yang ada di bawah ini:

Public Class Form1

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        Dim x, y, z As Integer
        x = 1 : y = NumericUpDown1.Value
        TextBox1.Clear()
        Do While x <= y
            z = 1
            TextBox1.Text = _
            TextBox1.Text & Space(y - x)
            Do While z <= x
                TextBox1.Text = _
                TextBox1.Text & " " & z
                z += 1
            Loop
            TextBox1.Text = _
            TextBox1.Text & vbCrLf
            x += 1
        Loop

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Me.Close()
    End Sub
End Class

Maka, hasilnya akan seperti ini:

Semoga bermanfaat guys.

Read More

[Tugas Pemrograman Visual] Penggunaan ListView Pada Aplikasi Pembayaran Air Menggunakan VB.Net

Selamat malam sahabat

Malam ini saya akan memosting aplikasi pembayaran air menggunakan visual basic 2008. Jangan khawatir, saya akan menyertakan sourcecode yang telah berhasil saya coba agar lebih memudahkan sahabat. Mari ikuti desain berikut:

Berikut coding yang harus dituliskan:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode_pelanggan.Items.Add("TOK-MED-100")
        kode_pelanggan.Items.Add("PAB-BEL-101")
        kode_pelanggan.Items.Add("SWA-BEL-102")
        kode_pelanggan.Items.Add("PAB-MED-103")
        kode_pelanggan.Items.Add("RUM-MED-104")
        rancangtable()

    End Sub
    Sub rancangtable()
        With Lv
            .Columns.Add("Kode Pelanggan", 80, HorizontalAlignment.Center)
            .Columns.Add("Nama", 100, HorizontalAlignment.Center)
            .Columns.Add("Tipe", 80, HorizontalAlignment.Center)
            .Columns.Add("Daerah", 100, HorizontalAlignment.Center)
            .Columns.Add("Harga", 100, HorizontalAlignment.Center)
            .Columns.Add("Biaya Beban", 80, HorizontalAlignment.Center)
            .Columns.Add("Pemakaian Air", 100, HorizontalAlignment.Center)
            .Columns.Add("Total Tagihan", 80, HorizontalAlignment.Center)
            .Columns.Add("pajak", 100, HorizontalAlignment.Center)
            .Columns.Add("Pembayaran", 80, HorizontalAlignment.Center)
            .FullRowSelect = True
            .GridLines = True
            .View = View.Details
        End With
    End Sub
    Sub isitable()
        Dim i As New ListViewItem
        With i
            .Text = kode_pelanggan.Text
            .SubItems.Add(nama.Text)
            .SubItems.Add(tipe.Text)
            .SubItems.Add(daerah.Text)
            .SubItems.Add(harga.Text)
            .SubItems.Add(biaya_beban.Text)
            .SubItems.Add(pemakaian_air.Text)
            .SubItems.Add(total_tagihan.Text)
            .SubItems.Add(pajak.Text)
            .SubItems.Add(pembayaran.Text)
            Lv.Items.Add(i)
        End With
    End Sub

    Private Sub Kodepelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_pelanggan.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(kode_pelanggan.Text, 3)



        If x = "100" Then
            nama.Text = "Ahmad Salim"
        ElseIf x = "101" Then
            nama.Text = "Vina Harahap"
        ElseIf x = "102" Then
            nama.Text = "Juhailiman Simanjuntak"
        ElseIf x = "103" Then
            nama.Text = "Shafiatun Arhab"
        End If


        x = Microsoft.VisualBasic.Left(kode_pelanggan.Text, 3)

        If x = "PAB" Then
            harga.Text = 500
            biaya_beban.Text = 250000
            tipe.Text = "Pabrik"
        ElseIf x = "TOK" Then
            harga.Text = 500
            biaya_beban.Text = 25000
            tipe.Text = "Toko"
        ElseIf x = "RUM" Then
            harga.Text = 500
            biaya_beban.Text = 10000
            tipe.Text = "Rumah"
        ElseIf x = "SWA" Then
            harga.Text = 200
            biaya_beban.Text = 15000
            tipe.Text = "Swalayan"
        End If

        x = Microsoft.VisualBasic.Mid(kode_pelanggan.Text, 5, 3)
        If x = "MED" Then
            daerah.Text = "Medan"
        ElseIf x = "BEL" Then
            daerah.Text = "Belawan"
        End If
    End Sub

    Private Sub pemakaian_air_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakaian_air.KeyPress
        If Asc(e.KeyChar) = 13 Then
            total_tagihan.Text = harga.Text * pemakaian_air.Text + Val(biaya_beban.Text)
            pajak.Text = 0.01 * total_tagihan.Text
            pembayaran.Text = Val(total_tagihan.Text) + Val(pajak.Text)
        End If
    End Sub
    Sub bersih()
        kode_pelanggan.Text = ""
        nama.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        harga.Text = ""
        biaya_beban.Text = ""
        pemakaian_air.Text = ""
        total_tagihan.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        bersih()
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Me.Close()
    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isitable()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_satu.Click
        If lv.SelectedItems.Count <> 0 Then
            lv.Items.Remove(lv.SelectedItems(0))
        Else
            MsgBox("Maaf Anda Belum" & vbCr & "Memilih Yang Ingin Anda Hapus")
        End If
    End Sub

    Private Sub Hapus_lv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_lv.Click
        lv.Items.Clear()
    End Sub
End Class

Kemudian tekan F5 untuk menjalankan program tersebut.

Sekian dan semoga bermanfaat sahabat.

Read More

[Tugas Pemrograman Visual] Aplikasi Penggajian Karyawan Menggunakan VB.Net

Selamat siang

Membuat sebuah program penggajian karyawan tidaklah sulit. Berikut ini saya akan bagikan kepada teman semua sourcecode yang telah saya pelajari. Untuk pertama, silakan desain terlebih dahulu form project yang tersedia.

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        NIK.Items.Add("PM010")
        NIK.Items.Add("PS111")
        NIK.Items.Add("KU101")
        NIK.Items.Add("GD100")
        NIK.Items.Add("PM011")

        jabatan.Items.Add("Kepala Dinas")
        jabatan.Items.Add("Staf")
        jabatan.Items.Add("Wakil Kepala")

        status.Items.Add("Menikah")
        status.Items.Add("Beum Menikah")

        perulangan()
    End Sub

    Sub perulangan()
        Dim a As Integer
        For a = 5 To 0 Step -1
            jumlah_anak.Items.Add(a)
        Next
    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
        Select Case NIK.Text
            Case ("PM010")
                nama.Text = "Duta"
                jabatan.Text = "Kepala Dinas"
                status.Text = "Menikah"
            Case ("PS111")
                nama.Text = "Abdi"
                jabatan.Text = "Staf"
                status.Text = "Belum Menikah"
            Case ("KU101")
                nama.Text = "Saka"
                jabatan.Text = "Wakil Kepala"
                status.Text = "Menikah"
            Case ("GD100")
                nama.Text = "Arief"
                jabatan.Text = "Staf"
                status.Text = "Menikah"
            Case ("PM011")
                nama.Text = "Kiki"
                jabatan.Text = "Staf"
                status.Text = "Belum Menikah"
        End Select
        x()
    End Sub

    Sub x()
        Dim i As String
        i = Microsoft.VisualBasic.Left(nik.Text, 2)
        If i = "PM" Then
            bagian.Text = "Pemesanan"
        ElseIf i = "PS" Then
            bagian.Text = "Personalia"
        ElseIf i = "KU" Then
            bagian.Text = "Keuangan"
        ElseIf i = "GD" Then
            bagian.Text = "Gudang"
        End If
    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged

        If NIK.Text = "" And Nama.Text = "" And Bagian.Text = "" Then
            MsgBox("Maaf, Harap Di Isi NIK Anda")
            jabatan.Items.Clear()
        Else
            Select Case Jabatan.Text
                Case ("Kepala Dinas")
                    gaji_pokok.Text = 5000000
                Case ("Staf")
                    gaji_pokok.Text = 2000000
                Case ("Wakil Kepala")
                    gaji_pokok.Text = 3500000
            End Select
            pajak.Text = 0.1 * gaji_pokok.Text
        End If

    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        If Jabatan.Text = "" And Gaji_Pokok.Text = "" And Pajak.Text = "" Then
            MsgBox("Maaf, Harap Di Isi Jabatan Anda")
            status.Items.Clear()
        Else
            y()
        End If
    End Sub

    Sub y()
        If status.Text = "Menikah" Then
            jumlah_anak.Enabled = True
            tunjangan_anak.Enabled = True
            tunjangan_keluarga.Enabled = True
            tunjangan_keluarga.Text = 0.05 * gaji_pokok.Text
            tunjangan_anak.Text = ""
            jumlah_anak.Text = ""
            tunjangan_anak.Text = ""
        Else
            tunjangan_keluarga.Text = "0"
            tunjangan_anak.Text = "0"
            tunjangan_keluarga.Enabled = False
            tunjangan_anak.Enabled = False
            jumlah_anak.Enabled = False
            total_gaji.Enabled = True
            jumlah_anak.Text = "0"
            total_gaji.Text = Val(gaji_pokok.Text) - pajak.Text
        End If
    End Sub

    Private Sub Jumlah_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah_anak.SelectedIndexChanged

        If status.Text = "" Then
            MsgBox("Maaf, Harap Di Isi Status Anda")
            jumlah_anak.Items.Clear() : perulangan()
        Else
            If jumlah_anak.Text = 1 Then
                tunjangan_anak.Text = 0.05 * gaji_pokok.Text
            ElseIf jumlah_anak.Text >= 2 Then
                tunjangan_anak.Text = 0.1 * gaji_pokok.Text
            Else
                tunjangan_anak.Text = 0
                tunjangan_anak.Enabled = False
            End If
            total()
        End If
    End Sub

    Sub total()
        total_gaji.Text = Val(gaji_pokok.Text) + Val(tunjangan_keluarga.Text) + Val(tunjangan_anak.Text) - pajak.Text
    End Sub

    Sub batal()
        NIK.Text = ""
        Nama.Text = ""
        Bagian.Text = ""
        Jabatan.Text = ""
        Gaji_Pokok.Text = ""
        Pajak.Text = ""
        Status.Text = ""
        jumlah_anak.Text = ""
        tunjangan_Keluarga.Text = ""
        Tunjangan_Anak.Text = ""
        Total_Gaji.Text = ""
    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        batal()
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub
End Class

Maka, jika dijalankan hasilnya akan seperti ini.

Namun, jika salah satu combobox tidak diisi terlebih dahulu maka hasilnya akan terlihat seperti ini.

Sekian informasi dari saya. Semoga bermanfaat.

Read More

[Tugas Pemrograman Visual] Membuat Video Player Pada VB.Net

Selamat Malam

Artikel yang akan saya posting kali ini adalah bagaimana cara membuat video player dengan visual basic. Langsung saja, siapkan terlebih dahulu form project seperti biasa yang akan kita gunakan.

1. Untuk memunculkan toolbox windows media player atau tampilan windows media player maka pilih menu Tools > choose toolbox items.

2. Maka akan tampil jendela choose toolbox item, kemudian klik pada menu COM Components, lalu cari Windows Media Player kemudian beri centang. Lalu klik OK. 

3. Maka akan muncul toolbox yang baru ditambahkan tersebut, yaitu bernama Windows Media Player.

4. Lalu klik mouse kiri pada gambar toolbox Windows Media Player, tekan terus jangan anda lepaskan, kemudian tarik ke dalam jendela Form 1 lalu lepaskan.

5. Setelah anda lepaskan maka toolbox Windows Media Player akan masuk ke dalam Form 1. Seperti pada gambar berikut :

6. Kemudian tarik setiap sudut hingga hampir memenuhi form, seperti tampak pada gambar berikut :

7. Kemudian klik pada jendela toolbox, lalu pilih toolbox panel dan kemudian masukkan kembali toolbox panel ke dalam jendela Form 1 tepat di atas toolbox Windows Media Player. Lihat gambar di bawah ini:

8. Setelah toolbox panel tersebut masuk kedalam form, rapikan dengan mengatur panjang lebar setiap sudut hingga menutupi posisi kosong yang berada di atas toolbox windows media player.

9. Kemudian masuk lagi ke dalam jendela toolbox, lalu pilih OpenFileDialog, klik - tahan - tarik - lalu lepaskan ke dalam jendela form 1 tepat di atas Toolbox panel (ditumpuk jadi satu di atas toolbox panel).

10. Setelah anda tumpuk toolbox OpenFileDialog maka akan muncul toolbox tersebut di bawah layar Form 1. Lihat gambar berikut : 

11. Setelah itu masuk kembali ke jendela toolbox, kemudian tambah 2 buah button ke dalam jendela form 1.

12. Tambah 2 button tersebut. Button 1 ubah nama button dengan Import File dan button 2 ubah dengan nama Quit, seperti tampak pada gambar berikut :

13. Kemudian klik toolbox Window Media Player pada Form 1, lalu masuk ke menu properties cari pilihan Dock lalu pilih fill. Gunanya untuk membuat toolbox Windows Media Player tersebut menjadi berada tepat di posisi tengah.

14. Kemudian klik pada toolbox panel yang berada di dalam form1, lalu masuk ke menu properties. Kemudian cari pilihan Dock lalu pilih Top, agar posisi toolbox panel berada tepat di atas Toolbox windows media player.

15. Setelah itu klik 2 kali button Import file, setelah anda klik maka akan masuk ke dalam tampilan tempat menaruh script. Yang berguna untuk dapat mengambil file dari komputer anda, untuk diputar atau dijalankan. Berikut Script yang harus dituliskan :

OpenFileDialog1.ShowDialog()
AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName

16. Kemudian pilih menu Form1.vb[Design]*, lalu klik 2 kali Button exit. kemudian masukkan script berikut :

End

17. Setelah itu jalankan dengan mengklik tanda play atau tekan F5 pada keyboard. Lihat gambar :

Nah, jangan lupa untuk memberikan background pada video player anda seperti yang saya lakukan agar video player terlihat lebih menarik. Untuk memainkannya, klik import file lalu cari file musik atau video yang ingin anda putar. Lalu klik open, maka file musik atau video yang telah anda pilih akan dijalankan. Selamat mencoba.

Read More

Review Tentang http://mesran.blogspot.com

Hai, kali ini saya akan memosting sebuah review tentang sebuah blog yang sangat banyak manfaatnya. Mesran.Blogspot.com adalah sebuah blog yang banyak mengulas tentang pembelajaran bahasa pemrograman. Nah, pada mesran.net sendiri terdapat beberapa artikel yang diantaranya artikel mengenai tips dan trik belajar bahasa program juga beberapa bahasa program seperti Visual Basic dot Net, C/C++, Pascal.

Namun, nggak hanya itu saja. Mesran.net juga menyediakan program-program yang bisa dengan mudah didownload oleh Anda semua di sini.

Nah, sekian review dari saya. Silakan bagi yang ingin dengan mudah mendapatkan informasi tentang pemograman.

Read More

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Tugas Praktikum Penjualan Kredit Mobil

Berikut Jawaban Program

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        kode.Items.Add("MB1")

        kode.Items.Add("MB2")

        kode.Items.Add("MB3")

        kode.Items.Add("MB4")

        tahun.Items.Add("2012")

        tahun.Items.Add("2013")

        tahun.Items.Add("2014")

        kondisi.Items.Add("Baru")

        kondisi.Items.Add("Bekas")

        jb.Items.Add("1")

        jb.Items.Add("2")

        jb.Items.Add("3")

        lama.Items.Add("12")

        lama.Items.Add("24")

        lama.Items.Add("36")

        Call rancangtabel()

    End Sub

    Sub rancangtabel()

        lv.Columns.Add("Kode", 40, HorizontalAlignment.Left)

        lv.Columns.Add("Nama", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Tahun", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Kondisi", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)

        lv.GridLines = True

        lv.View = View.Details

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim mobil As New ListViewItem

        mobil.Text = kode.Text

        mobil.SubItems.Add(nama.Text)

        mobil.SubItems.Add(tahun.Text)

        mobil.SubItems.Add(kondisi.Text)

        mobil.SubItems.Add(Harga.Text)

        lv.Items.Add(mobil)

    End Sub

   

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        If kode.Text = "MB1" Then

            nama.Text = "Avanza Veloz"

        ElseIf kode.Text = "MB2" Then

            nama.Text = "Avanza G"

        ElseIf kode.Text = "MB3" Then

            nama.Text = "Xenia"

        ElseIf kode.Text = "MB4" Then

            nama.Text = "Toyota Yaris"

        End If

    End Sub

    Private Sub kondisi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kondisi.SelectedIndexChanged

        If kode.Text = "MB1" And nama.Text = "Avanza Veloz" And kondisi.Text = "Baru" And tahun.Text = "2012" Then

            Harga.Text = "175000000"

        ElseIf kode.Text = "MB1" And nama.Text = "Avanza Veloz" And kondisi.Text = "Bekas" And tahun.Text = "2012" Then

            Harga.Text = "130000000"

        ElseIf kode.Text = "MB1" And nama.Text = "Avanza Veloz" And kondisi.Text = "Baru" And tahun.Text = "2013" Then

            Harga.Text = "195000000"

        ElseIf kode.Text = "MB1" And nama.Text = "Avanza Veloz" And kondisi.Text = "Bekas" And tahun.Text = "2013" Then

            Harga.Text = "150000000"

        ElseIf kode.Text = "MB1" And nama.Text = "Avanza Veloz" And kondisi.Text = "Baru" And tahun.Text = "2014" Then

            Harga.Text = "208000000"

        ElseIf kode.Text = "MB1" And nama.Text = "Avanza Veloz" And kondisi.Text = "Bekas" And tahun.Text = "2014" Then

            Harga.Text = "160000000"

        ElseIf kode.Text = "MB2" And nama.Text = "Avanza G" And kondisi.Text = "Baru" And tahun.Text = "2012" Then

            Harga.Text = "160000000"

        ElseIf kode.Text = "MB2" And nama.Text = "Avanza G" And kondisi.Text = "Bekas" And tahun.Text = "2012" Then

            Harga.Text = "130000000"

        ElseIf kode.Text = "MB2" And nama.Text = "Avanza G" And kondisi.Text = "Baru" And tahun.Text = "2013" Then

            Harga.Text = "170000000"

        ElseIf kode.Text = "MB2" And nama.Text = "Avanza G" And kondisi.Text = "Bekas" And tahun.Text = "2013" Then

            Harga.Text = "140000000"

        ElseIf kode.Text = "MB2" And nama.Text = "Avanza G" And kondisi.Text = "Baru" And tahun.Text = "2014" Then

            Harga.Text = "180000000"

        ElseIf kode.Text = "MB2" And nama.Text = "Avanza G" And kondisi.Text = "Bekas" And tahun.Text = "2014" Then

            Harga.Text = "150000000"

        ElseIf kode.Text = "MB3" And nama.Text = "Xenia" And kondisi.Text = "Baru" And tahun.Text = "2012" Then

            Harga.Text = "165000000"

        ElseIf kode.Text = "MB3" And nama.Text = "Xenia" And kondisi.Text = "Bekas" And tahun.Text = "2012" Then

            Harga.Text = "125000000"

        ElseIf kode.Text = "MB3" And nama.Text = "Xenia" And kondisi.Text = "Baru" And tahun.Text = "2013" Then

            Harga.Text = "176000000"

        ElseIf kode.Text = "MB3" And nama.Text = "Xenia" And kondisi.Text = "Bekas" And tahun.Text = "2013" Then

            Harga.Text = "145000000"

        ElseIf kode.Text = "MB3" And nama.Text = "Xenia" And kondisi.Text = "Baru" And tahun.Text = "2014" Then

            Harga.Text = "190000000"

        ElseIf kode.Text = "MB3" And nama.Text = "Xenia" And kondisi.Text = "Bekas" And tahun.Text = "2014" Then

            Harga.Text = "155000000"

        ElseIf kode.Text = "MB4" And nama.Text = "Toyota Yaris" And kondisi.Text = "Baru" And tahun.Text = "2012" Then

            Harga.Text = "200000000"

        ElseIf kode.Text = "MB4" And nama.Text = "Toyota Yaris" And kondisi.Text = "Bekas" And tahun.Text = "2012" Then

            Harga.Text = "170000000"

        ElseIf kode.Text = "MB4" And nama.Text = "Toyota Yaris" And kondisi.Text = "Baru" And tahun.Text = "2013" Then

            Harga.Text = "230000000"

        ElseIf kode.Text = "MB4" And nama.Text = "Toyota Yaris" And kondisi.Text = "Bekas" And tahun.Text = "2013" Then

            Harga.Text = "180000000"

        ElseIf kode.Text = "MB4" And nama.Text = "Toyota Yaris" And kondisi.Text = "Baru" And tahun.Text = "2014" Then

            Harga.Text = "250000000"

        ElseIf kode.Text = "MB4" And nama.Text = "Toyota Yaris" And kondisi.Text = "Bekas" And tahun.Text = "2014" Then

            Harga.Text = "200000000"

        End If

    End Sub

    Private Sub jb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jb.SelectedIndexChanged

        totalharga.Text = Harga.Text * jb.Text

        Uang.Text = 0.3 * Harga.Text

        komisi.Text = 0.02 * jb.Text * Uang.Text

        totalkredit.Text = totalharga.Text - Uang.Text

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        Call isitabel()

    End Sub

    Private Sub lama_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lama.SelectedIndexChanged

        angsuran.Text = Val(totalkredit.Text) * 0.03 * lama.Text + Val(totalkredit.Text) / lama.Text

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click

        kode.Text = ""

        nama.Text = ""

        tahun.Text = ""

        kondisi.Text = ""

        Harga.Text = ""

        jb.Text = ""

        Uang.Text = ""

        totalharga.Text = ""

        totalkredit.Text = ""

        komisi.Text = ""

        lama.Text = ""

        angsuran.Text = ""

    End Sub

End Class

 Demikilahlah postingan saya  Nama : (SARI HANDAYANI)  NPM : (13110873)
Selamat Belajar Pemrograman VB Net (Mesran.Net)

Read More