Senin, 14 April 2014
Trik VB Membuat MP3 Player
Trik VB Membuat MP3 Player - Pada kesempatan kali ini aku mau berbagi informasi tentang trik-trik pemrrograman visual basic tentang bagaimana cara membuat aplikasi MP3 Player di VB 6.0. Berikut caranya:
1. Buka program VB 6.0 dan pilih Standart.EXE
2.Masukkan 5 buah CommandButton, 1 buah komponen media player (msdxm.ocx) dan 2 buah ListBox kedalam Form1. Atur Posisinya seperti gambar di bawah ini:
3. Ganti Caption dari setiap tombol menjadi :
4. Masukkan 1 buah Form (Form2) kedalam Projects dan tambahkan 1 buah DriveListbox, 1 buah DirListbox, 2 buah CommandButton dan 1 buah FileListBox kedalam Form2. Atur seperti gambar di bawah ini:
Ubah Caption Command1 = Add dan Caption Command2 = Cancel
Untuk FileListBox ubah Pattern = *.mp3
Tampilan Form2 akan menjadi seperti ini :
5. Masukkan lagi 1 buah Form (Form3) ke dalam Project anda dan tambahkan 1 buah DriveListBox, 1 buah DirListBox, dan 2 buah CommandButton. Atur Seperti gambar di bawah ini:
Ubah Caption Command1 = Add dan Caption Command2 = Cancel
6. Ubah Properties dari Form1, Form2 & Form3
a. Form1
Caption = Mp3 Player
StartUpPosition = 2-Center Screen
b. Form2
Caption = Add File
StartUpPosition = 2-Center Screen
c. Form3
Caption = Add Foler
StartUpPosition = 2-Center Screen
7. Kode/ Listing Form1
Private Sub Command1_Click()
MediaPlayer1.Open List2
End Sub
Private Sub Command2_Click()
MediaPlayer1.Stop
End Sub
Private Sub Command3_Click()
If MediaPlayer1.IsDurationValid = False Then Exit Sub
If Command3.Caption = "Pause" Then
MediaPlayer1.Pause
Command3.Caption = "Resume"
Else
MediaPlayer1.Play
Command3.Caption = "Pause"
End If
End Sub
Private Sub Command4_Click()
Form2.Show
End Sub
Private Sub Command5_Click()
Form3.Show
End Sub
Private Sub List1_Click()
List2.ListIndex = List1.ListIndex
End Sub
Private Sub List1_DblClick()
Command1_Click
End Sub
8. Kode/ Listing Form2
Private Sub Command1_Click()
Form1.List1.AddItem File1
Form1.List2.AddItem Dir1.Path & "" & File1
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1
End Sub
Private Sub File1_DblClick()
Form1.List1.AddItem File1
Form1.List2.AddItem Dir1.Path & "" & File1
End Sub
9. Kode/Listing Form3
Private Sub Command1_Click()
Dim a As Long
Dim b As String
If File1.ListCount = "0" Then Exit Sub: MsgBox "No files"
For a& = 0 To File1.ListCount - 1
Form1.List1.AddItem File1.List(a&)
Form1.List2.AddItem Dir1.Path & "" & File1.List(a&)
Next a
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1
End Sub
8. Test program (tekan F5)
Selamat mencoba dan Semoga Bermanfaat
sumber: http://rudymaturbongs.blogspot.com/2010/09/buat-mp3-player-dengan-vb-60.html
Daftar Software Akuntansi Gratis Terbaik
Daftar Software Akuntansi Gratis Terbaik - Mayoritas Software Akuntansi memiliki fungsi seperti untuk mengetahui saldo, hutang, piutang, gaji, dll. Ada beberapa software yang dapat melayani fungsi-fungsi yang sama dengan tampilan yang cukup bagus. Saya mencoba mengumpulkan daftar software akuntansi gratis terbaik yang dapat menghemat uang, dan dapat dengan mudah kita kelola.Meskipun masih banyak software lain yang lebih baik dari semua ini, namun putusan akhir akan selalu terus berubah untuk orang ke orang sesuai dengan kebutuhan dan kebutuhan proyek. Mari kita berharap software ini dapat melayani tujuan memecahkan masalah account Anda dalam kehidupan sehari-hari.
1. Apache OFBiz
Open For Business (OFBiz) adalah aplikasi perusahaan dibangun menggunakan data, logika dan komponen proses yang pada umumnya di gunakan. Sangat Flexible ditambah aplikasi yang dapat disesuaikan sehingga membuat setiap komponennya mudah dipahami. OFBiz memudahkan efisien mengembangkan dan memelihara aplikasi enterprise.
Apache OFBiz menawarkan sejumlah besar fungsionalitas termasuk: Akuntansi (Perjanjian, Invoice, Vendor Management, General Ledger), Pemeliharaan Aset, Katalog dan Manajemen Produk, Fasilitas dan Manajemen Gudang, Manufaktur, Order Processing, Inventory Management, saham dll pengisian ulang otomatis, Sistem manajemen konten (CMS), sumber daya manusia (SDM), Manajemen Proyek, Sales Force Automation, Kerja Manajemen Usaha, Elektronik point of sale (EPOS), Electronic commerce (eCommerce)
2. Gnucash
GnuCash adalah aplikasi untuk pribadi dan Software akuntansi keuangan untuk usaha berskala kecil, software ini dilisensikan gratis di bawah GNU GPL dan tersedia untuk GNU / Linux, BSD, Solaris, Mac OS X dan Microsoft Windows.
Dirancang untuk mudah digunakan, namun kuat dan fleksibel, GnuCash memungkinkan Anda untuk melacak rekening bank, saham, pendapatan dan beban. Cepat dan intuitif untuk digunakan seperti checkbook register, didasarkan pada prinsip-prinsip akuntansi profesional untuk memastikan neraca seimbang dan membuat laporan yang akurat.
3. Grisbi
Grisbi adalah aplikasi akuntansi personal berjalan di bawah GNU / Linux dan Windows, dirilis di bawah lisensi GPL setup. Mereka menyediakan Anda dengan paling sederhana dan intuitif perangkat lunak dasar untuk digunakan, dan masih sangat kuat jika Anda menghabiskan sedikit waktu di.
Grisbi dapat mengelola beberapa account, mata uang dan pengguna. Ia mengatur pengeluaran pihak, ketiga dan kategori penerimaan, serta garis anggaran, tahun keuangan, dan informasi lain yang membuatnya cukup disesuaikan untuk asosiasi (kecuali yang memerlukan akuntansi double entry).
4. HomeBank
Software ini dirancang untuk mudah digunakan. Analisis keuangan Anda secara detail menggunakan alat-alat penyaringan yang kuat dan grafik yang cukup menarik. Manfaatnya adalah dari lebih dari 14 tahun pengalaman pengguna dan umpan balik. pengembangannya dimulai pada tahun 1995 di komputer Amiga. Software ini tersedia untuk 50 bahasa di GNU / Linux, FreeBSD, Microsoft Windows, MacOSX.
5. jGnash
jGnash adalah keuangan pribadi cross platform aplikasi yang ditulis dalam Java. jGnash adalah sistem double entry dengan dukungan untuk beberapa mata uang. jGnash dapat mengimpor file GnuCash dan QIF.
6. KMyMoney
KMyMoney adalah manajer keuangan pribadi untuk KDE. Sistem ini beroperasi dalam cara yang mirip dengan Microsoft Money yang didukung jenis account yang berbeda, kategorisasi biaya dan pendapatan, rekonsiliasi rekening bank dan impor / ekspor ke format “QIF” file.
7. LedgerSMB
LedgerSMB adalah sebuah program akuntansi keuangan open souce. Pada vesi 1.2, menawarkan cukup padat AR, AP, dan GL pelacakan serta pengendalian persediaan. LedgerSMB bekerja dengan baik pada platform UNIX termasuk Linux, BSD, dan Apple OS X, dan juga diuji pada Windows.
8. SQL-Ledger
SQL – Ledger adalah sistem akuntansi entri ganda. Akuntansi data disimpan dalam server database SQL, sedang untuk menampilkan teks atau browser GUI dapat digunakan SQL-Ledger yang merupakan platform independen dan berjalan pada setiap OS. NIX, Mac atau komputer Windows. SQL-Ledger bisa diakses dari jarak jauh sehingga orang dapat mengaksesnya meskipun berada di sebuah negara, kota atau di belahan dunia yang berbeda.
9. Turbocash
TurboCash merupakan software akuntansi paket perangkat lunak bebas, dikembangkan oleh sebuah tim proyek yang dipimpin oleh Philip Copeman, seorang Afrika Selatan. Software ini secara terus menerus dikembangkan sejak April 1985, dan dirilis di bawah GNU General Public License pada bulan Juli 2003.
Semoga Daftar Software Akuntansi Gratis Terbaik Untuk Berbisnis di atas bisa bermanfaat ^^
sumber: http://skybows.wordpress.com/2010/10/14/9-software-akuntansi-gratis-terbaik-untuk-bisnis-anda/
Langganan:
Postingan (Atom)