Jalankan MP3 tanpa OCX (bag.2)

Pada artilkel sebelumnya, kita telah mendeklarasikan hal-hal yang diperlukan. sekarang ini, masuklah kita kepada menulis fugnsi-fungsi yang diperlukan dan mencegat beberapa event.

Fungsi yang diperlukan adalah:

Jalankan MP3 tanpa OCX dengan VB 6.0

Tip kali ini adalah membuat sebuah player sederhana MP3 dengan menggunakan VB. Tidak seperti program-program lain yang menggunakan control atau komponen OCX, aplikasi ini
hanya menggunakan pemanggilan fungsi API.

Fungsi API yang penting dalam membuat aplikasi ini adalah fungsi mciSendString. Fungsi mciSendString berguna untuk mengirimkan perintah
ke device MCI. Jika sukses maka return value atau nilai yang dikembalikan adalah 0.

Langkah-langkah untuk membuat aplikasi ini adalah:

1) Buat form dengan sebuah textbox,

5 buah command button, dan sebuah check box. Command button yang pertama (command1) digunakan untuk membuka file MP3 yang hendak di-play. Command button ke-2 (command2) digunakan untuk mem-pause saat MP3 sedang dijalankan, command button ke-3 (command3) digunakan untuk menutup file MP3 yang sedang dijalankan, command button ke-4 (command4) digunakan untuk me-reset atau me-restart file MP3 yang sedang dijalankan, dan terakhir command button ke-5 (command5) digunakan un- tuk keluar dari program.
Check box digunakan untuk mengatur apakah
file MP3 yang di-play akan diulang atau tidak.
Tambahkan sebuah timer dengan nama timer1,
dan dialog box dengan nama dialogbox1.

2) Deklarasi yang digunakan adalah:
Private Declare Function mciGetErrorString _
Lib "winmm.dll" Alias "mciGetErrorStringA"
(ByVal dwError As Long, _
ByVal lpstrBuffer As String, ByVal uLength As
Long) As Long
Private Declare Function mciSendString _
Lib "winmm.dll" Alias "mciSendStringA" (ByVal
lpstrCommand As String, _
ByVal lpstrReturnString As String, ByVal
uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
Private mmOpen As String, sec As Integer, mins

As Integer
Dim nFileName As String

A. Koneksi Database.

Sebagai Latihan awal, buatlah database di Ms.Access Simpan di
D:\nama_nim\data1.mdb. Buatlah table dengan nama MHS sebagai berikut :




Kemudian jika perlu, isi field-filed pada NIM, Nama dan Alamat sebagai contoh.

Save, kemudian, lihat versi office anda, jika bukan versi 1997 ( office 2000 atau XP ),
maka konversikan ke 1997 format, caranya :

1. Klik Tools, Database utilities, Convert database, to Access 97 format.
2. Simpan di folder yang sama, beri nama dataku.mdb, klik ok, kini tersedia
   database dengan nama dataku dengan Ms.Access versi 97.
   Keluar dari Ms.access.

Bekerja dengan Microsoft Visual Basic 6.0.(VB).

Langkah – Langkahnya :

• Masukkan Komponen Label,Text,Command, Data, dan DBGrid, ke dalam
  Form aktif/ form kerja kita,namun, kadangkala DB Grid tidak otomatis ada,
  maka kita menambah komponen dengan cara klik kanan toolbox, klikComponents :

• Pilih Microsoft Databound Grid Control 5.0 (SP3), Klik Apply,klik close.






• Sekarang buat tampilan sebagai berikut dengan objektext,label,command,data, dan DB Grid :






• Set propertinya sebagai berikut :
  
  
• Simpan form & Projectnya di folder tempat anda menyimpan database.
  
• Cara memasukkan script adalah double click pada objeknya, berikut listing /
  script programingnya :
  
  bersambung....... (part 2)

1. Cepat, karena diletakkan di halaman HTML, dan dapat langsung dicoba di browser.
2. Mudah, karena memiliki sediit sintaks.
3. Terbuka, (Platform Independent).
4. Ukurannya sangat kecil dibandingkan dengan pemrograman Java.

Sedangkan kekurangan dari bahasa pemrograman JavaScript antara lain yaitu :

1. Tidak dapat membuat program aplikasi secara tersendiri (mandiri tanpa bantuan aplikasi lain).
2. Objek yang dikelola JavaScript sangat terbatas.
3. Scriptnya dapat disalin atau di-copykan dari Web browser, sehingga setiap orang dapat menggunakan program JavaScript yang telah kita ciptakan.

Jaman sekarang komputer bukan lagi benda yang langkah dan dan sulit untuk mempelajarinya. Saat ini semua bidang pekerjaan menggunakan komputer, oleh karena itu setiap orang jaman sekarang harus mengetahui komputer. Di sini saya akan perkenalkan panduan mengenai komputer

1. Merakit Komputer : Bagi anda yang ingin memiliki komputer yang sesuai dengan keiinginan anda dan juga seuai dengan kemampuan biaya yang anda miliki bisa download cara merakit komputer Disini
   
2. Pengenalan komputer klik Disini
   
3. Belajar jaringan komputer klik Disini atau Disini
4. Belajar Jaringan komputer dengan Linux klik Disini atau Disini
   
5. Tutorial belajar Microsoft Office; klik Disini
   
6. Belajar program Visual Basic klik disini
7. Panduan Menginstal Windows XP klik Disini
8. Panduan belajar Windows Vista klik Disini
9. Buku cara Menginstal Os Linux Unbuntu klik Disini
   

Private Sub Form_Activate()
Text1. MaxLength = 8
Text2. MaxLength = 8
Text1. SetFocus
End Sub

Private Sub Form_Load()
‘Mendisable-kan menu utama dan submenunya.
MainMenu.mnData = False
MainMenu.mnLaporan = False
MainMenu.smLogin = False
Main Menu.sm Logout = False

Private Sub Text1_KeyPress (keyascii As Integer)
If keyascii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress (keyascii As Integer)
If keyascii = 13 Then
Command1_Click
End If
End Sub

Private Sub Command1_Click()
If Text1.Text = ‘Admin’ and Text2.Text = “zf_1221” Then
‘Mengenable-kan menu utama dan submenunya kecuali menu login.
MainMenu.mAdmin = True
MainMenu.mnData = True
MainMenu.mnLaporan = True
MainMenu.smLogin = False
Main Menu.sm Logout = True
Unload Me
ElseIf If Text1.Text = ‘’ and Text2.Text = “” Then
Pesan = MsgBox(“Woiy, form login musti diisi tuch…!!”, -
0, “informasi”)
Text1.SetFocus
Else
Pesan = MsgBox(“Anda tidak berhak mengakses program ini”, -
0, “Akses diTOLAK…!!”)
Text1.SetFocus
End If
End Sub





Baca juga artikel menarik ini: Harga Jual Blackberry IPhone Laptop Murah
Blackbery
Iphone
Solusi Forum Komunitas Online Indonesia Thumblr
Spesifikasi iPHONE
HiPhone, hasil Kloningan iPhone
HiPhone dan Smart Phone Cina
Solusi Forum Komunitas Online Indonesia
Produk Unggulan BlackBerry
Model Blackberry
Kontroversi Blackberry
Harga Serba Murah Jual Blackberry IPhone
Harga Serba Murah Jual Blackberry IPhone
Kecil Jadi Kawan, Besar Jadi Lawan
Mohon dukungannya yach....!!
:)