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....