Jawaban Quis Online di Mesran.net

Sumber Quis Mesran[dot]Net

Nama                    : Muhammad Hudan Adha

NPM                      :14110338

Kelas                     : TI-1403

Mata Kuliah        : Pemograman Visual (Semester III)

 Soal:

Buatlah output seperti tampilan berikut ini :

Informasi Pembayaran Rekening Listrik
------------------------------------------------------------------------------------------------
No   Kode   Jenis Pelanggan              Beban       Pemakaian       Pembayaran
------------------------------------------------------------------------------------------------
 9
 9
 9
 ..
 ..
------------------------------------------------------------------------------------------------

Ketentuan Proses

1. Kode, Pemakaian di INPUT
2. Proses Beban dan HargaKWH

     Jika kode = 1 maka
           Jenis Pelanggan = "RUMAH"
           Beban = 25000
           HargaKWH = 3000

     Atau Jika kode = 2 maka
           Jenis Pelanggan = "TOKO"
           Beban = 50000
           HargaKWH = 5000
    
    Atau Jika kode = 3 maka
          Jenis Pelanggan = "PABRIK"
          Beban = 100000
          HargaKWH = 10000

3. Pembayaran = Beban + HargaKWH * Pemakaian

Jawaban:

PublicClass Form1

PrivateSub kode_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.TextChanged

If kode.Text = "1"Then

            jenis.Text = "RUMAH"

            beban.Text = 25000

            harga.Text = 3000

ElseIf kode.Text = "2"Then

            jenis.Text = "TOKO"

            beban.Text = 50000

            harga.Text = 5000

ElseIf kode.Text = "3"Then

            jenis.Text = "PABRIK"

            beban.Text = 100000

            harga.Text = 10000

EndIf

EndSub

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

        bayar.Text = Val(beban.Text) + Val(harga.Text) * Val(makek.Text)

EndSub

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        kode.Text = ""

        jenis.Text = ""

        beban.Text = ""

        harga.Text = ""

        makek.Text = ""

        bayar.Text = ""

EndSub

PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

End

EndSub

EndClass

Hasil eksekusi;