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
SAGA point NINJA extreme masmed cheat blank Weapon pass wallhack injector 2013 strike password counter Cara Lost gratis tanpa hack char karameca pointblank auto Membuat mayor
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: