Archive for Desember 2013
QUIS ONLINE
Soal 1 : Tagihan Listrik
Listing Program :
Public Class Form1
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = Kopel.Text
lst.SubItems.Add(NP.Text)
lst.SubItems.Add(Tipe.Text)
lst.SubItems.Add(ND.Text)
lst.SubItems.Add(KWH.Text)
lst.SubItems.Add(BB.Text)
lst.SubItems.Add(MBL.Text)
lst.SubItems.Add(MBI.Text)
lst.SubItems.Add(JP.Text)
lst.SubItems.Add(TT.Text)
lst.SubItems.Add(Pajak.Text)
lst.SubItems.Add(TB.Text)
LV.Items.Add(lst)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TP.Items.Add("TOK")
TP.Items.Add("RUM")
TP.Items.Add("SWA")
TP.Items.Add("PAB")
KD.Items.Add("MED")
KD.Items.Add("BEL")
KD.Items.Add("TEM")
KD.Items.Add("MAR")
KD.Items.Add("BIN")
KD.Items.Add("PAK")
LV.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Center)
LV.Columns.Add("NAMA PELANGGAN", 180, HorizontalAlignment.Left)
LV.Columns.Add("TIPE PELANGGAN", 260, HorizontalAlignment.Left)
LV.Columns.Add("DAERAH", 340, HorizontalAlignment.Left)
LV.Columns.Add("HARGA PER KWH", 420, HorizontalAlignment.Left)
LV.Columns.Add("BIAYA BEBAN", 470, HorizontalAlignment.Left)
LV.Columns.Add("METER BULAN LALU", 520, HorizontalAlignment.Left)
LV.Columns.Add("METER BULAN INI", 570, HorizontalAlignment.Left)
LV.Columns.Add("JUMLAH PEMAKAIAN", 620, HorizontalAlignment.Left)
LV.Columns.Add("TOTAL TAGIHAN", 670, HorizontalAlignment.Left)
LV.Columns.Add("PAJAK", 720, HorizontalAlignment.Left)
LV.Columns.Add("TOTAL BAYAR", 770, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Private Sub TP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TP.SelectedIndexChanged
If TP.Text = "TOK" Then
BB.Text = 150000
KWH.Text = 500
Tipe.Text = "TOKO"
ElseIf TP.Text = "RUM" Then
BB.Text = 50000
KWH.Text = 200
Tipe.Text = "RUMAH"
ElseIf TP.Text = "SWA" Then
BB.Text = 400000
KWH.Text = 15000
Tipe.Text = "SWALAYAN"
ElseIf TP.Text = "PAB" Then
BB.Text = 1000000
KWH.Text = 10000
Tipe.Text = "PABRIK"
End If
End Sub
Private Sub KD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD.SelectedIndexChanged
If KD.Text = "MED" Then
ND.Text = "MEDAN"
ElseIf KD.Text = "BEL" Then
ND.Text = "BELAWAN"
ElseIf KD.Text = "TEM" Then
ND.Text = "AKSARA"
ElseIf KD.Text = "MAR" Then
ND.Text = "MARENDAL"
ElseIf KD.Text = "BIN" Then
ND.Text = "BINJAI"
ElseIf KD.Text = "PAK" Then
ND.Text = "LUBUK PAKAM"
End If
Kopel.Text = TP.Text & "-" & KD.Text & "-" & Nomor.Text
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
JP.Text = MBI.Text - MBL.Text
TT.Text = KWH.Text * JP.Text + BB.Text
Pajak.Text = 0.15 * TT.Text
TB.Text = TT.Text - Pajak.Text
End Sub
Private Sub TB_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB.TextChanged
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
isitabel()
Nomor.Text = ""
NP.Text = ""
Tipe.Text = ""
BB.Text = ""
ND.Text = ""
Kopel.Text = ""
KWH.Text = ""
MBL.Text = ""
MBI.Text = ""
JP.Text = ""
TT.Text = ""
Pajak.Text = ""
TB.Text = ""
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
End
End Sub
End Class
Tugas Pemrograman Visual
Listing Program :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NPM.Items.Add("12110569")
NPM.Items.Add("12110789")
NPM.Items.Add("12110278")
NPM.Items.Add("12110111")
KD.Items.Add("001")
KD.Items.Add("002")
KD.Items.Add("003")
KM.Items.Add("101")
KM.Items.Add("102")
KM.Items.Add("103")
Dim i As Integer
For i = 0 To 100
NK.Items.Add("" & i)
NT.Items.Add("" & i)
NUTS.Items.Add("" & i)
NUAS.Items.Add("" & i)
Next
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
Select Case NPM.Text
Case "12110569"
Nama.Text = " Joseph Sitanggang"
Jenjang.Text = "S1"
Jurusan.Text = "Teknik Informatika"
Case "12110789"
Nama.Text = " Aveiro Santos"
Jenjang.Text = "D3"
Jurusan.Text = "Komputerisasi Akuntansi"
Case "12110278"
Nama.Text = " Eryawan Rifaldi"
Jenjang.Text = "S1"
Jurusan.Text = "Teknik Informatika"
Case "12110111"
Nama.Text = " Rizky Ananda"
Jenjang.Text = "S1"
Jurusan.Text = "Teknik Informatika"
End Select
End Sub
Private Sub KD_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KD.SelectedIndexChanged
Select Case KD.Text
Case "001"
ND.Text = "Mesran, M.kom"
Case "002"
ND.Text = "Tonni Limbong, M.kom"
Case "003"
ND.Text = "Hery Sunandar, ST, M.kom"
End Select
End Sub
Private Sub KM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KM.SelectedIndexChanged
Select Case KM.Text
Case "101"
Matakuliah.Text = "Pemrograman Visual"
Case "102"
Matakuliah.Text = "Sistem Basis Data"
Case "103"
Matakuliah.Text = "Matriks"
End Select
End Sub
Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
If NA.Text >= 80 Then
NH.Text = "A"
ElseIf NA.Text > 70 Then
NH.Text = "B"
ElseIf NA.Text >= 60 Then
NH.Text = "C"
ElseIf NA.Text >= 50 Then
NH.Text = "D"
Else
NH.Text = "E"
End If
If NA.Text >= 50 Then
Ket.Text = "LULUS"
Else
Ket.Text = "GAGAL"
End If
End Sub
Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
NPM.Text = ""
Nama.Text = ""
Jenjang.Text = ""
Jurusan.Text = ""
KD.Text = ""
ND.Text = ""
KM.Text = ""
NK.Text = ""
NT.Text = ""
NUTS.Text = ""
NUAS.Text = ""
NA.Text = ""
NH.Text = ""
Ket.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
Hasil jadi setelah memasukkan Listing Program
Time in Medan 
