Trik VB Buka Tutup CD-Rom

Posted by imin at Monday, October 17, 2011

Trik VB Buka Tutup CD-Rom. Memasuki semester 3 ini, aku mulai mempelajari bahasa pemrograman yang paling mudah menurut programmer profesional, yaitu Visual Basic atau yang sering kita sebut dengan VB. Nah berhubung aku ditugasi oleh pak dosen untuk membuat sebuah aplikasi VB mengenai buka tutup CD-Rom, aku mau berbagi coding nih buat teman-teman semua yang masih awam dalam belajar VB. Coding ini akan melakukan buka tutup CD-Rom di komputer / laptop kalian.

Begini cara buat aplikasi Buka Tutup CD-Rom !!

Buatlah sebuah Project dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer ke dalam Form tersebut.dengan ketentuan:

Enabled=True

Interval=1000 (terserah kalian, lebih kecil angkanya lebih cepat buka CD-Rom nya)

Di bagian '(Declarations)' dari Form ketikkan :

Dim CD As Object

Dim x As Integer

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False

Me.Hide

Set CD = CreateObject("WMPlayer.OCX.7").cdromCollection

Lalu di bagian 'Timer1_Timer' ketikkan :

For x= 0 To CD.Count - 1

CD.Item(x).Eject

Next

Selamat Mencoba dan Semoga Berhasil....