program pemakaian listrik

Public Class Form1

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

        Pelanggan.Items.Add("Med")

        Pelanggan.Items.Add("Bel")

        Pelanggan.Items.Add("Tem")

        Pelanggan.Items.Add("Mar")

        Pelanggan.Items.Add("Bin")

        Pelanggan.Items.Add("Pak")

        Tipe.Items.Add("Toko")

        Tipe.Items.Add("Rumah")

        Tipe.Items.Add("Swalayan")

        Tipe.Items.Add("Pabrik")

        For i = 1 To 100

            jp.Items.Add(i)

        Next i

        Call buattabel()

    End Sub

    Private Sub Pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pelanggan.SelectedIndexChanged

        Select Case Pelanggan.Text

            Case "Med" : daerah.Text = "Medan"

            Case "Bel" : daerah.Text = "Belawan"

            Case "Tem" : daerah.Text = "Aksara"

            Case "Mar" : daerah.Text = "Marendal"

            Case "Bin" : daerah.Text = "Binjai"

            Case "Pak" : daerah.Text = "L.Pakam"

        End Select

    End Sub

    Private Sub Tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe.SelectedIndexChanged

        Select Case Tipe.Text

            Case "Toko" : Biaya.Text = "150000"

            Case "Rumah" : Biaya.Text = "50000"

            Case "Swalayan" : Biaya.Text = "400000"

            Case "Pabrik" : Biaya.Text = "1000000"

        End Select

        Select Case Tipe.Text

            Case "Toko" : KWH.Text = "500"

            Case "Rumah" : KWH.Text = "200"

            Case "Swalayan" : KWH.Text = "1500"

            Case "Pabrik" : KWH.Text = "10000"

        End Select

        pajak.Text = 0.015 * Biaya.Text

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub Biaya_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Biaya.TextChanged

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        If Tipe.Text = "Toko" Then

            Total.Text = 500

        ElseIf Tipe.Text = "rumah" Then

            Total.Text = 200

        ElseIf Tipe.Text = "swalayan" Then

            Total.Text = 1500

        ElseIf Tipe.Text = "pabrik" Then

            Total.Text = 10000

        Else

            Total.Text = 0

        End If

        Total.Text = Val(Total.Text * jp.Text) + Val(Biaya.Text) + Val(KWH.Text) - Val(pajak.Text)

    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

    Sub buattabel()

        lv.Columns.Add("pelanggan", 100, HorizontalAlignment.Center)

        lv.Columns.Add("daerah", 100, HorizontalAlignment.Left)

        lv.Columns.Add("tipe", 100, HorizontalAlignment.Left)

        lv.Columns.Add("biaya", 100, HorizontalAlignment.Left)

        lv.Columns.Add("KWH", 100, HorizontalAlignment.Left)

        lv.Columns.Add("JP", 100, HorizontalAlignment.Center)

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

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

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = Pelanggan.Text

        lst.SubItems.Add(daerah.Text)

        lst.SubItems.Add(Tipe.Text)

        lst.SubItems.Add(Biaya.Text)

        lst.SubItems.Add(KWH.Text)

        lst.SubItems.Add(jp.Text)

        lst.SubItems.Add(Total.Text)

        lst.SubItems.Add(pajak.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        isitabel()

        Pelanggan.Text = ""

        Total.Text = ""

        Tipe.Text = ""

        Biaya.Text = ""

        KWH.Text = ""

        jp.Text = ""

        Total.Text = ""

        pajak.Text = ""

    End Sub

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

        End

    End Sub

    Private Sub jp_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    

    End Sub

    Private Sub jp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jp.SelectedIndexChanged

    End Sub

End Class

 

Orang Habiskan Waktu Lebih Banyak dengan Smartphone daripada Pasangan

Menurut survei terbaru, orang habiskan waktu lebih banyak dengan smartphone dibanding pasangan masing-masing. Rata-rata, ponsel pintar sita 2 jam waktu mereka. Sedangkan berhubungan dengan partner dalam keseharian, hanya 97 menit saja. Survei yang dilakukan oleh salah satu provider telekomunikasi Eropa O2 ini mengungkap data jika pengguna habiskan 24 menit dalam sehari untuk akses internet. Berikut list lengkap fitur ponsel yang sering digunakan pengguna menurut studi O2: Akses internet, 24 menit sehari. Cek jejaring sosial, 16 menit sehari. Mendengarkan musik, 15 menit sehari. Bermain game, 13 menit sehari. Bertelepon, 13 menit sehari. SMS, 11 menit sehari. Akses email, 9 menit sehari. Membaca buku, 8 menit sehari. Menonton video, 7 menit sehari. Mengambil gambar (foto), 3 menit sehari. Dari data di atas secara total pengguna ponsel habiskan waktu hampir dua jam (119 menit) dalam sehari untuk mengakses smartphone-nya. Studi ini dilakukan pada 2.000 responden dewasa di Inggris. David Johson dari O2 mengatakan jika smartphone kian hari makin pintar. Pengguna lebih terpaku ke layar daripada berkomunikasi dengan pasangan hidup mereka dalam keseharian. Ponsel pintar juga dirasa telah alami evolusi. Smartphone, kata David, kini tak lagi sebagai alat komunikasi namun sudah jadi perangkat hiburan di rumah. Demikian tulis Daily Mail. Sumber: http://sidomi.com/189892/orang-habiskan-waktu-lebih-banyak-dengan-smartphone-daripada-pasangan/

perubahan simulator yang sebelumnya

$mod51

org 0h

start:mov p0,#00000110b

      mov p1,#00000000b

      mov p2,#00000000b

      mov P3,#00000000b

call delay

                mov p0,#00000110b

      mov p1,#00111111b

      mov p2,#00000000b

      mov P3,#00000000b

call delay

                mov p0,#00000110b

      mov p1,#00111111b

      mov p2,#01101111b

      mov P3,#00000000b

call delay

                mov p0,#00000110b

      mov p1,#00111111b

      mov p2,#01101111b

      mov P3,#00000110b

call delay

                mov p0,#00000000b

      mov p1,#00000110b

      mov p2,#00111111b

      mov P3,#01101111b

call delay

                mov p0,#00000000b

      mov p1,#00000000b

      mov p2,#00000110b

      mov P3,#00111111b

call delay

                mov p0,#00000000b

      mov p1,#00000000b

      mov p2,#00000000b

      mov P3,#00000110b

call delay

mov p0,#00000000b

      mov p1,#00000000b

      mov p2,#00000000b

      mov P3,#00000000b

call delay

                mov p0,#00000110b

      mov p1,#00000000b

      mov p2,#00000000b

      mov P3,#00000000b

call delay

                mov p0,#00000110b

      mov p1,#01011011b

      mov p2,#00000000b

      mov P3,#00000000b

call delay

                mov p0,#00000110b

simulator

$mod51

org 0h

start:mov p0,#00000110b

      mov p1,#00000000b

      mov p2,#00000000b

      mov P3,#00000000b

call delay

                mov p0,#00000110b

      mov p1,#01011011b

      mov p2,#00000000b

      mov P3,#00000000b

call delay

                mov p0,#00000110b

      mov p1,#01011011b

      mov p2,#01001111b

      mov P3,#00000000b

call delay

                mov p0,#00000110b

      mov p1,#01011011b

      mov p2,#01001111b

      mov P3,#01100110b

call delay

                mov p0,#00000000b

      mov p1,#00000110b

      mov p2,#01011011b

      mov P3,#01001111b

call delay

                mov p0,#00000000b

      mov p1,#00000000b

      mov p2,#00000110b

      mov P3,#01011010b

call delay

                mov p0,#00000000b

      mov p1,#00000000b

      mov p2,#00000000b

      mov P3,#00000110b

call delay

sjmp start

delay:mov r1,#255

delay1:mov r2,#255

delay2:mov r3,#25

delay3:djnz r3,delay3

                djnz r2,delay2

                djnz r1,delay1

                ret

                end

hasil: