Sabtu, 07 Desember 2013
jawaban No. 2 Quis Online
Soal NO : 2
GAJI PEGAWAI PT. TELKOM
--------------------------------------------
Nama Pegawai : ?
Gol : ?
Gaji :
Pajak :
Pinjaman : ?
Gaji Bersih :
--------------------------------------------
Proses
Gol=IIIA maka Gaji = 1500000
Gol=IIIB maka Gaji = 2500000
Gol=IIIC maka Gaji = 3500000
Pajak = 15% dari Gaji
Gaji Bersih = Gaji - Pinjaman - Gaji Bersih
Berikut Listing programnya
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
pegawai.Items.Add("Arif")
pegawai.Items.Add("Rhido")
pegawai.Items.Add("Putra")
gol.Items.Add("IIIA")
gol.Items.Add("IIIB")
gol.Items.Add("IIIC")
End Sub
Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged
Select Case gol.Text
Case "IIIA" : gaji.Text = "1500000"
Case "IIIB" : gaji.Text = "2500000"
Case "IIIC" : gaji.Text = "3500000"
End Select
pajak.Text = 0.15 * gaji.Text
End Sub
Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
gajibersih.Text = Val(gaji.Text) - Val(pinjaman.Text) - Val(gajibersih.Text)
End Sub
Private Sub reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles reset.Click
pegawai.Text = ""
gol.Text = ""
gaji.Text = ""
pajak.Text = ""
pinjaman.Text = ""
gajibersih.Text = ""
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub
End Class
GAJI PEGAWAI PT. TELKOM
--------------------------------------------
Nama Pegawai : ?
Gol : ?
Gaji :
Pajak :
Pinjaman : ?
Gaji Bersih :
--------------------------------------------
Proses
Gol=IIIA maka Gaji = 1500000
Gol=IIIB maka Gaji = 2500000
Gol=IIIC maka Gaji = 3500000
Pajak = 15% dari Gaji
Gaji Bersih = Gaji - Pinjaman - Gaji Bersih
Berikut Listing programnya
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
pegawai.Items.Add("Arif")
pegawai.Items.Add("Rhido")
pegawai.Items.Add("Putra")
gol.Items.Add("IIIA")
gol.Items.Add("IIIB")
gol.Items.Add("IIIC")
End Sub
Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged
Select Case gol.Text
Case "IIIA" : gaji.Text = "1500000"
Case "IIIB" : gaji.Text = "2500000"
Case "IIIC" : gaji.Text = "3500000"
End Select
pajak.Text = 0.15 * gaji.Text
End Sub
Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
gajibersih.Text = Val(gaji.Text) - Val(pinjaman.Text) - Val(gajibersih.Text)
End Sub
Private Sub reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles reset.Click
pegawai.Text = ""
gol.Text = ""
gaji.Text = ""
pajak.Text = ""
pinjaman.Text = ""
gajibersih.Text = ""
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub
End Class
jawaban quis online No.1
Public Class Form1
Sub buattable()
lv.Columns.Add("No Pelanggan", 60, HorizontalAlignment.Center)
lv.Columns.Add("nama daerah", 80, HorizontalAlignment.Center)
lv.Columns.Add("tipe", 70, HorizontalAlignment.Center)
lv.Columns.Add("Biaya", 65, HorizontalAlignment.Center)
lv.Columns.Add("Harga PerKWH", 65, HorizontalAlignment.Center)
lv.Columns.Add("Meter Sekarang", 80, HorizontalAlignment.Center)
lv.Columns.Add("Meter Lalu", 70, HorizontalAlignment.Center)
lv.Columns.Add("Pemakaian", 65, HorizontalAlignment.Center)
lv.Columns.Add("Total Tagihan", 65, HorizontalAlignment.Center)
lv.Columns.Add("Pajak", 65, HorizontalAlignment.Center)
lv.Columns.Add("Pembayaran", 65, HorizontalAlignment.Center)
Lv.GridLines = True
Lv.FullRowSelect = True
Lv.View = View.Details
End Sub
Sub isitable()
Dim x As New ListViewItem
With x
.Text = nmr.Text
.SubItems.Add(daerah.Text)
.SubItems.Add(tipe.Text)
.SubItems.Add(Bbeban.Text)
.SubItems.Add(kwh.Text)
.SubItems.Add(MMini.Text)
.SubItems.Add(MMlalu.Text)
.SubItems.Add(pemakai.Text)
.SubItems.Add(total.Text)
.SubItems.Add(pajak.Text)
.SubItems.Add(bayar.Text)
lv.Items.Add(x)
End With
End Sub
Sub add_daerah()
With daerah
.Items.Add("MEDAN")
.Items.Add("BELAWAN")
.Items.Add("AKSARA")
.Items.Add("MARENDAL")
.Items.Add("BINJAI")
.Items.Add("LUBUK PAKAM")
End With
End Sub
Sub add_tipe()
With tipe
.Items.Add("TOKO")
.Items.Add("RUMAH")
.Items.Add("SWALAYAN")
.Items.Add("PABRIK")
End With
End Sub
Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged
If tipe.Text = "TOKO" Then
Bbeban.Text = 150000
kwh.Text = 500
ElseIf tipe.Text = "RUMAH" Then
kwh.Text = 200
Bbeban.Text = 50000
ElseIf tipe.Text = "SWALAYAN" Then
kwh.Text = 1500
Bbeban.Text = 400000
ElseIf tipe.Text = "PABRIK" Then
kwh.Text = 1000
Bbeban.Text = 1000000
End If
MMini.Text = ""
MMlalu.Text = ""
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
nmr.Text = ""
End Sub
Sub bersih()
nmr.Text = ""
daerah.Text = ""
tipe.Text = ""
Bbeban.Text = ""
kwh.Text = ""
MMini.Text = ""
MMlalu.Text = ""
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
End Sub
Sub add_nmr()
Dim x, y, z As String
x = Microsoft.VisualBasic.Left(daerah.Text, 3)
y = Microsoft.VisualBasic.Left(tipe.Text, 3)
z = "00" & (tipe.SelectedIndex + 1)
nmr.Text = x & "-" & y & "-" & z
End Sub
Private Sub MMlalu_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MMlalu.KeyPress
If e.KeyChar = Chr(13) Then
If MMlalu.Text = "" Or MMini.Text = "" Then
MsgBox("Isi Dengan Benar")
Else
If IsNumeric(MMlalu.Text) = True And IsNumeric(MMini.Text) = True Then
pemakai.Text = MMini.Text - MMlalu.Text
total.Text = Bbeban.Text + (pemakai.Text * kwh.Text)
pajak.Text = (15 / 100) * total.Text
bayar.Text = Val(total.Text) + Val(pajak.Text)
Call add_nmr()
Else
MsgBox("isi dengan angka !!!")
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
nmr.Text = ""
End If
End If
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call add_daerah()
Call add_tipe()
Call buattable()
End Sub
Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged
Dim i As String
i = daerah.Text
bersih()
daerah.Text = i
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
bersih()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
isitable()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
lv.Items.Clear()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
End Class
Sub buattable()
lv.Columns.Add("No Pelanggan", 60, HorizontalAlignment.Center)
lv.Columns.Add("nama daerah", 80, HorizontalAlignment.Center)
lv.Columns.Add("tipe", 70, HorizontalAlignment.Center)
lv.Columns.Add("Biaya", 65, HorizontalAlignment.Center)
lv.Columns.Add("Harga PerKWH", 65, HorizontalAlignment.Center)
lv.Columns.Add("Meter Sekarang", 80, HorizontalAlignment.Center)
lv.Columns.Add("Meter Lalu", 70, HorizontalAlignment.Center)
lv.Columns.Add("Pemakaian", 65, HorizontalAlignment.Center)
lv.Columns.Add("Total Tagihan", 65, HorizontalAlignment.Center)
lv.Columns.Add("Pajak", 65, HorizontalAlignment.Center)
lv.Columns.Add("Pembayaran", 65, HorizontalAlignment.Center)
Lv.GridLines = True
Lv.FullRowSelect = True
Lv.View = View.Details
End Sub
Sub isitable()
Dim x As New ListViewItem
With x
.Text = nmr.Text
.SubItems.Add(daerah.Text)
.SubItems.Add(tipe.Text)
.SubItems.Add(Bbeban.Text)
.SubItems.Add(kwh.Text)
.SubItems.Add(MMini.Text)
.SubItems.Add(MMlalu.Text)
.SubItems.Add(pemakai.Text)
.SubItems.Add(total.Text)
.SubItems.Add(pajak.Text)
.SubItems.Add(bayar.Text)
lv.Items.Add(x)
End With
End Sub
Sub add_daerah()
With daerah
.Items.Add("MEDAN")
.Items.Add("BELAWAN")
.Items.Add("AKSARA")
.Items.Add("MARENDAL")
.Items.Add("BINJAI")
.Items.Add("LUBUK PAKAM")
End With
End Sub
Sub add_tipe()
With tipe
.Items.Add("TOKO")
.Items.Add("RUMAH")
.Items.Add("SWALAYAN")
.Items.Add("PABRIK")
End With
End Sub
Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged
If tipe.Text = "TOKO" Then
Bbeban.Text = 150000
kwh.Text = 500
ElseIf tipe.Text = "RUMAH" Then
kwh.Text = 200
Bbeban.Text = 50000
ElseIf tipe.Text = "SWALAYAN" Then
kwh.Text = 1500
Bbeban.Text = 400000
ElseIf tipe.Text = "PABRIK" Then
kwh.Text = 1000
Bbeban.Text = 1000000
End If
MMini.Text = ""
MMlalu.Text = ""
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
nmr.Text = ""
End Sub
Sub bersih()
nmr.Text = ""
daerah.Text = ""
tipe.Text = ""
Bbeban.Text = ""
kwh.Text = ""
MMini.Text = ""
MMlalu.Text = ""
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
End Sub
Sub add_nmr()
Dim x, y, z As String
x = Microsoft.VisualBasic.Left(daerah.Text, 3)
y = Microsoft.VisualBasic.Left(tipe.Text, 3)
z = "00" & (tipe.SelectedIndex + 1)
nmr.Text = x & "-" & y & "-" & z
End Sub
Private Sub MMlalu_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MMlalu.KeyPress
If e.KeyChar = Chr(13) Then
If MMlalu.Text = "" Or MMini.Text = "" Then
MsgBox("Isi Dengan Benar")
Else
If IsNumeric(MMlalu.Text) = True And IsNumeric(MMini.Text) = True Then
pemakai.Text = MMini.Text - MMlalu.Text
total.Text = Bbeban.Text + (pemakai.Text * kwh.Text)
pajak.Text = (15 / 100) * total.Text
bayar.Text = Val(total.Text) + Val(pajak.Text)
Call add_nmr()
Else
MsgBox("isi dengan angka !!!")
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
nmr.Text = ""
End If
End If
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call add_daerah()
Call add_tipe()
Call buattable()
End Sub
Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged
Dim i As String
i = daerah.Text
bersih()
daerah.Text = i
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
bersih()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
isitable()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
lv.Items.Clear()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
End Class
dan berikut ini tampilannya :
Public Class Form1
Sub buattable()
lv.Columns.Add("No Pelanggan", 60, HorizontalAlignment.Center)
lv.Columns.Add("nama daerah", 80, HorizontalAlignment.Center)
lv.Columns.Add("tipe", 70, HorizontalAlignment.Center)
lv.Columns.Add("Biaya", 65, HorizontalAlignment.Center)
lv.Columns.Add("Harga PerKWH", 65, HorizontalAlignment.Center)
lv.Columns.Add("Meter Sekarang", 80, HorizontalAlignment.Center)
lv.Columns.Add("Meter Lalu", 70, HorizontalAlignment.Center)
lv.Columns.Add("Pemakaian", 65, HorizontalAlignment.Center)
lv.Columns.Add("Total Tagihan", 65, HorizontalAlignment.Center)
lv.Columns.Add("Pajak", 65, HorizontalAlignment.Center)
lv.Columns.Add("Pembayaran", 65, HorizontalAlignment.Center)
Lv.GridLines = True
Lv.FullRowSelect = True
Lv.View = View.Details
End Sub
Sub isitable()
Dim x As New ListViewItem
With x
.Text = nmr.Text
.SubItems.Add(daerah.Text)
.SubItems.Add(tipe.Text)
.SubItems.Add(Bbeban.Text)
.SubItems.Add(kwh.Text)
.SubItems.Add(MMini.Text)
.SubItems.Add(MMlalu.Text)
.SubItems.Add(pemakai.Text)
.SubItems.Add(total.Text)
.SubItems.Add(pajak.Text)
.SubItems.Add(bayar.Text)
lv.Items.Add(x)
End With
End Sub
Sub add_daerah()
With daerah
.Items.Add("MEDAN")
.Items.Add("BELAWAN")
.Items.Add("AKSARA")
.Items.Add("MARENDAL")
.Items.Add("BINJAI")
.Items.Add("LUBUK PAKAM")
End With
End Sub
Sub add_tipe()
With tipe
.Items.Add("TOKO")
.Items.Add("RUMAH")
.Items.Add("SWALAYAN")
.Items.Add("PABRIK")
End With
End Sub
Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged
If tipe.Text = "TOKO" Then
Bbeban.Text = 150000
kwh.Text = 500
ElseIf tipe.Text = "RUMAH" Then
kwh.Text = 200
Bbeban.Text = 50000
ElseIf tipe.Text = "SWALAYAN" Then
kwh.Text = 1500
Bbeban.Text = 400000
ElseIf tipe.Text = "PABRIK" Then
kwh.Text = 1000
Bbeban.Text = 1000000
End If
MMini.Text = ""
MMlalu.Text = ""
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
nmr.Text = ""
End Sub
Sub bersih()
nmr.Text = ""
daerah.Text = ""
tipe.Text = ""
Bbeban.Text = ""
kwh.Text = ""
MMini.Text = ""
MMlalu.Text = ""
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
End Sub
Sub add_nmr()
Dim x, y, z As String
x = Microsoft.VisualBasic.Left(daerah.Text, 3)
y = Microsoft.VisualBasic.Left(tipe.Text, 3)
z = "00" & (tipe.SelectedIndex + 1)
nmr.Text = x & "-" & y & "-" & z
End Sub
Private Sub MMlalu_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MMlalu.KeyPress
If e.KeyChar = Chr(13) Then
If MMlalu.Text = "" Or MMini.Text = "" Then
MsgBox("Isi Dengan Benar")
Else
If IsNumeric(MMlalu.Text) = True And IsNumeric(MMini.Text) = True Then
pemakai.Text = MMini.Text - MMlalu.Text
total.Text = Bbeban.Text + (pemakai.Text * kwh.Text)
pajak.Text = (15 / 100) * total.Text
bayar.Text = Val(total.Text) + Val(pajak.Text)
Call add_nmr()
Else
MsgBox("isi dengan angka !!!")
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
nmr.Text = ""
End If
End If
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call add_daerah()
Call add_tipe()
Call buattable()
End Sub
Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged
Dim i As String
i = daerah.Text
bersih()
daerah.Text = i
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
bersih()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
isitable()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
lv.Items.Clear()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
End Class
Sub buattable()
lv.Columns.Add("No Pelanggan", 60, HorizontalAlignment.Center)
lv.Columns.Add("nama daerah", 80, HorizontalAlignment.Center)
lv.Columns.Add("tipe", 70, HorizontalAlignment.Center)
lv.Columns.Add("Biaya", 65, HorizontalAlignment.Center)
lv.Columns.Add("Harga PerKWH", 65, HorizontalAlignment.Center)
lv.Columns.Add("Meter Sekarang", 80, HorizontalAlignment.Center)
lv.Columns.Add("Meter Lalu", 70, HorizontalAlignment.Center)
lv.Columns.Add("Pemakaian", 65, HorizontalAlignment.Center)
lv.Columns.Add("Total Tagihan", 65, HorizontalAlignment.Center)
lv.Columns.Add("Pajak", 65, HorizontalAlignment.Center)
lv.Columns.Add("Pembayaran", 65, HorizontalAlignment.Center)
Lv.GridLines = True
Lv.FullRowSelect = True
Lv.View = View.Details
End Sub
Sub isitable()
Dim x As New ListViewItem
With x
.Text = nmr.Text
.SubItems.Add(daerah.Text)
.SubItems.Add(tipe.Text)
.SubItems.Add(Bbeban.Text)
.SubItems.Add(kwh.Text)
.SubItems.Add(MMini.Text)
.SubItems.Add(MMlalu.Text)
.SubItems.Add(pemakai.Text)
.SubItems.Add(total.Text)
.SubItems.Add(pajak.Text)
.SubItems.Add(bayar.Text)
lv.Items.Add(x)
End With
End Sub
Sub add_daerah()
With daerah
.Items.Add("MEDAN")
.Items.Add("BELAWAN")
.Items.Add("AKSARA")
.Items.Add("MARENDAL")
.Items.Add("BINJAI")
.Items.Add("LUBUK PAKAM")
End With
End Sub
Sub add_tipe()
With tipe
.Items.Add("TOKO")
.Items.Add("RUMAH")
.Items.Add("SWALAYAN")
.Items.Add("PABRIK")
End With
End Sub
Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged
If tipe.Text = "TOKO" Then
Bbeban.Text = 150000
kwh.Text = 500
ElseIf tipe.Text = "RUMAH" Then
kwh.Text = 200
Bbeban.Text = 50000
ElseIf tipe.Text = "SWALAYAN" Then
kwh.Text = 1500
Bbeban.Text = 400000
ElseIf tipe.Text = "PABRIK" Then
kwh.Text = 1000
Bbeban.Text = 1000000
End If
MMini.Text = ""
MMlalu.Text = ""
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
nmr.Text = ""
End Sub
Sub bersih()
nmr.Text = ""
daerah.Text = ""
tipe.Text = ""
Bbeban.Text = ""
kwh.Text = ""
MMini.Text = ""
MMlalu.Text = ""
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
End Sub
Sub add_nmr()
Dim x, y, z As String
x = Microsoft.VisualBasic.Left(daerah.Text, 3)
y = Microsoft.VisualBasic.Left(tipe.Text, 3)
z = "00" & (tipe.SelectedIndex + 1)
nmr.Text = x & "-" & y & "-" & z
End Sub
Private Sub MMlalu_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MMlalu.KeyPress
If e.KeyChar = Chr(13) Then
If MMlalu.Text = "" Or MMini.Text = "" Then
MsgBox("Isi Dengan Benar")
Else
If IsNumeric(MMlalu.Text) = True And IsNumeric(MMini.Text) = True Then
pemakai.Text = MMini.Text - MMlalu.Text
total.Text = Bbeban.Text + (pemakai.Text * kwh.Text)
pajak.Text = (15 / 100) * total.Text
bayar.Text = Val(total.Text) + Val(pajak.Text)
Call add_nmr()
Else
MsgBox("isi dengan angka !!!")
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
nmr.Text = ""
End If
End If
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call add_daerah()
Call add_tipe()
Call buattable()
End Sub
Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged
Dim i As String
i = daerah.Text
bersih()
daerah.Text = i
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
bersih()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
isitable()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
lv.Items.Clear()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
End Class
dan berikut ini tampilannya :
jawaban no. 1 quis online
Public Class Form1
Sub buattable()
lv.Columns.Add("No Pelanggan", 60, HorizontalAlignment.Center)
lv.Columns.Add("nama daerah", 80, HorizontalAlignment.Center)
lv.Columns.Add("tipe", 70, HorizontalAlignment.Center)
lv.Columns.Add("Biaya", 65, HorizontalAlignment.Center)
lv.Columns.Add("Harga PerKWH", 65, HorizontalAlignment.Center)
lv.Columns.Add("Meter Sekarang", 80, HorizontalAlignment.Center)
lv.Columns.Add("Meter Lalu", 70, HorizontalAlignment.Center)
lv.Columns.Add("Pemakaian", 65, HorizontalAlignment.Center)
lv.Columns.Add("Total Tagihan", 65, HorizontalAlignment.Center)
lv.Columns.Add("Pajak", 65, HorizontalAlignment.Center)
lv.Columns.Add("Pembayaran", 65, HorizontalAlignment.Center)
Lv.GridLines = True
Lv.FullRowSelect = True
Lv.View = View.Details
End Sub
Sub isitable()
Dim x As New ListViewItem
With x
.Text = nmr.Text
.SubItems.Add(daerah.Text)
.SubItems.Add(tipe.Text)
.SubItems.Add(Bbeban.Text)
.SubItems.Add(kwh.Text)
.SubItems.Add(MMini.Text)
.SubItems.Add(MMlalu.Text)
.SubItems.Add(pemakai.Text)
.SubItems.Add(total.Text)
.SubItems.Add(pajak.Text)
.SubItems.Add(bayar.Text)
lv.Items.Add(x)
End With
End Sub
Sub add_daerah()
With daerah
.Items.Add("MEDAN")
.Items.Add("BELAWAN")
.Items.Add("AKSARA")
.Items.Add("MARENDAL")
.Items.Add("BINJAI")
.Items.Add("LUBUK PAKAM")
End With
End Sub
Sub add_tipe()
With tipe
.Items.Add("TOKO")
.Items.Add("RUMAH")
.Items.Add("SWALAYAN")
.Items.Add("PABRIK")
End With
End Sub
Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged
If tipe.Text = "TOKO" Then
Bbeban.Text = 150000
kwh.Text = 500
ElseIf tipe.Text = "RUMAH" Then
kwh.Text = 200
Bbeban.Text = 50000
ElseIf tipe.Text = "SWALAYAN" Then
kwh.Text = 1500
Bbeban.Text = 400000
ElseIf tipe.Text = "PABRIK" Then
kwh.Text = 1000
Bbeban.Text = 1000000
End If
MMini.Text = ""
MMlalu.Text = ""
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
nmr.Text = ""
End Sub
Sub bersih()
nmr.Text = ""
daerah.Text = ""
tipe.Text = ""
Bbeban.Text = ""
kwh.Text = ""
MMini.Text = ""
MMlalu.Text = ""
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
End Sub
Sub add_nmr()
Dim x, y, z As String
x = Microsoft.VisualBasic.Left(daerah.Text, 3)
y = Microsoft.VisualBasic.Left(tipe.Text, 3)
z = "00" & (tipe.SelectedIndex + 1)
nmr.Text = x & "-" & y & "-" & z
End Sub
Private Sub MMlalu_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MMlalu.KeyPress
If e.KeyChar = Chr(13) Then
If MMlalu.Text = "" Or MMini.Text = "" Then
MsgBox("Isi Dengan Benar")
Else
If IsNumeric(MMlalu.Text) = True And IsNumeric(MMini.Text) = True Then
pemakai.Text = MMini.Text - MMlalu.Text
total.Text = Bbeban.Text + (pemakai.Text * kwh.Text)
pajak.Text = (15 / 100) * total.Text
bayar.Text = Val(total.Text) + Val(pajak.Text)
Call add_nmr()
Else
MsgBox("isi dengan angka !!!")
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
nmr.Text = ""
End If
End If
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call add_daerah()
Call add_tipe()
Call buattable()
End Sub
Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged
Dim i As String
i = daerah.Text
bersih()
daerah.Text = i
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
bersih()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
isitable()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
lv.Items.Clear()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
End Class
Sub buattable()
lv.Columns.Add("No Pelanggan", 60, HorizontalAlignment.Center)
lv.Columns.Add("nama daerah", 80, HorizontalAlignment.Center)
lv.Columns.Add("tipe", 70, HorizontalAlignment.Center)
lv.Columns.Add("Biaya", 65, HorizontalAlignment.Center)
lv.Columns.Add("Harga PerKWH", 65, HorizontalAlignment.Center)
lv.Columns.Add("Meter Sekarang", 80, HorizontalAlignment.Center)
lv.Columns.Add("Meter Lalu", 70, HorizontalAlignment.Center)
lv.Columns.Add("Pemakaian", 65, HorizontalAlignment.Center)
lv.Columns.Add("Total Tagihan", 65, HorizontalAlignment.Center)
lv.Columns.Add("Pajak", 65, HorizontalAlignment.Center)
lv.Columns.Add("Pembayaran", 65, HorizontalAlignment.Center)
Lv.GridLines = True
Lv.FullRowSelect = True
Lv.View = View.Details
End Sub
Sub isitable()
Dim x As New ListViewItem
With x
.Text = nmr.Text
.SubItems.Add(daerah.Text)
.SubItems.Add(tipe.Text)
.SubItems.Add(Bbeban.Text)
.SubItems.Add(kwh.Text)
.SubItems.Add(MMini.Text)
.SubItems.Add(MMlalu.Text)
.SubItems.Add(pemakai.Text)
.SubItems.Add(total.Text)
.SubItems.Add(pajak.Text)
.SubItems.Add(bayar.Text)
lv.Items.Add(x)
End With
End Sub
Sub add_daerah()
With daerah
.Items.Add("MEDAN")
.Items.Add("BELAWAN")
.Items.Add("AKSARA")
.Items.Add("MARENDAL")
.Items.Add("BINJAI")
.Items.Add("LUBUK PAKAM")
End With
End Sub
Sub add_tipe()
With tipe
.Items.Add("TOKO")
.Items.Add("RUMAH")
.Items.Add("SWALAYAN")
.Items.Add("PABRIK")
End With
End Sub
Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged
If tipe.Text = "TOKO" Then
Bbeban.Text = 150000
kwh.Text = 500
ElseIf tipe.Text = "RUMAH" Then
kwh.Text = 200
Bbeban.Text = 50000
ElseIf tipe.Text = "SWALAYAN" Then
kwh.Text = 1500
Bbeban.Text = 400000
ElseIf tipe.Text = "PABRIK" Then
kwh.Text = 1000
Bbeban.Text = 1000000
End If
MMini.Text = ""
MMlalu.Text = ""
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
nmr.Text = ""
End Sub
Sub bersih()
nmr.Text = ""
daerah.Text = ""
tipe.Text = ""
Bbeban.Text = ""
kwh.Text = ""
MMini.Text = ""
MMlalu.Text = ""
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
End Sub
Sub add_nmr()
Dim x, y, z As String
x = Microsoft.VisualBasic.Left(daerah.Text, 3)
y = Microsoft.VisualBasic.Left(tipe.Text, 3)
z = "00" & (tipe.SelectedIndex + 1)
nmr.Text = x & "-" & y & "-" & z
End Sub
Private Sub MMlalu_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MMlalu.KeyPress
If e.KeyChar = Chr(13) Then
If MMlalu.Text = "" Or MMini.Text = "" Then
MsgBox("Isi Dengan Benar")
Else
If IsNumeric(MMlalu.Text) = True And IsNumeric(MMini.Text) = True Then
pemakai.Text = MMini.Text - MMlalu.Text
total.Text = Bbeban.Text + (pemakai.Text * kwh.Text)
pajak.Text = (15 / 100) * total.Text
bayar.Text = Val(total.Text) + Val(pajak.Text)
Call add_nmr()
Else
MsgBox("isi dengan angka !!!")
pemakai.Text = ""
total.Text = ""
pajak.Text = ""
bayar.Text = ""
nmr.Text = ""
End If
End If
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call add_daerah()
Call add_tipe()
Call buattable()
End Sub
Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged
Dim i As String
i = daerah.Text
bersih()
daerah.Text = i
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
bersih()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
isitable()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
lv.Items.Clear()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
End Class
dan berikut ini tampilannya :
Jumat, 06 Desember 2013
cara cepat menurunkan 5kg berat badan dalam seminggu
Cara Cepat Menurunkan Berat Badan Dengan Alami.
Dan jika anda berpikir bahwa pemakaian obat-obatan terlibat di dalamnya, anda salah. Yang saya bicarakan disini adalah cara cepat menurunkan berat badan tanpa obat apapun. Dengan kata lain, cara cepat menurunkan berat badan dengan alami. Berikut adalah caranya. Prinsip dari menurunkan berat badan sangatlah mudah, yaitu membuat pengeluaran kalori anda lebih besar dari pemasukan kalori anda. Jadi, cara yang cepat untuk menurunkan berat badan adalah dengan membuat pengeluaran kalori anda jauh melebih pemasukan kalori anda.
Cara Cepat Menurunkan Berat Badan Tanpa Obat
Seberapa besar? Untuk 3kg dalam seminggu, pengeluaran harus minimal 21000 kalori lebih besar daripada pemasukan kalori anda. Berarti, setiap harinya, anda harus membuat perbedaan sekitar 3000 kalori.
Terdengar sulit? Mungkin iya. Mustahil? Tidak juga. Anda hanya perlu mengurangi pemasukan kalori anda sebanyak 1000-1500 kalori dan meningkatkan pengeluaran kalori anda sebanyak 2000-2500 kalori.
tips diet sehat
Hindari Ini dan Kurangi 1000 Kalori
Untuk mengurangi pemasukan kalori sebanyak lebih dari 1000 kalori, anda hanya perlu menghindari 1 big mac, 1 kentang goreng, dan 1 gelas soft drink dari McDonald’s, yang merupakan paket umum restoran-restoran junk food. Singkatnya, hanya dengan menghindari junk food, anda sudah mengurangi 1000-1500 kalori.
Sementara untuk mengeluarkan 2000-2500 kalori, anda hanya perlu berolahraga di mesin kardio selama 2-3 jam/hari. Anda mungkin menyangka hal ini mustahil. Anda mungkin berpikir tak seorangpun melakukan hal ini. Tapi berkali-kali saya mendengar dan menyaksikan sendiri banyak orang melakukan hal demikian.
Tapi, ini baru 3kg. Bukankah kita sedang membicarakan cara cepat menurunkan 5kg berat badan dalam seminggu? Betul sekali. 2kg sisanya akan datang dari kurangnya kadar air dari tubuh anda. Tergantung pola makan dan aktifitas sehari-hari anda, kadar air tubuh anda selalu berubah. Jika anda melakukan kedua hal di atas untuk mencapai perbedaan harian sebesar 3000 kalori, dijamin kadar air anda pun akan berkurang sebanyak 2kg dalam seminggu.
Namun, apakah cara ini merupakan cara cepat menurunkan berat badan yang sehat? Sayangnya tidak! Memang berat badan anda akan turun, tapi dalam waktu 2-3 minggu, penurunan berat badan anda akan terhenti. Tak hanya itu, anda akan lebih rentan terhadap kenaikan berat badan, yang disebut dengan fenomena rebound weight gain. Jadi, secepat apa penurunan berat badan yang sehat?
cara cepat menurunkan berat badan
Perlahan tapi Pasti, Kunci Mencapai Bentuk Badan Ideal
Untuk pria, 1.5kg dalam seminggu adalah batas aman dan sehat, sementara untuk wanita, 1kg dalam seminggu . Dengan menurunkan berat badan dalam batas ini, anda dijamin akan mendapatkan hasil konsisten setiap minggunya dan bebas dari resiko rebound weight gain. Berikut adalah caranya:
1. Targetkan pemasukan kalori harian anda agar lebih rendah dari kebutuhan kalori harian anda
Di sisi lain, pastikan agar pemasukan kalori anda tidak terlalu rendah sampai-sampai resiko rebound weight gain anda meningkat. Batas aman pemasukan kalori harian selagi menurunkan berat badan adalah tidak lebih rendah dari 1200 kalori untuk wanita atau 1600 kalori untuk pria.
2. Ikuti sebuah program latihan beban dengan rutin dan konsisten
Jika anda memiliki pemasukan kalori yang lebih rendah daripada pengeluaran kalori dalam jangka panjang, tubuh anda memiliki kecenderungan untuk membakar otot anda terlebih dahulu sebelum lemak anda mulai dibakar. Semakin banyak otot yang terbakar, maka semakin rendah metabolisme tubuh anda.
Hal ini berarti pengeluaran kalori harian anda akan semakin rendah, sehingga akan semakin sulit bagi anda untuk menurunkan berat badan anda. Di sisi lain, latihan beban merupakan satu-satunya cara untuk mencegah terjadinya hal ini. Karena itulah, latihan beban merupakan komponen vital dalam menurunkan berat badan
3. Biasakan diri anda untuk mengikuti gaya hidup sehat
Keseimbangan kadar hormon berperan penting dalam menurunkan berat badan. Dengan mengikuti gaya hidup sehat, anda akan menjaga keseimbangan kadar hormon anda, sehingga menurunkan berat badan pun akan lebih mudah
10 Orang Indonesia Paling Berpengaruh di Dunia Internet
Ada 10 orang Indonesia yang dianggap mampu menjadi ikon kesuksesan berbisnis melalui internet. Mereka adalah :
1. Hendrik Tio
Hendrik adalah pemilik sekaligus pendiri toko online terbesar di Indonesia yaitu Bhinneka.com. Berdiri sejak tahun 1999, kini toko tersebut sudah mampu meraup omset hingga 60 miliar setahunnya. Sebuah angka yang fantastis terutama jika melihat modal awal yang dikeluarkannya hanya senilai Rp. 100 juta.hendriktio
2. Andrew Darwis
Andrew Darwis adalah pelopor berdirinya situs komunitas terbesar di Indonesia, yaitu kaskus.com. Dalam situs ini, menyediakan ruang bagi seluruh pengguna internet untuk berdiskusi hingga bertransaksi bisnis.
3. Habibie Afsyah
Habibie adalah seorang tokoh bisnis online yang memiliki kekurangan pada bagian kakinya. Namun dengan kekurangan tersebut, menjadi sebuah semangat untuk menekuni dunia bisnis online dengan memanfaatkan situs Amazon.com. Kini Habibie selain menjadi tokoh bisnis online, juga sudah berperan sebagai trainer di Eprofitmatrix dan juga menerbitkan buku.
4. Anne Ahira
Perempuan kelahiran Bandung tahun 1979 ini memulai bisnis online sejak tahun 2001. pada tahun 2007, Indonesia memintanya untuk berbicara di APEC sebagai wakil Indonesia. Tahun 2005, Anne Ahira mendirikan sebuah sekolah Internet Marketing secara online. Pada tahun 2010, mendirikan sebuah situs yang berisi kumpulan artikel AnneAhira.com. Namun, sejak tahun 2011, situs ini mengalami kesulitan pendanaan sehingga tidak memunculkan artikel-artikel baru lagi.
5. Rahmad Saputra
Rahmad Saputra memulai usahanya di bidang pelatihan dan seminar mengenai internet marketing. Saat ini usahanya sudah mampu meraih banyak klien yang menginginkan informasi dan konsep internet marketing darinya.
6. Aulia Halimatussadiah
Wanita kelahiran 17 Juni 1983 ini, memiliki profesi sebagai penulis. Itulah sebabnya, dia berkeinginan mendirikan sebuah bisnis yang tidak jauh dari hoby dan ketrampilan yang digelutinya. Pilihannya dijatuhkan dengan mendirikan sebuah toko buku online yaitu kutukutbuku.com dan juga publisher on demand pada nulisbuku.com,
7. Rudi Salim
Bisnis game online membawanya meraih keberuntungan. Meski pun pada awal dirinya terjun ke bisnis online berawal dari usaha pembiayaan traksaksi penjuaalan online. Namun kini, usahanya sudah berjalan hingga memiliki delapan cabang di delapan kota. Selain itu, omsetnya sudah mencapai Rp. 1,3 Miliar sebulan. Semua itu diraih dengan mengorbankan kuliahnya serta menjual mobil dan sebuah usaha karaoke milik keluarga.
8. Arrival Dwi Santosa
Dalam dunia internet, nama Arrival melejit sejak menemukan sebuah perangkat antivirus yang sudah diakui kehebatannya. Padahal, usianya masih terbilang anak-anak pada saat menciptakan perangkat antivirus tersebut. Antivirus ciptaannya tersebut ditemukan saat dirinya duduk di bangku kelas 2 SMP pada tahun 2009 lalu.
9. Zainuddin Nafarin
Sebagian besar pengguna komputer pernah mengenal antivirus Smadav. Namun, belum tentu mereka tahu siapa penciptanya. Dialah Zainuddin Nafarin, seorang mahasiswa di Universitas Gadjah Mada Yogyakarta. Anti virus ciptaanya tersebut diberi nama Smadav untuk mengenang sekolahnya, yaitu SMA 2 Palangkaraya.
10. Budiono Darsono
Hampir setiap hari kita membuka situs detik.com untuk melihat berita terkini. Namun kita belum tentu mengenal siapa yang berada di balik kisah sukses pendirian situs berita online pertama di Indonesia tersebut. Dialah Budiono Darsono. Idenya mendirikan detik.com ini berawal ketika majalah Detik harus dibredel di era Orde Baru karena dianggap berlawanan dengan pemerintah. Media internet kala itu belum memiliki banyak regulasi sehingga lebih mampu memuat berita yang bersifat kritis sekalipun kepada pemerintah.
Langganan:
Postingan (Atom)