CARA MEMBUAT WEBSITE GRATIS

Jawaban Nomor 3 (eko setiawan)

Soalnya dari Sini!


Public Class Login

    Private Sub btnmasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmasuk.Click
        If username.Text = "eko" And password.Text = "setiawan" Then
            menuutama.Show()
            Me.Hide()


        Else
            MsgBox("data username/password Tidak Sesuai!!!")
            username.Text = ""
            password.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


Hasilnya:

Public Class menuutama

    Private Sub DataPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPDAMToolStripMenuItem.Click
        Tagihan_PDAM.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


Gambar:

Public Class Tagihan_PDAM

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        Dim x As String
        x = Microsoft.VisualBasic.Left(kopel.Text, 3)
        If x = "TOK" Then
            tipel.TabIndex = "TOKO"
            biayabeban.Text = 25000
            hargaper_m3.Text = 300

        ElseIf x = "RUM" Then
            tipel.Text = "RUMAH"
            biayabeban.Text = 15000
            hargaper_m3.Text = 100

        ElseIf x = "SWA" Then
            tipel.Text = "SWALYAN"
            biayabeban.Text = 10000
            hargaper_m3.Text = 200

        ElseIf x = "PAB" Then
            tipel.Text = "PABRIK"
            biayabeban.Text = 25000
            hargaper_m3.Text = 500

        End If

        x = Microsoft.VisualBasic.Mid(kopel.Text, 4, 1)

        If x = "-" Then


        End If

        x = Microsoft.VisualBasic.Mid(kopel.Text, 5, 3)
        If x = "MED" Then
            daerahpelanggan.Text = "MEDAN"
        ElseIf x = "BEL" Then
            daerahpelanggan.Text = "BELAWAN"
        ElseIf x = "TEM" Then
            daerahpelanggan.Text = "AKSARA"
        ElseIf x = "BIN" Then
            daerahpelanggan.Text = "BINJAI"
        ElseIf x = "PAK" Then
            daerahpelanggan.Text = "LUBUK-PAKAM"



        End If

        x = Microsoft.VisualBasic.Mid(kopel.Text, 8, 1)

        If x = "-" Then


        End If


        nomor_urut.Text = Microsoft.VisualBasic.Mid(kopel.Text, 9, 3)

        totaltagihan.Text = Val(biayabeban.Text) + Val(hargaper_m3.Text) * Val(jumlahpemakaian.Text)

        totaltagihanppn.Text = (0.01) * Val(totaltagihan.Text) + Val(totaltagihan.Text)
    End Sub
    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        kopel.Text = ""
        daerahpelanggan.Text = ""
        tipel.Text = ""
        biayabeban.Text = ""
        totaltagihan.Text = ""
        hargaper_m3.Text = ""
        jumlahpemakaian.Text = ""
        totaltagihanppn.Text = ""
        nomor_urut.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
End Class


Gambar Akhir:

Jawaban Kuis Nomor 2 Modul Halaman 33 (eko setiawan)

Lihat Soal disini!

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kobar.Items.Add("TS001")
        kobar.Items.Add("TS002")
        kobar.Items.Add("VG001")
        kobar.Items.Add("VG002")
        buattabel()

    End Sub

    Private Sub kobar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kobrg.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kobar.Text, 2)
        If x = "TS" Then
            merk.Text = "Toshiba"
        ElseIf x = "VG" Then
            merk.Text = "V-Gen"
        End If
        x = Microsoft.VisualBasic.Right(kobar.Text, 3)
        If x = "001" Then
            nabar.Text = "Flashdisk 4GB"
        ElseIf x = "002" Then
            nabar.Text = "Flashdisk 2GB"
        End If
        If kobar.Text = "TS001" Then
            harga.Text = "105000"
        ElseIf kobar.Text = "TS002" Then
            harga.Text = "75000"
        ElseIf kobar.Text = "VG001" Then
            harga.Text = "90000"
        ElseIf kobar.Text = "VG002" Then
            harga.Text = "60000"
        End If
    End Sub

    Private Sub jubel_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jlhbrg.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            btnproses_Click(sender, e)
        End If
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        total.Text = Val(jlhbrg.Text) * Val(harga.Text)
    End Sub
    Sub buattabel()
        With LV
            .Columns.Add("Nomor Pembelian", 100, HorizontalAlignment.Center)
            .Columns.Add("Kode Barang", 100, HorizontalAlignment.Left)
            .Columns.Add("Nama Barang", 120, HorizontalAlignment.Left)
            .Columns.Add("Merk", 100, HorizontalAlignment.Left)
            .Columns.Add("Harga", 100, HorizontalAlignment.Left)
            .Columns.Add("Jumlah Beli", 130, HorizontalAlignment.Left)
            .Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
            .View = View.Details
            .GridLines = True
            .FullRowSelect = True
        End With
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = nbeli.Text
        lst.SubItems.Add(kobar.Text)
        lst.SubItems.Add(nabar.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jubel.Text)
        lst.SubItems.Add(total.Text)
        LV.Items.Add(lst)
    End Sub
    Sub clean()
        nobel.Text = ""
        kobar.Text = ""
        nabar.Text = ""
        merk.Text = ""
        harga.Text = ""
        jubel.Text = ""
        total.Text = ""
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        Call isitabel()
        Call buattabel()
        Call clean()
    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        Call clean()
    End Sub

    Private Sub btnhapusdatapilihan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdatapilihan.Click
        If LV.SelectedItems.Count <> 0 Then
            LV.Items.Remove(LV.SelectedItems(0))
        Else
            MsgBox("Maaf, Berikan Tanda terhadap Data yang Mau di Hapus!!!")
        End If
    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 btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Close()
    End Sub


End Class

Hasil Gambar: