latihan visual besic.net 2008

SOAL MATAKULIAH VISUAL (SEMESTER III) :

Kerjakanlah soal berikut ini :

SOAL 1 :  Buatlah program untuk menampilkan hasil ke listview untuk kasus Latihan Listview Perhitungan Penjualan Barang

SOAL 2 : Buatlah program vb net untuk menampilkan output seperti dibawah ini :

Buatlah program untuk mencari harga photo copy    :

PROGRAM INPUT HARGA FOTO COPY
___________________________________
Jumlah Lembar    : 999
Harga per lembar: 999
Total Harga    : 999999   
Discount   : 9999999
Pembayaran : 9999999

Proses   

Jika Jumlah lembar >= 200  HpL = 90 atau HpL = 100
Total Harga = HPL * Jumlah
Jika total harga >500000 discount 15%
Pembayaran = total harga - discount

HpL = Harga per Lembar

Jawaban:
desain gambarnya terlebih dahulu

setelah selesai mendesain selanjutnya melakukan pengkodingan

terlebih dahulu klik dua kali pada from yang kosong agar kita mengerjakan kodinganya didalam public class fromnya

Public Class Form1

                selanjutnya ketikkan koding dibawah ini agar lisviwnya bergaris dan berkolom supaya gampang membedakan nya

    Sub buat_tabel()

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

        lv.Columns.Add("jenis kertas")

        lv.Columns.Add("jumlah lembar")

        lv.Columns.Add("total harga")

        lv.Columns.Add("harga perlembar")

        lv.Columns.Add("pembayaran")

        lv.Columns.Add("discon")

    End Sub

selanjutnya kita mengisi lisviw yang kita buat tadi maka ketikkan koding dibawah ini

    Sub isi_tabel()

        Dim f As New ListViewItem

        f.Text = jenis_kertas.Text

        lv.Items.Add(f)

        f.SubItems.Add(jumlah_lembar.Text)

        f.SubItems.Add(total_harga.Text)

        f.SubItems.Add(harga_perlembar.Text)

        f.SubItems.Add(pembayaran.Text)

        f.SubItems.Add(discoun.Text)

    End Sub

selanjutnya agar ketika kita ingin menghapaus semua yang kita tulis yang ada pada texbox maka buatlah tombol hapus dengan printah seperti ini:

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles masuk_lv.Click

        isi_tabel()

        jenis_kertas.Text = ""

        jumlah_lembar.Text = ""

        total_harga.Text = ""

        harga_perlembar.Text = ""

        pembayaran.Text = ""

        discoun.Text = ""

    End Sub

agar kombobox nya berpungsi alyas kita bisa melakukan pemilihan dalam komboboxnya maka kita harus mengetikkan perintah ini pada from_loadnya dengan cara kelik dua kali pada fromnya dan ketikkan koding ini:

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

        buat_tabel()

        jenis_kertas.Items.Add("A4")

        jenis_kertas.Items.Add("HVS")

        jenis_kertas.Items.Add("kuarto")

        jenis_kertas.Items.Add("F4")

        Dim f As Integer

        For f = 1 To 10000

            jumlah_lembar.Items.Add(f)

        Next

    End Sub

    

  untuk melakukan pembuatan discont kita butuk penggunaan if yaitu dengan logika jika kta memilh ini maka kita mendapatkan bonus ini, dan jika kita memilh yang itu maka kita mendapatkan bonus itu...

maka seperti inilah logika if yang saya gunkan disini dan tulislah koding dibawah ini:

    Private Sub jumlah_kertas_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah_lembar.SelectedIndexChanged

       

        If jumlah_lembar.Text >= 200 Then

            harga_perlembar.Text = 100

        Else

            harga_perlembar.Text = 999

        End If

        total_harga.Text = jumlah_lembar.Text * harga_perlembar.Text

        If total_harga.Text >= 500000 Then

            discoun.Text = "15%"

        Else

            discoun.Text = 0

            MessageBox.Show("tidak mendapat discon")

        End If

       

    End Sub

supaya tombol pembayaran nya muncul maka ketikkan koding ini

ket: pembayaran.tex hasil dari total pembelian dikurang discon yang sudah ditentukan

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

        pembayaran.Text = total_harga.Text - discoun.Text

    End Sub

    

ini tombol untuk meghapus semua yang ada pada lisviw

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_semua.Click

        lv.Items.Clear()

    End Sub

koding ini digunakan untuk menghapus ivent yang dipilih pada lisviw

    Private Sub hapus_dipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_dipilih.Click

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

    End Sub

dan ini koding untuk keluar

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

        Me.Close()

    End Sub

End Class

Read More

pantaskah kau menjadi milikku

  "JAGA HATI MU UNTUK KU YA......." inilah yang selalu kita katakan kepada orang yang kita cintai, eh,,, ternyata itu hanya dibibir saja, mungkin karna mereka tidak pernah merasakan kekecewaan itu, andai saja mereka merasakan hal yang sama mungkin mereka berhenti untuk mengecewanya kita,

       Padahal kita selalu memberikan apapun yang dia minta, baik itu waktu, materi, bahkan nyawapun diberikan, sebagai contoh: bang..... bisa jemput adek??? alna adek pulang kuliah sendirian... kata si wanita, dengan tegas cowok itu berkata : bisa tapi bentarya,, abang lagi kerja, agak siangan bisa kan......???? abang tega ya... masak adek disuruh nunggu ampek siang, kata siwanita... yaudah.. nanti bang bolos kerja.....

       Bayangkan......... cowok itu rela melakukan apapun untuk wanita yang ia sayang, padahal uang yang dia dapat dari hasil kerja untuk membantu keuangan keluagana, bahkan lebih penting lagi uang kerjanya untuk bayar uang sekolah adik na...

       masih pantaskah kita mempertahankan wanita itu??? aku rasa tidak, jika dia tidak peduli dengan kita, gimana dia akan peduli dangan keluarga kita??? renungkan lah... dan percayalah,, tuhan akan mencarikan kamu jodoh yang lebih baik

Read More

penggajian

Kata orang sore2 gini enaknya minum kopi ditemani pisang goreng, aduh… tapi sayang… saya lagi bokek, maklum ajalah, sayakan blum jadi orang kaya. Daripada bengong dan suntuk tidak karuan mendingan saya membuat program penggajian,,, ya hitung2 untuk latihan dan sekaligus menambah pemahaman.. he..he…

Ohya.. saya ingin mendesain fromnya terlebih dahulu agar kita mudah dalam pengkodingan… bentuk desain from saya sperti ini

 

Public Class Form1

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

        nik.Items.Add("K010f")

        nik.Items.Add("N010g")

        jabatan.Items.Add("mandor")

        jabatan.Items.Add("staf")

        status.Items.Add("menikah")

        status.Items.Add("jomlo")

        buat_table()

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        If nik.Text = "K010f" Then

            nama.Text = "Adistya silvy"

        ElseIf nik.Text = "N010g" Then

            nama.Text = "indra"

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

        ElseIf jabatan.Text = "staf" Then

            gaji.Text = 89000

        End If

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

            tunjangna_kel.Text = gaji.Text * 0.1

        ElseIf status.Text = "jomlo" Then

            tunjangna_kel.Text = 0

        End If

    End Sub

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

        total_gaji.Text = Val(gaji.Text) + Val(tunjangna_kel.Text) - pajak.Text

    End Sub

    Sub buat_table()

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

        lv.Columns.Add("Nik")

        lv.Columns.Add("Nama")

        lv.Columns.Add("jabatan")

        lv.Columns.Add("gaji")

        lv.Columns.Add("status")

        lv.Columns.Add("tunjangan kel")

        lv.Columns.Add("pajak")

        lv.Columns.Add("total gaji")

    End Sub

    Sub isi_table()

        Dim fahmi As New ListViewItem

        fahmi.Text = nik.Text

        lv.Items.Add(fahmi)

        fahmi.SubItems.Add(nama.Text)

        fahmi.SubItems.Add(jabatan.Text)

        fahmi.SubItems.Add(gaji.Text)

        fahmi.SubItems.Add(status.Text)

        fahmi.SubItems.Add(tunjangna_kel.Text)

        fahmi.SubItems.Add(pajak.Text)

        fahmi.SubItems.Add(total_gaji.Text)

    End Sub

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

        isi_table()

    End Sub

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

        End

    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

    Private Sub hapus_s_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_s.Click

        lv.Items.Clear()

    End Sub

End Class

Read More

tugas2

Sambil nonton TV ngerjain tugas enak juga ya… ohya bagi teman2 ingin yang ingin menambah pengalaman dalam dunia kriptografi saya perbolehkan untuk copy tpi jgn lupa ya tulis sumbernya, dan semoga para teman2 menjadi progremer yang hebat.

      Sebelum saya masuk kita masuk kedalam kriptograpi, saya mau mendesain from menunya, ya.. hitung-hitung biar tambah keren… maka kitu mendesain from menunya dengan menustrf, biar nanti ada pilihan ketika kita mengkelik menunya… he… he…  oke kita desain menunya sperti ini… cuman bagi yang mau lebih keren boleh mendesain yang lebih unik lagi.. lau saya sperti ini sih:

Public Class Form2

    Private Sub KriptografiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiToolStripMenuItem.Click

        fahmi.MdiParent = Me

        fahmi.Show()

    End Sub

      Jadi stelah kita melakukan perintah diatas kita tinggal melakukan penggodingan ni dengan tujuan agar dia mau terlpanggil dalam menustrif, maka kode ini ditulis disesuaikan dengan from yang akan dipanggil..

    Private Sub KriftografiVernanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriftografiVernanToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub KriptografiGrensToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiGrensToolStripMenuItem.Click

        Form4.MdiParent = Me

        Form4.Show()

    End Sub

    Private Sub KriptografiNigenareToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KriptografiNigenareToolStripMenuItem.Click

        Form5.MdiParent = Me

        Form5.Show()

    End Sub

   

    Private Sub StatusStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles StatusStrip1.ItemClicked

    End Sub

End Class

Kriftografi caesar

     kalau saya mendesain fromnya seperti ini...

Public Class fahmi

    Private Sub Enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enkripsi.Click

        Dim x As String = ""

        Dim xkalimat As String = ""

        For i = 1 To Len(plain.Text)

            x = Mid(plain.Text, i, i)

            x = Chr(Asc(x) + 3)

            xkalimat = xkalimat + x

        Next

        chiper.Text = xkalimat

    End Sub

    Private Sub deskrifsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deskrifsi.Click

        Dim f As String = ""

        Dim xisi As String = ""

        For m = 1 To Len(plain.Text)

            f = Mid(plain.Text, m, m)

            f = Chr(Asc(f) - 3)

            xisi = xisi + f

        Next

        chiper.Text = xisi

    End Sub

End Class

Kriftografi vernam

      kalau saya mendesain fromnya seperti ini...

Public Class Form3

  

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

        plain.Text = ""

        kunci.Text = ""

        chiper.Text = ""

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim j As Integer

        Dim jum As Integer

        Dim skey As String

        Dim nkata As Integer

        Dim nkunci As Integer

        Dim skata As String

        Dim splain As String = ""

        Dim nenc As Integer

        j = 0

        skata = plain.Text

        jum = Len(skata)

        skey = kunci.Text

        For i = 1 To jum

            If j = Len(skey) Then

                j = 1

            Else

                j = j + 1

            End If

            nkata = Asc(Mid(skata, i, 1)) - 65

            nkunci = Asc(Mid(skey, j, 1)) - 65

            nenc = ((nkata + nkunci) Mod 65)

            splain = splain & Chr((nenc) + 65)

        Next i

        chiper.Text = splain

    End Sub

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

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

  

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

        e.KeyChar = UCase(e.KeyChar)

        Dim tombol As Integer = Asc(e.KeyChar)

        If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

            e.Handled = True

        End If

    End Sub

End Class

Kriftografi grosfeld

     kalau saya mendesain fromnya seperti ini...
     

Public Class Form4

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

        plain.Text = ""

        kunci.Text = ""

        chiper.Text = ""

    End Sub

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

        If ((e.KeyChar >= "0" And e.KeyChar <= "9") And e.KeyChar <> vbBack) Then e.Handled = True

    End Sub

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

        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled = True

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim j As Integer

        Dim jum As Integer

        Dim sKey As String

        Dim nKata As Integer

        Dim nKunci As Integer

        Dim sKata As String

        Dim sPlain As String = ""

        Dim nEnc As Integer

        j = 0

        sKata = plain.Text

        jum = Len(sKata)

        sKey = kunci.Text

        For i = 1 To jum

            If j = Len(sKey) Then

                j = 1

            Else

                j = j + 1

            End If

            nKata = Asc(Mid(sKata, i, 1)) - 65

            nKunci = Asc(Mid(sKey, j, 1)) - 48

            nEnc = ((nKata + nKunci) Mod 26)

            sPlain = sPlain & Chr((nEnc) + 65)

        Next i

        chiper.Text = sPlain

    End Sub

End Class

Kriftografi VIGENERE

     kalau saya mendesain fromnya seperti ini...

Public Class Form5

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

        plain.Text = ""

        chiper.Text = ""

        kunci.Text = ""

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim J As Integer

        Dim Jum As Integer

        Dim sKey As String

        Dim nKata As Integer

        Dim nKunci As Integer

        Dim sKata As String

        Dim sPlain As String = ""

        Dim nEnc As Integer

        J = 0

        sKata = plain.Text

        Jum = Len(sKata)

        sKey = kunci.Text

        For i = 1 To Jum

            If J = Len(sKey) Then

                J = 1

            Else

                J = J + 1

            End If

            nKata = Asc(Mid(sKata, i, 1)) + 0

            nKunci = Asc(Mid(sKey, J, 1)) + 0

            nEnc = ((nKata + nKunci) Mod 256)

            sPlain = sPlain & Chr((nEnc))

        Next i

        chiper.Text = sPlain

    End Sub

End Class

Read More