Buka - Tutup CD ROM 2

Pada kali ini saya akan mencoba lagi cara membuka dan menutup CD ROM versi 2 hanya dengan Visual Basic. Banyak cara yang dilakukan oleh para programmer. Ada yang menggunakan VB, Borland Delphi maupun pakai Aplikasi yang lain.

Langsung aja buatnya ya...!


1. Anda cukup membuat form baru seperta pada gambar diatas.
2. Letakkan kode dibawah ini pada kode editor.
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 Sub Command1_Click()
If Command1.Caption = "&Open CD-Room" Then
retvalue = mciSendString("set CDAudio door open", _
returnstring, 127, 0)
Command1.Caption = "&Close CD-Room"
Else
retvalue = mciSendString("set CDAudio door closed", _
returnstring, 127, 0)
Command1.Caption = "&Open CD-Room"
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "&Open CD-Room"
End Sub

3. Simpan dan jalankan program tersebut.

Bagaimana hasilnya...?
Asyikkan....!

Selamat Mencoba...!