Basit Visual Basic Kodlamaları..!

[cixcocuk97]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

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,

     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,

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:
[CODE]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

[/CODE] Bunu yapmak için,

Bir adet command click koyun ve daha sonra kendisi gelicek diğer tuşlar.

 

[Sentinus]

Teşekkürler.

 

[Karcemackers]

тєşєккüяℓєя.

 

[umit99]

Teşekkürler.

 

[OptiMistics]

eline sağlık.