Tinggalkan komentar

Aplikasi Sederhana Form Pemesanan Mobil Dengan VB

Kali ini saya akan memberikan tutorial tentang pembuatan aplikasi sederhana Form Pemesanan Mobil dengan Visual Basic, dan sebenarnya sehubungan dengan tugas kuliah juga hehe.. yang dimana harus menggunakan radio button, check box dan menampilkan gambar, sehingga ada ide untuk membuat aplikasi sederhana ini.

oke langsung saja aplikasi ini adalah penginputan sederhana untuk menginput pemesanan mobil dengan menggunakan tools – tools seperti TextBox, Radio button, Check Box, dan OpenFileDialog untuk mengambil gambar yang akan di tampilkan.

Pertama Buat Tampilan Form Seperti ini

form tampilan

Setelah buat form seperti diatas, kita mulai buat satu fungsi yaitu fungsi untuk cek warna, yang dimana jika warna lebih dari satu maka tipe warna jadi Kombinasi dan jika satu menjadi Full berikut source codenya :


   Public Sub cekwarna()
        Dim stat As Integer
        stat = Val(Status.Text)
        If CMerah.Checked = True Or CPutih.Checked = True Or CBiru.Checked = True Or Chitam.Checked = True Then
            stat = stat + 1
        End If

        Status.Text = stat

        If stat > 1 Then
            TipeWarna.Text = "Kombinasi"
        Else
            TipeWarna.Text = "Full"
        End If

   End Sub

jika sudah maka panggil text di tiap checkbox warna seperti dibawah ini :


Private Sub CMerah_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMerah.CheckedChanged
 cekwarna()
 End Sub

Private Sub CPutih_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CPutih.CheckedChanged
 cekwarna()
 End Sub

Private Sub CBiru_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CBiru.CheckedChanged
 cekwarna()
 End Sub

Private Sub Chitam_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Chitam.CheckedChanged
 cekwarna()
 End Sub

Setelah buat fungsi diatas lanjut ke fungsi berikutnya yaitu menetukan tipe class mobil dengan harga kisaran yang di tentukan disini kita menggunakan fungsi perbandingan, pasang fungsi ini pada keyup textfield harga kisaran


Private Sub Harga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Harga.KeyUp
Dim nilai As Integer

nilai = Val(Harga.Text)

If nilai >= 10000000 And nilai < 30000000 Then
TipeClass.Text = "D"
ElseIf nilai >= 30000000 And nilai < 60000000 Then
TipeClass.Text = "C"
ElseIf nilai >= 60000000 And nilai < 100000000 Then
TipeClass.Text = "B"
ElseIf nilai >= 100000000 Then
TipeClass.Text = "A"
ElseIf Harga.Text = "" Then
TipeClass.Text = ""
End If

End Sub

fungsi warna dan harga sudah kita buat kemudian kita buat fungsi untuk mengambil gambar seperti halnya upload foto, masukan fungsi ini pada tombol browse berikut sourcecodenya


Private Sub Browse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Browse.Click
        OpenFileDialog1.Filter = "JPG |*.jpg| Bitmap Image |*.bmp| PNG Image |*.png| JPEG Image |*.jpeg| GIF Image |*.gif"
        OpenFileDialog1.ShowDialog()

        Lfile.Text = OpenFileDialog1.FileName.Substring(OpenFileDialog1.FileName.LastIndexOf("\"), OpenFileDialog1.FileName.Length - OpenFileDialog1.FileName.LastIndexOf("\")).Replace("\", "")

    End Sub

dan yang terakhir kita buat fungsi preview untuk menampilkan hasil dari apa yang kita input fungsi ini di masukan pada tombol preview berikut source codenya


 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim warna As String
        warna = ""
        Lpemesan.Text = pemesan.Text

        If RSedan.Checked = True Then Ltipemobil.Text = RSedan.Text
        If RKijang.Checked = True Then Ltipemobil.Text = RKijang.Text
        If RMinibus.Checked = True Then Ltipemobil.Text = RMinibus.Text
        If RPickup.Checked = True Then Ltipemobil.Text = RPickup.Text

        If RToyota.Checked = True Then Lmerek.Text = RToyota.Text
        If RHonda.Checked = True Then Lmerek.Text = RHonda.Text
        If RSuzuki.Checked = True Then Lmerek.Text = RSuzuki.Text
        If RFord.Checked = True Then Lmerek.Text = RFord.Text

        If CMerah.Checked = True Then warna = warna + "| Merah "
        If CPutih.Checked = True Then warna = warna + "| Putih "
        If CBiru.Checked = True Then warna = warna + "| Biru "
        If Chitam.Checked = True Then warna = warna + "| Hitam "

        Lwarna.Text = warna
        Ltipewarna.Text = TipeWarna.Text

        If RManual.Checked = True Then Ltransmisi.Text = RManual.Text
        If ROtomatis.Checked = True Then Ltransmisi.Text = ROtomatis.Text

        Lharga.Text = Harga.Text
        Ltipeclass.Text = TipeClass.Text

        Lgambar.Image = System.Drawing.Image.FromFile(OpenFileDialog1.FileName)

    End Sub

dan selesai kemudaian kita bisa langsung jalankan dan hasilnya akan seperti ini

Demo Program

untuk lebih lengkapnya program bisa di download disini

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: