Source Code Aplikasi Membuka & Menutup CD/DVD ROM Drive di VB6.0

Pada kesempatan ini Mycoding.net berbagi artikel tentang yang berjudul .

Cara Membuat Tombol untuk Membuka dan Menutup CD/DVD ROM Drive di Form Visual Basic 6.0 - Setiap kita pasti pernah memutar sebuah film atau musik dengan menggunakan piringan CD/DVD, baik pada komputer maupun pada alat pemuatar lainnya yang berupa pemutar VCD yang di hubungkan dilayar Televisi atau berupa vidio dan musik berupa MP3.

Pada saat kita menggunakan komputer dan ingin memainkan musik di dalam VCD atau vidio bahkan menginstall aplikasi pada sebuah komputer, kita pasti akan menekan tombol kotak CD ROOM DRIVE supaya kotak CD ROM Drive terbuka dengan menggunakan tangan.Nah kali tip dan trik visual ingin membuat trik bagaimana cara membuat tombol membuka dan menutup CD-ROOM Drive di sebuah layar atau form sehingga kita tidak perlu menggunakan tangan kita, kita cukup dengan mengkliknya di form yang kita buat sendiri dengan mouse sehingga kotak CD ROM drive terbuka otomatis.

Salah satu fungsi yang di miliki berbagai kegunaan dalam visual basic adalah fungsi mciSendString,.Tip berikut ini mengajarkan kepada Anda bagaiman cara memanfaatkan fungsi tersebut untuk fungsi tersbut untuk membuka dan menutup CD ROM drive dari form buatan Anda sendiri.
Source Code Aplikasi Membuka dan Menutup CD/DVD ROM
Berikut adalah langkah-lamgkah dalam pembuatannya :

Source Code Aplikasi Membuka dan Menutup CD/DVD ROM

1. Buka Form Standar EXE VB6 Anda
2. Letakan 2 buah CommandButton pada form.Kemudian atur properti pada Command1 dan Command2 dibawah ini:
- Command1     Caption : BUKA CD DRIVE
- Command2     Caption : TUTUP CD DRIVE

2. Buka jendela Module dengan cara klik Project, kemudian klik Add Module dan ketikan kode dibawah ini di dalam module Anda:

Public 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

3. Setelah itu buka jendela kode form, kemudian ketikan kode berikut ini:

Option Explicit
Dim achan

Private Sub Command1_Click()
achan = mciSendString("set cd door open", 0, 0, hwnd)
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
achan = mciSendString("set cd door closed", 0, 0, hwnd)
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Form_Load()
achan = mciSendString("close all", 0, 0, hwnd)
achan = mciSendString("open cdaudio alias cd wait shareable", 0, 0, hwnd)
End Sub

4. Simpan hasil pekerjaan Anda dan jalankan Program.

Catatan:
Tekanlah Tombol "BUKA CD DRIVE" maka tombol "BUKA CD DRIVE" menjadi tidak aktif dan ajaib kotak Drive CD ROM Anda terbuka otomatis, untuk menutupnya kembali tekan Tombol "TUTUP CD DRIVE".

Sekian Source Code Aplikasi Membuka dan Menutup CD/DVD ROM Drive di VB6.0.


Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :

Kategori artikel yang terkait dengan Visual Basic 6.0

Visual Basic 6.0, Panduan VB6, Belajar VB6 Lengkap, Tutorial VB6, Belajar VB6 Pdf, Pemrograman VB6
Untuk mendapat notifikasi artikel terbaru, masukkan e-mail anda disini :
Selanjutnya cek e-mail untuk verifikasi.
Kincai Coding Panduan Belajar Database dan Tutorial Pemrograman Terlengkap di Indonesia. Dapatkan Kumpulan Source Code Program Aplikasi dan Ebook Secara Gratis. Ikuti kami di Facebook, Instagram & Sosial Media Lainnya.