Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

Berikut syntaxnya..

Public Class Form1

    Sub buattabel()

        lv.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Merk", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Harga", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)

        lv.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = no.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 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

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        isitabel()

        no.Text = ""

        kode.Text = ""

        nama.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        total.Text = ""

    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)

        Select Case X

            Case "TS" : merk.Text = "TOSHIBA"

            Case "VG" : merk.Text = "V-GEN"

        End Select

        Select Case kode.Text

            Case "TS001" : nama.Text = "flashdisk 4 Gb"

            Case "TS002" : nama.Text = "flashdisk 2 Gb"

            Case "VG001" : nama.Text = "flashdisk 4 Gb"

            Case "VG002" : nama.Text = "flashdisk 2Gb"

        End Select

        Select Case kode.Text

            Case "TS001" : harga.Text = 105000

            Case "TS002" : harga.Text = 75000

            Case "VG001" : harga.Text = 90000

            Case "VG002" : harga.Text = 60000

        End Select

    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click

        no.Text = ""

        kode.Text = ""

        nama.Text = ""

        merk.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        total.Text = ""

    End Sub

    Private Sub nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.TextChanged

    End Sub

    Private Sub semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles semua.Click

        lv.Items.Clear()

    End Sub

    Private Sub pilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pilih.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

    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

    Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.TextChanged

    End Sub

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

        End

    End Sub

End Class

SEPERTI INILAH HASILNYA

 

Tugas Mahasiswa

Public Class Form1

    Sub addnik()

        With nik

            .Items.Add("001")

            .Items.Add("002")

            .Items.Add("003")

        End With

    End Sub

    Sub rancangtabel()

        With LV

            .Columns.Add("NIK", 100, HorizontalAlignment.Center)

            .Columns.Add("Nama", 100, HorizontalAlignment.Center)

            .Columns.Add("Jabatan", 100, HorizontalAlignment.Center)

            .Columns.Add("Gaji", 100, HorizontalAlignment.Center)

            .Columns.Add("Status", 100, HorizontalAlignment.Center)

            .Columns.Add("Tunj.Keluarga", 100, HorizontalAlignment.Center)

            .Columns.Add("Pajak", 100, HorizontalAlignment.Center)

            .Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)

            .GridLines = True

            .View = View.Details

            .FullRowSelect = True

        End With

    End Sub

    Sub isitabel()

        Dim x As New ListViewItem

        x.Text = nik.Text

        x.SubItems.Add(nama.Text)

        x.SubItems.Add(jabatan.Text)

        x.SubItems.Add(gaji.Text)

        x.SubItems.Add(status.Text)

        x.SubItems.Add(tunjangan.Text)

        x.SubItems.Add(pajak.Text)

        x.SubItems.Add(total.Text)

        LV.Items.Add(x)

    End Sub

    Sub addjabatan()

        With jabatan

            .Items.Add("Mandor")

            .Items.Add("Kepala Bagian")

            .Items.Add("Staf")

        End With

    End Sub

    Sub addstatus()

        With status

            .Items.Add("menikah")

            .Items.Add("Belum menikah")

        End With

    End Sub

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

        addjabatan()

        addnik()

        addstatus()

        rancangtabel()

    End Sub

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

        Select Case jabatan.Text

            Case "Mandor" : gaji.Text = 1750000

            Case "Kepala Bagian" : gaji.Text = 2500000

            Case "Staf" : gaji.Text = 1250000

        End Select

        pajak.Text = 0.15 * gaji.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 = "joko"

            Case "002" : nama.Text = "laksono"

            Case "003" : nama.Text = " sassi"

        End Select

    End Sub

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

        Select Case status.Text

            Case "menikah"

                tunjangan.Text = 0.15 * gaji.Text

            Case "Belum Menikah"

                tunjangan.Text = 0

                tunjangan.Text = "0"

        End Select

    End Sub

    Private Sub proses_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles proses.Click

        total.Text = Val(gaji.Text) + Val(tunjangan.Text) - Val(pajak.Text)

    End Sub

    Private Sub baru_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles baru.Click

        nik.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        gaji.Text = ""

        status.Text = ""

        tunjangan.Text = ""

        pajak.Text = ""

        total.Text = ""

    End Sub

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

        End

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        isitabel()

    End Sub

    Private Sub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

    End Sub

End Class

dan hasilnya adalah

 

Tips Rahasia Cara Belajar yang Baik Efektif dan Efisien

Tips Rahasia Cara Belajar yang Baik Efektif dan Efisien - Tepat hari Sabtu kemarin kegiatan Ulangan Tengah Semester di sekolah saya sudah selesai. Dengan demikian, saya kembali melakukan rutinitas yang menyenangkan yaitu Blogging. Pada kesempatan kali ini saya akan membahas tentang Tips Rahasia Cara Belajar yang Baik Efektif dan Efisien yang sudah terbukti mampu membuat saya selalu merasa mudah mengingat saat mengerjakan test. Penasaran? Eiits, tunggu dulu, ada beberapa hal yang harus anda patuhi sebelum menerapkan Tips Rahasia Cara Belajar yang Baik Efektif dan Efisien ini, yaitu :

• Niat yang tulus dari hati nurani anda sangat dibutuhkan sebelum menerapkan cara ini, karena tanpa niat yang tulus, kemungkinan kecil cara belajar ini akan berhasil.
• Yakin dan percaya diri bahwa sebelum dan sesudah menerapkan cara ini anda akan lebih mudah dalam mempelajari suatu materi pelajaran dengan baik, efektif, dan efisien.
• Fokus dan konsentrasi adalah hal yang harus anda lakukan saat menerapkan cara belajar ini, karena jika anda tidak fokus dan konsentrasi, maka sangat sulit untuk memahami suatu materi pelajaran.

Nah, jika anda sudah memenuhi syarat-syarat tersebut di atas, maka simaklah penjelasan saya tentang Tips Rahasia Cara Belajar yang Baik Efektif dan Efisien berikut ini:

1. Pertama kali yang harus anda lakukan adalah menyiapkan sebuah buku yang berisi tentang materi pelajaran yang ingin dipelajari. Selain buku, mungkin ada juga ringkasan materi yang anda buat sendiri, atau hal lain yang berisikan materi yang ingin dipelajari, misalnya Mind Map atau Peta Pikiran (Baca: Mind Map atau Peta Pikiran Ala Tony Buzan)
2. Jika sudah, maka pelajarilah materi-materi yang ada didalamnya, sedikit demi sedikit, dari materi satu ke materi yang lain, dan lakukan pemahaman materi ini selama 20 menit.
3. Jika sudah, maka berhentilah sejenak untuk istirahat guna menenangkan pikiran. Sebaiknya istirahat ini jangan lama-lama, cukup 5-10 menit saja. Ingat, istirahat yang dilakukan tidak boleh sambil mengerjakan hal-hal lain yang tidak penting seperti membaca SMS teman, Facebook-an, Twitter-an, dll. Disinilah fokus dan konsentrasi sangat dibutuhkan. Sangat dianjurkan pada saat istirahat, anda tenangkan pikiran anda dahulu seperti memperhatikan detikan jarum jam, atau hal lain yang membutuhkan dan memancing perasaan kita untuk fokus dan konsentrasi.
4. Nah, jika anda sudah beristirahat dan menenangkan pikiran, saatnya anda untuk mengulang kembali materi-materi yang telah dipelajari dan dipahami selama 15 menit, setelah itu istirahat lagi selama 5-10 menit.
5. Setelah itu, anda harus mengulang kembali materi yang telah anda pelajari dan anda pahami selama 10 menit. Nah, disini anda sudah mempelajari materi-materi sebanyak 3 (tiga) kali dengan waktu pertama 20 menit, kedua 15 menit, dan ketiga 10 menit dengan istirahat selama 5-10 menit setiap selesai mempelajari dan memahami suatu materi. Dengan demikian, anda sudah belajar memahami suatu materi pelajaran yang sudah diciptakan oleh pakar otak dunia yaitu Tony Buzan.

Bagaimana? Gampang, gampang-gampang susah, atau susah? Itu sih tergantung anda sendiri, bagi yang suka mempelajari dan memahami sesuatu, pasti cara belajar ini terasa menyenangkan. Namun, mungkin bagi yang tidak suka mempelajari dan memahami sesuatu, pasti cara belajar ini terasa menyakitkan, hehee. Memang sih, tapi kalau menurut saya, Tips Rahasia Cara Belajar yang Baik Efektif dan Efisien tersebut di atas cukup memberikan kontribusi bagi saya dan cara belajar ini sungguh sangat membantu saya dalam mengingat suatu materi pelajaran kapan pun dan dimana pun.

Oh, iya, kata guru saya, cara belajar tersebut juga bisa bertahan lama (ingatan tentang materi), sekitar 2 (dua) minggu atau malah bisa sampai 1 (satu) bulan, lho. Dan ternyata terbukti, saat saya mengikuti UTS kemarin, saya tidak merasa keberatan mengerjakan soal. Padahal, saya mempelajari materi pelajaran itu 2 (dua) minggu sebelum diadakan Ulangan Tengah Semester (UTS) genap. Bagaimana dengan anda? Ditunggu jawabannya di kotak komentar, ya, hehee. Sekian dari saya, sampai disini dulu postingan kali ini mengenai Tips Rahasia Cara Belajar yang Baik Efektif dan Efisien. Semoga bermanfaat bagi kita semua. Amin