BLOGGER TEMPLATES AND Gaia Layouts »

Kamis, 03 April 2014

Aplikasi Lelang Virtual

Untuk tujuan tugas UTS, kali ini penulis akan menjelaskan cara membuat lelang secara virtual. Anda pasti pernah melihat proses pelelangan bukan? Nah, kali ini penulis terinspirasi dari proses pelelangan tersebut akan membuat aplikasi lelang secara virtual. Disini penulis menggunakan Visual Studio 2010. Pertama - tama anda buat dulu project baru berbasis visual basic. Setelah itu masukkan komponen - komponen berikut, dan sesuaikan namanya supaya tidak error setelah anda copy paste.


KOMPONEN
TEXT
NAMA
Form
LELANG VIRTUAL
Form1
PictureBox

PictureBox1
GroupBox
Hitung Mundur
GroupBox1
Label
-
DetikLabel
Button
Cari Gambar
TombolGambar
TextBox

HargaTextBox
Button
Buka Harga
TombolBuka
Button
Rp. 500.000
TombolGope
Button
Rp. 1.000.000
TombolSatuJt
Button
Rp. 2.000.000
TombolDuaJt
Button
Rp. 5.000.000
TombolLimaJt
Button
Rp. 10.000.000
TombolSepuluhJt
Atur SizeMode PictureBox-nya jadi StretchImage dan atur TextAlign TextBox-nya jadi Center. Setelah itu anda false-kan status Enabled dari komponen HargaTextBox, TombolBuka, TombolGope,  TombolSatuJt,  TombolDuaJt,  TombolLimaJt,  dan TombolSepuluhJt.

Sekarang kita masuk ke koding. Klik dua kali tombol Cari Gambar, sekarang kita buat tombol ini untuk mencari sumber gambar yang anda inginkan dan ekstensi gambar yang anda inginkan.  Selanjutnya anda masukkan kode berikut ini :

Private Sub TombolGambar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TombolGambar.Click
        OpenFileDialog1.Filter = "All Files|*.*|Image Files|*.jpg;*.gif;*.png;*.bmp;*.tiff"
        OpenFileDialog1.ShowDialog()
        PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
        HargaTextBox.Enabled = True
        TombolBuka.Enabled = True
End Sub

Setelah itu  anda klik dua kali tombol Buka Harga, sekarang kita buat tombol ini saat di klik akan mengaktifkan timer dan tombol - tombol dibawahnya kecuali kalau harganya belum dipasang. Caranya, anda masukkan kode berikut ini :

Private Sub TombolBuka_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TombolBuka.Click
        If HargaTextBox.Text = "" Then
            TombolGope.Enabled = False
            TombolSatuJt.Enabled = False
            TombolDuaJt.Enabled = False
            TombolLimaJt.Enabled = False
            TombolSepuluhJt.Enabled = False
        Else
            TombolGope.Enabled = True
            TombolSatuJt.Enabled = True
            TombolDuaJt.Enabled = True
            TombolLimaJt.Enabled = True
            TombolSepuluhJt.Enabled = True
            DetikLabel.Text = "15"
            Timer1.Enabled = True
        End If
    End Sub

Sekarang kita atur tombol Rp. 500.000 supaya bisa mengembalikan timer ke 15 detik dan menambah 500.000 ke harga yang dipasang. Caranya, anda masukkan kode berikut ini :

Private Sub TombolGope_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TombolGope.Click
        HargaTextBox.Text = Val(HargaTextBox.Text) + 500000
        DetikLabel.Text = "15"
    End Sub

Untuk tombol menaikkan harga yang lain juga sebenarnya sama prinsip kerjanya. Anda hanya perlu mengganti angka 500000 menjadi 1000000, 2000000, 5000000, dan 10000000. Untuk contoh penulis tampilkan kode dari tombol Rp.  10.000.000 :

Private Sub TombolGope_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TombolGope.Click
        HargaTextBox.Text = Val(HargaTextBox.Text) + 10000000
        DetikLabel.Text = "15"
    End Sub

Selanjutnya kita masuk ke koding timer-nya. Disini timer-nya kita set akan muncul di Label1 dan saat mencapai angka 0 maka barang kita anggap sudah terjual pada Bidder (penulis tidak tahu bahasa Indonesianya) terakhir yang memasang harga. Caranya, klik dua kali pada komponen timer lalu masukkan kode berikut :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Interval = 1000
        DetikLabel.Text = DetikLabel.Text - 1
        If DetikLabel.Text = "0" Then
            Timer1.Enabled = False
            MsgBox("Barang Telah Terjual")
        End If
    End Sub

Setelah selesai saatnya kita test program ini....