تبلیغات
دنیای برق و کامپیوتر - Alarm


امروز :

javahermarket



View مرتبه

کنترل بیزر داخل کیس با فرکانس های مختلف در ویژوال بیسک 
برای اینکار به یک API ویندوز نیاز داریم:
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

حالا هر موقع نیاز به هشدار داشتید دستور زیر رو اجرا کنید:
Beep Frequency, Duration

  توجه کنید که در قسمت اول فرکانس مورد نظرتون و در قسمت دوم باید مدت زمان پخش آلارم رو مشخص کنید!


مثالی برای پخش آلارم آمبولانسی

یدونه دکمه روی فرمتون بذارید و کد زیر رو توش کپی کنید:

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
  Dim i As Integer
  Dim Cnt As Long
For i = 1 To 2
    For Cnt = 500 To 1000 Step 10
        Beep Cnt, 50
        Me.Caption = Cnt
        DoEvents
    Next Cnt
        For Cnt = 1000 To 500 Step -10
        Beep Cnt, 50
        Me.Caption = Cnt
        DoEvents
    Next Cnt
Next i
End Sub

 دریافت برنامه نمونه:

  دانلود: Alarm.exe 16 KB





category  طبقه بندی: سخت افزار،  ویژوال بیسیک، 
Date تاریخ بروز رسانی مطلب: شنبه 26 اسفند 1391

ارسال توسط علی دمیرچی