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

Ditulis olehMC Project -
Artikel Terkait Tutorial VB6
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 :


Rekomendasi Web Hosting
  1. 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini (apache).
  2. 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini (litespeed).
  3. 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini (apache).
Tag