TKJ 2 comunity

forum ini khusus buat para TKJ lovers
 
IndeksCalendarFAQPencarianAnggotaGroupPendaftaranLogin

Share | 
 

 Cara buat Mp3 Sederhana

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
uzumady
Admin
Admin
avatar

Jumlah posting : 44
ES Oyen : 0
Join date : 12.01.11
Lokasi : MAGREZZZZZZZZZZZ

PostSubyek: Cara buat Mp3 Sederhana    Wed Mar 02, 2011 3:27 pm

tutorial membuat Mp3 Sederhana

Code:
Cara Membuat Mp3 Sederhana !!
------------------------------------------------------------------------

Bahan :
1 ComoonDialog
2 Timer
1 Multimedia Control 6.0
1 Listbox
1 ComandButton
3 Text Box
------------------------------------------------------------------------
Beri nama :

ComoonDialog1 = CD1
Timer 1 = Timer2
Timer 2 = Timer3
Multimedia Control 6.0 = mmcaudio
Listbox = listpl
ComandButton = CMD_PILIH
Text 1 : txt_title
Text 2 : txt_artist
text 3 : txt_album
------------------------------------------------------------------------

Lalu Copy Code Dibawah ini di form

Code:
'Source By Uzumady
'Mp3 Sederhana
'tkj2.indonesianforum.net

Dim buf As String * 256
Dim a As String, b As String, c As String, D As String, e As String
Dim getag
Private Sub Form_Load()
Dim app_path As String
app_path = App.Path
If Right$(app_path, 1) <> "" Then
app_path = app_path & ""
End If
mmcaudio.Notify = False
mmcaudio.Wait = True
mmcaudio.Shareable = False
mmcaudio.Command = "close"
End Sub

Private Sub Form_Unload(cancel As Integer)
mmcaudio.Command = "close"
End Sub
Private Sub CMD_PILIH_Click()
Dim buka As String
CD1.Filter = "MP3 Files|*.mp3|All Audio files|*.3gp;*.mp3;*.wav;**.DAT;.wma;*.mid|All files|*.*"
CD1.DialogTitle = "Mp3 Windows Tools "
CD1.FileName = ""
CD1.ShowOpen
buka = CD1.FileName
If CD1.FileName = "" Then
Exit Sub
Else
listpl.AddItem CD1.FileTitle
End If
End Sub



Private Sub CMD_Exit_Click()

End Sub

Sub keterangan()
fizilepath = listpl.Text
If fizilepath <> "" Then
Open fizilepath For Binary As 1: N& = LOF(1): Get #1, (N& - 256), buf: Close 1
getag = InStr(1, buf, "tag", 1)
If getag = 0 Then
a$ = "-"
b$ = "-"
c$ = "-"
D$ = "-"
e$ = "Keterangan File Tidak diketahui"
Else
a$ = Mid$(buf, getag + 3, 30)
b$ = Mid$(buf, getag + 33, 30)
c$ = Mid$(buf, getag + 63, 30)
D$ = Mid$(buf, getag + 93, 4)
e$ = Mid$(buf, getag + 97, 30)
End If
txt_title.Text = a$
txt_artist.Text = b$
txt_album.Text = c$
End If
End Sub


Private Sub listpl_DblClick()
mmcaudio.Command = "Stop"
mmcaudio.Command = "Close"
mmcaudio.FileName = listpl.Text
mmcaudio.Command = "Open"
mmcaudio.Command = "Play"
keterangan
End Sub

Private Sub Timer2_Timer()
jam.Caption = Format(Now, "dddd, d MMMM yyyy HH:MM:SS")
End Sub

Private Sub Timer3_Timer()
Dim s As String
s = frmSplash.Caption

frmSplash.Caption = s
End Sub

'thankz

Masih Bingung ?
Download Source Code Siap Edit : Click Hare
Kembali Ke Atas Go down
Lihat profil user http://www.samwanwebster.co.cc
 
Cara buat Mp3 Sederhana
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» (WTA) bagaimana cara buat dudukan plat nomor di depan
» WTA - cara pasang lampu sein tempel
» [Tutorial] Cara membuat forum forumotion
» [ASK] Fungsi "Lowering Kit" Ninja 250r
» Sticker Logo ZX-250R

Permissions in this forum:Anda tidak dapat menjawab topik
TKJ 2 comunity :: VB 6-
Navigasi: