Basit vb kodları

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 kendisi gelicek

Biliyorum bumları çoğu kişi bilir ama yeni başlayan arkadaşlara çok faydalı olurlar