Pertemuan8

Form1 :

Rumus Form1 :
Public Class Form1

Private Sub BtnGanti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGanti.Click
'Tombol Ganti Gambar
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Public\Pictures\Sample Pictures\Chrysanthemum.jpg")
End Sub

Private Sub BtnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBack.Click
'Tombol Kembali ke Gambar Semula
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Public\Pictures\Sample Pictures\Desert.jpg")
End Sub

Private Sub BtnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCari.Click
OFDcarigambar.Title = "Silahkan Cari Gambar"
OFDcarigambar.InitialDirectory = "C:\"
OFDcarigambar.Filter = "JPEG File | *.jpg"

If OFDcarigambar.ShowDialog = Windows.Forms.DialogResult.OK Then
LblFileName.Text = OFDcarigambar.FileName
PictureBox1.Image = System.Drawing.Image.FromFile(LblFileName.Text)
Else
LblFileName.Text = Nothing
PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\Public\Pictures\Sample Pictures\Desert.jpg")
End If
End Sub
End Class

Form 2 :

Rumus Form2 :
Public Class Form2

Dim kendaraan As String
Dim harga As Integer
Dim total, diskon, bayar As Integer

Private Sub RBMotor_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBMotor.CheckedChanged
kendaraan = "Motor"
harga = 10000000
End Sub

Private Sub RBSepeda_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBSepeda.CheckedChanged
kendaraan = "Sepeda"
harga = 2000000
End Sub

Private Sub RBBecak_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBBecak.CheckedChanged
kendaraan = "Becak"
harga = 1750000
End Sub

Private Sub BtnIsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIsi.Click
Dim x As ListViewItem

x = LVData.Items.Add(TxtNama.Text)

'kolom 2
x.SubItems.Add(MtxtTanggal.Text)
'kolom 3
x.SubItems.Add(kendaraan)
'kolom 4
x.SubItems.Add(TxtBanyak.Text)

total = harga * Val(TxtBanyak.Text)
'kolom 5
x.SubItems.Add(total)

If total > 7000000 Then
diskon = (0.05 * total) * Val(TxtBanyak.Text)
Else
diskon = (0.02 * total) * Val(TxtBanyak.Text)
End If
'kolom 6
x.SubItems.Add(diskon)

bayar = total - diskon
'kolom 7
x.SubItems.Add(bayar)

'jumlah data
TxtData.Text = LVData.Items.Count

kosong()
End Sub

Public Sub kosong()
TxtNama.Text = ""
MtxtTanggal.Text = ""
RBBecak.Checked = False
RBMotor.Checked = False
RBSepeda.Checked = False
TxtBanyak.Text = ""
End Sub

Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
'Hapus Data
'Menghapus data yang dipilih pada listview 1
LVData.FocusedItem.Remove()

'refresh jumlah data
TxtData.Text = LVData.Items.Count
End Sub

Private Sub BtnHaPusBanyak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHaPusBanyak.Click
'Hapus SEMUA
LVData.Items.Clear()
TxtData.Text = LVData.Items.Count
End Sub

Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
End
End Sub

Private Sub BtnIsi_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIsi.Click

End Sub
End Class