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

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

Selamat datang kembali di TeknoTips.NET. TeknoTips.NET adalah media online Indonesia yang diluncurkan pada bulan Maret 2015. Kami berkomitmen menyajikan konten seputar teknologi yang berkualitas dan bermanfaat. Ulasan kami terdiri dari berbagai topik: pemrograman komputer & database, review produk, tutorial windows, linux, android, kumpulan source code & project program, referensi tugas akhir & skripsi, download ebook, game & software.

Pada kesempatan ini kita akan mengulas artikel yang berjudul : 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.
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini
Selanjutnya cek e-mail anda untuk verifikasi.

Silahkan tuliskan komentar relevan Anda dengan jelas dan sopan, sesuai dengan topik postingan tentang "" pada halaman dibawah ini.

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

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2


Iklan Bawah Artikel