Tugas IV Sessi IX Mata Kuliah PB1

Aplikasi sederhana TOKO BUKU ANIME

Kali ini saya membuat sebuah program sederhana dengan visual basic 2010. Aplikasi ini bertemakan toko buku anime,didalam aplikasi ini terdapat beberapa panel yang berfungsi untuk memasukkan data pembeli. Program ini juga menggunakan system object oriented programming,pada aplikasi ini terdapat form yang berupa application main dan class yang berfungsi untuk menampung beberapa fungsi yang akan di pakai pada main applikation itu sendiri.

Berikut ini adalah screenshot dari aplikasi tersebut :

1.       

     

        Mula mula pada saat menjalankan apikasi ini, aplikasi meminta nama dari pembeli komik tersebut,dan muncul input box yang akan diisi dengan nama pembeli dengan huruf kecil,seperti gambar berikut :

2.        Setelah memasukan nama maka akan keluar input box alamat,berfungsi untuk memasukkan alamat dari pembeli komik itu sendiri. Seperti gambar berikut ini:

3.        Setelah memasukkan alamat maka akan muncul form yang berisi nama ,alamat,judul komik,harga,dan jumlah yang di beli. Pada form ini juga terdapat label sebagai “TOKO BUKU ANIME” yang bisa mergerak ke kiri pada saat form load ,dan juga terdapat keterangan ”ONGKIR 10RB KE SEMUA TUJUAN” yang dapat bergerak keatas dan kebawah sperti gambar berikut :

4.        Pada form ini juga terdapat combo box yang berisi item berikut:naruto,tsubasa,doraemon,digimon,dan pokemon yang memiliki harga yang berbeda beda pada setiap komik,pada contoh dibawah penulis memilih doraemon sebagai komik yang akan dibeli,dan akan muncul harga kemudian masukkan jumlah yang akan di beli. Sepert gambar berikut ini:

5.        Pada form terdapat tombol kalkulasi yang berfungsi menghitung pembelian dan akan muncul pada msgbox,

Dengan harga yang harus di bayar seperti gambar berikut :

6.        Pada form juga terdapat checkbox yang berfungsi untuk memilih pilihan layanan antar,pada saat checkbox dipilih maka harga akan ditambah 10000 untuk ongkir,dan yang muncul pada msg box akan berubah. Pada saat checkbox dipilih kode pemesanan akan terisi dengan potongan dari kata nama,alamat,dan judul komik yang di pesan. Seperti gambar berikut:

7.        Pada form juga terdapat tombol “TAMPILKAN IDENTITAS” berfungsi untuk menampilkan identitas pembeli yang berisi nama dan alamat pembeli . seperti gambar berikut:

8.        Terdapat button data baru untuk memasukan nama dan alamat pembeli baru lewat input box dan form akan hilang dan muncul lagi setelah input box nama dan alamat terisi dengan data baru. Seperti gambar berikut:

9.        Tombol exit digunakan untuk keluar program aplikasi,yang menggunakan msg box ok&cancel,dan menggunakan fungsi sub dan call.

Demikian lah demonstrasi dari program sederhana yang saya buat,semoga berguna bagi orng banyak,

terima kasih.

Source code dari prongram tersebut adalah sebagai berikut :

Public Class Form1

    Dim kelasnya As New Class1

    Dim form1instance As Form1

    Function total(ByVal harga, ByVal jumlah)

        total = harga * jumlah

    End Function

    Sub bersih()

        Tnama.Text = ""

        Talamat.Text = ""

        Tharga.Text = ""

        Tj.Text = ""

        kona.Text = ""

        koal.Text = ""

        kokom.Text = ""

        CheckBox1.Checked = False

        ComboBox1.Text = ""

    End Sub

    Sub keluar()

        Dim x As String

        x = MsgBox("Akan Keluar..?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Konfirmasi")

        If x = vbYes Then

            Me.Close()

        End If

    End Sub

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

        Timer1.Enabled = True

        Timer2.Enabled = True

        Dim kata As String

        kata = InputBox("masukkan nama anda")

        Tnama.Text = kelasnya.konversi(kata)

        Dim alamat As String

        alamat = InputBox("masukkan alamat")

        Talamat.Text = kelasnya.konversi(alamat)

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Dim s1 As String

        Dim S2 As String

        s1 = Microsoft.VisualBasic.Left(Label1.Text, 1)

        S2 = Microsoft.VisualBasic.Right(Label1.Text, Len(Label1.Text) - 1)

        Label1.Text = S2 + s1

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.Text = "naruto" Then

            Tharga.Text = 20000

        ElseIf ComboBox1.Text = "tsubasa" Then

            Tharga.Text = 15000

        ElseIf ComboBox1.Text = "doraemon" Then

            Tharga.Text = 21000

        ElseIf ComboBox1.Text = "digimon" Then

            Tharga.Text = 17000

        ElseIf ComboBox1.Text = "pokemon" Then

            Tharga.Text = 14000

        End If

    End Sub

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

        kelasnya.namasaya = Tnama.Text

        kelasnya.alamat = Talamat.Text

        MsgBox(kelasnya.namasaya + " " + kelasnya.alamat)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim totaly As Integer

        totaly = total(Tharga.Text, Tj.Text)

        If CheckBox1.Checked = True Then

            totaly = totaly + 10000

        End If

        kelasnya.judul = ComboBox1.Text

        kelasnya.jumlah = Tj.Text

        kelasnya.calculate = totaly

        MsgBox(kelasnya.calculate)

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        kona.Text = kelasnya.code(Tnama.Text)

        koal.Text = kelasnya.tengah(Talamat.Text, 4, 3)

        kokom.Text = kelasnya.kiri(ComboBox1.Text, 3)

        If CheckBox1.Checked = False Then

            kona.Text = ""

            koal.Text = ""

            kokom.Text = ""

        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Call bersih()

        Me.Hide()

        Dim kata As String

        kata = InputBox("masukkan nama anda")

        Tnama.Text = kelasnya.konversi(kata)

        Dim alamat As String

        alamat = InputBox("masukkan alamat")

        Talamat.Text = kelasnya.konversi(alamat)

        Me.Show()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Call keluar()

    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        Static Atas As Boolean

        turun.Top = turun.Top + IIf(Atas, -50, 50)

        If turun.Top < 0 Then

            Atas = False

        ElseIf turun.Top > Me.Height - turun.Height - 300 Then

            Atas = True

        End If

    End Sub

End Class

Kelasnya adalah:

Public Class Class1

    Dim namasayasendiri, alamatnya, judulnya As String

    Dim jumlahnya, calc As String

    Public Function konversi(ByVal karakter)

        konversi = StrConv(karakter, VbStrConv.Uppercase)

    End Function

    Public Function code(ByVal karakter)

        code = Right(karakter, 2)

    End Function

    Public Function total(ByVal harga, ByVal jumlah)

        total = harga * jumlah

    End Function

    Public Function kiri(ByVal karakter, ByVal jumlah)

        kiri = Strings.Left(karakter, 2)

    End Function

    Public Function tengah(ByVal karakter, ByVal kanan, ByVal jumlah)

        tengah = Strings.Mid(karakter, 3, 3)

    End Function

   

    Property namasaya() As String

        Get

            namasaya = namasayasendiri

        End Get

        Set(ByVal value As String)

            namasayasendiri = value

        End Set

    End Property

    Property alamat() As String

        Get

            alamat = alamatnya

        End Get

        Set(ByVal value As String)

            alamatnya = value

        End Set

    End Property

    Property judul() As String

        Get

            judul = judulnya

        End Get

        Set(ByVal value As String)

            judulnya = value

        End Set

    End Property

    Property jumlah() As Integer

        Get

            jumlah = jumlahnya

        End Get

        Set(ByVal value As Integer)

            jumlahnya = value

        End Set

    End Property

    Property calculate() As Integer

        Get

            calculate = calc

        End Get

        Set(ByVal value As Integer)

            calc = value

        End Set

    End Property

End Class