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

Tugas II Sessi IV & V Mata Kuliah PB1 - ticket search

Program Sederhana VB : Ticket Search

Pada sebuah konser besar yang menampilkan dua artist yang berbeda dan gedung yang berbeda pula. Untuk memudahkan penonton dalam mencari tempat mereka maka disediakanlah sebuah komputer yang digunakan untuk mencari tempat yang tepat.

                Dalam komputer itu terdapat program yang berfungsi untuk memberitahu penonton dengan mencocokkan code ticketnya dan memberitahukan tempat yang semestinya. Didalam program ini terdapat beberapa komponen yaitu :

1.       Form

2.       Textbox

3.       Picturebox

4.       Button

5.       Label

Seperti inilah tampilan menu utama program tersebut :

Pada textbox yang paling atas penonton diminta untuk memasukkan code tiket yang mereka miliki. Lalu klik tombol “check it!!!” untuk memproses data tersebut dan menghasilkan output diantaranya :

Artist ,Nomor (nomor ticket),hall,spot. Seperti ini :

Konser kali ini menampilkan dua artist,dan menyebabkan terdapat dua code yang berbeda. pada bagian satu huruf pertama yaitu untuk inisial nama artist,dan bagian belakang dua huruf tempat seharusnya yang didapatkan penonton tersebut. Seperti gambar di bawah ini :

Apabila code seperti ini “ BxxxxBx “ berarti anda akan menonton konser bruno mars yang diadakan di hall B seperti gambar ini :

Apabila code seperti ini “ KxxxxAx “ berarti anda akan menonton konser katty perry yang diadakan di hall A seperti gambar ini :

Apabila anda salah memasukkan code ticket yang anda punya ,maka program akan memunculkan message Box yang memberitahukan bahwa input anda salah.

Seperti gambar berikut :

  

Apabila anda sudah mengetahui tempat anda yang seharusnya. Anda bisa mengklik tombol keluar

dan program akan menanya kan anda konfirmasi.

 Berikut ini adalah source code dari program tersebut :

Public Class TicketSearch

    Private Sub BCEK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BCEK.Click

        tnomer.Text = Strings.Mid(ttiket.Text, 2, 4)

        thall.Text = Strings.Mid(ttiket.Text, 6, 1)

        tspot.Text = Strings.Right(ttiket.Text, 1)

        If Strings.Left(ttiket.Text, 1) = "K" Then

            tartis.Text = "KATTY PERRY"

        ElseIf Strings.Left(ttiket.Text, 1) = "B" Then

            tartis.Text = "BRUNO MARS"

        Else

            Dim x As Integer

            x = MsgBox("code anda salah", MsgBoxStyle.OkOnly, AcceptButton)

        End If

        If Strings.Right(ttiket.Text, 2) = "A1" Then

            phall.Image = System.Drawing.Image.FromFile("C:\Users\tb_nih!\Desktop\panggung1.jpg")

        ElseIf Strings.Right(ttiket.Text, 2) = "A2" Then

            phall.Image = System.Drawing.Image.FromFile("C:\Users\tb_nih!\Desktop\panggung2.jpg")

        ElseIf Strings.Right(ttiket.Text, 2) = "B3" Then

            phall.Image = System.Drawing.Image.FromFile("C:\Users\tb_nih!\Desktop\panggung3.jpg")

        ElseIf Strings.Right(ttiket.Text, 2) = "B4" Then

            phall.Image = System.Drawing.Image.FromFile("C:\Users\tb_nih!\Desktop\panggung4.jpg")

        Else

            phall.Image = System.Drawing.Image.FromFile("C:\Users\tb_nih!\Desktop\a.jpg")

        End If

       

    End Sub

   Private Sub ttiket_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ttiket.MouseDoubleClick

        ttiket.Text = ""

        tartis.Text = ""

        tnomer.Text = ""

        thall.Text = ""

        tspot.Text = ""

        phall.Image = System.Drawing.Image.FromFile("C:\Users\tb_nih!\Desktop\a.jpg")

    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("yakin udahan nih ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "konfirmasi")

        If y = vbYes Then

            Me.Close()

        End If

    End Sub

End Class

Tugas PB1 - aplikasi visual basic sederhana MyHotel

Aplikasi Sederhana Visual Basic

Aplikasi myHotel

Berikut adalah screenshot aplikasi tersebut :

Pada program ini terdapat beberapa komponen utama yaitu :
1. Text box, digunakan untuk input data

2. label, title dari data yang di input

3. Button, digunakan untuk memproses perintah

4. checkBox, untuk input data yang bersifat pilihan

5. image, menghias tampilan aplikasi sesuai tema aplikasi tersebut

6. form, untuk meletakkan komponen – komponen tersebut

1.        Tombol Mulai digunakan untuk memulai jalannya aplikasi ini. Dengan menekan tombol mulai ini text box yang telah terisi akan otomatis kosong, hal ini dilakukan agar kita sebagai admin dapat menginput data untuk di proses.

2.        Terdapat tga jenis kamar pada hotel ini yaitu lavender,ros dan bugenvil. Dalam program ini ketiga jenis kamar tersebut memiliki harga yang berbeda beda yaitu:

                 

  

                 Ketiga jenis kamar tersebut menggunakan aplikasi checkbox untuk memilihnya

1.        Admin akan memasukkan data dari mulai lama menginap kemudian tarif perhari yang berbeda tiap kamarnya,dan jumlah orang

Kemudian didapatkan hasil total,namun karena hotel tersebut sedang berulangtahun maka terdapat diskon sebesar 20% bagi setiap tamunya.

Maka program akan memproses total harga menjadi harga yang harus di bayar setelah terkena potongan diskon sebesar 20%.

Dan muncullah harga yang harus di bayar. Di aplikasi ini juga terdapat tombol hitung yang digunakan untuk mengkalkulasi uang tunai yang dibayar dengan uang yang harus dibayar oleh tamu.

Berikut ini adalah screenshotnya :

2.        Setelah seluruh data lengkap dan muncul angka kembalian,hal yang harus dilakukan adalah meng”click” tombol mulai untuk mengosongkan field dan memulai dari awal lagi.

3.        Setelah semua di lakukan maka untuk keluar dari menu aplikasi ini dapat menggunakan tombol”selesai”. Tombol ini digunakan untuk menutup aplikasi,pada saat tombol di tekan akan keluar pesan seperti berikut :

               

Apabila ingin keluar tekan yes ,dan apabila masih ingin melanjutkan tekan no.

Aplikasi ini adalah salah satu aplikasi sangat sederhana berbasis perhitungan sederhana,dan mudah – mudahan berguna untuk orang banyak. 

Terimakasih

Untuk membuat aplikasi seperti ini digunakan source code sebagai brikut :

Public Class HotelUI

    Private Sub bhitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bhitung.Click

        ttotal.Text = (tlama.Text * thari.Text * tjum.Text)

    End Sub

    Private Sub bdiskon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bdiskon.Click

        tbayar.Text = ttotal.Text - (ttotal.Text * 20 / 100)

    End Sub

    Private Sub bhit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bhit.Click

        tkembali.Text = tduit.Text - tbayar.Text

    End Sub

    Private Sub bmulai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bmulai.Click

        tlama.Text = ""

        tjum.Text = ""

        ttotal.Text = ""

        tbayar.Text = ""

        tduit.Text = ""

        tkembali.Text = ""

        CheckBox1.Checked = False

        CheckBox2.Checked = False

        CheckBox3.Checked = False

        thari.Text = ""

    End Sub

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

        thari.Text = "1205000"

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

        thari.Text = "1860000"

    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

        thari.Text = "2380000"

    End Sub

    Private Sub bselesai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bselesai.Click

        Dim y As Integer

        y = MsgBox("Yakin Ingin Keluar Aplikasi myHotel UI ?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "konfirmasi")

        If y = vbYes Then

            Me.Close()

        End If

    End Sub

   

End Class