Source Code Aplikasi Membuka & Menutup CD/DVD ROM Drive di VB6.0

Source Code Aplikasi Membuka & Menutup CD/DVD ROM Drive di VB6.0

Pada kesempatan ini TeknoTips.NET akan mengulas tentang "" dengan judul artikel "Source Code Aplikasi Membuka & Menutup CD/DVD ROM Drive di VB6.0".

Cara Membuat Tombol untuk Membuka dan Menutup CD/DVD ROM Drive di Form Visual Basic 6.0 - Setiap kita pasti pernah memutar sebuah film atau musik dengan menggunakan piringan CD/DVD, baik pada komputer maupun pada alat pemuatar lainnya yang berupa pemutar VCD yang di hubungkan dilayar Televisi atau berupa vidio dan musik berupa MP3.

Pada saat kita menggunakan komputer dan ingin memainkan musik di dalam VCD atau vidio bahkan menginstall aplikasi pada sebuah komputer, kita pasti akan menekan tombol kotak CD ROOM DRIVE supaya kotak CD ROM Drive terbuka dengan menggunakan tangan.Nah kali tip dan trik visual ingin membuat trik bagaimana cara membuat tombol membuka dan menutup CD-ROOM Drive di sebuah layar atau form sehingga kita tidak perlu menggunakan tangan kita, kita cukup dengan mengkliknya di form yang kita buat sendiri dengan mouse sehingga kotak CD ROM drive terbuka otomatis.

Salah satu fungsi yang di miliki berbagai kegunaan dalam visual basic adalah fungsi mciSendString,.Tip berikut ini mengajarkan kepada Anda bagaiman cara memanfaatkan fungsi tersebut untuk fungsi tersbut untuk membuka dan menutup CD ROM drive dari form buatan Anda sendiri.
Source Code Aplikasi Membuka dan Menutup CD/DVD ROM
Berikut adalah langkah-lamgkah dalam pembuatannya :

Source Code Aplikasi Membuka dan Menutup CD/DVD ROM

1. Buka Form Standar EXE VB6 Anda
2. Letakan 2 buah CommandButton pada form.Kemudian atur properti pada Command1 dan Command2 dibawah ini:
- Command1     Caption : BUKA CD DRIVE
- Command2     Caption : TUTUP CD DRIVE

2. Buka jendela Module dengan cara klik Project, kemudian klik Add Module dan ketikan kode dibawah ini di dalam module Anda:

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

3. Setelah itu buka jendela kode form, kemudian ketikan kode berikut ini:

Option Explicit
Dim achan

Private Sub Command1_Click()
achan = mciSendString("set cd door open", 0, 0, hwnd)
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
achan = mciSendString("set cd door closed", 0, 0, hwnd)
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Form_Load()
achan = mciSendString("close all", 0, 0, hwnd)
achan = mciSendString("open cdaudio alias cd wait shareable", 0, 0, hwnd)
End Sub

4. Simpan hasil pekerjaan Anda dan jalankan Program.

Catatan:
Tekanlah Tombol "BUKA CD DRIVE" maka tombol "BUKA CD DRIVE" menjadi tidak aktif dan ajaib kotak Drive CD ROM Anda terbuka otomatis, untuk menutupnya kembali tekan Tombol "TUTUP CD DRIVE".

Sekian Source Code Aplikasi Membuka dan Menutup CD/DVD ROM Drive di VB6.0.

Keyword : Tutorial Visual Basic 6.0,
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini : Tuliskan komentar relevan anda dibawah ini dengan jelas & sopan, sesuai dengan topik ulasan mengenai Tutorial Visual Basic 6.0 Terbaru 2019.

Untuk menghindari spam dan tautan aktif, komentar akan dimoderasi. Dapatkan balasan dari melalui e-mail anda :

Komentar artikel "Source Code Aplikasi Membuka & Menutup CD/DVD ROM Drive di VB6.0"

Posting Komentar

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel