Jawaban Soal No 3 (Ihsan Dedy Boy Marpaung)

 Kasus Tagihan PDAM

Public Class Form1

    Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click
        If nama.Text = "ihsan" And password.Text = "020690" Then
            PDAM.Show()
            Me.Hide()
        Else
            MsgBox("username or password yg anda input salah")
            nama.Text = ""
            password.Text = ""

        End If
    End Sub

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

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

    End Sub
End Class

Public Class PDAM

    Private Sub TagihanPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagihanPDAMToolStripMenuItem.Click
        Form3.Show()
    End Sub

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

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

    End Sub
End Class

Public Class Form3

    Private Sub kode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kode.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Dim x As String
            x = Microsoft.VisualBasic.Left(kode.Text, 3)
            If x = "pab" Then
                tipe.Text = "pabrik"
                harga.Text = "500"
                Beban.Text = "250000"

            ElseIf x = "tok" Then
                tipe.Text = "toko"
                harga.Text = "300"
                Beban.Text = "25000"

            ElseIf x = "rum" Then
                tipe.Text = "rumah"
                harga.Text = "100"
                Beban.Text = "15000"

            ElseIf x = "swa" Then
                tipe.Text = "swalayan"
                harga.Text = "200"
                Beban.Text = "10000"

            End If
            x = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)
            If x = "med" Then
                daerah.Text = "medan"
            ElseIf x = "bel" Then
                daerah.Text = "belawan"
            ElseIf x = "tem" Then
                daerah.Text = "aksara"
            ElseIf x = "mar" Then
                daerah.Text = "marendal"
            ElseIf x = "bin" Then
                daerah.Text = "binjai"
            ElseIf x = "pak" Then
                daerah.Text = "lubuk pakam"
            End If
            nomor.Text = Microsoft.VisualBasic.Right(kode.Text, 3)

        End If
    End Sub


    Private Sub jumlahpakai_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahpakai.KeyPress
        If Asc(e.KeyChar) = 13 Then
            besar.Text = jumlahpakai.Text * harga.Text
            total.Text = Val(Beban.Text) + Val(harga.Text) * besar.Text
            pajak.Text = total.Text * 0.01
            jumlah.Text = Val(total.Text) + Val(pajak.Text)
        End If
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        kode.Text = ""
        nomor.Text = ""
        daerah.Text = ""
        tipe.Text = ""
        harga.Text = ""
        Beban.Text = ""
        jumlahpakai.Text = ""
        besar.Text = ""
        total.Text = ""
        pajak.Text = ""
        jumlah.Text = ""

    End Sub

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

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

    End Sub
End Class

Jawaban Soal No 2 (Ihsan Dedy Boy Marpaung)

 Kasus Soal No 2

Public Class Form1

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


        kode.Items.Add("TS001")
        kode.Items.Add("TS002")
        kode.Items.Add("VG001")
        kode.Items.Add("VG002")
    End Sub
    Sub ihsan()
        Dim x As String
        x = Microsoft.VisualBasic.Left(kode.Text, 2)
        If x = "TS" Then
            merk.Text = "THOSIBA"
        Else
            merk.Text = "V-GEN"
        End If
        x = Microsoft.VisualBasic.Right(kode.Text, 3)
        If x = "001" Then
            nama.Text = "FLASHDISK 4GB"
        Else
            nama.Text = "FLASHDISK 2GB"
        End If

    End Sub

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

        If kode.Text = "TS001" Then
            harga.Text = "105000"
        ElseIf kode.Text = "TS002" Then
            harga.Text = "75000"
        ElseIf kode.Text = "VG001" Then
            harga.Text = "90000"
        Else
            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
        Dim TOMBOL As Integer = Asc(e.KeyChar)
        If TOMBOL = 13 Then
            total.Text = harga.Text * jumlah.Text

        End If
    End Sub
    Sub BUATTABEL()
        LV.Columns.Add("NO PEMBELI", 80, HorizontalAlignment.Center)
        LV.Columns.Add("KODE BARANG", 80, HorizontalAlignment.Left)
        LV.Columns.Add("NAMA BARANG", 100, HorizontalAlignment.Left)
        LV.Columns.Add("MEREK", 80, HorizontalAlignment.Left)
        LV.Columns.Add("HARGA", 80, HorizontalAlignment.Left)
        LV.Columns.Add("JUMLAH BELI", 80, HorizontalAlignment.Left)
        LV.Columns.Add("TOTAL HARGA", 80, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub ISITABEL()
        Dim LST As New ListViewItem
        LST.Text = nomor.Text
        LST.SubItems.Add(kode.Text)
        LST.SubItems.Add(nama.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 simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        ISITABEL()
    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        nomor.Text = ""
        kode.Text = ""
        nama.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
    End Sub

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

    Private Sub hapusn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusn.Click
        LV.Items.Clear()
    End Sub

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

    End Sub
End Class

Operator Pada VB (Aritmatika, Logika, Perbandingan)

Kali ini akan kita akan mengenal Operator tes, langsung saja ya..
1. Operator Aritmatika Dalam menggunakan fungsi yang berhubungan dengan operasi aritmatika ada beberapa operator yang harus anda kenal terlebih dahulu. Operator aritmatika terdiri dari Penjumlahan (+), pengurangan (-), perkalian (*), pembagian bilangan real(/), pembagian bilangan bulat (\), perpangkatan (^),penggabungan (&) dan sisa hasil bagi (mod) -Penjumlahan, Hasil = Angka1 + Angka2 -Pengurangan, Hasil = Angka1 - Angka2 -Perkalian, Hasl = Angka1 * Angka2 -Pembagian Bilangan Real (/), Hasil = Angka1 / Angka2 -Pembagian Bilangan Bulat (\), Hasil= Angka1 \ Angka

11 oktober 2011 Allah Masih Melindungi Akuu

Jam04.00 sampai juga q di medan,setelah memempuh perjalanan krng lbih 12 jam.Sesampainya di loket ,becak2 dtng nawarin jasanya untuk mengntar para penumpang.tpi dri sekian becak yang dtng tak 1 pon penumpang bus yang mau naek becak,termasuk q.
Aku tidak mw naek bck karena kostan aku blum dibuka jam 4 subuh.sebenarnya sih aku bisa nlpon. Tpi q segan bangunin ibu kost q.setelah menunggu kurng lebih 30 mnt,tpt nay jam 4.30,aku beranikan diri nyebrang untuk mcri angkot yg k arah simpang limun.
Asik nungguin angkot,tiba2 dua orang pemuda yg tak aku kenal dtng menghampiri ku,dngan wajah yg seram dan suara yg lantam mrk brtnya" mw kemana?"
Q menjawab mw k simpang limun,
Simpng limun dimn nya?,sahut mrk
Sakti lubis,q jwb lgi
Lalu mrk brtnya lgi,"darimana kw?"
Dari kampung ,q jwb
Kemudian,1 cowok yg pake topi minta q minta nukar uang nya yg 50rb, dengan wajah takut dan bingung ,q melihat uang nya,dlm fikrn q berkata,"jangan2 2 ornag ni mw ngerampok aku,apabila q kluarin dompet pasti lngsung dirampas ma meraka,dan merk lngsung kbr"
Kemudian q. Brkt pd mrk,q gk da uang tukatran 50,dan aku pun pergi blek ke loket,karena di loket masi rame dan gk mungkin orang itu nekad ngejar aku ke loket.
Untung lah fikiran aku tepat,mrk tidak mengejar aku.stelh keadaan aman ,aku langsung naek becak pulng k kost.
Makasi yah اَللّهُ masih melindungi aku.
Mudah2an kejadian ini tidak terjadi lagi آمِّينَ !!!!!!!

pulang-pergi medan »kampung

06.00 wib,lgi asik2 na tidur,​​tiba q kepala q trbntur kekaca bus yg membuat q sadar trnyata q sudah sampai di kampung tercinta.Setalah smpai rumh rasa letih ,capek hilng semua nya setelah melihat 2 sosok orang yang sangat aku rindukan,aku salam dan q peluk ayah dan mama ku untuk menghilangkan rasa rinduku.Tapi semua hanay sebentar,karena nnti sore q akan blek ke medan.Rasanya masih pngen bersama ayah dan mama ,tpi gk bisa karena aku harus sekolah.kata ayah dan mama ,aku harus lebih baek dari mereka.Aku janji yah,emak akn belajr dengan sungguh2 dan tidak akan mengecewakan Xan.

Masa Lalu Yg Menyedihkan Buat Keluargaku

Banyak orang berkata masa lalu itu harus dilupakan.Aku pun setuju dengan pendapat itu tapi entah kenapa masa lalu
Yang 1 ini tidak bisa aku lupakan walaupun aku tau kisah ini begitu menyedihkan!!!

Kejadian ini terjadi waktu aku masih duduk di bangku sma kls 1.waktu itu ayah sedang sakit keras belum lagi ibu yg saat tu gk bisa melihata.ayah kena penyakit kulit dimn semau bagian tubuh ayah aku ,dri ujung kaki smpai kepala kena .waktu itu kulit ayah terkelupas semuanya ,ayah dah dibawa beroabt ke dokter bhakn ke ornag pintar juga udah tpi ttp aja pnykit na makin parah,orang pintar bilng,penyakit ayah q tu gara ulah orng yg tak bertnagggung jawab
Setalah hmpir 2 buln ayah terkena penyakit kulit,ibu aku juga penyakitnya makin parah, mata ibu ku dua duanya gk bisa ngeliat lagi.bulan ramadhan pon tiba,bulan ramadhan kami lewti dengan cobaan yg begitu berat.dimn hanya ada q dan kk yg bisa menjaga ayah dan ibu.bulan puasa dah mw berakhir tpi pnyakit ayah makin parah,ayah hanya bisa terbaring d t4 tidur smbil menguluh rasa skit,perih ,pnas.sekitar pukul jam 3 siang ayah mmngil ibu,dan ibu disuruh ayah mmnggl a dan kk,kmi disuruh ngumpul di kmr,smpai d kmr ayah brkt,
Q dah gk snggup lagi dngn smua ini,rasa q pngen pergi aja,q dah gk tahan mnhn rasa skit ini,kemudian tangan yg meraba2 ibu berkata pada ayah,jangan brbicr seprti itu anak kita yg 2 ini mw q bikinkyk mn,q gk sanggup meyekolahkn mrk tnp ayah dismping aku.ayah ahrus kuat.ayah pasti smbuh.mdngr prktaan ayah n ibu,mmbwt air mata ku jatuh tk trbndung.
Keesokan harinya,ayah mmbaiki,kmi snngn sekali,walaupon blum smbuh total.
Lebaran pon tiba ,kluarga pda ngumpul smua kcuali kk yg no 1 gk bisa pulng.
Solth idul fitri kami laksankan tpu ayah dn ibu.rasnya sedih bgt,prgi k msjd tnp ibu dan ayah.stlh lbrn ke 7 ibu tuk yg prtm nya di bw berobat ke kota,ibu di opersi,hingga akhirnya ibu bisa melihat lagi,rasanya senang sekali tpi kesnng itu blum smpurna krn ayah masi skit.stlh ibu sht ayh pon dibawa berobat ma uda(adek ayah) kurng lbih 6 buln ayah mningglkn kami tuk berobat.stlh menunggu 6 buln اَلْحَمْدُلِلّهِ. Ya اَللّهُ ayah ku sht ,ayah pon pulng,smpai d kmpung,q terkejut melihat ayah q yg kulit dah terkelupas smua,tpi q ttp bersyukur krn ayah bisa smbuh.
Brkt ksembuhan ayah dan ibu kami skuluarga mengdkn syukurn kcl2 brng ma kluarga2 yg d kmpung.
Thnks اَللّهُ ,atas hikamah yg telah KW berikan kpd kluarga. I love ayah dan ibu,moga ayah dan ibu sht sllu smpi aku bisa mmbahagiakn Xan di kemudian hari.doakan anakmu mu biar sukses

@pantai cermin

28 september 2011,q pergi berdua doank ma risky.tpi ttp seru kok walaupun teman yg lain gk bisa kami ttp ngotot pergi berdua karena kami belum pernah ke pantai,maklum di kampung awak tak da pantai(hahahaha).