Program Membuka dan Menutup CD/DVD Rom

Nah bila anda sering membackup data dengan cd/dvd pasti anda masih akan membuka cd/dvd dengan menekan tombol open pada cd/dvd rom-nya.jika seperti itu, maka akan terasa lama jika masih membuka dengan menekan tombol open tersebut yang terdapat pada cd/dvd rom tersebut.untuk meringankan/mempercepat pembukaan cd/dvd rom tanpa menekan tombol tersebut,mari kita mencoba untuk membuat programnya dengan menggunakan visual basic.

Ini berbeda dengan program lainnya karena membutuhkan module untuk menampung kode-kode.untuk menambah module pada project anda mudah sekali yaitu dengan mengklik project pada menubar lalu pilih add module kemudian open, maka modulenya akan muncul.

Adapaun cara untuk membuat program tersebut ikuti langkah-langkah berikut.

1. Tambahkan kontrol-kontrol berikut pada form dan atur propertiesnya.

   Jenis Kontrol	Nama Kontrol	Properties	Nilai
   Form	Form1	Caption	CD Rom
   		BackColor	&H00000000&
   Module	Module1	-	-
   Label	Label1	Caption	Program Untuk Membuka dan Menutup CD/DVD Rom
   		ForeColor	&H000000C0&
   CommandButton	Command1	Caption	Open
   CommandButton	Command2	Caption	Close

   
   
2. Susunlah kontrol-kontrol tersebut sehingga tanpak seperti gambar dibawah ini.
3. Tulis kode dibawah ini pada kode editor.

Tulis kode dibawah ini pada module yang telah ditambah pada project anda.

Option Explicit
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
Public Function OpenCDDoor(ByVal drv As String) As Long
Dim Alias As String
Dim retval As Long
Alias = "Drive" & drv
retval = -1
retval = mciSendString("open " & drv & ": type cdaudio alias " & Alias _
& " wait", vbNullString, 0&, 0&)
retval = mciSendString("set " & Alias & " door open", vbNullString, 0&, _
0&)
OpenCDDoor = retval
End Function
Public Function CloseCDDoor(ByVal drv As String) As Long
Dim Alias As String
Dim retval As Long
Alias = "Drive" & drv
retval = -1
retval = mciSendString("set " & Alias & " door closed", vbNullString, _
0&, 0&)
retval = mciSendString("close " & Alias, vbNullString, 0&, 0&)
CloseCDDoor = retval
End Function

Dan tulis kode dibawah ini pada form yang telah tersedia

Option Explicit
Private Sub Command1_Click()
OpenCDDoor "E"
End Sub
Private Sub Command2_Click()
CloseCDDoor "E"
End Sub

4. simpan form dan project serta module anda.
5. jalankan program tersebut, dan lihatlah hasilnya…!klik open untuk membuka cd/dvd rom,dan klik close untuk menutup cd/dvd rom.maka anda tidak akan merasa lama jika ingin membuka atau menutup cd/dvd rom dengan program tersebut.

Jika menurut anda kurang menarik program tersebut,anda bisa menambah sendiri sesuai dengan keinginan anda.