title image


Smiley Re: Töne mit VB6 ausgeben
Hi,viel Spaß:Option ExplicitOption Base 1Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As LongPrivate Declare Sub Sleep Lib "Kernel32" (ByVal ms As Long)Sub Wunder()Dim arrT0, arrT1, arrT2, t As Byte, f As DoublearrT0 = Array(110, 116, 124, 131, 139, 147, 156, 165, 175, 185, 196, 208)arrT1 = Array(220, 233, 247, 262, 277, 294, 311, 330, 349, 370, 392, 416)arrT2 = Array(440, 466, 494, 534, 554, 588, 622, 660, 698, 740, 784, 832, 880)'f = 0.8 'je kleiner, desto schneller'Beep arrT1(1), 300 * fBeep arrT1(10), 500 * fBeep arrT1(1), 200 * fBeep arrT0(12), 500 * fBeep arrT1(1), 200 * fBeep arrT1(6), 200 * fBeep arrT1(10), 200 * fBeep arrT2(1), 200 * fSleep 50Beep arrT2(1), 300 * fBeep arrT1(11), 200 * fBeep arrT1(6), 500 * fBeep arrT1(8), 200 * fBeep arrT1(9), 200 * fBeep arrT1(10), 500 * fBeep arrT1(6), 200 * fBeep arrT1(1), 200 * fBeep arrT0(12), 200 * fBeep arrT0(11), 500 * fBeep arrT1(8), 400 * fBeep arrT1(6), 500 * fEnd SubPrivate Sub Form_Click()Call WunderEnd Submfg xla



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: