BAGAIMANA VB MENGENDALIKAN PERANGKAT KERAS

Oleh: Arif Johar Taufiq

Bahasa tingkat tinggi seperti VB susah dalam mengakses lansung perangkat keras, untuk itu dijembatani dengan adanya API nya windows. Bagaimana caranya berikut ini contoh sederhana VB mengendalikan buka tutup CD drive

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 CDROM" Then
mciSendString "set CDAudio Door Open Wait", "0", "0", "0"
Command1.FontBold = True
Command1.Caption = "CLOSE CDROM"
Else
mciSendString "set CDAudio door Closed Wait", 0&, 0&, 0&
Command1.FontBold = False
Command1.Caption = "OPEN CDROM"
End If
End Sub
-------------

Private Sub Form_Load()
Command1.FontBold = False
Command1.Caption = "OPEN CDROM"
End Sub