MODUL hal 32

LISTING PROGRAM MODUL Hal.32

Public Class Form1

    Sub buattabel()

        LV.Columns.Add("Npm", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Nama", 180, HorizontalAlignment.Left)

        LV.Columns.Add("Jurusan", 180, HorizontalAlignment.Left)

        LV.Columns.Add("Jenjang", 180, HorizontalAlignment.Left)

        LV.Columns.Add("Tahun Masuk", 180, HorizontalAlignment.Left)

        LV.Columns.Add("Nilai Angka", 180, HorizontalAlignment.Left)

        LV.Columns.Add("Nilai Huruf", 180, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    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(nilaiangka.Text)

        lst.SubItems.Add(nilaihuruf.Text)

        LV.Items.Add(lst)

    End Sub

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

        buattabel()

    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 = ""

        nilaiangka.Text = ""

        nilaihuruf.Text = ""

    End Sub

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

        LV.Items.Clear()

    End Sub

    Private Sub BtnHapusdatadipilh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusdatadipilh.Click

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

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        End

    End Sub

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click

        npm.Text = ""

        nama.Text = ""

        jurusan.Text = ""

        jenjang.Text = ""

        tahunmasuk.Text = ""

        nilaiangka.Text = ""

        nilaihuruf.Text = ""

    End Sub

    Sub nilaiangka_keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nilaiangka.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            Dim x As String

            tahunmasuk.Text = "2009"

            Microsoft.VisualBasic.Mid(npm.Text, 2)

            x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)

            If x = "1" Then

                jenjang.Text = "Diploma I"

            ElseIf x = "3" Then

                jenjang.Text = "Diploma III"

            ElseIf x = "4" Then

                jenjang.Text = "strata I"

            End If

            x = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)

            If x = "01" Then

                jurusan.Text = "Manajemen Informatika"

            ElseIf x = "02" Then

                jurusan.Text = "Sistem Informasi"

            ElseIf x = "03" Then

                jurusan.Text = "Teknik Komputer"

            ElseIf x = "04" Then

                jurusan.Text = "Akuntansi"

            End If

            If nilaiangka.Text >= 90 Then

                nilaihuruf.Text = "A"

            ElseIf nilaiangka.Text >= 80 Then

                nilaihuruf.Text = "B"

            ElseIf nilaiangka.Text >= 70 Then

                nilaihuruf.Text = "C"

            ElseIf nilaiangka.Text >= 60 Then

                nilaihuruf.Text = "D"

            Else

                nilaihuruf.Text = "E"

            End If

        End If

    End Sub

End Class

Data pegawai

LISTENING PROGRAM  DATA PEGAWAI

Public Class Form1

    Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click

        If USERNAME.Text = "OSWALD" And PASWORD.Text = "0911525" Then

            MenuUtama.Show()

            Me.Hide()

        Else

            MsgBox("MAAF!!! YOUR PASSWORD & USER NAME IS WRONG!")

            USERNAME.Text = ""

            PASWORD.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

End Class

Public Class MenuUtama

    Private Sub DATAKARYAWANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAKARYAWANToolStripMenuItem.Click

        KARYAWAN.SHOW()

    End Sub

    Private Sub KELUARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUARToolStripMenuItem.Click

        End

    End Sub

End Class

Public Class karyawan

    Private Sub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged

        If NIP.Text = "0001" Then

            NAMAKARYAWAN.Text = "PARJOLI"

        ElseIf NIP.Text = "0002" Then

            NAMAKARYAWAN.Text = "MAKMUR"

        ElseIf NIP.Text = "0003" Then

            NAMAKARYAWAN.Text = "FRICLES"

        End If

    End Sub

    Private Sub GOL_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GOL.SelectedIndexChanged

        If GOL.Text = "IIIA" Then

            GAJI.Text = 2500000

        ElseIf GOL.Text = "IIIB" Then

            GAJI.Text = 2750000

        ElseIf GOL.Text = "IIIC" Then

            GAJI.Text = 3000000

        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

            TUNJANGANANAK.Text = GAJI.Text * 0.016

        Else

            TUNJANGANANAK.Text = 0

        End If

        If STATUS.Text = "BELUM MENIKAH" Then

            TUNJANGANANAK.Enabled = False

            TUNJANGANANAK.Enabled = False

        End If

    End Sub

    Private Sub JUMLAHANAK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JUMLAHANAK.SelectedIndexChanged

        If JUMLAHANAK.Text = "1" Then

            TUNJANGAN.Text = GAJI.Text * 0.1

        ElseIf JUMLAHANAK.Text = "2" Then

            TUNJANGAN.Text = GAJI.Text * 0.19

        End If

    End Sub

    Private Sub PAJAK_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PAJAK.TextChanged

        TOTAL.Text = Val(GAJI.Text) + Val(TUNJANGANANAK.Text) + Val(TUNJANGANISTRI.Text) - Val(PAJAK.Text) + Val(GLEMBUR.Text)

    End Sub

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

        BUATTABEL()

        ISITABEL()

    End Sub

    Sub BUATTABEL()

        LISVIEW.Columns.Add("NIP", 80, HorizontalAlignment.Center)

        LISVIEW.Columns.Add("NAMA KARYAWAN", 180, HorizontalAlignment.Left)

        LISVIEW.Columns.Add("GOL", 80, HorizontalAlignment.Left)

        LISVIEW.Columns.Add("GAJI", 80, HorizontalAlignment.Left)

        LISVIEW.Columns.Add("STATUS", 80, HorizontalAlignment.Left)

        LISVIEW.Columns.Add("TUNJANGAN", 80, HorizontalAlignment.Left)

        LISVIEW.Columns.Add("TUNJANGANANAK", 80, HorizontalAlignment.Left)

        LISVIEW.Columns.Add("GAJI LEMBUR", 80, HorizontalAlignment.Left)

        LISVIEW.Columns.Add("LAMA LEMBUR", 80, HorizontalAlignment.Left)

        LISVIEW.Columns.Add("JUMLAH ANAK", 80, HorizontalAlignment.Left)

        LISVIEW.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)

        LISVIEW.Columns.Add("TOTAL GAJI", 80, HorizontalAlignment.Left)

        LISVIEW.View = View.Details

        LISVIEW.GridLines = True

        LISVIEW.FullRowSelect = True

    End Sub

    Sub ISITABEL()

        For i = 1 To 10

            NIP.Items.Add("000" & i)

        Next

        GOL.Items.Add("IIIA")

        GOL.Items.Add("IIIB")

        GOL.Items.Add("IIIC")

        STATUS.Items.Add("MENIKAH")

        STATUS.Items.Add("BELUM MENIKAH")

        JUMLAHANAK.Items.Add(1)

        JUMLAHANAK.Items.Add(2)

        LEMBUR.Items.Add("1 JAM")

        LEMBUR.Items.Add("2JAM")

        LEMBUR.Items.Add("3JAM")

        LEMBUR.Items.Add("4JAM")

        LEMBUR.Items.Add("5JAM")

        LEMBUR.Items.Add("6JAM")

        LEMBUR.Items.Add("7JAM")

        LEMBUR.Items.Add("8JAM")

        LEMBUR.Items.Add("9JAM")

        LEMBUR.Items.Add("10JAM")

    End Sub

    Private Sub TUNJANGAN_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TUNJANGAN.TextChanged

        TUNJANGANANAK.Text = GAJI.Text * 0.16

    End Sub

    Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click

        Dim sublv As New ListViewItem

        sublv.Text = NIP.Text

        sublv.SubItems.Add(NAMAKARYAWAN.Text)

        sublv.SubItems.Add(GOL.Text)

        sublv.SubItems.Add("RP. " & GAJI.Text)

        sublv.SubItems.Add(STATUS.Text)

        sublv.SubItems.Add("RP. " & TUNJANGANANAK.Text)

        sublv.SubItems.Add(" RP. " & TUNJANGANISTRI.Text)

        sublv.SubItems.Add(JUMLAHANAK.Text)

        sublv.SubItems.Add("JAM " & LEMBUR.Text)

        sublv.SubItems.Add("RP. " & GAJILEMBUR.Text)

        sublv.SubItems.Add("RP. " & PAJAK.Text)

        sublv.SubItems.Add("RP. " & TOTAL.Text)

        LISTVIEW.Items.Add(sublv)

    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click

        End

    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click

        PAJAK.Text = ""

        NAMAKARYAWAN.Text = ""

        GOL.Text = ""

        GAJI.Text = ""

        STATUS.Text = ""

        TUNJANGANISTRI.Text = ""

        TUNJANGANANAK.Text = ""

        GAJILEMBUR.Text = ""

        LEMBUR.Text = ""

        JUMLAHANAK.Text = ""

        TOTAL.Text = ""

        PAJAK.Focus()

    End Sub

    Private Sub GAJI_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GAJI.TextChanged

        PAJAK.Text = GAJI.Text * 0.3

    End Sub

    Private Sub GLEMBUR_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GLEMBUR.TextChanged

        If LEMBUR.Text = "1" Then

            GAJILEMBUR.Text = GAJI.Text * 5000

        ElseIf LEMBUR.Text = "2" Then

            GAJILEMBUR.Text = GAJI.Text * 5000

        ElseIf LEMBUR.Text = "3" Then

            GAJILEMBUR.Text = GAJI.Text * 5000

        ElseIf LEMBUR.Text = "4" Then

            GAJILEMBUR.Text = GAJI.Text * 5000

        ElseIf LEMBUR.Text = "5" Then

            GAJILEMBUR.Text = GAJI.Text * 5000

        ElseIf LEMBUR.Text = "6" Then

            GAJILEMBUR.Text = GAJI.Text * 5000

        ElseIf LEMBUR.Text = "7" Then

            GAJILEMBUR.Text = GAJI.Text * 5000

        ElseIf LEMBUR.Text = "8" Then

            GAJILEMBUR.Text = GAJI.Text * 5000

        ElseIf LEMBUR.Text = "9" Then

            GAJILEMBUR.Text = GAJI.Text * 5000

        ElseIf LEMBUR.Text = "10" Then

            GAJILEMBUR.Text = GAJI.Text * 5000

        End If

    End Sub

    Private Sub TOTAL_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TOTAL.TextChanged

    End Sub

End Class

Tugas Visual Basic

1. Visual Basic

Belajar Bnamun bagaimana dengan para newbie yang ingin belajar tanpa guru, tentunya memerlukan suatu hal yang dapat mensuport dalam tahap pembelajaran itu , bukan hahasa pemrograman Visual Basic atau belajar pemrograman dengan bahasa pemrograman lain seperti delphi taupun pascal merupakan hal yang sangat menyenangkan, namun tentunya harus ada sang guru yang membimbingnya anya dalam belajar visual basic atau belajar Delphi yang membutuhkan pendukung melainkan dalam semua hal yang ingin kita pelajari tentunya kita harus memiliki pendukung untuk bisa mahir dalam pemrograman.

banyak sekali tips trik mahir dalam pemrograman visualآ  basic ataupun delphi yang tentunya usaha dalam belajar yang maksimal dan ketekunan.

2. Pengenalan Visual Basic 6.0

Visual Basic adalah salah satu development tool untuk membangun aplikasi dalam lingkungan windows. Dalam pengembangan aplikasi, visual basic menggunakan pendekatan visual untuk merancang user interface dalam bentuk form, sedangkan untuk kodingnya menggunakan dialek bahasa basic yang cenderung mudah dipelajari. Visual basic telah menjadi tools yang terkenal bagi para pemula maupun para developer.

Dalam lingkungan Window’s User –interface sangat memegang peranan penting, karena dalam pemakaian aplikasi yang dibuat, pemakai senantiasa berinteraksi dengan user-interface tanpa menyadari bahwa dibelakangnya berjalan instruksi-instruksi program yang mendukung tampilan dan proses yang dilakukan.

Pada pemograman visual, pengembangan aplikasi dimulai dengan pembentukan user interface, kemudian mengatur properti dari objek-objek yang digunakan dalam user interface, dan baru dilakukan penulisan kode program untuk menangani kejadian-kejadian (event). Tahap pengembangan aplikasi demikian dikenal dengan istilah pengembangan aplikasi dengan pendekatan Bottom-Up .

3. IDE Visual Basic 6.0
Langkah awal dari belajar visual basic adalah mengenal IDE (Integrated Development Enviroment). Visual basic merupakan lingkungan pengembangan terpadu bagi programmer dalam mengembangkan aplikasinya. Dengan menggunakan IDE programmer dapat membuat user interface, melakukan koding, melakukan testing dan debugging serta mengkompilasi program menjadi executable. Penguasaan yang baik akan IDE akan sangat membantu programmer dalam mengefektifkan tugas-tugasnya sehingga dapat bekerja dengan efisien.
Sebelum lebih jauh membahas tentang IDE Visual Basic, langkah awal untuk belajar Visual basic adalah membuka/mengaktifkan program Visual Basic itu sendiri, caranya : klik start, all program, Microsoft Visual Basic 6.0, lalu klik programnya. Tungggu beberapa saat maka akan muncul tampilan berikut :
Gambar vb
Klik open untuk memulai Visual Basic.
IDE visual basic 6.0 menggunakan model MDI (Multiple Document Interface). Berikut ini adalah gambar yang menunjukan bagian-bagian dan nama-nama jendela yang dapat tampil pada IDE visual basic :
Gambar vb1
Keterangan dari jendela-jendela diatas :

1.	Menu Bar, digunakan untuk memilih tugas-tugas tertentu seperti menyimpan project, membuka project, dan lain-lain
2.	Main Toolbar, digunakan untuk melakukan tugas-tugas tertentu dengan cepat
3.	Form Designer, jendela ini merupakan tempat untuk merancang user interface dari aplikasi. Jadi jendela ini menyerupai kanvas bagi seorang pelukis
4.	Project Window, jendela ini berisi gambaran dari semua modul yang terdapat dalam aplikasi. Juga dapat digunakan icon Toggle Folders untuk menampilkan modul-modul dalam jendela tersebut secara di group atau berurut berdasarkan nama. Juga dapat menggunakan icon Ctrl+R untuk menampilkan jendela project, ataupun menggunakan icon Project Explorer
5.	Toolbox, jendela ini berisi komponen-komponen yang dapat digunakan untuk mengembangkan user interface. Berikut ini adalah gambar toolbox. Gambar vb2 Keterangan gambar toolbox :
	a. Pointer bukan merupakan suatu kontrol; gunakan icon ini ketika ingin memilih kontrol yang sudah berada pada form b. Picture Box adalah kontrol yang digunakan untuk menampilkan image dengan format : BMP, DIB (bitmap), ICO (icon), CUR (cursor), WMF (metafile), EMF (enhanced metafile), GIF dan JPEG c. Label adalah kontrol yang digunakan untuk menampilkan teks yang tidak dapat diperbaiki oleh pemakai d. Text Box adalah kontrol yang mengandung string yang dapat diperbaiki oleh pemakai, dapat berupa satu baris tunggal atau banyak baris e. Frame adalah kontrol yang digunakan sebagai kontainer bagi kontrol lainnya f. Command Button merupakan kontrol yang hampir ditemukan pada setiap form dan digunakan untuk membangkitkan event proses tertentu ketika pemakai melakukan klik padanya g. Check Box digunakan untuk pilihan yang isinya berisi yes/no, true/false h. Option Button sering digunakan lebih dari satu sebagai pilihan terhadap beberapa option yang hanya dapat dipilih satu i. List Box mengandung sejumlah item dan user dapat memilih lebih dari satu (bergantung pada property multi select) j. Combo Box merupakan kombinasi dari text box dan list box dimana pemasukan data dapat dilakukan dengan pengetikan maupun pemilihan k. Hscroll Bar dan Vscroll Bar digunakan untuk membentuk scroll bar berdiri sendiri l. Timer digunakan untuk proses background yang diaktifkan berdasarkan interval waktu tertentu. Merupakan kontrol non-visual m. Drive List Box, Dir List Box dan File List Box sering digunakan untuk membentuk dialog box yang berkaitan dengan file m. Shape dan Line digunakan untuk menampilkan bentuk seperti garis, persegi, bulatan dan oval o. Image berfungsi menyerupai image box, tetapi tidak dapat digunakan sebagai kontainer bagi kontrol lainnya. Sesuatu yangperlu diketahui bahwa kontrol image menggunakan resource yang lebih kecil dibandingkan dengan picture box p. Data digunakan untuk data binding q. OLE dapat digunakan sebagai tempat bagi program eksternal seperti Microsoft Excel, Word, dll
6.	Code Window, merupakan tempat untuk menulis koding. Untuk menampilkan jendela ini dapat juga dengan menggunakan kombinasi Shift+F7
7.	Properties Window, merupakan daftar properti-properti object yang sedang terpilih. Sebagai contohnya dapat diubah warna tulisan (foreground) dan warna latar belakang (background). Untuk menampilkan jendela properti dapat menggunakan tombol F4
8.	Form Layout Window, akan menunjukkan bagaimana form bersangkutan ditampilkan ketika runtime. 4. Tipe Data di Visual Basic 6.0 Visual basic 6.0 mempunyai beberapa jenis data. Untuk mendefinisikan jenis data pada sebuah variabel, visual basic menggunakan satu karakter tanda yang diletakkan di akhir nama sebuah variabel. Jenis data dalam visual basic yaitu : Tabel Jenis Data pada Visual Basic dan Akhirannya Jenis Data Akhiran Boolean Tidak Ada Integer % Long Integer & Double (Floating) # Single (Floating) ! Currency @ Date Tidak Ada Object Tidak Ada String $ Variant Tidak Ada 5. Batasan Data dalam Visual Basic 6.0 Data yang digunakan dalam visual basic mempunyai batasan-batasan yang ditentukan oleh besarnya tempat yang disediakan oleh penyimpanannya dalam memory. Adapun batasan-batasan data tersebut dapat dilihat pada tabel berikut ini. Tabel Type Data Jenis Data Ukuran Range/Batasan Byte 1 byte 0 sampai dengan 255 Boolean 2 bytes True atau False Integer 2 bytes -32, 68 sampai dengan 32, 767 Long (Long Integer) 4 bytes -2, 147, 483, 648, sampai dengan 2, 147, 483, 647 Single (Single-Precision-Floating-Point) 4 bytes Negatif : -3,402823E38 sampai dengan 1,401298E45 Positif : 1,4.1298E45 sampai dengan 3,402523E8 Date 8 bytes 1 Januari 100 sampai dengan 1 Desember 9999 Object 1 byte Semua referensi object String (Variable-Length) 10 bytes + panjang string 0 sampai kira-kira 2 milyar String (Fixed-Length) Sepanjang string 1 sampai kira-kira 65,400 Variant (with numbers) 16 bytes Semua numeric sesuai batasan pada jenis data double Variant (with characters) 22 bytes + panjang string Batasannya sama seperti panjang variable string yaitu 0 sampai kira-kira 2 billion User defined (Menggunakan type) Sebesar elemen yang dibutuhkan Setiap elemen sama batasannya dengan jenis datanya

V.BASIC

Belajar Bnamun bagaimana dengan para newbie yang ingin belajar tanpa guru, tentunya memerlukan suatu hal yang dapat mensuport dalam tahap pembelajaran itu , bukan hahasa pemrograman Visual Basic atau belajar pemrograman dengan bahasa pemrograman lain seperti delphi taupun pascal merupakan hal yang sangat menyenangkan, namun tentunya harus ada sang guru yang membimbingnya anya dalam belajar visual basic atau belajar Delphi yang membutuhkan pendukung melainkan dalam semua hal yang ingin kita pelajari tentunya kita harus memiliki pendukung untuk bisa mahir dalam pemrograman.

banyak sekali tips trik mahir dalam pemrograman visualآ  basic ataupun delphi yang tentunya usaha dalam belajar yang maksimal dan ketekunan.

 LAGE BLAJAR ......

HEEHEEHEE