Cara Membuat Program Pembuka dan Penutup CD-Drive Menggunakan Visual Basic

Pertama anda siapkan 1 form, 2 command button dan 1 module.

Ketikkan code di bawah ini di module

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

Setelah itu ketikkan code untuk membuka CD-Drive di salah satu command button

Private Sub Command1_Click()

retvalue = mciSendString("set Cdaudio door open", returnstring, 127, 0)

End Sub

Setelah itu ketikkan code untuk menutup CD-Drive di salah satu command button

Private Sub Command2_Click()

retvalue = mciSendString("set Cdaudio door closed", returnstring, 127, 0)

End Sub

Setelah itu compile program tersebut dengan cara tekan F5

Dan ini adalah programnya klik disini

Membuat Program Lama Windows Berjalan Menggunakan Visual Basic

Pertama siapkan 1 buah form, 1 buah module dan 1 buah command button

Kemudian tuliskan codingan dibawah ini di dalam module :

Declare Function GetTickCount Lib "kernel32" () As Long

Setelah itu tuliskan codingan yang ini di dalam command button anda, dengan cara double klik di command buttonnya, lalu tulis :

Private Sub Command1_Click()

MsgBox "Coy windows ini telah berjalan selama " _

& GetTickCount \ 1000 & " detik", _

vbInformation, _

"Informasi Lama Windows Berjalan"

End Sub

Setelah itu compile dengan cara tekan F5

Dan ini adalah link untuk mendownload programnya klik disini