Aplikasi Buka Tutup CD Drive - CD Rom

6:05:00 PM
Pada Pembelajaran VB 6.0 kali ini akan dibahas mengenai cara membuat Aplikasi Buka Tutup CD / DVD Drive atau CD Rom pada VB 6.0

Berikut langkahnya :
Buatlah sebuah Project VB 6.0 dengan ditambahkan Form1 dan Module

Berikut Koding untuk Module1



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




dan Berikut untuk Form1
Gambar diatas hanya ditambahkan Command1 dan Command2

Private Sub Command1_Click()
  retvalue = mciSendString("set Cdaudio door open", returnstring, 127, 0)
End Sub

Private Sub Command2_Click()
  retvalue = mciSendString("set Cdaudio door closed", returnstring, 127, 0)
End Sub


Silahkan di Run Aplikasinya:)

KLIK DISINI UNTUK DOWNLOAD

Salam,
BelajarVB.com

Artikel Terkait

Next Article
« Prev Post
Previous Article
Next Post »
Penulisan markup di komentar
  • Untuk menulis huruf bold silahkan gunakan <strong></strong> atau <b></b>.
  • Untuk menulis huruf italic silahkan gunakan <em></em> atau <i></i>.
  • Untuk menulis huruf underline silahkan gunakan <u></u>.
  • Untuk menulis huruf strikethrought silahkan gunakan <strike></strike>.
  • Untuk menulis kode HTML silahkan gunakan <code></code> atau <pre></pre> atau <pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
Konversi Code
Disqus
Silahkan Berkomentar Dengan