Hay para teman bloger kali ini saya
akan mempostingkan sesuatu,yaitu sesuai judulnya saya akan coba mengajari yang
belom bisa menjad bisa
Langsung
saja y caranya cukup sederhana,tapi kita harus fres otakny
Ni adalah
bahan yang kita butuhkan:
1. Visual Basic 6 (klau belum punya download sendiri di google)
2. Windows Media Player
3
3. 1 buah mouse
agar lebih cepat
Nah
selanjutnya adalah caranya:
1
1. Buka VB6-nya
lalu pilih “standard exe”
2 2. Di sini
kita membutuhkan component sebagai berikut: perhatikan y!
Nama
Component
|
Nama
|
Caption /
Text
|
Form1
|
Form1
|
VMplayer
|
CommandButton1
|
cmdadd
|
&Add
|
CommandButton2
|
cmdplay
|
&Play
|
CommandButton3
|
cmdpause
|
&Pause
|
CommandButton4
|
cmdstop
|
&Stop
|
CommandButton5
|
cmdexit
|
&Exit
|
Text1
|
txtadd
|
“kosongkan”
|
CommonDialog1
|
CD
|
“kosongkan”
|
WindowsMediaPlayer1
|
vmplayer
|
“kosongkan”
|
Cara untuk
mendapatkan CommonDialog n WindowsMediaPlayer adalah: -Pencet keyboard Ctrl+T
-Cek list pada “Microsoft Common Dialog Control 6.0 (SP6)” dan “Windows Media Player”
-Lalu klik ok
3. Lalu tata semua componentnya seperti gambar
berikut:
4. Setelah Selesai mengatur letak
sekarang masukkan kode berikut caranya klik menu “View > Code”
Ini kodenya:
Private Sub cmdadd_Click()
On Error GoTo akhir
Dim Filename As String
cd.Filter = "Semua File|*.*" 'kamu bisa merubah kode ini sesuai
dengan kebutuhan misal Image|*.jpg
cd.ShowOpen
Filename = cd.Filename
akhir:
If Len(Filename) > 0 Then
txtadd.Text = Filename
vmplayer.URL = txtadd.Text
Timer1.Enabled = True
End If
End Sub
Private Sub cmdexit_Click()
Unload Me
End Sub
Private Sub cmdpause_Click()
vmplayer.Controls.pause
Timer1.Interval = 0
End Sub
Private Sub cmdplay_Click()
vmplayer.Controls.play
Timer1.Enabled = True
End Sub
Private Sub cmdstop_Click()
vmplayer.Controls.stop
Timer1.Enabled = False
End Sub
Private Sub form_load()
txtadd.Visible = False
Timer1.Interval = 100
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
Form1.Caption = vmplayer.currentMedia.Name
End Sub
5. Setelah itu pencet F5 pada
keybord! Gimana mudahkan?
6. Terakhir yang sobat harus
lakukan adalah Make Project1.exe
Caranya klik menu “File
> Make Project1.exe...”
Selesai dech,tinggal nikmati aja buatan sendiri,semoga berhasil and then
good bye
Kalian dapat download aplikasi ya sudah jadi disini
Kalian dapat download aplikasi ya sudah jadi disini
0 komentar:
Post a Comment