Indonesia Cyber Game Hacking Community
Silahkan REGISTER Bagi Yang Belum Mempunyai ID,Atau LOG IN bagi yang sudah memiliki akun


@Hormat Kami Team Karameca



Indonesia Cyber Game Hacking Community

Karameca's Forum
 
IndeksPortalCalendarFAQPencarianAnggotaPendaftaranLogin
Login
Username:
Password:
Login otomatis: 
:: Lupa password?
Pencarian
 
 

Display results as :
 
Rechercher Advanced Search
Affiliates
free forum

Keywords
Top posters
™Risman|-|Karameca™
 
AnonymousHacker
 
Sofian Karameca II
 
chelbapolanda
 
egysaputra
 
|Hacker|
 
rio77
 
LisaCintakamu
 
Anis
 
arjuna
 
How Online
Visitor
adf.ly - shorten links and earn money!

Diztroya - My Pride
Mp3-Codes.com

Share | 
 

 Cara Membuat MP3 Sederhana

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
reynal
Warga
Warga


Jumlah posting : 6
Reputation : 0
Join date : 05.09.11

PostSubyek: Cara Membuat MP3 Sederhana   Sun Sep 18, 2011 7:43 am

Tutorial Membuat MP3 Sopware Sederhana

Creates By : Reynal Alfajri
Source By : Reynal Aflajri

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 Reynaldi Alfajri
'Mp3 Sederhana
'karameca.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()
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
Kembali Ke Atas Go down
Lihat profil user
 
Cara Membuat MP3 Sederhana
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» (bagaimana) cara membuat peringatan di chatbox?
» Arsip: Cara Membuat Jumlah Posting,Birthday,Join Date,Webs Seperti Ini
» [Tutorial] Cara membuat forum forumotion
» Cara membuat pendataan&list list barang menjadi seperti di sini?
» [Blender] How to Cellshading

Permissions in this forum:Anda tidak dapat menjawab topik
Indonesia Cyber Game Hacking Community :: Cyber :: Programing :: Visual Basic-
Navigasi: