Udah Jam 2 malam tapi ngak bisa tidur, iseng-iseng buat
aplikasi di visual basic 2010 atau lebih dikenal vb.net. Berhubung saya
belajar visual basic 2010 ini otodidak yang harap maklum kalau
programnya masih sederhana, inipun masih contek sana sini..hehehe..
Seperti yang saya katakan di atas, aplikasi sederhana yang saya
share yaitu aplikasi konversi gambar. Dalam aplikasi konversi gambar
ini, kita akan bermain-main dengan komponen OpenFileDialog dan
SaveFileDialog. Oke langsung saja kita praktekkan cara membuat aplikasi
konversi gambar ini:
Pertama, kita buka program Microsoft Visual Basic 2010 Express
ataupun yang Ultimate kemudian buat project baru. Setelah itu tambahkan 2
Komponen GroupBox, 2 komponen Button, 1 komponen ComboBox, 1 komponen
OpenFileDialog dan 1 komponen SaveFileDialog. Buatlah tampilan seperti
pada gambar di bawah ini atau bisa anda kreasikan sendiri:
Kemudian klik double pada form, dan ketikkan Syntak di bawah ini:
ComboBox1.Items.Add("JPEG")
ComboBox1.Items.Add("BMP")
ComboBox1.Items.Add("PNG")
ComboBox1.Items.Add("GIF")
ComboBox1.Items.Add("BMP")
ComboBox1.Items.Add("PNG")
ComboBox1.Items.Add("GIF")
Klik double pada Button Browse, dan ketikkan syntak di bawah ini:
OpenFileDialog1.Filter = "JPEG|*.JPG|BITMAP|*.BMP|GIF|*.GIF|PNG|*.PNG"
OpenFileDialog1.ShowDialog()
PictureBox1.ImageLocation = OpenFileDialog1.FileName
OpenFileDialog1.ShowDialog()
PictureBox1.ImageLocation = OpenFileDialog1.FileName
dan yang terakhir klik double pada Button Simpan, dan ketikkan syntak di bawah ini:
Dim GAMBAR As New System.Drawing.Bitmap(PictureBox1.Image)
SaveFileDialog1.ShowDialog()
Dim LOKASI As String = SaveFileDialog1.FileName() + Microsoft.VisualBasic.Right(OpenFileDialog1.FileName, 4)
LOKASI = Microsoft.VisualBasic.Replace(UCase(LOKASI),
Microsoft.VisualBasic.Right(UCase(OpenFileDialog1.FileName), 4), "."
& ComboBox1.Text & "")
GAMBAR.Save(LOKASI, System.Drawing.Imaging.ImageFormat.Bmp)
MsgBox("BERHASIL")
