jual

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

Tugas III Sessi VII Mata Kuliah PB1

Aplikasi sederhana : Kartu perpustakaan

Aplikasi sederhana ini di gunakan untuk petugas perpustakaan yang akan membuatkan kartu perpustakaan kepada mahasiswa. Aplikasi ini terdiri dari tiga form yang memiliki fungsi yang berbeda beda yaitu :

Form 1 : digunakan untuk admin perpustakaan untuk login kedalam aplikasi kartu perpustakaan ini

Form 2 : digunakan untuk mengisikan borang borang data isian untuk mengisi biodata mahasiswa yang akan membuat kartu perpustakaan

Form 3 : digunakan untuk melihat hasil akhir dari kartu perpustakaan ,dan juga untuk mencetak form3 lewat printer dan langsung menjadi kartu perpustakaan

Gambar 1

Pada gambar 1 ini merupakan form 1,dalam form ini terdapat textbox yang berfungsi untuk memasukan username dari admin dan password yang sudah di set “admin” dan akan mengeluarkan tanda “*****”  seperti gambar berikut ini

Gambar 2

Setelah admin login pada form 1 maka akan keluar message box yang memberitahukan bahwa yang login adalah admin klik ok ,kemudian form 1 akan keluar atau hide dan form 2 akan tampil tunggal,tanpa ada penumpukan form. Seperti gambar berikut ini

Gambar 3

Gambar 4

Gambar 4 merupakan tampilan dari form2 yang didalamnya terdapat beberapa komponen yaitu

Nama lengkap ,npm,tanggal lahir,fakultas dan alamat.

Dimana tanggal lahir dan fakultas disini menggunakan fungsi looping pada combo box seperti gambar di bawah ini

Gambar  5

Gambar  6

Gambar  7

Gambar 8

Kemudian form diisikan sesuai dengan biodata mahasiswa seperti gambar berikut ini

Gambar 9

Didalam form 2 ini terdapat tombol data baru untuk mengosongkan borang dari biodata

Gambar 13

Juga terdapat tombol log out untuk admin untuk kembali ke menu form 1 yang sudah kosong ,siap untuk diisikan username dan password kembali seperti gambar berikut

Gambar 12

Dan akan kembali ke

Gambar 1

Setelah data lengkap admin akan mengklik tombol cetak untuk melihat preview dari kartu perpustakaan yang sudah jadi,maka form 3 akan keluar , seperti gambar berikut yang di tambahkan pada form ini adalah fungsi if dan string yang digunakan pada kolom angkatan apabila dua angka pertama dari npm 11 maka pada kolom angkatan menjadi 2011 dan seterusnya

Gambar 10

Pada form 3 ini terdapat tombol cetak untuk mencetak kartu perpustakaan yang sudah terisi biodata dan akan keluar menu untuk meng print kartu perpustakaan yang sudah jadi seperti  gambar berikut ini

Gambar 11

Pada form 1 terdapat tombol keluar untuk keluar dari aplikasi. Jika ingin keluar maka klik ok pada message box jika tidak jadi maka klik cancel.

Sekian demonstrasi dari aplikasi sederhana dari saya semoga dapat bermanfaat bagi orang banyak.

Terimakasih

Berikut ini adalah source codenya :

Public Class Form1

    Private Sub bmasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bmasuk.Click

        If Tpass.Text = "admin" Then

            MsgBox("anda login sebagai ADMIN")

            Form2.Show()

            Me.Hide()

        Else

            MsgBox("salah masukkan username or password")

            Tuser.Text = ""

            Tpass.Text = ""

            Tuser.Focus()

        End If

    End Sub

  

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

        Dim y As Integer

        y = MsgBox("anda ingin keluar?", MsgBoxStyle.OkCancel + MsgBoxStyle.Question, "konfirmasi")

        If y = vbOKCancel Then

            Me.Close()

        End If

    End Sub

End Class

Public Class Form2

    Private Sub Form2_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        Application.Exit()

    End Sub

  

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

        Dim i, s, w As Integer

        For i = 1 To 31

            tanggal.Items.Add(i)

        Next

        For w = 1999 To 1940 Step -1

            tahun.Items.Add(w)

        Next

        For s = 1 To 12

            bulan.Items.Add(MonthName(s))

        Next

    End Sub

    Private Sub Cetak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cetak.Click

        Form3.Show()

    End Sub

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

        Tnama.Text = ""

        Tnpm.Text = ""

        Talamat.Text = ""

        tanggal.Text = ""

        bulan.Text = ""

        tahun.Text = ""

        fakultas.Text = ""

    End Sub

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

        Form1.Show()

        Form1.Tuser.Text = ""

        Form1.Tpass.Text = ""

        Me.Hide()

    End Sub

End Class

Public Class Form3

   

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

        nama.Text = Form2.Tnama.Text

        npm.Text = Form2.Tnpm.Text

        alamat.Text = Form2.Talamat.Text

        tgal.Text = Form2.tanggal.Text

        bulan.Text = Form2.bulan.Text

        tahun.Text = Form2.tahun.Text

        fakultas.Text = Form2.fakultas.Text

        If Strings.Left(npm.Text, 2) = "11" Then

            angkatan.Text = "2011"

        ElseIf Strings.Left(npm.Text, 2) = "10" Then

            angkatan.Text = "2010"

        ElseIf Strings.Left(npm.Text, 2) = "09" Then

            angkatan.Text = "2009"

        ElseIf Strings.Left(npm.Text, 2) = "08" Then

            angkatan.Text = "2008"

        Else

            MsgBox("input salah")

        End If

    End Sub

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

        Dim printDialog1 As PrintDialog = New PrintDialog

        printDialog1.Document = PrintDocument1

        Dim result As DialogResult = printDialog1.ShowDialog

        If (result = DialogResult.OK) Then

            PrintDocument1.Print()

        End If

    End Sub

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

        Dim y As Integer

        y = MsgBox("anda ingin keluar?", MsgBoxStyle.OkCancel + MsgBoxStyle.Question, "konfirmasi")

        If y = vbOKCancel Then

            Me.Close()

        End If

    End Sub

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

        Me.Close()

    End Sub

End Class