JAWABAN NOMOR 3 (EMILIA)

3)Listing Program

Public Class Data_gaji

    Sub Bersih(ByVal F As Form)

        Dim x As Object

        For Each x In F.Controls

            If TypeOf x Is TextBox Then x.text = ""

            If TypeOf x Is ComboBox Then x.text = ""

        Next

    End Sub

    Sub IsiTabel()

        Dim lst As New ListViewItem

        lst.Text = nip.Text

        lst.SubItems.Add(nama.Text)

        lst.SubItems.Add(jabatan.Text)

        lst.SubItems.Add(Gaji.Text)

        lst.SubItems.Add(Status.Text)

        lst.SubItems.Add(Tjistri.Text)

        lst.SubItems.Add(jumanak.Text)

        lst.SubItems.Add(TjAnak.Text)

        lst.SubItems.Add(JamLem.Text)

        lst.SubItems.Add(Gajilem.Text)

        lst.SubItems.Add(Pajak.Text)

        lst.SubItems.Add(totgaji.Text)

        LV.Items.Add(lst)

    End Sub

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

        Call Bersih(Me)

    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 btnhapus2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus2.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub btnHapus1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus1.Click

        LV.Items.Clear()

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        End

    End Sub

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

        nip.Items.Add("03101")

        nip.Items.Add("03202")

        nip.Items.Add("01201")

        nip.Items.Add("01101")

        nip.Items.Add("02110")

        jabatan.Items.Add("Mandor")

        jabatan.Items.Add("Kepala Bagian")

        jabatan.Items.Add("Staf")

        status.Items.Add("Manikah")

        status.Items.Add("Belum Menikah")

    End Sub

    Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged

        If nip.Text = "03101" Then

            nama.Text = "Andy"

        ElseIf nip.Text = "03202" Then

            nama.Text = "Yana"

        ElseIf nip.Text = "01201" Then

            nama.Text = "Siska"

        ElseIf nip.Text = "01101" Then

            nama.Text = "Puspita"

        ElseIf nip.Text = "02110" Then

            nama.Text = "Emilia"

        Else

            nama.Text = ""

        End If

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

        If jabatan.Text = "Mandor" Then

            gaji.Text = 1750000

        ElseIf jabatan.Text = "Kepala Bagian" Then

            gaji.Text = 2500000

        ElseIf jabatan.Text = "Staf" Then

            gaji.Text = 1250000

        Else

            gaji.Text = 0

        End If

    End Sub

  

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click

        Tjistri.Text = 0.09 * gaji.Text

        If jumanak.Text = 1 Then

            tjanak.Text = 0.03 * gaji.Text

            pajak.Text = 0.015 * gaji.Text

        ElseIf jumanak.Text = 2 Then

            tjanak.Text = 0.07 * gaji.Text

            pajak.Text = 0.015 * gaji.Text

        ElseIf jumanak.Text >= 2 Then

            tjanak.Text = 0.07 * gaji.Text

            pajak.Text = 0.015 * gaji.Text

        ElseIf jumanak.Text = 0 Then

            tjanak.Text = 0

            pajak.Text = 0.015 * gaji.Text

        End If

        If jabatan.Text = "Mandor" Then

            gajilem.Text = 7500 * jamlem.Text

        ElseIf jabatan.Text = "Kepala Bagian" Then

            gajilem.Text = 1000 * jamlem.Text

        ElseIf jabatan.Text = "Staf" Then

            gajilem.Text = 5000 * jamlem.Text

        Else

            gajilem.Text = 0

        End If

        totgaji.Text = Val(gaji.Text) + Val(Tjistri.Text) + Val(tjanak.Text) + Val(gajilem.Text) - Val(pajak.Text)

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        If status.Text = "Menikah" Then

            Tjistri.Text = 0.09

        Else

            Tjistri.Text = 0

        End If

    End Sub

End Class

JAWABAN NOMOR 2 (EMILIA)

Public Class Form1

    Sub isiTabel()

        Dim lst As New ListViewItem

        lst.Text = No.Text

        lst.SubItems.Add(Kode.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)

        LV.Items.Add(lst)

    End Sub

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

        Kode.Items.Add("TS001")

        Kode.Items.Add("TS002")

        Kode.Items.Add("VG001")

        Kode.Items.Add("VG002")

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Left(Kode.Text, 2)

        If x = "TS" Then

            merk.Text = "Toshiba"

        ElseIf x = "VG" Then

            merk.Text = "V-Gen"

        End If

        x = Microsoft.VisualBasic.Right(Kode.Text, 3)

        If x = "001" Then

            Namabarang.Text = "Flashdisk 4 GB"

        ElseIf x = "002" Then

            Namabarang.Text = "Flashdisk 2 Gb"

        End If

        If Kode.Text = "TS001" Then

            Harga.Text = 105000

        ElseIf Kode.Text = "TS002" Then

            Harga.Text = 75000

        ElseIf Kode.Text = "VG001" Then

            Harga.Text = "9000"

        ElseIf Kode.Text = "VG002" Then

            Harga.Text = 60000

        End If

    End Sub

    Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress

        If Asc(e.KeyChar) = 13 Then

            Total.Text = Harga.Text * Jumlah.Text

        End If

    End Sub

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

        End

    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 BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        LV.Items.Clear()

    End Sub

    Private Sub btndipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndipilih.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub btnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersih.Click

        Call bersih(Me)

    End Sub

    Sub Bersih(ByVal F As Form)

        Dim x As Object

        For Each x In F.Controls

            If TypeOf x Is TextBox Then x.text = ""

            If TypeOf x Is ComboBox Then x.text = ""

        Next

    End Sub

End Class

BERSABARLAH

oleh Emiel CyadiQute pada 04 Oktober 2011 jam 3:09

Ketika kesulitan hidup sedang menderamu saat ini, maka bersabarlah. Ketika beban hidup serasa menghantam diri, maka bersabarlah, dan ketika semua orang tak memperdulikanmu, maka bersabarlah.


Sabar adalah solusi dari semua kesulitan. Ketika kita mampu untuk bersabar diri, maka pintu kesuksesan akan menganga di depan mata. Sabar memang perlu proses, dia tak datang tiba-tiba. Dia datang menghampiri diri kita setelah kita telah mengalami benturan-benturan hati yang membuatmu akhirnya sadar bahwa dirimu adalah milik Ilahi Robbi. Tinggal sebentar di bumi lalu pergi kembali.


Bersabaralah kawan!...


Penderitaanmu pasti akan berakhir. Bersabarlah kawan!, pintu kebahagiaan pasti akan menghampirimu, bersabarlah kawan!, kesuksesan akan datang ketika engkau tak lelah dalam bekerja. Berpeluh keringat dalam bekerja, dan menangis dalam doa. Kau pasrahkan seluruh hidupmu kepadaNya dan tak pernah putus asa untuk terus mencoba.


Berkali kita jatuh lekas berdiri jangan mengeluh, berkali kita gagal lekas bangkit dan cari akal. Berkali kita sakit, jangan menjerit kepada manusia, tetapi menjeritlah kepada Tuhan pemilik bumi dan langit seraya memohon ampunan. Dari dosa yang telah kita perbuat. Tuhan pasti telah memperhitungkan amal dan dosa yang kita perbuat. Allah pasti akan mengabulkan doa-doa kita.


Pada saat ini, banyak orang tak mau sabar. Ingin cepat selesai dalam menggapai kesuksesan. Ingin cepat selesai bila kesulitan menghadang. Percayalah, setiap kesulitan itu pasti ada jalan kemudahannya, hanya saja dibutuhkan kesabaran diri untuk menemui kemudahan itu. Dalam hidup saya sudah membuktikannya.


Ketika dirimu sedang merana, ketika dirimu bermuram durja, ketika dirimu malas bekerja, ketika dirimu mengalami sakit, dan ketika dirimu merasa tak berguna, maka bersabarlah sambil terus instrospeksi diri, mengoreksi diri sendiri, dan tak menyalahkan orang lain.


Menyalahkan orang lain itu mudah, tapi menyalahkan diri sendiri itu sulit. Dibutuhkan kebesaran jiwa dan kelapangan hati. Bersabarlah kawan, bila engkau terus melakukan kebaikan. Tanpa pamrih dan dengan niat keikhlasan, maka bersabarlah akan datang pertolongan Allah. Cepat atau lambat!. Percayalah, hadiah pertama yang akan kau dapatkan dari melakukan kebaikan adalah kebaikan.


Allah akan menguji keimananmu. Allah akan menguji ketegaranmu dalam susah dan senang. Setiap jiwa pasti akan diuji. Setiap nyawa pasti akan diambil pemiliknya. Semua diri pasti akan menghadapi mati. Sudahkah dirimu mempersiapkan hidup sesudah mati?


Kita sering tak sabar untuk mati, maka ada orang bunuh diri. Kita tak sabar untuk hidup kaya, maka banyak orang hidup dengan korupsi, kita tak sabar untuk menggapai kekuasaan, maka banyak penguasa lalim dan dzolim memakan uang rakyat. Kita tak sabar untuk mencapai keberhasilan, maka timbullah cara-cara instan untuk mencapai keberhasilan itu.


Ingatlah, tak ada sebuah kesuksesan atau keberhasilan tanpa usaha atau kerja keras. Sebab kita tidak tinggal di jaman abu nawas yang terkenal dengan 1001 malamnya atau di jaman aladin, yang semua tinggal “sim salabim abakadabra” minta kepada jin, lalu dipenuhilah permintaan kita. Kita tidak tinggal dalam dunia mimpi, tetapi kita tinggal dalam dunia nyata yang membutuhkan ambisi, kemampuan, dan usaha (AKU) untuk mencapai keberhasilan itu. Kita harus memiliki AKU yang kuat untuk mencapai kesuksesan hidup.


Akhirnya, kunci dari kesuksesan hidup adalah sabar. Dengan sabar dunia terasa indah, dan dengan sabar hidup serasa berkah. Rahmat Allah senantiasa menghiasi orang-orang yang mampu untuk bersabar diri.

Belajar membuat Aplikasi/pemprograman VB.NET untuk pemula

     Pada kali ini saya akan berbagi/sh4re sedikit ilmu yang saya miliki tentang tutorial/belajar bahasa pemprograman Visual Basic (VB.Net) untuk pemula, pada tutorial yang akan dibuat akan dibahas secara sederhana mulai dari dasar, dengan contoh-contoh membuat program yang simpel, sehingga mudah untuk dipahami bagi para sobat-sobat yang ingin memulai untuk belajar pemrograman menggunakan VB.NET, untuk sofware yang saya gunakan VB 2008 Express Edition.

Langsung saja langkah memulai menggunakan VB.NET

• Jalankan aplikasi VB.net 2008 kemudian akan muncul tampilan seperti gambar dibawah ini

• Membuat project baru, File kemudian klik New Project akan muncul seperti gambar dibawah ini

• Pilih Windows Form, kemudian ketikan Nama program yang akan dibuat misal namanya: latihan 1, kemudian ok.

Latihan 1

• Pada kesempatan ini yaitu membuat aplikasi/program sederhana menghitung total harga penjualan alat tulis
• Tambahkan 4 buah label, pada gambar dan diberinama sesuai gambar, dan 4 buah textbox dan 1 buah button, untuk mengubah namanya pada properties.

• Kemudian doubel klik pada button (total harga) kemudian tulis/copy codingya seperti dibawah ini yang berwarna biru.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bk As Decimal = TextBox1.Text
        Dim ps As Decimal = TextBox2.Text
        Dim ph As Decimal = TextBox3.Text
        TextBox4.Text = bk + ps + ph

  End Sub

• Kemudian kita jalan kan aplikasi yang telah kita buat tadi klik pada Start Debugging seperti gambar yang dikotak merah

• Masukan nilai/harga2 harganya kemudian klik button total harga.

         Untuk lebih jelasnya silahkan download file pdfnya disini VB.NET PEMULA

• Selesai aplikasi pertama anda, sudah berhasil selanjutnya tinggal dikebangkan sesuai ide/kreasi anda.