Penjualan Barang

Jawaban No 2 (Romida Rumapea)
Listing Program :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Tabel()
        KodeBarang.Items.Add("TS001")
        KodeBarang.Items.Add("TS002")
        KodeBarang.Items.Add("VG001")
        KodeBarang.Items.Add("VG002")
    End Sub

    Sub Tabel()
        ListView.Columns.Add("No Pembelian", 90, HorizontalAlignment.Left)
        ListView.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)
        ListView.Columns.Add("Nama Barang", 80, HorizontalAlignment.Left)
        ListView.Columns.Add("Merk", 70, HorizontalAlignment.Left)
        ListView.Columns.Add("Harga", 60, HorizontalAlignment.Left)
        ListView.Columns.Add("Jumlah Beli", 70, HorizontalAlignment.Left)
        ListView.Columns.Add("Total Harga", 70, HorizontalAlignment.Left)
        ListView.View = View.Details
        ListView.GridLines = True
        ListView.FullRowSelect = True
    End Sub

    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = NoPembelian.Text
        Lst.SubItems.Add(KodeBarang.Text)
        Lst.SubItems.Add(NamaBarang.Text)
        Lst.SubItems.Add(Merk.Text)
        Lst.SubItems.Add(Harga.Text)
        Lst.SubItems.Add(Jumlah.Text)
        Lst.SubItems.Add(Total.Text)
        ListView.Items.Add(Lst)
    End Sub

    Private Sub KodeBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeBarang.SelectedIndexChanged
        Select Case KodeBarang.Text
            Case "TS001"
                NamaBarang.Text = "Flashdisk 4GB"
            Case "TS002"
                NamaBarang.Text = "Flashdisk 2GB"
            Case "VG001"
                NamaBarang.Text = "Flashdisk 4GB"
            Case "VG002"
                NamaBarang.Text = "Flashdisk 2GB"
        End Select
        If KodeBarang.Text = "TS001" Then
            Merk.Text = "Toshiba"
        ElseIf KodeBarang.Text = "TS002" Then
            Merk.Text = "Toshiba"
        ElseIf KodeBarang.Text = "VG001" Then
            Merk.Text = "V-Gen"
        ElseIf KodeBarang.Text = "VG002" Then
            Merk.Text = "V-Gen"
        End If
        If KodeBarang.Text = "TS001" Then
            Harga.Text = "105000"
        ElseIf KodeBarang.Text = "TS002" Then
            Harga.Text = "75000"
        ElseIf KodeBarang.Text = "VG001" Then
            Harga.Text = "90000"
        ElseIf KodeBarang.Text = "VG002" Then
            Harga.Text = "60000"
        End If
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        IsiTabel()
        NoPembelian.Text = ""
        KodeBarang.Text = ""
        NamaBarang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        Jumlah.Text = ""
        Total.Text = ""
    End Sub

    Private Sub BtnHapusData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusData.Click
        ListView.Items.Remove(ListView.SelectedItems(0))
    End Sub

    Private Sub BtnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemua.Click
        ListView.Items.Clear()
    End Sub

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        NoPembelian.Text = ""
        KodeBarang.Text = ""
        NamaBarang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        Jumlah.Text = ""
        Total.Text = ""
    End Sub

    Private Sub Total_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Total.Click
        Total.Text = Harga.Text * Jumlah.Text
    End Sub

    Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Total_Click(sender, e)
        End If
    End Sub

    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
        End
    End Sub
End Class
Hasil Program :

Penggajian Karyawan

Jawaban No 3 (Romida Rumapea)
Listing Program :
Public Class Form1

    Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
        If Username.Text = "romida" And Password.Text = "111" Then
            MenuUtama.Show()
            Me.Hide()
        Else
            MsgBox("Maaf Username/Password Salah!")
            Username.Text = ""
            Password.Text = ""
        End If
    End Sub
End Class
Hasil Program :

Listing Program :
Public Class MenuUtama

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        End
    End Sub

    Private Sub DataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataKaryawanToolStripMenuItem.Click
        DataKaryawan.Show()
    End Sub
End Class
Hasil Program :

Listing Program :

Public Class DataKaryawan

    Private Sub DataKaryawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Tabel()
    End Sub

    Sub Tabel()
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Jabatan", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Gaji", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Status", 70, HorizontalAlignment.Left)
        LV.Columns.Add("Tunjangan Istri", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Anak", 50, HorizontalAlignment.Left)
        LV.Columns.Add("Tunjangan Anak", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Jam Lembur", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Lembur", 50, HorizontalAlignment.Left)
        LV.Columns.Add("Pajak", 50, HorizontalAlignment.Left)
        LV.Columns.Add("Total Gaji", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = Nama.Text
        Lst.SubItems.Add(Jabatan.Text)
        Lst.SubItems.Add(Gaji.Text)
        Lst.SubItems.Add(Status.Text)
        Lst.SubItems.Add(TunjanganIstri.Text)
        Lst.SubItems.Add(Anak.Text)
        Lst.SubItems.Add(TunjanganAnak.Text)
        Lst.SubItems.Add(JamLembur.Text)
        Lst.SubItems.Add(Lembur.Text)
        Lst.SubItems.Add(Pajak.Text)
        Lst.SubItems.Add(Total.Text)
        LV.Items.Add(Lst)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Jabatan.Items.Add("Kepala Bagian")
        Jabatan.Items.Add("Mandor")
        Jabatan.Items.Add("Staff")
        Status.Items.Add("Belum Menikah")
        Status.Items.Add("Menikah")
        Anak.Items.Add("1")
        Anak.Items.Add("2")
        Dim Jam As Byte
        For Jam = 1 To 24
            JamLembur.Items.Add(Jam)
        Next
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        IsiTabel()
        Nama.Text = ""
        Jabatan.Text = ""
        Gaji.Text = ""
        Status.Text = ""
        TunjanganIstri.Text = ""
        Anak.Text = ""
        TunjanganAnak.Text = ""
        JamLembur.Text = ""
        Lembur.Text = ""
        Pajak.Text = ""
        Total.Text = ""
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
        Select Case Jabatan.Text
            Case "Kepala Bagian"
                Gaji.Text = "2500000"
            Case "Mandor"
                Gaji.Text = "1750000"
            Case "Staff"
                Gaji.Text = "1250000"
        End Select
        If Jabatan.Text = "Kepala Bagian" Then
            Pajak.Text = Gaji.Text * 0.015
        End If
        If Jabatan.Text = "Mandor" Then
            Pajak.Text = Gaji.Text * 0.015
        End If
        If Jabatan.Text = "Staff" Then
            Pajak.Text = Gaji.Text * 0.015
        End If
    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
        If Jabatan.Text = "Kepala Bagian" Then
            If Status.Text = "Menikah" Then
                TunjanganIstri.Text = Gaji.Text * 0.09
            Else
                TunjanganIstri.Text = 0
            End If
        ElseIf Jabatan.Text = "Mandor" Then
            If Status.Text = "Menikah" Then
                TunjanganIstri.Text = Gaji.Text * 0.09
            Else
                TunjanganIstri.Text = 0
            End If
        ElseIf Jabatan.Text = "Staff" Then
            If Status.Text = "Menikah" Then
                TunjanganIstri.Text = Gaji.Text * 0.09
            Else
                TunjanganIstri.Text = 0
            End If
        End If
    End Sub

    Private Sub Anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Anak.SelectedIndexChanged
        If Jabatan.Text = "Kepala Bagian" Then
            If Anak.Text = "1" Then
                TunjanganAnak.Text = Gaji.Text * 0.03
            ElseIf Anak.Text = "2" Then
                TunjanganAnak.Text = Gaji.Text * 0.07
            Else
                TunjanganIstri.Text = 0
            End If
        ElseIf Jabatan.Text = "Mandor" Then
            If Anak.Text = "1" Then
                TunjanganAnak.Text = Gaji.Text * 0.03
            ElseIf Anak.Text = "2" Then
                TunjanganAnak.Text = Gaji.Text * 0.07
            Else
                TunjanganIstri.Text = 0
            End If
        ElseIf Jabatan.Text = "Staff" Then
            If Anak.Text = "1" Then
                TunjanganAnak.Text = Gaji.Text * 0.03
            ElseIf Anak.Text = "2" Then
                TunjanganAnak.Text = Gaji.Text * 0.07
            Else
                TunjanganIstri.Text = 0
            End If
        End If
    End Sub

    Private Sub Jam_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JamLembur.SelectedIndexChanged
        If Jabatan.Text = "Kepala Bagian" Then
            If JamLembur.Text >= "1" Then
                Lembur.Text = JamLembur.Text * 10000
            End If
        End If
        If Jabatan.Text >= "Mandor" Then
            If JamLembur.Text >= "1" Then
                Lembur.Text = JamLembur.Text * 7500
            End If
        End If
        If Jabatan.Text = "Staff" Then
            If JamLembur.Text >= "1" Then
                Lembur.Text = JamLembur.Text * 5000
            End If
        End If
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Total.Text = Val(Gaji.Text) + Val(TunjanganIstri.Text) + Val(TunjanganAnak.Text) + Val(Lembur.Text) - Val(Pajak.Text)
    End Sub

    Private Sub BtnHapusData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusData.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub
End Class
Hasil Program :

PERKENALAN

HY,,,,,,,,perkenalkan nama saya romida rumapea,,,,saya anak dr charles rumapea,dan ibu saya hotmauli nainggolan,aq anak pertama dan yg terakhir alias anak tunggal,,,,tp aq ngak manja lho,,,,,
heehehehehehheh,,,,,,,,,,,,,,,,,,,,,
buktinya,aq bisa nunjukin klo aq bisa kuliah dengan sambil bekerja tampa harus membebani kedua orang tua qu

cerita dikit ni tentang diri qu,pada saat aq berusia 18 tahun ayah qu tercinta pergi meniggalkan aq bersama ibuku untuk slama lamanya,,,
sulit rasanya untuk menerima kenyataan yg ad di depan mata,tetapi seiring berjalannya waktu perlahan lahan rasa iklas datang tampa di sadari,,,da saat itu, aq milai berfikiran bahwa aq hrs maju,,,,,,dan seiring jg dengan berjalanya waktu suatu kabar musibah menerpa q lagi,,,,,,,
IBUKU,,,,,,,IBU tersayang berniat untuk menikah lagi,jujur saja saat itu aq sangat malu,,,,mungkin karna aq sudah beranjak dewasa,awalnya aq tidak terima dengan kenyataan itu,tetapi aq mencoba bersabar lagi
dalam hati dan pikiran q berkata ini takdir yang harus aq jalani,,,,,semakin aq merasa kuat di saat itu jg badai semakin kuat menerpa q,,,,,cobaan demi cobaan aq lalui,,,,,,,

bersambung...........

listview

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Tabel()
End Sub
Sub Tabel()
ListView1.Columns.Add(“NPM”, 60, HorizontalAlignment.Center)
ListView1.Columns.Add(“Nama”, 110, HorizontalAlignment.Left)
ListView1.Columns.Add(“Jurusan”, 130, HorizontalAlignment.Center)
ListView1.Columns.Add(“Jenjang”, 70, HorizontalAlignment.Center)
ListView1.Columns.Add(“Tahun Masuk”, 90, HorizontalAlignment.Center)
ListView1.Columns.Add(“Nilai Angka”, 75, HorizontalAlignment.Center)
ListView1.Columns.Add(“Nilai Huruf”, 75, HorizontalAlignment.Center)
ListView1.GridLines = True
ListView1.FullRowSelect = True
ListView1.View = View.Details
End Sub
Sub IsiTabel()
Dim Lst As New ListViewItem
Lst.Text = NPM.Text()
Lst.SubItems.Add(Nama.Text)
Lst.SubItems.Add(Jurusan.Text)
Lst.SubItems.Add(Jenjang.Text)
Lst.SubItems.Add(TahunMasuk.Text)
Lst.SubItems.Add(Angka.Text)
Lst.SubItems.Add(Huruf.Text)
ListView1.Items.Add(Lst)
End Sub
Private Sub NPM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.TextChanged
Dim Lst As String
TahunMasuk.Text = “20″ & Microsoft.VisualBasic.Left(NPM.Text, 2)
Lst = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
If Lst = “01″ Then
Jenjang.Text = “Diploma I”
ElseIf Lst = “02″ Then
Jenjang.Text = “Diploma III”
ElseIf Lst = “03″ Then
Jenjang.Text = “Strata I”
End If
Lst = Microsoft.VisualBasic.Mid(NPM.Text, 5, 2)
If Lst = “01″ Then
Jurusan.Text = “Manajemen Informatika”
ElseIf Lst = “02″ Then
Jurusan.Text = “Sistem Informasi”
ElseIf Lst = “03″ Then
Jurusan.Text = “Teknik Komputer”
ElseIf Lst = “04″ Then
Jurusan.Text = “Akutansi”
End If
End Sub
Private Sub Angka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Angka.TextChanged
If Angka.Text >= “80″ Then
Huruf.Text = “A”
ElseIf Angka.Text >= “70″ Then
Huruf.Text = “B”
ElseIf Angka.Text >= “60″ Then
Huruf.Text = “C”
ElseIf Angka.Text >= “50″ Then
Huruf.Text = “D”
Else
Huruf.Text = “E”
End If
End Sub
Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
IsiTabel()
NPM.Text = “”
Nama.Text = “”
Jurusan.Text = “”
Jenjang.Text = “”
TahunMasuk.Text = “”
Angka.Text = “”
Huruf.Text = “”
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
Tabel()
End Sub
Private Sub BtnHapusData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusData.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
Private Sub BtnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemua.Click
ListView1.Items.Clear()
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
End
End Sub
End Class