Facebook Seluler PC tanpa Browser
Skin form Visual Basic 6.0
Skin form - Form mu kurang menarik bro ? apa mungkin sudah bosan dengan form bawaan dari Windows mu ? huhuhu. Mending coba dulu deh, make ini Skin Form, apa sih guna nya Skin Form ? ya simple aja sih, guna nya cuma buat Form mu menarik bro biar ngga terlalu bosan dengan form yang itu-itu aja hehehe.
Ikuti langkah-langkah pembuatan nya berikut ini :
1. Open Visual Basic 6.0, pilih Standart Exe
2. Tekan keyboard CTRL + T, dan Browse ocx ACTSKIN4.OCX
3. Setelah itu Centang dan Apply ActiveSkin 4.0 Type Library
4. Tambahkan component AcvtiveSkin kedalam form anda
5. Setelah component ditambahkan kan, Click kanan component nya dan pilih Load Skin
6. Setelah anda memilih Load Skin, anda akan diarahkan ke form Browse file skin yang akan anda gunakan di form anda. Disini saya memilih 25.skn.
7. Nahh, skin sudah terpasang, tinggal anda memasukan Script untuk Active skin nya. Silahkan copy paste Script dibawah ini di dalam Form_Load
Skin1.ApplySkin Me.hWnd
8. Eiitss, jangan lupa, dikarenakan setiap Komputer/Laptop belum tentu memiliki OCX ActiveSkin untuk berjaga-jaga, silahkan anda tempatkan ACTSKIN4.OCX disetiap Form yang anda pasang Skin.
Pemutar music MP3 Visual Basic 6.0
Aplikasi Pemutar music MP3 - Pengen punya Winamp sendiri bro ? wuahaha, susah bro buat skin kayak Winamp tapi slow, saya secepatnya akan merilis Sourcecode Winamp Player bro wkwkwkwk, Insyaallah bro kalo tidak ada halangan. Oke, daripada ngidam pengen buat Winamp sendiri dan ngga keturutan mending buat yang Sederhana dahulu, karena Ilmu itu dimulai dari Dasarnya :) Disini saya akan share tutorial sekalian sourcecode Simple MP3 Player.
Oke, mari kita buat Aplikasi tersebut dengan mengikut langkah-langkah berikut ini :
1. Open Visual Basic 6.0, pilih Standart exe.
2. Tekan keyboard CTRL + T, dan pilih component dibawah ini :
- Microsoft Common Control 6.0
- Microsoft Multimedia 6.0
3. Tambahkan component seperti 1 Command, Multimedia Control, Common Dialog Control dan 1 buah label. Masing-masing Component satu buah dan atur sedemikian rupa atau kurang lebih tampak seperti gambar berikut ini.
4. Jika sudah, silahkan masukan code-code ini ke Form Project anda :
Private Sub Command1_Click()
CommonDialog1.CancelError = True
CommonDialog1.Filter = "MP3 (.Mp3)|*.Mp3|Wav (.Wav)|*.Wav|Mpg (.Mpg)|*.Mpg|Flv (.Flv)|*.Flv|3gp (.3gp)|*.3gp|AVI (.Avi)|*.Avi|Mp4 (.Mp4)|*.Mp4|All Files (*.*)|*.*"
CommonDialog1.FileName = "*.Mp3"
CommonDialog1.DialogTitle = "Open Animation"
On Error GoTo ErrorHardler2
CommonDialog1.ShowOpen
MMControl1.Command = "stop"
On Error GoTo ErrorHardler1
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "Open"
Label2.Caption = CommonDialog1.FileTitle
Exit Sub
ErrorHardler1:
MsgBox "Cannot Play That File.", vbExclamation
ErrorHardler2:
End Sub
Private Sub Command2_Click()
End
MMControl1.Command = "stop"
End Sub
Private Sub Form_Activate()
Label2.ForeColor = vbBlack
End Sub
Private Sub Form_Load()
MMControl1.TimeFormat = mciFormatMilliseconds
Label1.Caption = "Sttatus = Frezze"
End Sub
Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "Stop"
MMControl1.Command = "Close"
End Sub
Private Sub MMControl1_StatusUpdate()
Dim strMode As String
strMode = ""
Select Case MMControl1.Mode
Case mciModeReady
strMode = "Ready."
Case mciModeStop
strMode = "Stopped."
Case mciModeSeek
strMode = "Seeking."
Case mciModePlay
strMode = "Playing."
Case mciModeRecord
strMode = "Recording."
Case mciModePause
strMode = "Paused."
End Select
Label1.Caption = "Status = " & strMode
End Sub
5. Selesei sudah, silahkan anda coba/build :)
Untuk anda, yang tidak mau repot-repot coding diatas, bisa juga kok langsung download Project nya :D
tinggal edit-edit aja sesuka hati anda gratis pula, hmmm wkwkwk. Daaan, jangan lupa, selalu berikan credit pemilik nya ya ^_^
