Visual basic ile cdroom-açma ve kapama programı yapacaz
Gerekli Malzemeler
1- Visual basic 6
Ve Başlıyoruz
Formumuza 2 tane CommandButton [ Command1, Command2 ] ekliyoruz ve formumuza aşağıdaki kodları aynen yapıştırıyoruz.
Kodların yanında açıklamaları var onları kaldırmanıza gerek yok unuttukça bakarsınız
Code:
Gerekli Malzemeler
1- Visual basic 6
Ve Başlıyoruz
Formumuza 2 tane CommandButton [ Command1, Command2 ] ekliyoruz ve formumuza aşağıdaki kodları aynen yapıştırıyoruz.
Kodların yanında açıklamaları var onları kaldırmanıza gerek yok unuttukça bakarsınız
Code:
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long ' Cdroomu açıp kapayabilmeniz için gereken windows API si
Private Sub Form_Load() ' Form_load() komutu ile formun yani programımımız ilk açılışında yapılacak işlemleri yazıyoruz.
Command1.Caption = "Cdroomu Aç" ' Command1 Butonunun İsmini Cdroomu Aç olarak değiştiriyoruz
Command2.Caption = "Cdroomu Kapat" ' Command2 Butonunun İsmini Cdroomu Kapat olarak değiştiriyoruz
End Sub
Private Sub Command1_Click() ' Command1_Click() Komutuyla Command1 Butonuna Tıklayınca Yapılacak İşlemleri Yazıyoruz
mciExecute ("Set CDAudio door Open") ' Cdroomu açma kodumuz
End Sub
Private Sub Command2_Click() ' Command2_Click() Komutuyla Command2 Butonuna Tıklayınca Yapılacak İşlemleri Yazıyoruz
mciExecute ("Set CDAudio door closed") ' Cdroomu kapatma kodumuz
End Sub
Private Sub Form_Unload(Cancel As Integer) ' Form_Unload() komutu ile formun yani programımımız kapatılırken yapılacak işlemleri yazıyoruz.
msgbox ("www.cybertion.net") ' Bu Komutlada program kapatılırken kullanıcıya mesaj verdiriyoruz.
End Sub
Private Sub Form_Load() ' Form_load() komutu ile formun yani programımımız ilk açılışında yapılacak işlemleri yazıyoruz.
Command1.Caption = "Cdroomu Aç" ' Command1 Butonunun İsmini Cdroomu Aç olarak değiştiriyoruz
Command2.Caption = "Cdroomu Kapat" ' Command2 Butonunun İsmini Cdroomu Kapat olarak değiştiriyoruz
End Sub
Private Sub Command1_Click() ' Command1_Click() Komutuyla Command1 Butonuna Tıklayınca Yapılacak İşlemleri Yazıyoruz
mciExecute ("Set CDAudio door Open") ' Cdroomu açma kodumuz
End Sub
Private Sub Command2_Click() ' Command2_Click() Komutuyla Command2 Butonuna Tıklayınca Yapılacak İşlemleri Yazıyoruz
mciExecute ("Set CDAudio door closed") ' Cdroomu kapatma kodumuz
End Sub
Private Sub Form_Unload(Cancel As Integer) ' Form_Unload() komutu ile formun yani programımımız kapatılırken yapılacak işlemleri yazıyoruz.
msgbox ("www.cybertion.net") ' Bu Komutlada program kapatılırken kullanıcıya mesaj verdiriyoruz.
End Sub
