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")
