|
|
|
|
| |
beep api
<p>'############## beep api #################
<p>'bu apinin gorevi bilgisayarınızdaki hata mesajlarındaki beep sesini çıkarmak
<br>'formun uzerine bir adet buton koyun
<p>'beep kernelden kutuphanelerinden uretilen bir fonksiyondur .
<br>'dwfreq : beep sesinin frekansını belirler . hatta muzik bilgisi olan melodi uretebilir
<br>'dwduration : beep sesinin uzunluğunu belirler ( milisaniye cinsinden )
<br>Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
<br>'dim ile tanıtılan bu a değeri apinin çalışması için kullanılan geçersiz bir değer
Dim a As Long
<p>Private Sub Command1_Click()
<br>'for dongüsü ile frekansın artarak değişen bir ses çıkarmasını sağladık
<br>'değerleri değiştirerek farklı şeylerde uretilebilinir .
<br>For i = 10 To 30 Step 10
<br>a = Beep(100 * i, 200)
<br>Next i
<br>For n = 10 To 50 Step 10
<br>a = Beep(200 * n, 100)
<br>Next n
<br>End Sub
|
|
|
|
|
|
| |
29 Ekim 2007'den beri 24621 ziyaretçi (38762 klik)
Copyrigh(c)2007, Ali AKMAZ All right reserved
|
|
|
|
|
|
|
|
