Jawaban Quiz No.3

- LISTING PROGRAM :
Public Class Form1
    Private Sub process_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles process.Click

        If user.Text = "RINI ARTIKA" And pasword.Text = "150390" Then
            FormKaryawan.Show()
            Me.Hide()
        Else
            MsgBox("Your Pasword Invalid !!!")
            user.Text = ""
            pasword.Text = ""
        End If

    End Sub
End Class


- HASIL PROGRAM :

Public Class FormKaryawan

  
    Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged
        If nip.Text = "00001" Then
            nama.Text = "Suryani"
        ElseIf nip.Text = "00002" Then
            nama.Text = "Vinalia Pardede"
        Else
            nama.Text = "Rini Artika"

        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
            gapok.Text = "1750000"
            pajak.Text = (1.5 * Val(gapok.Text))

        ElseIf jabatan.Text = "Kepala Bagian" Then
            gapok.Text = "2500000"
            pajak.Text = (1.5 * Val(gapok.Text))
        Else
            gapok.Text = "1250000"
            pajak.Text = 0
        End If
    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        If status.Text = "Menikah" Then
            tistri.Text = (0.09 * Val(gapok.Text))
        Else
            tistri.Text = "0"
        End If
    End Sub

    Private Sub jmlhanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlhanak.TextChanged
        If jmlhanak.Text = "1" Then
            tanak.Text = (0.3 * Val(gapok.Text))
        ElseIf jmlhanak.Text = "2" Then
            tanak.Text = (0.7 * Val(gapok.Text))
        Else
            tanak.Text = (0.7 * Val(gapok.Text))
        End If
    End Sub

    Private Sub jam_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jam.SelectedIndexChanged
        If jam.Text = "1" Then
            If jabatan.Text = "Mandor" Then
                lembur.Text = "7500"
            ElseIf jabatan.Text = "Staf" Then
                lembur.Text = "5000"
            Else
                lembur.Text = "10000"
            End If
        ElseIf jam.Text = "2" Then
            If jabatan.Text = "Mandor" Then
                lembur.Text = "15000"
            ElseIf jabatan.Text = "Staf" Then
                lembur.Text = "10000"
            Else
                lembur.Text = "20000"
            End If
        ElseIf jam.Text = "3" Then
            If jabatan.Text = "Mandor" Then
                lembur.Text = "22500"
            ElseIf jabatan.Text = "Staf" Then
                lembur.Text = "15000"
            Else
                lembur.Text = "30000"
            End If
        ElseIf jam.Text = "4" Then
            If jabatan.Text = "Mandor" Then
                lembur.Text = "30000"
            ElseIf jabatan.Text = "Staf" Then
                lembur.Text = "20000"
            Else
                lembur.Text = "40000"
            End If
        ElseIf jam.Text = "5" Then
            If jabatan.Text = "Mandor" Then
                lembur.Text = "37500"
            ElseIf jabatan.Text = "Staf" Then
                lembur.Text = "25000"
            Else
                lembur.Text = "50000"
            End If
        ElseIf jam.Text = "6" Then
            If jabatan.Text = "Mandor" Then
                lembur.Text = "45000"
            ElseIf jabatan.Text = "Staf" Then
                lembur.Text = "30000"
            Else
                lembur.Text = "60000"
            End If
        ElseIf jam.Text = "7" Then
            If jabatan.Text = "Mandor" Then
                lembur.Text = "52500"
            ElseIf jabatan.Text = "Staf" Then
                lembur.Text = "35000"
            Else
                lembur.Text = "70000"
            End If
        ElseIf jam.Text = "8" Then
            If jabatan.Text = "Mandor" Then
                lembur.Text = "60000"
            ElseIf jabatan.Text = "Staf" Then
                lembur.Text = "40000"
            Else
                lembur.Text = "80000"
            End If
        ElseIf jam.Text = "9" Then
            If jabatan.Text = "Mandor" Then
                lembur.Text = "67500"
            ElseIf jabatan.Text = "Staf" Then
                lembur.Text = "45000"
            Else
                lembur.Text = "90000"
            End If
        ElseIf jam.Text = "10" Then
            If jabatan.Text = "Mandor" Then
                lembur.Text = "75000"
            ElseIf jabatan.Text = "Staf" Then
                lembur.Text = "50000"
            Else
                lembur.Text = "100000"
            End If
        ElseIf jam.Text = "11" Then
            If jabatan.Text = "Mandor" Then
                lembur.Text = "82500"
            ElseIf jabatan.Text = "Staf" Then
                lembur.Text = "55000"
            Else
                lembur.Text = "110000"
            End If
        ElseIf jam.Text = "12" Then
            If jabatan.Text = "Mandor" Then
                lembur.Text = "90000"
            ElseIf jabatan.Text = "Staf" Then
                lembur.Text = "60000"
            Else
                lembur.Text = "1200000"
            End If
        End If
    End Sub

    Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click
        total.Text = Val(gapok.Text) + Val(tistri.Text) + Val(tanak.Text) + Val(lembur.Text) - Val(pajak.Text)
    End Sub

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

    End Sub

    Sub Buattabel()
        LV.Columns.Add("NIP", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        LV.Columns.Add("Jabatan", 70, HorizontalAlignment.Center)
        LV.Columns.Add("G.Pokok", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Status", 70, HorizontalAlignment.Center)
        LV.Columns.Add("T. Istri", 70, HorizontalAlignment.Center)
        LV.Columns.Add("J. Anak", 70, HorizontalAlignment.Center)
        LV.Columns.Add("T. Anak", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Gaji Lambur", 70, HorizontalAlignment.Center)
        LV.Columns.Add("J.Jam", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Total", 70, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    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(gapok.Text)
        lst.SubItems.Add(status.Text)
        lst.SubItems.Add(tistri.Text)
        lst.SubItems.Add(jmlhanak.Text)
        lst.SubItems.Add(tanak.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(lembur.Text)
        lst.SubItems.Add(jam.Text)
        lst.SubItems.Add(total.Text)

        LV.Items.Add(lst)
    End Sub


    Private Sub BTNProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNProses.Click
        isitabel()
        nip.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gapok.Text = ""
        status.Text = ""
        tistri.Text = ""
        jmlhanak.Text = ""
        tanak.Text = ""
        pajak.Text = ""
        lembur.Text = ""
        jam.Text = ""
        total.Text = ""
        nip.Focus()

    End Sub
End Class

- HASIL PROGRAM :

tentangqu

Nama ku Rini Artika, aku Kuliah di STMIK BUDIDARMA MEDAN loh jurusan Teknik INformatika loohhh,heheheheh

Aku anak ke-2 dari 3bersaudara,aku punya abang dan punya adik yang sayangn dan peduli kali sama aku,aku bahagia mempunyai abg dan adik seperti dia semoga abg biasa jadi abg yang bisa bimbing kami ya,dan jangan lupakan kami kalau kelak kita pisah ya bang.Tapi ada gak enaknya nie punya abg,mau kemana ja mesti bilang tapi abg aku gak begi kali kok hanya aku aja yang merasa takut,semoga kelak kita bisa bahagikan ortu ya bg.

Aku kos dapat teman2 yang baik dan mengasyikkan,selain jadi teman mereka kadang2 aku anggap kaka aku aja,maklum aku pingin rasakan punya kaka cwek,hehehe

tapi kalau uda ngumpul ma mereka seap2 pin ketwa banyak2 aja,habis tak pernah ketinggalan ketawanya,mereka bagiku is the best deh....

Semoga kekeluargaan kami tetap terjalin manis kalupun ada masalah bisa dihadapi baik2....

Mungkin

Aduhhhhhh

Semester ini bener-benar terasa kali ahhh,pulang selalu sore kekebalan tubuh semakin menurun,hehehe

Tapi gak apa2 juga seeh jadi lebih rajin lagi untuk belajar meskipun aku tidak begitu paham sekali dikomputer,semoga kelak aku bisa menjadi seseorang yang berguna bagi Keluarga dan Negara. Meskipun aku benci pelajaran komputer sebisa mugkin aku harus bisa memahaminnya karena aku mau buktikan kepada keluargaku bahwa kuliah di swasta itu bisa sukses dan aku akan membuat bangga ortu aku. "Yang sabar ya ma,biar lah mereka bilang kuliah aku tidak bisa memungkinkan tapi sebisa mungkin aku berusaha untuk membuat mama bangga dan aku bisa membahagiakan kalian dengan jerih payaku".

Kelak aku ingin bisa membiayai kalian naik haji,belikan rumah,mobil dll tapi tuggu aku jadi orang yang sukses ya dan bantu aku dengan doa ya Ma. Karena,doa mama selalu membantu aku untuk menjalani hidup ini. Aku minta maaf kalau aku selalu membuat kalian marah atas sikap ku,tapi aku gak bisa melakukan yang dilakukan anak2 lain,cara ku untuk membahagiakan kalian berbeda. Setiap tetesan air mata yang keluar dari mata ku ini karena aku sayang kali sama kalian tapi kenapa kalian tidak pernah tau,biar lah aku yang merasakkan semua ini asalkkan kalian tetap bahagia dengan cara kalian.

"Aku hanya bisa ungkapkan dari kata2 ini maaf kalau agak lebay"

hihuhohahe

Isi hatiqu

Sekarang tinggalah penyesalan dihidupqu,dulu aku menyakitinya terlalu dalam hingga kini aku yang merasakan apa yang pernah iya rasakan. Mungkin ini uda kehendakNya aku terima dengan ikhlas,tapi kamu tidak pernah mau tau apa yang dulu aku rasakan,selalu tak memperdulikanku disaat qu butuh pendapat dan butuh orang yang bisa bantu aku untuk menghadapi masalah ku. Kau tak pernah tau begitu banyak yang aku hadapi hingga kau begitu kepadaku. Tak pernah kau bilang tidak setiap apa yg aku bilang,kau hanya bilang iya tanpa mau untuk memahamiqu!!!!!!!!!!!

Kini hatiku sakit melihat kau bersamanya,secepat itu kau tak mengingatqu lagi. Memang aku tak berarti lagi bagimu tapi aku tidak mau semua berakhir seperti ini,meskipun kau bukan milikku lagi tapi aku ingin kita menjadi teman baik,please jangan buat aku menjadi seperti ini!!!!!! 

curcol

Malam semakin kelam,

Bukan karena risau aku merasa sendiri,

Tp karena kesunyian lah yang selalu menghampiri,

Berbagai cara sudah ku lakukan agar qu mampu untuk menghilangkan kesepian ini,

Tp kenapa tetap tidak bisa juga,

Tuhan bantulah HambaMu ini..............

kegiatan sehari-hari

Kegiatan sehari-hari saya selain kuliah saya lebih banyak menghabiskan waktu di kosan,selain tempat itu membuat saya nyaman tempat itu juga sangat mengassikan bagi saya. Tempat untuk bersedih,bersenang,bersenda gurau bersama teman.

SEJARAH DAN PERKEMBANGAN VB

SEJARAH

Bill Gates, pendiri Microsoft, memulai bisnis perangkat lunak dengan mengembangkan interpreter bahasa Basic untuk Altair 8800, untuk kemudian ia ubah agar dapat berjalan di atas IBM PC dengan sistem operasi DOS. Perkembangan berikutnya ialah diluncurkannya BASICA (basic-advanced) untuk DOS. Setelah BASICA, Microsoft meluncurkan Microsoft QuickBasic dan Microsoft Basic (dikenal juga sebagai Basic Compiler).

Visual Basic adalah pengembangan dari bahasa komputer BASIC (Beginner’s All-purpose Symbolic Instruction Code). Bahasa BASIC diciptakan oleh Professor John Kemeny dan Thomas Eugene Kurtz dari Perguruan Tinggi Dartmouth pada pertengahan tahun 1960-an.[2] Bahasa program tersebut tersusun mirip dengan bahasa Inggris yang biasa digunakan oleh para programer untuk menulis program-program komputer sederhana yang berfungsi sebagai pembelajaran bagi konsep dasar pemrograman komputer.

Sejak saat itu, banyak versi BASIC yang dikembangkan untuk digunakan pada berbagai platform komputer,[2] seperti Microsoft QBASIC, QUICKBASIC, GWBASIC, IBM BASICA, Apple BASIC dan lain-lain.

Apple BASIC dikembangkan oleh Steve Wozniak, mantan karyawan Hewlett Packard dan teman dekat Steve Jobs (pendiri Apple Inc.).[2] Steve Jobs pernah bekerja dengan Wozniak sebelumnya (mereka membuat game arcade “Breakout” untuk Atari). Mereka mengumpulkan uang dan bersama-sama merakit PC, dan pada tanggal 1 April 1976 mereka secara resmi mendirikan perusahaan komputer Apple. Popularitas dan pemakaian BASIC yang luas dengan berbagai jenis komputer turut berperan dalam mengembangkan dan memperbaiki bahasa itu sendiri, dan akhirnya berujung pada lahirnya Visual Basic yang berbasis GUI (Graphic User Interface) bersamaan dengan Microsoft Windows. Pemrograman Visual Basic begitu mudah bagi pemula dan programer musiman karena ia menghemat waktu pemrograman dengan tersedianya komponen-komponen siap pakai.[2]

Hingga akhirnya Visual Basic juga telah berkembang menjadi beberapa versi, sampai yang terbaru, yaitu Visual Basic 2010. Bagaimanapun juga Visual Basic 6.0 tetap menjadi versi yang paling populer karena mudah dalam membuat programnya dan ia tidak menghabiskan banyak memori.[2]

Sejarah BASIC di tangan Microsoft sebagai bahasa yang diinterpretasi (BASICA) dan juga bahasa yang dikompilasi (BASCOM) membuat Visual Basic diimplementasikan sebagai gabungan keduanya.[3] Programmer yang menggunakan Visual Basic bisa memilih kode bahasa pemrograman yang dikompilasi atau kode yang harus bahasa pemrograman yang diinterpretasikan sebagai hasil porting dari kode VB.[3] Sayangnya, meskipun sudah terkompilasi jadi bahasa mesin, DLL bernama MSVBVMxx.DLL tetap dibutuhkan. Namun karakteristik bahasa terkompilasi tetap muncul (ia lebih cepat dari kalau kita pakai mode terinterpretasi).[3]
[sunting] Perkembangan Visual Basic

Visual Basic 1.0 dikenalkan pada tahun 1991. Konsep pemrograman dengan metode drag-and-drop untuk membuat tampilan aplikasi Visual Basic ini diadaptasi dari prototype generator form yang dikembangkan oleh Alan Cooper dan perusahaannya, dengan nama Tripod. Microsoft kemudian mengontrak Cooper dan perusahaannya untuk mengembangkan Tripod menjadi sistem form yang dapat diprogram untuk Windows 3.0, di bawah kode nama Ruby.

Tripod tidak memiliki bahasa pemrograman sama sekali. Ini menyebabkan Microsoft memutuskan untuk mengkombinasikan Ruby dengan bahasa pemrograman Basic untuk membuat Visual Basic.
[sunting] Dari waktu ke waktu

* Proyek Thunder dimulai.
* Visual Basic 1.0 dirilis untuk Windows pada Comdex/Windows Trade Show di Atlanta, Georgia pada Mei 1991.
* Visual Basic 1.0 untuk DOS dirilis pada September 1992. Bahasa pemrogramannya sendiri tidak terlalu kompatibel dengan Visual Basic untuk Windows, karena sesungguhnya itu adalah versi selanjutnya dari kompiler BASIC berbasis DOS yang dikembangkan oleh Microsoft sendiri, yaitu QuickBASIC. Antarmuka dari program ini sendiri menggunakan antarmuka teks, dan memanfaatkan kode-kode ASCII tambahan untuk mensimulasikan tampilan GUI.
* Visual Basic 2.0 dirilis pada November 1992. Lingkungan pemrogramannya lebih mudah untuk digunakan, dan kecepatannya lebih ditingkatkan.
* Visual Basic 3.0 dirilis pada musim semi 1993 dan hadir dalam dua versi: Standar dan Professional. VB3 juga menyertakan versi 1.1 dari Microsoft Jet Database Engine yang dapat membaca dan menulis database Jet/Access 1.x.
* Visual Basic 4.0 (Agustus 1995) adalah versi pertama yang dapat membuat program 32-bit seperti program 16-bit. VB4 juga memperkenalkan kemampuannya dalam membuat aplikasi non-GUI. Bila versi sebelumnya menggunakan kontrol VBX, sejak VB4 dirilis Visual Basic menggunakan kontrol OLE (dengan ekstensi file *.OCX), yang lebih dikenal kemudian dengan kontrol ActiveX.
* Dengan versi 5.0 (Februari 1997), Microsoft merilis Visual Basic eksklusif untuk versi 32-bit dari Windows. Para programmer yang lebih memilih membuat kode 16-bit dapat meng-impor program yang ditulis dengan VB4 ke versi VB5, dan program-program VB5 dapat dikonversi dengan mudah ke dalam format VB4.
* Visual Basic 6.0 (pertengahan 1998) telah diimprovisasi di beberapa bagian, termasuk kemampuan barunya, yaitu membuat aplikasi web. Meskipun kini VB6 sudah tidak didukung lagi, tetapi file runtime-nya masih didukung hingga Windows 7.