PERTEMUAN 16

RUMUS UNTUK CLASS PUBLIC :

rumus :

Public Class Buku

Private kodeBuku As String
Private judulBuku As String

Property m_kodeBuku()
Get
Return kodeBuku
End Get
Set(ByVal value)
kodeBuku = value
End Set
End Property

Property m_judulBuku()
Get
Return judulBuku
End Get
Set(ByVal value)
judulBuku = value
End Set
End Property

Public Function jenisBuku() As String
Dim hurufPertama As String
hurufPertama = kodeBuku.Substring(0, 1)

Select Case hurufPertama
Case "K" : Return "Komik"
Case "M" : Return "Majalah"
Case "F" : Return "Fiksi"
Case "N" : Return "Non Fiksi"
Case Else : Return "KODE BUKU SALAH"
End Select
End Function

Public Function sumberBuku() As String
Dim hurufKedua As String
hurufKedua = kodeBuku.Substring(1, 1)

Select Case hurufKedua
Case "S" : Return "Sumbangan"
Case "P" : Return "Pembelian"
Case Else : Return "KODE BUKU SALAH"
End Select
End Function
End Class

Rumus BTNPROSES :

Public Class Form1
Dim x As New Buku

Public Sub kosong()
TxtKodeBuku.Text = ""
TxtJudulBuku.Text = ""
TxtHargaSewa.Text = ""
TxtLamaSewa.Text = ""
LblJenis.Text = ""
LblSumber.Text = ""
LblBiayaSewa.Text = ""
End Sub

Private Sub BtnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRefresh.Click
kosong()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kosong()
End Sub

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
x.m_kodeBuku = TxtKodeBuku.Text
x.m_judulBuku = TxtJudulBuku.Text


LblJenis.Text = x.jenisBuku()
LblSumber.Text = x.sumberBuku()
End Sub
End Class

UTS PERTEUAN 10

Public Class Form1 Dim biaya As Integer Dim biaya_asuransi As Integer Dim jenis, promo As String Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CmbPaket.Items.Clear() CmbPaket.Items.Add("Paket STOP RISK") CmbPaket.Items.Add("Paket HIGH RISK") CmbPaket.Items.Add("Paket MULTI RISK") End Sub Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click If ChkPromo.Checked = True Then biaya_asuransi = biaya - (0.05 * biaya) 'yang dalam kurung ini diskon nya, promo = "Ya" Else biaya_asuransi = biaya promo = "No" End If ListBox1.Items.Add("Nama : " & TxtNama.Text) ListBox1.Items.Add("Jenis/Usia :" & jenis & "/" & TxtUsia.Text) ListBox1.Items.Add("Masa Asuransi :" & TxtMasa.Text) ListBox1.Items.Add("Harga Kendaraan :" & TxtHarga.Text) ListBox1.Items.Add("Paket Asuransi :" & CmbPaket.Text) ListBox1.Items.Add("Promo : " & promo) ListBox1.Items.Add("Biaya Asuransi :" & biaya_asuransi) End Sub Private Sub CmbPaket_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbPaket.SelectedIndexChanged Select Case CmbPaket.SelectedIndex() Case 0 : biaya = 0.1 * Val(TxtHarga.Text) * Val(TxtMasa.Text) Case 1 : biaya = 0.11 * Val(TxtHarga.Text) * Val(TxtMasa.Text) Case 2 : biaya = 0.12 * Val(TxtHarga.Text) * Val(TxtMasa.Text) End Select End Sub Private Sub RBLaki_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBLaki.CheckedChanged jenis = "Laki - Laki" End Sub Private Sub RBPerempuan_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBPerempuan.CheckedChanged jenis = "Perempuan" End Sub Private Sub BtnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRefresh.Click TxtHarga.Text = "" TxtMasa.Text = "" TxtNama.Text = "" TxtUsia.Text = "" RBLaki.Checked = False RBPerempuan.Checked = False ChkPromo.Checked = False CmbPaket.Text = "" ListBox1.Items.Clear() End Sub End Class