Visual Basic Kodları

CD-Rom açıp kapatma programı,

Kod:

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:

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:

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:

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.

Benzer Yazılar

Dipnot

Bu yazı 18 Aralık 2009 günü yazılmıştır. Bulunduğu kategori : Program. Yazdığım yazıları RSS 2.0 sistemini kullanarak takip edebilir, dilerseniz yorum yapabilirsiniz.