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 ^_^
Aplikasi penghitung discount Visual Basic 6.0
Aplikasi Penghitung Discount - Anda pengusaha ? bingung mempromosikan dagangan anda ? pilihan terbaik adalah memberikan harga promo atau potongan harga. Jika anda memilih memberi potongan harga, maka anda akan mengalami kebingungan dalam menghitung berapa harga dagangan anda setelah di discount. Nah disini sini saya akan share, Penghitung Disount. Tinggal masukin harga, lalu diskon hitung deh, akan keluar harga setelah dikenakan potongan harga.
Oke, mari kita buat Aplikasi tersebut dengan mengikut langkah-langkah berikut ini :
1. Open Visual Basic 6.0, pilih standart exe
2. Buat form, pada form1 tambahkan komponen berikut ini :
- 3 Textbox (Name : Text1,Text2,Text3)
- 4 Label (Name : Label1,Label2,Label3,Label4)
- 1 Command Button (Name : Hitung)
3. Masukan script ini, cara nya, Klik kanan > View Code
Option Explicit
Dim harga As Long, diskon As Long, totalharga As Long, totaldiskon As Long
Private Sub Hitung_Click()
On Error Resume Next
harga = Text1.Text
diskon = Text2.Text
totaldiskon = harga / 100 * diskon
Text3.Text = totaldiskon
totalharga = harga - totaldiskon
Label4.Caption = totalharga
End Sub
4. Susun komponen nya sesuai selera hati anda, lalu build/run
Form login non database Visual Basic 6.0
Form login non database - Untuk menjaga data/file rahasia didalam Aplikasi anda, mungkin diperlukan hak khusus atau bisa disebut beberapa orang saja yang bisa membuka Aplikasi tersebut, nah agar tidak setiap orang bisa membuka Aplikasi anda, sebaiknya anda memberikan Form Login pada halaman awal Project anda. Sebelum anda mempelajari Form Login Database, apa salahnya belajar yang dasarnya dahulu ?
Untuk membuat Form Login sederhana/non DB, ikuti langkah-langkah berikut ini :
1. Buat 2 form (form1,form2)
2. Pada form1 tambahkan komponen berikut :
- 2 TextBox (kosongkan text , pada PasswordChar TextBox2 isi tanda bintang (*))
- 2 Label ( Caption: Username, Password)
- 2 Command Button (Login dan Exit)
3. Masukan Aplikasi anda dalam form2, karena form utama disini adalah form2
4. Selanjutnya, tinggal masukan script dibawah ini kedalam form1 :
Private Sub Command1_Click()
If Username = "VB60" And Password = "Solution" Then
frmMain.Show 'Perintah Menampilkan Form Main
Unload Me 'Menutup Form Login
Else
MsgBox "username & password yang anda masukan salah", vbCritical, "Error"
Username = ""
Password = ""
Username.SetFocus
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
5. Terakhir, build/run deh Project nya.
Soft ProgressBar Visual Basic 6.0
Soft Progressbar - Bosen sama progressbar bawaan VB 6.0 cuma gitu ? hmm, kalo gitu cobain dulu deh Soft Progressbar ini. Fungsi nya ngga berbeda, tetap sama seperti Progressbar biasa. Tetapi Progressbar ini lebih menarik daripada Progressbar bawaan VB 6.0.
JcButton Visual Basic 6.0
JcButton - Hmm, mungkin banyak yang belom ngerti ya ? oke deh, saya jelasin disini. JcButton adalah SoftButton, fungsi sama seperti CommandButton, beda nya adalah dia mempunyai style yang berbeda-beda, bahkan button WindowsXP pun bisa digunakan walaupun anda tidak memakai WindowsXP. Intinya, JcButton tidak beda fungsi dengan CommandButton, tetapi hanya berbeda Style nya saja, bisa juga disebut Button yang Elegan & Dinamis.
