Pertama - tama klik New Project -> Windows Form Application (Beri nama sesukamu)
Tambahkan commponent dibawah pada Form1 :
10 Buttondan susun seperti gambar berikut :
1 TextBox
2 Label
1 OpenFileDialog
Setelah menyusun sesuai gambar , ganti Text di pada label dan button seperti berikut :
Label1 -> File Asli
Label2 -> File Hasil
Button1 -> Browse
Button2 -> 3GP
Button3 -> MP4
Button4 -> MOV
Button5 -> MKV
Button6 -> FLV
Button7 -> AVI
Button8 -> MPEG
Button9 -> WMV
Button10 -> Convert
Gambar :
Kode :
Form1:
Dim tipe as string
Button1:
OpenFileDialog1.ShowDialog()
Button2:
tipe = ".3gp"
Button3:
tipe = ".mp4"
Button4:
tipe = ".mov"
Button5:
tipe = ".mkv"
Button6:
tipe = ".flv"
Button7:
tipe = ".avi"
Button8:
tipe = ".mpeg"
Button9:
tipe = ".wmv"
Button10:
OpenFileDialog1:MsgBox("Selamat video anda telah terconvert menjadi" + tipe)Dim filelama As String = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 4)FileCopy(TextBox1.Text, filelama + tipe)
TextBox1.Text = OpenFileDialog1.FileNameGambar :
Untuk lebih jelasnya lagi bisa langsung lihat video tutorialnya disini
Part 1 : http://j.gs/ID2 [DESIGN]
Part 2 : http://j.gs/ID3 [CODING]