Soal no.2
1.Form Latihan2.
2.Listing program form latihan2
Public Class Latihan2
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
End
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kode.Items.Add("TS001")
kode.Items.Add("TS002")
kode.Items.Add("VG001")
kode.Items.Add("VG002")
addtabel()
End Sub
Sub addtabel()
LV.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
LV.Columns.Add("Kode", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)
LV.Columns.Add("Merk", 80, HorizontalAlignment.Center)
LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)
LV.Columns.Add("Jumlah", 80, HorizontalAlignment.Center)
LV.Columns.Add("Total", 80, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub isitabel()
Dim list As New ListViewItem
list.Text = no.Text
list.SubItems.Add(kode.Text)
list.SubItems.Add(nama.Text)
list.SubItems.Add(merk.Text)
list.SubItems.Add(harga.Text)
list.SubItems.Add(jumlah.Text)
list.SubItems.Add(total.Text)
LV.Items.Add(list)
End Sub
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
Dim x As String
Dim y As Integer
Microsoft.VisualBasic.Left(kode.Text, 2)
x = Microsoft.VisualBasic.Mid(kode.Text, 1, 2)
If x = "TS" Then
merk.Text = "THOSHIBA"
ElseIf x = "VG" Then
merk.Text = "V-Gen"
End If
Microsoft.VisualBasic.Left(kode.Text, 2)
y = Microsoft.VisualBasic.Mid(kode.Text, 3, 5)
If y = "001" Then
nama.Text = "Flashdisk 4GB"
ElseIf y = "002" Then
nama.Text = "Flashdisk 2GB"
End If
If kode.Text = "TS001" Then
harga.Text = 105000
ElseIf kode.Text = "TS002" Then
harga.Text = 75000
ElseIf kode.Text = "VG001" Then
harga.Text = 90000
ElseIf kode.Text = "VG002" Then
harga.Text = 60000
End If
End Sub
Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
If e.KeyChar = Chr(13) Then
total.Text = Val(harga.Text) * Val(jumlah.Text)
End If
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
End Sub
Private Sub btnhapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapussemua.Click
LV.Items.Clear()
End Sub
Private Sub btnhapus1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus1.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
no.Text = ""
kode.Text = ""
nama.Text = ""
merk.Text = ""
harga.Text = ""
jumlah.Text = ""
total.Text = ""
LV.Items.Clear()
End Sub
End Class
3.Hasil Program Diatas
Soal No.3
1.Form Login
2.Listing program
Public Class Login
Private Sub Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ok.Click
If Username.Text = "Indra Irwan" And Password.Text = "1234" Then
MsgBox("Selamat Datang Di blog saya")
menuutama.show()
Me.Hide()
Else
MsgBox("Maaf Username / Password Salah !")
Username.Text = ""
Password.Text = ""
End If
End Sub
Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
End
End Sub
End Class
3.Hasil program Login
4.Form menuutama
5.Listing Program menuutama
Public Class menuutama
Private Sub TagihanPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagihanPDAMToolStripMenuItem.Click
Form1.Show()
End Sub
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
End
End Sub
End Class
6.Hasil program menuutama
7.Form Tagihan PDAM
8.Listing program Tagihan PDAM
Public Class Form1
Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click
End Sub
Private Sub Form1_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.Items.Add("TOKO")
tipe.Items.Add("RUMAH")
tipe.Items.Add("SWALAYAN")
tipe.Items.Add("PABRIK")
Call addnomor()
End Sub
Sub addnomor()
Dim y As Integer
For y = 100 To 200
nomor.Items.Add(y)
y = y + 0
Next y
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"
harga.Text = 300
beban.Text = 25000
Case "RUMAH"
harga.Text = 100
beban.Text = 10000
Case "SWALAYAN"
harga.Text = 200
beban.Text = 15000
Case "PABRIK"
harga.Text = 500
beban.Text = 35000
End Select
End Sub
Private Sub tagihan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tagihan.TextChanged
pajak.Text = 0.01 * tagihan.Text
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
pembayaran.Text = Val(tagihan.Text) + Val(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 pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pemakaian.KeyPress
If e.KeyChar = Chr(13) Then
tagihan.Text = beban.Text + (harga.Text * pemakaian.Text)
End If
End Sub
Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged
Dim x As String
Microsoft.VisualBasic.Left(daerah.Text, 3)
x = Microsoft.VisualBasic.Mid(daerah.Text, 1, 3)
If x = "MED" Then
kode.Text = "MED-"
ElseIf x = "BEL" Then
kode.Text = "BEL-"
ElseIf x = "AKS" Then
kode.Text = "AKS-"
ElseIf x = "MAR" Then
kode.Text = "MAR-"
ElseIf x = "BIN" Then
kode.Text = "BIN-"
ElseIf x = "LUB" Then
kode.Text = "LUB-"
End If
Dim y As String
Microsoft.VisualBasic.Left(tipe.Text, 3)
y = Microsoft.VisualBasic.Mid(tipe.Text, 1, 3)
If y = "TOK" Then
kode.Text = "TOK-"
ElseIf y = "RUM" Then
kode.Text = "RUM-"
ElseIf y = "SWA" Then
kode.Text = "SWA-"
ElseIf y = "PAB" Then
kode.Text = "PAB-"
End If
End Sub
Private Sub alamat_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles alamat.TextChanged
End Sub
End Class
9.Hasil Program Tagihan PDAM
Ok...
Tidak ada komentar:
Posting Komentar