- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
CD-Rom açıp kapatma programı,
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Sub Command1_Click()mciExecute ("Set CDAudio door Open") End Sub Private Sub Command2_Click() mciExecute ("Set CDAudio door closed") End Sub
Bunu yapmak için,
Projeye 2 adet command click eklemeliyiz. Biri açma diğeri kapatma.
__________________________________________________ ____________
Speakerdan beep çıkarmak,Kod:
Private Sub Command1_Click() Beep End Sub
Bunu yapmak için,
Projenize 1 adet command click eklemeliyiz. Basınca beeb : )
__________________________________________________ ____________
Windows hesap makinesi ve not defterini çalıştırmak,
Hesap makinesi için,
Kod:
Private Sub Command1_Click() Call Shell("calc.exe", 1) End Sub
Not defteri için,
Kod:
Kod:
Private Sub Command1_Click() Call Shell("notepad.exe", 1) End Sub
Bunları yapmak için 1 adet command click koymalıyız.
__________________________________________________ ____________
Yazdığını okuyan program,
Kod:
Kod:
Dim speech As SpVoice Private Sub Command1_Click() speech.Speak Text1 End Sub Private Sub Form_Load() Set speech = New SpVoice End Sub
Bunu yapmak için,
Bir adet textbox ve command click koyun.
Dikkat!
Referanstan speech object libraryi seçmeliyiz olması için.
__________________________________________________ ____________
Hangi gün doğduğunu bulan program,
Kod:
Kod: Kod:
Private Sub Command1_Click() Dim d_tarih, gun Do d_tarih = InputBox("Doğum Tarihinizi Giriniz :") Loop While Not IsDate(d_tarih) Select Case Weekday(d_tarih) Case 1: gun = "Pazar" Case 2: gun = "Pazartesi" Case 3: gun = "Salı" Case 4: gun = "Çarşamba" Case 5: gun = "Perşembe" Case 6: gun = "Cuma" Case 7: gun = "Cumartesi" End Select MsgBox (gun & " Günü Doğmuşsunuz") End Sub
Bunu yapmak için,
Bir adet command click koyun ve daha sonra kendisi gelicek diğer tuşlar.
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Sub Command1_Click()mciExecute ("Set CDAudio door Open") End Sub Private Sub Command2_Click() mciExecute ("Set CDAudio door closed") End Sub
Bunu yapmak için,
Projeye 2 adet command click eklemeliyiz. Biri açma diğeri kapatma.
__________________________________________________ ____________
Speakerdan beep çıkarmak,Kod:
Private Sub Command1_Click() Beep End Sub
Bunu yapmak için,
Projenize 1 adet command click eklemeliyiz. Basınca beeb : )
__________________________________________________ ____________
Windows hesap makinesi ve not defterini çalıştırmak,
Hesap makinesi için,
Kod:
Private Sub Command1_Click() Call Shell("calc.exe", 1) End Sub
Not defteri için,
Kod:
Kod:
Private Sub Command1_Click() Call Shell("notepad.exe", 1) End Sub
Bunları yapmak için 1 adet command click koymalıyız.
__________________________________________________ ____________
Yazdığını okuyan program,
Kod:
Kod:
Dim speech As SpVoice Private Sub Command1_Click() speech.Speak Text1 End Sub Private Sub Form_Load() Set speech = New SpVoice End Sub
Bunu yapmak için,
Bir adet textbox ve command click koyun.
Dikkat!
Referanstan speech object libraryi seçmeliyiz olması için.
__________________________________________________ ____________
Hangi gün doğduğunu bulan program,
Kod:
Kod: Kod:
Private Sub Command1_Click() Dim d_tarih, gun Do d_tarih = InputBox("Doğum Tarihinizi Giriniz :") Loop While Not IsDate(d_tarih) Select Case Weekday(d_tarih) Case 1: gun = "Pazar" Case 2: gun = "Pazartesi" Case 3: gun = "Salı" Case 4: gun = "Çarşamba" Case 5: gun = "Perşembe" Case 6: gun = "Cuma" Case 7: gun = "Cumartesi" End Select MsgBox (gun & " Günü Doğmuşsunuz") End Sub
Bunu yapmak için,
Bir adet command click koyun ve daha sonra kendisi gelicek diğer tuşlar.