Buat Image Converter Sendiri dengan VB 2010 ( Visual Basic 2010 )

Klo km mau mengconvert gambar tapi bingung pke apa ? mau download softwarenya tapi ga' tau softwarenya,,mendingan buat aja sendiri.. :D :D :D

Komponent VB 2010 :
1) 1 SaveFileDialog
2) 1 OpenFileDialog
3) 2 Button
4) 2 TextBox dgn nilai Properties ReadOnly = True
5) 1 PictureBox
=====

1) Susun komponen tersebut dan beri nama seperti gambar dibawah ini :
[You must be registered and logged in to see this image.]

2) Klik 1 kali ComboBox1 dan pada kotak Properties
,cari tabel Items,dan isi seperti dibawah ini :

Code:: PNG
GIF
BMP
JPEG

untuk lebih jelasnya,lihat gambar berikut :
[You must be registered and logged in to see this image.]

3) Klik 2 kali Button1 yg tulisannya telah kita ubah menjadi Pilih Gambar,dan masukkan code berikut :

Code:: If OpenFileDialog1.ShowDialog = DialogResult.OK Then
PictureBox1.ImageLocation = OpenFileDialog1.FileName
TextBox1.Text = OpenFileDialog1.FileName
End If

4) Klik 2 kali Button2 yg tulisannnya telah kita ganti menjadi Convert,dan masukkan code berikut :

Code:: If ComboBox1.SelectedItem = "PNG" Then
SaveFileDialog1.Filter = "PNG |*.png"
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Png)
TextBox2.Text = SaveFileDialog1.FileName
End If
End If
If ComboBox1.SelectedItem = "GIF" Then
SaveFileDialog1.Filter = "GIF |*.gif"
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Gif)
TextBox2.Text = SaveFileDialog1.FileName
End If
End If
If ComboBox1.SelectedItem = "BMP" Then
SaveFileDialog1.Filter = "BMP |*.bmp"
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
TextBox2.Text = SaveFileDialog1.FileName
End If
End If
If ComboBox1.SelectedItem = "JPEG" Then
SaveFileDialog1.Filter = "JPEG |*.jpeg"
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
TextBox2.Text = SaveFileDialog1.FileName
End If
End If

5) Sudah selesai,dan silahkan coba dgn cara tekan F5 atau Run

untuk melihat scripts seluruhnya,silahkan lihat scripts yg dah ane tulis di[You must be registered and logged in to see this link.]

Penjelasan :

2 komponen TextBox tersebut berguna untuk menunjukkan Lokasi Disk dimana file tersebut disimpan atau dibuka

1 PictureBox gunanya untuk nunjukkin gambar yg akan di convert ke format lain...

1 ComboBox gunanya untuk memilih item format,di tutorial ini ane cuma ngasih 4 format item
,yaitu PNG,BMP,GIF,JPEG

klo berguna minta :cendol: ya Master Hacker Newbie

Credit : Kurohige

Special credit : Rieqyns13

Kak, ini kan untuk Image Converter ya,
Bagaimana ya untuk membuat file Converter?

Misalnya dari PDF ke Word,
atau dari Word ke PDF, atau ke Txt
ya, seperti itu lah kak, mohon bantuannya :)

» Tutorial buat keylogger sendiri dengan Visual Basic 2010
» cara buat window media player sendiri dengan visual basic 2010
» Membuat binary converter dengan VB 2010 (Visual basic 2010)
» Membuat Video Converting sendiri dengan VB 2010 (Visual Basic 2010)
» cara buat injektor sendiri

Buat Image Converter Sendiri dengan VB 2010 ( Visual Basic 2010 )

Buat Image Converter Sendiri dengan VB 2010 ( Visual Basic 2010 )

Similar topics

Similar topics