Total Tayangan Halaman

Sabtu, 28 April 2012

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


Tidak ada komentar:

Posting Komentar