Posts Subscribe comment Comments

Wednesday, April 23, 2025

SAMPLE



Thanks For

rumahku sorgaku » » Cara membuat Mp3 sederhana dgn VB6

Cara membuat Mp3 sederhana dgn VB6

Cara Membuat Mp3 Sederhana !!
------------------------------------------------------------------------

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

ComoonDialog1 = CD1
Timer 1 = Timer2
Timer 2 = Timer3
Multimedia Control 6.0 = mmcaudio
Listbox = listpl
ComandButton = CMD_PILIH
------------------------------------------------------------------------
 Copy Form Dgn SC di bawah ini



'Source Code By tiazz
'Mp3 Sederhana tiazz
'Kenzo.Forumid.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()
CenterForm Me
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"
MsgBox "Mp3 Sederhana tiazz ", vbInformation, "\m/"
End Sub


Private Sub Form_Unload(cancel As Integer)
mmcaudio.Command = "close"
End Sub

'Kode Di Bawah Ini Untuk Search Lagu

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 Sederhana tiazz "
CD1.FileName = ""
CD1.ShowOpen
buka = CD1.FileName
If CD1.FileName = "" Then
Exit Sub
Else
listpl.AddItem CD1.FileTitle
End If
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
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

Private Sub CenterForm(frm As Form)

frm.Top = Screen.Height / 2 - frm.Height / 2
frm.Left = Screen.Width / 2 - frm.Width / 2
End Sub

thank'z

Saya Harap Ini Tutor Dapat Kalian Kembangkan Oke :)>- :)>-

Kalo Postingan Ini Berguna Klik Lah Posted ImagePosted Image 

 

0

Silahkan Tulis Komentar Anda ...