Pembahasan “UTS Lab. PBO”

Berikut pembahasan dari soal UTS Lab PBO (cont'd Algo), jadikan code berikut hanya sebagai refensi, silahkan dikembangkan jika perlu. Tidak mutlak code harus sama persis seperti di bawah ini.

Source Code :

Imports System.IO

Public Class Form1

    Dim arrJenisMobil() As String

    Dim arrHargaMobil() As Double

    Dim cnt As Integer

    Sub ClearInput()

        txtNama.Text = ""

        txtAlamat.Text = ""

        txtNoHP.Text = ""

        cboJenisMobil.Text = "(Silahkan Pilih)"

        txtHari.Text = 0

        txtNama.Focus()

    End Sub

    Sub fillComboBox()

        cboJenisMobil.Items.Clear()

        For i As Integer = 0 To arrJenisMobil.GetUpperBound(0)

            cboJenisMobil.Items.Add(arrJenisMobil(i).ToString)

        Next

    End Sub

    Sub getJenisMobil()

        Dim sr As StreamReader

        Dim strJenisMobil As String

        Dim dblHargaMobil As Double

        If File.Exists("CarPrice.txt") Then

            sr = File.OpenText("CarPrice.txt")

            Do While sr.Peek <> -1

                strJenisMobil = sr.ReadLine

                dblHargaMobil = sr.ReadLine

                cnt += 1

            Loop

            sr.Close()

            ReDim arrJenisMobil(cnt - 1)

            ReDim arrHargaMobil(cnt - 1)

            sr = File.OpenText("CarPrice.txt")

            cnt = 0

            Do While sr.Peek <> -1

                arrJenisMobil(cnt) = sr.ReadLine

                arrHargaMobil(cnt) = sr.ReadLine

                cnt += 1

            Loop

        End If

    End Sub

    Function getHargaMobil(ByVal carIndex As Integer) As Double

        Return arrHargaMobil(carIndex)

    End Function

    Function ValidateInput() As Boolean

        If txtNama.Text.Trim = "" Then

            MessageBox.Show("Silahkan masukkan Nama")

            txtNama.Focus()

            Return False

        ElseIf txtAlamat.Text.Trim = "" Then

            MessageBox.Show("Silahkan masukkan Alamat")

            txtAlamat.Focus()

            Return False

        ElseIf txtNoHP.Text.Trim = "" Then

            MessageBox.Show("Silahkan masukkan No. HP")

            txtNoHP.Focus()

            Return False

        ElseIf cboJenisMobil.SelectedIndex < 0 Then

            MessageBox.Show("Silahkan pilih mobil yang disewa")

            cboJenisMobil.Focus()

            Return False

        ElseIf txtHari.Text.Trim < 1 Then

            MessageBox.Show("Minimal sewa 1 hari")

            txtHari.Focus()

            Return False

        Else

            Return True

        End If

    End Function

    Private Sub btnHitung_Click(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles btnHitung.Click

        Dim fmtStr As String = "{0,-20}{1,10}"

        Dim totalHarga As Double

        If ValidateInput() = False Then Exit Sub

        totalHarga = getHargaMobil(cboJenisMobil.SelectedIndex) * CInt(txtHari.Text)

        lstHasil.Items.Clear()

        With lstHasil.Items

            .Add("Customer : Mr./Ms. " & txtNama.Text.Trim)

            .Add("Alamat   : " & txtAlamat.Text.Trim)

            .Add("No NP    : " & txtNoHP.Text.Trim)

            .Add("Jenis Mobil yang disewa : " & cboJenisMobil.SelectedItem)

            .Add("Jumlah Hari penyewaan   : " & txtHari.Text & "hari  Total Rp. " & totalHarga)

        End With

    End Sub

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

        getJenisMobil()

        fillComboBox()

        ClearInput()

    End Sub

    Private Sub txtHari_KeyPress(ByVal sender As Object, _

    ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtHari.KeyPress

        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then

            e.Handled = True

        End If

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        If lstHasil.Items.Count < 1 Then

            Exit Sub

        End If

        Dim sw As StreamWriter

        If File.Exists("History.txt") Then

            File.Delete("History.txt")

        End If

        sw = File.CreateText("History.txt")

        With sw

            .WriteLine("Nama        : " & txtNama.Text)

            .WriteLine("Alamat      : " & txtAlamat.Text)

            .WriteLine("No HP       : " & txtNoHP.Text)

            .WriteLine("Jenis Mobil : " & cboJenisMobil.SelectedItem)

            .WriteLine("Lama Sewa   : " & txtHari.Text & " hari")

            .WriteLine("Harga Sewa  : " & arrHargaMobil(cboJenisMobil.SelectedIndex))

            .WriteLine("Total       : " & CDbl(arrHargaMobil(cboJenisMobil.SelectedIndex)) * CInt(txtHari.Text))

        End With

        sw.Close()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim sr As StreamReader

        If File.Exists("History.txt") Then

            sr = File.OpenText("History.txt")

            Form2.ListBox1.Items.Clear()

            While sr.Peek <> -1

                Form2.ListBox1.Items.Add(sr.ReadLine)

            End While

            Me.Hide()

            Form2.Show()

        End If

    End Sub

End Class

Berikut form untuk menampilkan hasil:

Source Code:

Public Class Form2

    Private Sub btnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTutup.Click

        Form1.Close()

    End Sub

End Class

~ Semoga Bermanfaat  ~