20080217.frm

beep,键盘声音,不占CPU,发出不同的频率的声音

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H8000000A&
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Sub Beep Lib "kernel32" _
(ByVal dwFreq As Long, ByVal dwDuration As Long)
Public fn As Long, tn As Long, aa As String
Private Sub start(aa As String)
Select Case aa
Case 1: fn = 80
Case 2: fn = 100
Case 3: fn = 120
Case 4: fn = 140
Case 5: fn = 160
Case 6: fn = 180
Case 7: fn = 200
Case 8: fn = 220
Case "q": fn = 330
Case "w": fn = 350
Case "e": fn = 370
Case "r": fn = 390
Case "t": fn = 410
Case "y": fn = 430
Case "u": fn = 450
Case "i": fn = 470

Case Else: GoTo bb
End Select
Beep fn, tn
bb:
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 5 Then tn = InputBox("T")
If Shift = 1 Then tn = 100
If Shift = 2 Then tn = 200
If Shift = 4 Then tn = 300
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
aa = Chr(KeyAscii)
start aa
End Sub

Private Sub Form_Load()
tn = 400
End Sub