Tulisan ini bersifat terbuka dan Anda bisa menyebarluaskan sebagian atau seluruh tulisan ini selama Anda menyebutkan sumber aslinya. Anda bisa memberi komentar terhadap tulisan ini melalui sony-ak@sony-ak.com. Penulis tidak bertanggung jawab atas segala sesuatu yang diakibatkan oleh tulisan ini dan semata-mata hanya untuk tujuan pendidikan.

OK, mari kita langsung saja step-by-step demo ini.
Buka Visual Basic Anda dan buatlah project baru (Standard EXE)
Tambahkan module pada project dan copy paste code di bawah ini:

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

Tambahkan dua buah button pada Form1, satu sebagai button untuk membuka CD-ROM drive dan satu lagi untuk menutup CD-ROM drive.
Copy paste code di bawah ini pada bagian deklarasi umum di Form1.

Option Explicit

Private Sub Command1_Click()
  OpenCDDoor "E"
End Sub

Private Sub Command2_Click()
  CloseCDDoor "E"
End Sub

Jalankan project di atas dengan menekan F5.

OK, inti dari demo di atas adalah pada method OpenCDDoor dan CloseCDDoor pada module. Kedua method tersebut memiliki parameter CD-ROM drive yang bertipe string. Anda tinggal memasukkan drive CD-ROM ke dalam parameter tersebut dan melakukan operasi buka atau tutup CD-ROM drive.

Sekian dulu tips kali ini dan semoga bermanfaat bagi Anda semua. Jika ada komentar atau kritik bisa dikirim melalui sony-ak@sony-ak.com.

Thanks for all readers around Indonesia.

Mission completed on 10:57 AM.