Jawaban Soal 3 (Bebby Desy)

Kasus : Klik disini

Listing Program Menu Login

Public Class Login

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        If NIK.Text = "Ecy" And Pasword.Text = "6180" Then
            FromMenu.Show()
            Me.Hide()
        Else
            MsgBox("Maaf!! Password Salah !")
            NIK.Text = ""
            Pasword.Text = ""
        End If
    End Sub
End Class

Listing Program FromMenu

Public Class FromMenu

    Private Sub DataPerusahaanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPerusahaanToolStripMenuItem.Click
        Form1.MdiParent = Me
        Form1.Show()
    End Sub
End Class

Listing Program Form1

Public Class Form1

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
        If Jabatan.Text = "Mandor" Then
            Gajipokok.Text = 1750000
            Pajak.Text = (0.015 * Val(Gajipokok.Text))
        ElseIf Jabatan.Text = "Kepala Bagian" Then
            Gajipokok.Text = 2500000
            Pajak.Text = (0.015 * Val(Gajipokok.Text))
        ElseIf Jabatan.Text = "Staf" Then
            Gajipokok.Text = 1250000
            Pajak.Text = (0.015 * Val(Gajipokok.Text))
        Else
            Gajipokok.Text = 0
        End If

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        NIK.Text = ""
        Nama.Text = ""
        Jabatan.Text = ""
        Gajipokok.Text = ""
        StatusKerja.Text = ""
        Jamlembur.Text = ""
        Upahlembur.Text = ""
        Pajak.Text = ""
        status.Text = ""
        Jumlahanak.Text = ""
        Tunjanganistri.Text = ""
        Tunjangananak.Text = ""
        Totalgaji.Text = ""
        NIK.Focus()
        LV.Items.Clear()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Jabatan.Items.Add("Mandor")
        Jabatan.Items.Add("Kepala Bagian")
        Jabatan.Items.Add("Staf")

        StatusKerja.Items.Add("Lembur")
        StatusKerja.Items.Add("Tidak Lembur")

        status.Items.Add("MENIKAH")
        status.Items.Add("BELUM MENIKAH")
        Jumlahanak.Enabled = False

        Dim i As Integer
        For i = 1 To 5
            Jamlembur.Items.Add(i)
        Next
        BuatTabel()
        IsiTabel()

    End Sub
    Sub IsiTabel()
        For i = 1 To 3
            NIK.Items.Add("00" & i)
        Next
        Dim Lst As New ListViewItem
        Lst.Text = NIK.Text
        Lst.SubItems.Add(Nama.Text)
        Lst.SubItems.Add(Jabatan.Text)
        Lst.SubItems.Add(Gajipokok.Text)
        Lst.SubItems.Add(StatusKerja.Text)
        Lst.SubItems.Add(Jamlembur.Text)
        Lst.SubItems.Add(Upahlembur.Text)
        Lst.SubItems.Add(Pajak.Text)
        Lst.SubItems.Add(status.Text)
        Lst.SubItems.Add(Jumlahanak.Text)
        Lst.SubItems.Add(Tunjanganistri.Text)
        Lst.SubItems.Add(Tunjangananak.Text)
        Lst.SubItems.Add(Totalgaji.Text)
        LV.Items.Add(Lst)
    End Sub
    Sub BuatTabel()
        LV.Columns.Add("NIK", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Jabatan", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Gajipokok", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Status Kerja", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Jam Lembur", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Upah Lembur", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Status", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlahanak", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Tunjanganistri", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Tunjangananak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Gaji", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub


    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        If status.Text = "BELUM MENIKAH" Then
            Tunjangananak.Text = 0
            Tunjanganistri.Text = 0
            Jumlahanak.Enabled = False
        ElseIf status.Text = "MENIKAH" Then
            Jumlahanak.Enabled = True
            Tunjanganistri.Text = (0.09 * Val(Gajipokok.Text))
        End If
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Totalgaji.Text = Val(Gajipokok.Text) + Val(Tunjangananak.Text) + Val(Tunjanganistri.Text) + Val(Upahlembur.Text) - Val(Pajak.Text)
    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged

        Select Case NIK.Text
            Case "001"
                Nama.Text = "Ucok"
            Case "002"
                Nama.Text = "Butet"
            Case "003"
                Nama.Text = "Ayu"
            Case "004"
                Nama.Text = "Dimas"

        End Select
    End Sub

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

    Private Sub Jumlahanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlahanak.TextChanged
        If Jumlahanak.Text = "" Then
            Tunjangananak.Text = 0
        ElseIf Jumlahanak.Text = 1 Then
            Tunjangananak.Text = Val(Jumlahanak.Text) * (0.03 * Val(Gajipokok.Text))
        ElseIf Jumlahanak.Text = 2 Then
            Tunjangananak.Text = 2 * (0.07 * Val(Gajipokok.Text))
        ElseIf Jumlahanak.Text >= 2 Then
            Tunjangananak.Text = 2 * (0.07 * Val(Gajipokok.Text))

        End If
    End Sub

    Private Sub StatusKerja_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StatusKerja.SelectedIndexChanged

        If Jabatan.Text = "Mandor" Then
            If Jamlembur.Text = "1" Then
                Upahlembur.Text = 1 * (5000)

            ElseIf Jamlembur.Text = "2" Then
                Upahlembur.Text = 2 * (5000)
            ElseIf Jamlembur.Text = "3" Then
                Upahlembur.Text = 3 * (5000)
            ElseIf Jamlembur.Text = "4" Then
                Upahlembur.Text = 4 * (5000)
            ElseIf Jamlembur.Text = "5" Then
                Upahlembur.Text = 5 * (5000)
            Else
                Upahlembur.Text = 0
            End If

        ElseIf Jabatan.Text = "Kepala Bagian" Then
            If Jamlembur.Text = "1" Then
                Upahlembur.Text = 1 * (10000)
            ElseIf Jamlembur.Text = "2" Then
                Upahlembur.Text = 2 * (10000)
            ElseIf Jamlembur.Text = "3" Then
                Upahlembur.Text = 3 * (10000)
            ElseIf Jamlembur.Text = "4" Then
                Upahlembur.Text = 4 * (10000)
            ElseIf Jamlembur.Text = "5" Then
                Upahlembur.Text = 5 * (10000)
            Else
                Upahlembur.Text = 0
            End If


        ElseIf Jabatan.Text = "Staf" Then
            If Jamlembur.Text = "1" Then
                Upahlembur.Text = 1 * (7500)
            ElseIf Jamlembur.Text = "2" Then
                Upahlembur.Text = 2 * (7500)
            ElseIf Jamlembur.Text = "3" Then
                Upahlembur.Text = 3 * (7500)
            ElseIf Jamlembur.Text = "4" Then
                Upahlembur.Text = 4 * (7500)
            ElseIf Jamlembur.Text = "5" Then
                Upahlembur.Text = 5 * (7500)
            Else
                Upahlembur.Text = 0
            End If

         
        End If
        If StatusKerja.Text = "Tidak Lembur" Then
            Jamlembur.Text = 0
            Upahlembur.Text = 0


        End If
    End Sub

    Private Sub Totalgaji_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Totalgaji.TextChanged

    End Sub

    Private Sub SimpanLV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpanLV.Click
        Dim sublv As New ListViewItem
        sublv.Text = NIK.Text
        sublv.SubItems.Add(Nama.Text)
        sublv.SubItems.Add(Jabatan.Text)
        sublv.SubItems.Add("RP. " & Gajipokok.Text)
        sublv.SubItems.Add(StatusKerja.Text)
        sublv.SubItems.Add(Jamlembur.Text)
        sublv.SubItems.Add("RP. " & Upahlembur.Text)
        sublv.SubItems.Add("RP. " & Pajak.Text)
        sublv.SubItems.Add(status.Text)
        sublv.SubItems.Add(Jumlahanak.Text)
        sublv.SubItems.Add("RP. " & Tunjanganistri.Text)
        sublv.SubItems.Add("RP. " & Tunjangananak.Text)
        sublv.SubItems.Add("RP. " & Totalgaji.Text)
        LV.Items.Add(sublv)
    End Sub

    Private Sub Jamlembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jamlembur.SelectedIndexChanged

        If Jabatan.Text = "Mandor" Then
            Upahlembur.Text = 7500 * Jamlembur.Text
        ElseIf Jabatan.Text = "Kepala Bagian" Then
            Upahlembur.Text = 10000 * Jamlembur.Text
        ElseIf Jabatan.Text = "Staf" Then
            Upahlembur.Text = 5000 * Jamlembur.Text
        End If

    End Sub

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

Hasil FormMenu & Menu Login

 

Hasil Form1

Jawaban Soal 2 (Bebby Desy)

Kasus : Klik disini

Listing Program

Public Class Form1

    Sub BuatTable()
        list.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        list.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        list.View = View.Details
        list.GridLines = True
        list.FullRowSelect = True
    End Sub

    Sub IsiTable()
        Dim lst As New ListViewItem
        lst.Text = npm.Text
        lst.SubItems.Add(nama.Text)
        list.Items.Add(lst)
    End Sub

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

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        IsiTable()
        nama.Text = ""
        npm.Text = ""
    End Sub

    Private Sub btnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusSemua.Click
        list.Items.Clear()
    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        list.Items.Remove(list.SelectedItems(0))
    End Sub

End Class

Hasil Program

7 Keajaiban Dunia Bawah Air Yang Menakjubkan

Keajaiban dunia alam juga terbagi menjadi definisi lain, yaitu keajaiban dunia bawah air, yaitu berbagai peristiwa alami yang khusus terjadi di bawah air. Berikut 7 Keajaiban Dunia Bawah Air Yang Menakjubkan, yaitu :

1. Belize Barrier Reef

Rangkaian pulai karang terbesar kedua setelah Great Barrier Reef di Australia, terletak di Belize, yaitu negara jajahan Inggris yang terletak di Maerika Tengah.

2. Deep Sea Vents

Dikenal juga sebagai “black smoker” atau perokok hitam, yaitu aktivitas pengeluaran gas dan air panas ke permukaan bumi karena kegiatan vulkanik.

3. Kepulauan Galapagos

Sebuah kepualauan yang terdiri dari 13 puau berapi dan bebatuan yang terletak di samudera Pasifik sekitaer 1000 km sebelah barat Amerika Selatran. Galapagos merupakan salah satu daerah gunung berapi teraktif di dunia. Galapagos juga terkenal karena jumlah species binatang dan tumbuhan yang besar dan pernah dijadikan objek penelitian oleh Charles Darwin yang menemukan teori seleksi alam.

4. Great Barrier Reef

Seperti yang pernah diceritakan di 7 Keajaiban dunia Alam, great barrier Reef adalah untaian kepulauan karang terbesar di Perairan Australia.

5. Danau Baikal

Danau terdalam dan tertua di dunia, dan memiliki kandungan air tawar terbanyak di bumi. Danau ini terletak di selatan Siberia Rusia

6. Northern Red Sea

Laut yang membatasi benua Afrika dan Asia, dan termasuk laut dengan tingkat kadar garam tertinggi di dunia.

7. Palau

Sebuah negara kepualauan di Samudra pasifik. Republik Palau (juga dieja sebagai Belau) adalah sebuah negara kepulauan di Samudra Pasifik, 200 km sebelah utara Papua Barat, 255 km sebelah timur Maluku Utara, 500 km sebelah timur Sulawesi Utara dan 500 km sebelah timur Filipina. Negara ini merdeka pada tahun 1994 dari Wilayah Perwalian Kepulauan Pasifik yang diperintah Amerika Serikat. Palau terdiri dari 8 pulau utama dan sedikitnya 250 pulau kecil.

7 Negara Terkaya Didunia

"Lain padang lain belalang", tampaknya pepatah ini cocok untuk menggambarkan keadaan negara-negara di dunia ini. Masing-masing negara berdiri di atas tanah yang berbeda, pemimpin yang berbeda, pemerintahan yang berbeda-beda pula, tak terkecuali menyangku kekayaan negara-negara di dunia yang pastinya berbeda-beda pula. Karna kekayaan masing-masing negara dipengaruhi oleh berbagai faktor seperti kualita SDM, besarnya sumber daya alam, dll yang tentu saja masing-masing negara berbeda-beda

Berikut kami tampilkan daftar 7 negara terkaya di dunia yang didasarkan pada GDP negara masing-masing :

1. Amerika Serikat
Amerika Serikat merupakan negara terkaya di dunia dengan GDP mencapai US$ 12,46 triliun. Nih wajar aj nih negara bisa jadi SuperPower,,tuh karena GDP-nya yang ajiiib

2. Jepang
Posisi kedua ditempati negara Aia timur ini. jepang memiliki GDP US$ 4,51 triliun. Gila, padahal nih negara pernah hancur lebur oleh bom atom, tapi bisa menjadi negara terkaya

3. Jerman
Sama halnya seperti jepang, jerman juga pernah mengalami masa sulit ketika mereka terpaksa dibagi 2 untuk Uni sovyet dan USA. baru tahun 1990an mereka bergabung kembali menjadi 1 negara. Jerman memiliki GDP US$ 2,78 triliun.

4. Inggris
Biarpun pun nih negara pernah menjajah hampir 1/3 belahan dunia,,,tapi tidak membuatnya menjadi negara terkaya didunia. Inggris berada diurutan ke 4 dengan GDP S$ 2,19 triliun.

5. Perancis
Negara yang terkenal dengan gaya ciumannya itu memiliki GDP US$ 2,11 triliun.

6. Italia
Negara yang terkenal akan Sejarah kekaisarannya ini memiliki GDP S$ 1,72 triliun.

7. Spanyol
Spanyol memiliki GDP US$ 1,124 triliun

9 Bangunan Terunik Di Dunia

Pada posting kali ini, terdapat 9 bangunan terunik, tertinggi dan termegah di dunia. Termasuk salah satunya terletak di negara kita, tepatnya berada di ibukota.

1. Aqua – USA

Dibangun di Chicago dan diperkirakan akan selesai pada tahun 2009.
2. Chicago Spire – USA

Akan menjadi salah satu bangunan TERTINGGI di dunia dan diperkirakan akan selesai pada tahun 2010.
3. CCTV Headquarters – China

Salah satu bangunan yg dipersiapkan menjelang Olimpiade Beijing 2008
4. Penang Global City Center – Malaysia

Lokasinya akan di bangun di Penang Island dan diperkirakan pembangunannya butuh waktu paling sedikit 15 tahun.
5. Gazprom Headquarters – Russia

Salah satu bangunan raksasa dengan tinggi kurang lebih 300 meter (glass flame) dan akan memantulkan warna kurang lebih 10 kali, tergantung dari posisi matahari pada saat itu. Beberapa penduduk lokal yg kurang senang dengan adanya bangunan tersebut menjulukinya “corn on the cob”.
6. Burj Dubai – Dubai

Diperkirakan tinggi bangunannya sekitar 818 meter dan akan menjadi salah satu bangunan tertinggi di dunia (antenna paling atas bangunan tidak dihitung).
7. Rusia Tower – Rusia

Bangunan ini juga akan menjadi salah satu bangunan tertinggi di dunia dan diperkirakan selesai pada tahun 2012 nanti.
8. Reggata Hotel – Jakarta

 

Indonesia pun bakal mempunyai bangunan megah nan unik di Jakarta dengan desain Arsitektur yang agak kontroversial.
9. Residence Antilia – India

Pembangunannya sudah dimulai di India, mirip seperti rak cd dari tumpukan batu yg unik.

Vespa

Vespa adalah merek sepeda motor jenis skuter yang berasal dari Italia. Perusahaan induk dari Vespa, adalah Piaggio. Pada awal kedatangannya Vespa mempunyai saingan berat skuter Lambretta, sekarang otomatis Vespa sebagai motor skuter konvensional tidak mempunyai saingan lagi. Pasar sepeda motor Indonesia yang unik tidak memberikan kesempatan kepada Vespa untuk menjadi besar. Merek yang diedarkan oleh PT Dan Motor Indonesia ini mempunyai penggemar fanatik, dan klub-klub penggemar Vespa (terutama Vespa klasik) menjamur diberbagai kota di Indonesia, Juga sering disebut Piaggio Kodok karena mirip VW Kodok.dan vespa menjadi salah satu alat transportasi yang modern sampai saat ini. Vespa juga termasuk alat transportasi yang ekonomis, karena harganya yang relatif murah tapi tetap berkualitas.