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