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