quiz online

Public Class Form1
Private Sub btn_masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_masuk.Click
If (LCase(username.Text) = “aulia”) And (LCase(password.Text) = “1234”) Then
menu_utama.Show()
Me.Hide()
Else
MsgBox(“Username/Password Anda Salah !”)
username.Text = “”
password.Text = “”
username.Focus()
End If
End Sub
Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
End
End Sub
End Class
b. Menu
Public Class menu_utama
Private Sub PembayaranTagihanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PembayaranTagihanToolStripMenuItem.Click
Pembayaran.Show()
End Sub
Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click
End
End Sub
End Class
c. Pembayaran Tagihan
Public Class Pembayaran
Dim a As String
Dim b As String
Private Sub Pembayaran_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
daerah.Items.Add(“MEDAN”)
daerah.Items.Add(“BELAWAN”)
daerah.Items.Add(“AKSARA”)
daerah.Items.Add(“MARENDAL”)
daerah.Items.Add(“BINJAI”)
daerah.Items.Add(“LUBUK PAKAM”)
tipe_pelanggan.Items.Add(“TOKO”)
tipe_pelanggan.Items.Add(“RUMAH”)
tipe_pelanggan.Items.Add(“SWALAYAN”)
tipe_pelanggan.Items.Add(“PABRIK”)
Call buattabel()
End Sub
Private Sub tipe_pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe_pelanggan.SelectedIndexChanged
If tipe_pelanggan.Text = “TOKO” Then
b = “TOK”
biaya_beban.Text = 25000
harga_per_m3.Text = 300
ElseIf tipe_pelanggan.Text = “RUMAH” Then
b = “RUM”
biaya_beban.Text = 15000
harga_per_m3.Text = 100
ElseIf tipe_pelanggan.Text = “SWALAYAN” Then
b = “SWA”
biaya_beban.Text = 10000
harga_per_m3.Text = 200
Else
b = “PAB”
biaya_beban.Text = 250000
harga_per_m3.Text = 500
End If
End Sub
Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged
If daerah.Text = “MEDAN” Then
a = “MED”
ElseIf daerah.Text = “BELAWAN” Then
a = “BEL”
ElseIf daerah.Text = “AKSARA” Then
a = “TEM”
ElseIf daerah.Text = “MARENDAL” Then
a = “MAR”
ElseIf daerah.Text = “BINJAI” Then
a = “BIN”
Else
a = “PAK”
End If
End Sub
Private Sub no_urut_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles no_urut.KeyPress
If e.KeyChar = Chr(13) Then
kode_pelanggan.Text = b & “-” & a & “-” & no_urut.Text
End If
End Sub
Private Sub pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakaian.KeyPress
If e.KeyChar = Chr(13) Then
total_tagihan.Text = biaya_beban.Text + harga_per_m3.Text * pemakaian.Text
pajak.Text = 0.01 * total_tagihan.Text
jumlah_bayar.Text = Val(total_tagihan.Text) + Val(pajak.Text)
End If
End Sub
Sub buattabel()
With LV
.Columns.Add(“Kode Pelanggan”, 100, HorizontalAlignment.Left)
.Columns.Add(“Daerah”, 100, HorizontalAlignment.Left)
.Columns.Add(“Tipe Pelanggan”, 100, HorizontalAlignment.Left)
.Columns.Add(“No. Urut”, 100, HorizontalAlignment.Left)
.Columns.Add(“Biaya Beban”, 100, HorizontalAlignment.Left)
.Columns.Add(“Harga Per M3”, 100, HorizontalAlignment.Left)
.Columns.Add(“Pemakaian Per Bulan”, 100, HorizontalAlignment.Left)
.Columns.Add(“Total Tagihan”, 100, HorizontalAlignment.Left)
.Columns.Add(“Pajak”, 100, HorizontalAlignment.Left)
.Columns.Add(“Jumlah Yang Harus Dibayar”, 100, HorizontalAlignment.Left)
.View = View.Details
.GridLines = True
.FullRowSelect = True
End With
End Sub
Sub isitabel()
Dim lst As New ListViewItem
With lst
.Text = kode_pelanggan.Text
.SubItems.Add(daerah.Text)
.SubItems.Add(tipe_pelanggan.Text)
.SubItems.Add(no_urut.Text)
.SubItems.Add(biaya_beban.Text)
.SubItems.Add(harga_per_m3.Text)
.SubItems.Add(pemakaian.Text)
.SubItems.Add(total_tagihan.Text)
.SubItems.Add(pajak.Text)
.SubItems.Add(jumlah_bayar.Text)
End With
LV.Items.Add(lst)
End Sub
Sub clean()
daerah.Text = “”
tipe_pelanggan.Text = “”
no_urut.Text = “”
kode_pelanggan.Text = “”
biaya_beban.Text = “”
harga_per_m3.Text = “”
pemakaian.Text = “”
total_tagihan.Text = “”
pajak.Text = “”
jumlah_bayar.Text = “”
End Sub
Private Sub btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpan.Click
Call isitabel()
Call clean()
End Sub
Private Sub btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_bersih.Click
Call clean()
End Sub
Private Sub btn_hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapussemua.Click
LV.Items.Clear()
End Sub
Private Sub btn_hapusitem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapusitem.Click
If LV.SelectedItems.Count <> 0 Then
LV.Items.Remove(LV.SelectedItems(0))
Else
MsgBox(“Anda Belum Memilih Item Yang Ingin Di Hapus !”)
End If
End Sub
Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
Close()
End Sub
End Class
Public Class Form1
Private Sub btn_masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_masuk.Click
If (LCase(username.Text) = “aulia”) And (LCase(password.Text) = “1234”) Then
menu_utama.Show()
Me.Hide()
Else
MsgBox(“Username/Password Anda Salah !”)
username.Text = “”
password.Text = “”
username.Focus()
End If
End Sub
Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
End
End Sub
End Class
b. Menu
Public Class menu_utama
Private Sub PembayaranTagihanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PembayaranTagihanToolStripMenuItem.Click
Pembayaran.Show()
End Sub
Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click
End
End Sub
End Class
c. Pembayaran Tagihan
Public Class Pembayaran
Dim a As String
Dim b As String
Private Sub Pembayaran_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
daerah.Items.Add(“MEDAN”)
daerah.Items.Add(“BELAWAN”)
daerah.Items.Add(“AKSARA”)
daerah.Items.Add(“MARENDAL”)
daerah.Items.Add(“BINJAI”)
daerah.Items.Add(“LUBUK PAKAM”)
tipe_pelanggan.Items.Add(“TOKO”)
tipe_pelanggan.Items.Add(“RUMAH”)
tipe_pelanggan.Items.Add(“SWALAYAN”)
tipe_pelanggan.Items.Add(“PABRIK”)
Call buattabel()
End Sub
Private Sub tipe_pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe_pelanggan.SelectedIndexChanged
If tipe_pelanggan.Text = “TOKO” Then
b = “TOK”
biaya_beban.Text = 25000
harga_per_m3.Text = 300
ElseIf tipe_pelanggan.Text = “RUMAH” Then
b = “RUM”
biaya_beban.Text = 15000
harga_per_m3.Text = 100
ElseIf tipe_pelanggan.Text = “SWALAYAN” Then
b = “SWA”
biaya_beban.Text = 10000
harga_per_m3.Text = 200
Else
b = “PAB”
biaya_beban.Text = 250000
harga_per_m3.Text = 500
End If
End Sub
Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged
If daerah.Text = “MEDAN” Then
a = “MED”
ElseIf daerah.Text = “BELAWAN” Then
a = “BEL”
ElseIf daerah.Text = “AKSARA” Then
a = “TEM”
ElseIf daerah.Text = “MARENDAL” Then
a = “MAR”
ElseIf daerah.Text = “BINJAI” Then
a = “BIN”
Else
a = “PAK”
End If
End Sub
Private Sub no_urut_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles no_urut.KeyPress
If e.KeyChar = Chr(13) Then
kode_pelanggan.Text = b & “-” & a & “-” & no_urut.Text
End If
End Sub
Private Sub pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakaian.KeyPress
If e.KeyChar = Chr(13) Then
total_tagihan.Text = biaya_beban.Text + harga_per_m3.Text * pemakaian.Text
pajak.Text = 0.01 * total_tagihan.Text
jumlah_bayar.Text = Val(total_tagihan.Text) + Val(pajak.Text)
End If
End Sub
Sub buattabel()
With LV
.Columns.Add(“Kode Pelanggan”, 100, HorizontalAlignment.Left)
.Columns.Add(“Daerah”, 100, HorizontalAlignment.Left)
.Columns.Add(“Tipe Pelanggan”, 100, HorizontalAlignment.Left)
.Columns.Add(“No. Urut”, 100, HorizontalAlignment.Left)
.Columns.Add(“Biaya Beban”, 100, HorizontalAlignment.Left)
.Columns.Add(“Harga Per M3”, 100, HorizontalAlignment.Left)
.Columns.Add(“Pemakaian Per Bulan”, 100, HorizontalAlignment.Left)
.Columns.Add(“Total Tagihan”, 100, HorizontalAlignment.Left)
.Columns.Add(“Pajak”, 100, HorizontalAlignment.Left)
.Columns.Add(“Jumlah Yang Harus Dibayar”, 100, HorizontalAlignment.Left)
.View = View.Details
.GridLines = True
.FullRowSelect = True
End With
End Sub
Sub isitabel()
Dim lst As New ListViewItem
With lst
.Text = kode_pelanggan.Text
.SubItems.Add(daerah.Text)
.SubItems.Add(tipe_pelanggan.Text)
.SubItems.Add(no_urut.Text)
.SubItems.Add(biaya_beban.Text)
.SubItems.Add(harga_per_m3.Text)
.SubItems.Add(pemakaian.Text)
.SubItems.Add(total_tagihan.Text)
.SubItems.Add(pajak.Text)
.SubItems.Add(jumlah_bayar.Text)
End With
LV.Items.Add(lst)
End Sub
Sub clean()
daerah.Text = “”
tipe_pelanggan.Text = “”
no_urut.Text = “”
kode_pelanggan.Text = “”
biaya_beban.Text = “”
harga_per_m3.Text = “”
pemakaian.Text = “”
total_tagihan.Text = “”
pajak.Text = “”
jumlah_bayar.Text = “”
End Sub
Private Sub btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpan.Click
Call isitabel()
Call clean()
End Sub
Private Sub btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_bersih.Click
Call clean()
End Sub
Private Sub btn_hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapussemua.Click
LV.Items.Clear()
End Sub
Private Sub btn_hapusitem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapusitem.Click
If LV.SelectedItems.Count <> 0 Then
LV.Items.Remove(LV.SelectedItems(0))
Else
MsgBox(“Anda Belum Memilih Item Yang Ingin Di Hapus !”)
End If
End Sub
Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
Close()
End Sub
End Class
Public Class Form1
Private Sub btn_masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_masuk.Click
If (LCase(username.Text) = “aulia”) And (LCase(password.Text) = “1234”) Then
menu_utama.Show()
Me.Hide()
Else
MsgBox(“Username/Password Anda Salah !”)
username.Text = “”
password.Text = “”
username.Focus()
End If
End Sub
Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
End
End Sub
End Class
b. Menu
Public Class menu_utama
Private Sub PembayaranTagihanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PembayaranTagihanToolStripMenuItem.Click
Pembayaran.Show()
End Sub
Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click
End
End Sub
End Class
c. Pembayaran Tagihan
Public Class Pembayaran
Dim a As String
Dim b As String
Private Sub Pembayaran_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
daerah.Items.Add(“MEDAN”)
daerah.Items.Add(“BELAWAN”)
daerah.Items.Add(“AKSARA”)
daerah.Items.Add(“MARENDAL”)
daerah.Items.Add(“BINJAI”)
daerah.Items.Add(“LUBUK PAKAM”)
tipe_pelanggan.Items.Add(“TOKO”)
tipe_pelanggan.Items.Add(“RUMAH”)
tipe_pelanggan.Items.Add(“SWALAYAN”)
tipe_pelanggan.Items.Add(“PABRIK”)
Call buattabel()
End Sub
Private Sub tipe_pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe_pelanggan.SelectedIndexChanged
If tipe_pelanggan.Text = “TOKO” Then
b = “TOK”
biaya_beban.Text = 25000
harga_per_m3.Text = 300
ElseIf tipe_pelanggan.Text = “RUMAH” Then
b = “RUM”
biaya_beban.Text = 15000
harga_per_m3.Text = 100
ElseIf tipe_pelanggan.Text = “SWALAYAN” Then
b = “SWA”
biaya_beban.Text = 10000
harga_per_m3.Text = 200
Else
b = “PAB”
biaya_beban.Text = 250000
harga_per_m3.Text = 500
End If
End Sub
Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged
If daerah.Text = “MEDAN” Then
a = “MED”
ElseIf daerah.Text = “BELAWAN” Then
a = “BEL”
ElseIf daerah.Text = “AKSARA” Then
a = “TEM”
ElseIf daerah.Text = “MARENDAL” Then
a = “MAR”
ElseIf daerah.Text = “BINJAI” Then
a = “BIN”
Else
a = “PAK”
End If
End Sub
Private Sub no_urut_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles no_urut.KeyPress
If e.KeyChar = Chr(13) Then
kode_pelanggan.Text = b & “-” & a & “-” & no_urut.Text
End If
End Sub
Private Sub pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakaian.KeyPress
If e.KeyChar = Chr(13) Then
total_tagihan.Text = biaya_beban.Text + harga_per_m3.Text * pemakaian.Text
pajak.Text = 0.01 * total_tagihan.Text
jumlah_bayar.Text = Val(total_tagihan.Text) + Val(pajak.Text)
End If
End Sub
Sub buattabel()
With LV
.Columns.Add(“Kode Pelanggan”, 100, HorizontalAlignment.Left)
.Columns.Add(“Daerah”, 100, HorizontalAlignment.Left)
.Columns.Add(“Tipe Pelanggan”, 100, HorizontalAlignment.Left)
.Columns.Add(“No. Urut”, 100, HorizontalAlignment.Left)
.Columns.Add(“Biaya Beban”, 100, HorizontalAlignment.Left)
.Columns.Add(“Harga Per M3”, 100, HorizontalAlignment.Left)
.Columns.Add(“Pemakaian Per Bulan”, 100, HorizontalAlignment.Left)
.Columns.Add(“Total Tagihan”, 100, HorizontalAlignment.Left)
.Columns.Add(“Pajak”, 100, HorizontalAlignment.Left)
.Columns.Add(“Jumlah Yang Harus Dibayar”, 100, HorizontalAlignment.Left)
.View = View.Details
.GridLines = True
.FullRowSelect = True
End With
End Sub
Sub isitabel()
Dim lst As New ListViewItem
With lst
.Text = kode_pelanggan.Text
.SubItems.Add(daerah.Text)
.SubItems.Add(tipe_pelanggan.Text)
.SubItems.Add(no_urut.Text)
.SubItems.Add(biaya_beban.Text)
.SubItems.Add(harga_per_m3.Text)
.SubItems.Add(pemakaian.Text)
.SubItems.Add(total_tagihan.Text)
.SubItems.Add(pajak.Text)
.SubItems.Add(jumlah_bayar.Text)
End With
LV.Items.Add(lst)
End Sub
Sub clean()
daerah.Text = “”
tipe_pelanggan.Text = “”
no_urut.Text = “”
kode_pelanggan.Text = “”
biaya_beban.Text = “”
harga_per_m3.Text = “”
pemakaian.Text = “”
total_tagihan.Text = “”
pajak.Text = “”
jumlah_bayar.Text = “”
End Sub
Private Sub btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpan.Click
Call isitabel()
Call clean()
End Sub
Private Sub btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_bersih.Click
Call clean()
End Sub
Private Sub btn_hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapussemua.Click
LV.Items.Clear()
End Sub
Private Sub btn_hapusitem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapusitem.Click
If LV.SelectedItems.Count <> 0 Then
LV.Items.Remove(LV.SelectedItems(0))
Else
MsgBox(“Anda Belum Memilih Item Yang Ingin Di Hapus !”)
End If
End Sub
Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
Close()
End Sub
End Class
Public Class Form1
Private Sub btn_masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_masuk.Click
If (LCase(username.Text) = “aulia”) And (LCase(password.Text) = “1234”) Then
menu_utama.Show()
Me.Hide()
Else
MsgBox(“Username/Password Anda Salah !”)
username.Text = “”
password.Text = “”
username.Focus()
End If
End Sub
Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
End
End Sub
End Class
b. Menu
Public Class menu_utama
Private Sub PembayaranTagihanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PembayaranTagihanToolStripMenuItem.Click
Pembayaran.Show()
End Sub
Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click
End
End Sub
End Class
c. Pembayaran Tagihan
Public Class Pembayaran
Dim a As String
Dim b As String
Private Sub Pembayaran_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
daerah.Items.Add(“MEDAN”)
daerah.Items.Add(“BELAWAN”)
daerah.Items.Add(“AKSARA”)
daerah.Items.Add(“MARENDAL”)
daerah.Items.Add(“BINJAI”)
daerah.Items.Add(“LUBUK PAKAM”)
tipe_pelanggan.Items.Add(“TOKO”)
tipe_pelanggan.Items.Add(“RUMAH”)
tipe_pelanggan.Items.Add(“SWALAYAN”)
tipe_pelanggan.Items.Add(“PABRIK”)
Call buattabel()
End Sub
Private Sub tipe_pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe_pelanggan.SelectedIndexChanged
If tipe_pelanggan.Text = “TOKO” Then
b = “TOK”
biaya_beban.Text = 25000
harga_per_m3.Text = 300
ElseIf tipe_pelanggan.Text = “RUMAH” Then
b = “RUM”
biaya_beban.Text = 15000
harga_per_m3.Text = 100
ElseIf tipe_pelanggan.Text = “SWALAYAN” Then
b = “SWA”
biaya_beban.Text = 10000
harga_per_m3.Text = 200
Else
b = “PAB”
biaya_beban.Text = 250000
harga_per_m3.Text = 500
End If
End Sub
Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged
If daerah.Text = “MEDAN” Then
a = “MED”
ElseIf daerah.Text = “BELAWAN” Then
a = “BEL”
ElseIf daerah.Text = “AKSARA” Then
a = “TEM”
ElseIf daerah.Text = “MARENDAL” Then
a = “MAR”
ElseIf daerah.Text = “BINJAI” Then
a = “BIN”
Else
a = “PAK”
End If
End Sub
Private Sub no_urut_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles no_urut.KeyPress
If e.KeyChar = Chr(13) Then
kode_pelanggan.Text = b & “-” & a & “-” & no_urut.Text
End If
End Sub
Private Sub pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakaian.KeyPress
If e.KeyChar = Chr(13) Then
total_tagihan.Text = biaya_beban.Text + harga_per_m3.Text * pemakaian.Text
pajak.Text = 0.01 * total_tagihan.Text
jumlah_bayar.Text = Val(total_tagihan.Text) + Val(pajak.Text)
End If
End Sub
Sub buattabel()
With LV
.Columns.Add(“Kode Pelanggan”, 100, HorizontalAlignment.Left)
.Columns.Add(“Daerah”, 100, HorizontalAlignment.Left)
.Columns.Add(“Tipe Pelanggan”, 100, HorizontalAlignment.Left)
.Columns.Add(“No. Urut”, 100, HorizontalAlignment.Left)
.Columns.Add(“Biaya Beban”, 100, HorizontalAlignment.Left)
.Columns.Add(“Harga Per M3”, 100, HorizontalAlignment.Left)
.Columns.Add(“Pemakaian Per Bulan”, 100, HorizontalAlignment.Left)
.Columns.Add(“Total Tagihan”, 100, HorizontalAlignment.Left)
.Columns.Add(“Pajak”, 100, HorizontalAlignment.Left)
.Columns.Add(“Jumlah Yang Harus Dibayar”, 100, HorizontalAlignment.Left)
.View = View.Details
.GridLines = True
.FullRowSelect = True
End With
End Sub
Sub isitabel()
Dim lst As New ListViewItem
With lst
.Text = kode_pelanggan.Text
.SubItems.Add(daerah.Text)
.SubItems.Add(tipe_pelanggan.Text)
.SubItems.Add(no_urut.Text)
.SubItems.Add(biaya_beban.Text)
.SubItems.Add(harga_per_m3.Text)
.SubItems.Add(pemakaian.Text)
.SubItems.Add(total_tagihan.Text)
.SubItems.Add(pajak.Text)
.SubItems.Add(jumlah_bayar.Text)
End With
LV.Items.Add(lst)
End Sub
Sub clean()
daerah.Text = “”
tipe_pelanggan.Text = “”
no_urut.Text = “”
kode_pelanggan.Text = “”
biaya_beban.Text = “”
harga_per_m3.Text = “”
pemakaian.Text = “”
total_tagihan.Text = “”
pajak.Text = “”
jumlah_bayar.Text = “”
End Sub
Private Sub btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_simpan.Click
Call isitabel()
Call clean()
End Sub
Private Sub btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_bersih.Click
Call clean()
End Sub
Private Sub btn_hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapussemua.Click
LV.Items.Clear()
End Sub
Private Sub btn_hapusitem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_hapusitem.Click
If LV.SelectedItems.Count <> 0 Then
LV.Items.Remove(LV.SelectedItems(0))
Else
MsgBox(“Anda Belum Memilih Item Yang Ingin Di Hapus !”)
End If
End Sub
Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
Close()
End Sub
End Class

MESRAN.NET

REVIEW 

mesran.blogspot.com suatu blog yang menyediakan tempat pembelajaran bahasa pemograman, pemograman yang diberikan juga cukup banyak mulai dari bahasa pemograman sebagai berikut: Pemrograman Android, Visual Basic 6, Visual Basic Net, Visual C Sharp, Delphi, Pascal, C / C++, PHP, dan Java cukup banyak yang diberikan mesran.blogspot.com tentang pemograman kepada mahasiswanya, mesran.blogspot.com memang memberikan yang terbaik.

mesran.net salah satu dari sekian website yang menyediakan pembelajaran bahasa pemograman. mesran.net memberikan pembelajaran bahasa pemograman yang cukup banyak diantaranya adalah Algoritma, , PASCAL, C/C++, VB 6, Visual Basic.Net, Visual C#, dan lain lain. banyak yang diberikan karna mesran.net hanya ingin memberikan ilmu pengetahuan kepada mahasiswanya, mesran.net memang memberikan kebaikan kepada kita semua.


 demikian lah hasil postingan kali ini.

Pengertian Dan Jenis Bahasa Pemrograman Komputer

      Bahasa ini memungkinkan seorang programmer dapat menentukan mana yang data yang akan diproses oleh komputer, bagaimana data ini akan disimpan/diteruskan, dan langkah-langkah apa yang persis jenis yang akan diambil dalam berbagai situasi.

Menurut tingkat kedekatannya dengan mesin komputer, bahasa pemrograman terdiri dari :

• Bahasa mesin, yang memberikan perintah ke komputer dengan menggunakan kode bahasa biner, misalnya 01100101100110.
• Bahasa tingkat rendah, atau dikenal sebagai bahasa assembly (bah.Inggris Assembly), yang memberikan perintah ke komputer dengan menggunakan kode pendek (kode mnemonic), misalnya [kode_mesin | MOV], SUB, CMP, JMP, JGE, JL , LOOP, dll.
  Inggris Intermediate, yang merupakan bahasa komputer yang menggunakan campuran instruksi dalam kata-kata bahasa manusia lihat contoh di bawah Bahasa Tingkat Tinggi  dan instruksi yang bersifat simbolik, misalnya, {,},?, <<, >> , &&, ||, dll.
• Bahasa tingkat tinggi, yang merupakan bahasa komputer yang menggunakan instruksi berasal dari unsur kata-kata bahasa manusia, misalnya, mulai, akhir, jika, sementara, dan, atau, dll Komputer dapat memahami compiler bahasa manusia atau penerjemah program yang dibutuhkan.

Kebanyakan bahasa pemrograman diklasifikasikan sebagai High Level Languages, hanya bahasa C yang digolongkan sebagai Menengah dan Majelis Bahasa yang merupakan Rendah Bahasa.

Pengertian Bahasa Pemrograman

Bahasa pemrograman (bahasa pemrograman) adalah instruksi standar untuk memerintah komputer yang memiliki fungsi tertentu. Bahasa pemrograman ini adalah satu set aturan sintaks dan semantik yang digunakan untuk mendefinisikan program komputer.

Bahasa ini memungkinkan seorang programmer dapat menentukan mana yang data yang akan diproses oleh komputer, bagaimana data ini akan disimpan / diteruskan, dan langkah-langkah apa yang persis jenis yang akan diambil dalam berbagai situasi.

Fungsi Bahasa Pemrograman

Fungsi dari bahasa pemrograman yang memerintahkan komputer untuk mengolah data sesuai dengan logika yang kita inginkan. Output dari bahasa pemrograman dalam bentuk program / aplikasi. Contohnya adalah program yang digunakan oleh kasir di mal atau supermarket, penggunaan lampu lalu lintas di jalan raya, dll

Bahasa pemrograman yang kita tahu ada banyak orang di dunia, sekitar ilmu komputer dan teknologi saat ini. Pengembangannya mengikuti inovasi tinggi dalam dunia teknologi. Contoh bahasa pemrograman yang kita ketahui, antara lain, adalah untuk membuat aplikasi permainan, anti-virus, web, dan teknologi lainnya.

Bahasa pemrograman komputer yang kita tahu termasuk Java, Visual Basic, C ++, C, Cobol, PHP, Net, dan ratusan bahasa lain. Tapi tentu saja, bahasa harus disesuaikan dengan fungsi dan perangkat yang menggunakannya.

Ssecara bahasa pemrograman umum dibagi menjadi empat kelompok, yaitu :

• Object Oriented Language (Visual dBase, Visual FoxPro, Delphi, Visual C);
• Level Language tinggi (seperti Pascal dan Basic);
• Tingkat Tengah Language (seperti C);
• Level Language rendah (seperti bahasa assembly);

Tingkat Bahasa Pemrograman

Bahasa Tingkat Tinggi 

Bahasa pemrograman ini masuk ke level sebagai bahasa dekat dengan bahasa manusia. Sebagai contoh, bahasa Basic, Visual Basic, Pascal, Java dan lainnya.dsb dan tidak lagi pada pemula sulit dimengerti.

Bahasa Tingkat Menengah

Disebut tingkat menengah karena dapat masuk ke dalam bahasa tingkat rendah tinggi dan. Misalnya dalam bahasa program C.

Bahasa Tingkat Rendah

Bahasa pemrograman masuk ke level ini karena bahasa masih jauh dari bahasa manusia. Contoh bahasa Assembly.

Proses Pembuatan Program

Proses pembuatan program yang kita tulis kode sumber dalam editor teks seperti notepad dan kemudian mengubahnya menjadi bahasa mesin yang dapat dieksekusi oleh CPU. Proses konversi kode sumber (source code) ke dalam bahasa mesin (bahasa mesin) terdiri dari dua jenis kompilasi dan interpretasi.

Kompilasi (Compilation)

Dalam proses kompilasi source code untuk membacanya pertama dan jika tidak ada kesalahan dalam penulisan, program ini akan mengatur kode mesin sehingga program dapat dijalankan. Program yang melakukan tugas ini disebut Compiler.

Program ini akan mengkompilasi hasil dalam bentuk yang dapat dieksekusi. Program ini dapat dijalankan tanpa harus langsung memiliki compiler pada komputer yang menjalankan program. Bahasa menggunakan teknik kompilasi Ulasan seperti bahasa C, C ++, Pascal, Assembly dan banyak lagi.

Interpretasi (Interpretation)

Bahasa menggunakan teknik interpretasi akan membaca kode sumber dan dieksekusi per baris per baris. Jika ditemukan kesalahan dalam penulisan program dalam kesalahan garis bahwa program akan dihentikan. Program yang melakukan tugas ini disebut Interpreter.

Dalam tidak ada teknik interpretasi akan menghasilkan program mandiri, artinya menjalankan program kita harus memiliki kode sumber setelah juru Program. Bahasa yang menggunakan bahasa teknik interpretasi Ulasan seperti Perl, Python, Ruby dan banyak lagi.

Kompilasi Sekaligus Interpretasi

Ada juga sebuah bahasa pemrograman yang menghasilkan teknik penyusunan Program serta interpretasi. Sebagai contoh, bahasa java. Dalam membuat java kode sumber program diubah menjadi bytecode.

Meskipun terlihat seperti bahasa mesin, tapi ini bukan bahasa mesin dan tidak dapat dieksekusi. Untuk menjalankan bytecode kita perlu Java Runtime Environment (JRE), yang yang menjabat sebagai juru dari program bytecode yang dihasilkan.

Meskipun setiap bahasa pemrograman dibuat untuk membuat program tetapi call now bahasa dibuat dengan tujuan dan fungsi yang berbeda. Misalnya, untuk membuat driver hardware kita tidak bisa menggunakan bahasa Visual Basic.

Untuk membuat sistem berbasis program Ulasan seperti driver kita dapat menggunakan C atau bahasa assembly. Sebagai contoh, sistem operasi Linux adalah open source. Jika Anda melihat kode sumber Anda akan menemukan bahwa Linux dibuat dengan menggunakan bahasa pemrograman C.

Adapun desktop kita dapat menggunakan Visual Basic. Bahasa ini dirancang oleh Microsoft untuk pemrograman GUI desktop dengan tampilan yang mempesona.

Bahasa pemrograman yang umum digunakan

1. HTML / CSS

     banyak yang tidak menggaggap ini bagian dari bahasa pemrograman, tetapi jika dalam pandangan program dalam web yakin HTML / CSS adalah dasar dari semua itu, jadi jika Anda ingin belajar membuat web  statis pertama Anda pasti akan belajar HTML / CSS dasar.

2. JavaScript

     JavaScript adalah cara yang sangat populer untuk menambahkan fitur interaktif untuk halaman web dan aplikasi. Ini adalah salah satu bahasa yang paling mudah untuk belajar dan dapat digunakan untuk apa saja seperti data formulir validasi untuk mengembangkan permainan, menjadikannya pilihan yang sangat populer untuk pemula.

3. PHP

     Bahasa pemrograman yang digunakan terutama untuk mengembangkan halaman web dinamis. Ini berarti bahwa pada membuat file terpisah untuk panggilan sekarang halaman penuh dari situs kode, Anda dapat menulis satu set aturan untuk akses dan menampilkan informasi dari database yang kemudian dapat membuat halaman dan memanggil mereka ketika mereka dibutuhkan.

4. C + +

     Dikembangkan untuk menambahkan fitur berorientasi objek bahasa C, dengan penambahan kelas dan fitur lainnya. C + +, yang yang sekarang digunakan, berbagai konfirmasi Instan aplikasi. Belajar C + + juga memiliki keuntungan bahwa itu adalah mudah untuk belajar bahasa lain C adalah C # dan C. Semua bahasa C Umumnya dianggap sebagai bahasa pemrograman tingkat menengah.

5. C #

     Diucapkan C Sharp, bahasa ini diciptakan oleh Microsoft dalam kerangka NET. Jika Anda ingin menulis sebuah jendela aplikasi, atau terutama jika Anda ingin menulis kode untuk perangkat lunak desktop, ini sangat penting. Ini adalah tujuan OOP umum banyak kesamaan dengan bahasa C tua.

6. C

     Hal ini digunakan oleh versi C dari sistem operasi Apple serta sejumlah kecil aplikasi lain. Jika Anda ingin mengkhususkan diri dalam menulis kode untuk produk Apple maka ini adalah program yang Anda butuhkan untuk menguasai.

7. Python

     Sangat populer di komunitas ilmiah dan akademik, tetapi juga telah digunakan untuk make situs populer seperti Pinterest. Hal ini relatif mudah untuk belajar Dibandingkan dengan sesuatu seperti C atau turunannya, namun masih sangat fleksibel dalam hal apa yang dapat Anda lakukan dengan itu.

8. Java

     Digunakan oleh Google sebagai bagian integral dari sistem operasi Android, dan oleh pengembang independen untuk membuat aplikasi android (dan penggunaan lainnya). Java diciptakan dengan “tulis sekali, jalankan di mana saja” (WORA) pendekatan untuk memfasilitasi kode yang ditulis pada satu mesin untuk berjalan di komputer lain.

9. Ruby

     Ini adalah OOP murni populer dari Jepang. Tidak banyak yang bisa saya jelaskan tentang yang satu ini karena saya tidak pernah memakainya.

10. Visual Basic

     Berasal dari ‘BASIC’, yang sangat populer di hari-hari awal komputasi personal, Visual Basic (VB) memungkinkan program sederhana yang akan dibuat dengan cepat dan mudah, sementara juga memungkinkan untuk coding yang lebih kompleks

Daftar Bahasa Pemrograman

Berikut adalah daftar bahasa pemrograman komputer :

1. Aro
2. Ada
3. ALGOL
4. Applescript
5. Assembly
6. BASIC:
7. ASP
8. BASIC
9. COMAL
10. Visual Basic
11. Visual Basic for Applications
12. VBScript
13. BAIK
14. Batch (MS-DOS)
15. COBOL
16. UNIX shell script:
17. Bourne shell (sh) script
18. Bourne-Again shell (bash) script
19. Korn shell (ksh) script
20. C shell (csh) script ™
21. C:™
22. C++™
23. C#™
24. Visual C++
25. ColdFusion
26. dBase dkk.:
27. Clipper
28. Foxbase
29. Visual FoxPro
30. Eiffel
31. Fortran
32. Go
33. Haskell
34. Java
35. JavaScript
36. JSP
37. Lisp
38. Logo
39. Pascal
40. Delphi
41. Perl
42. Prolog
43. Python
44. PHP
45. Pike
46. R
47. REXX
48. REBOL
49. RPG
50. Ruby
51. Simula
52. Smalltalk
53. Scheme
54. SQL

TUGAS QUIS TENTANG INFORMASI PEMBUATAN GAJI PEGAWAI

#include "iostream.h"

#include "conio.h"

void main(){

             int i,nik[15], gol[15], jumdata=3;

             char * nama ;

             long gaji,pajak,bersih;

             cout <<"\nInformasi Pembuatan Gaji Pegawai" ;

             for(i=0; i<jumdata; i++){

                          cout <<"\nNIK anda : " ; cin>>nik[i] ;

                          cout <<"Gol anda   : " ; cin>>gol[i] ;

             }

             clrscr() ;

             cout<<"\n Informasi Pembuatan Gaji Pegawai" ;

             cout<<"\n-------------------------------------------------------------------------------" ;

             cout<<"\n No   NIK    Nama        Golongan    Gaji pokok        Pajak   Gaji Bersih " ;

             cout<<"\n-------------------------------------------------------------------------------" ;

             for(i=0; i<jumdata; i++){

                          if(nik[i]==1){

                                                nama = "Hendro" ;

                          }else if(nik[i]==2){

                                                nama = "Dian" ;

                          }else if(nik[i]==3){

                                                nama = "Jhoni" ;

                          }

                          if(gol[i]==1){

                                                gaji=1500000;

                          }else if(gol[i]==2){

                                                gaji=2500000;

                          }else if(gol[i]==3){

                                                gaji=3500000;

                          }

                          pajak=0.05*gaji;

                          bersih=gaji-pajak;

                          gotoxy(1,6+i); cout<<i+1;

                          gotoxy(5,6+i); cout<<nik[i];

                          gotoxy(10,6+i); cout<<nama;

                          gotoxy(23,6+i); cout<<gol[i];

                          gotoxy(33,6+i); cout<<gaji;

                          gotoxy(43,6+i); cout<<pajak;

                          gotoxy(53,6+i); cout<<bersih;

             }

             cout<<"\n---------------------------------------------------------------------------------";

             }