|
| Autor |
Nachricht |
ZiG
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 421
|
Beep mit Zufallsmelodie
Verfasst am: 20.04.2008, 13:19 |
|
|
Zur Verfügung gestellt von TheCoder.
beep mit zufallsmelodie (auja das nervt echt)
Visual Basic: [code] Do
Beep CLng(Rnd * 80) * 20 + 200, _
CLng(Rnd * 2) * 100 + 100
Loop Until Rnd < 0.1[/code] |
|
| |
|
 |
igoe
Gast
|
Verfasst am: 07.08.2008, 10:41 |
|
|
Habe da auch was für euch 
Visual Basic: [code]Private Declare Sub Beep Lib "kernel32" ( _
Optional ByVal Frequenz As Long = 440, _
Optional ByVal Dauer As Long = 20)
Private Sub Command1_Click()
Beep 440, "300"
Beep 440 * 9 / 8, "300"
Beep 440 * 5 / 4, "300"
Beep 440 * 4 / 3, "300"
Beep 440 * 3 / 2, "600"
Beep 440 * 3 / 2, "600"
Beep 440 * 5 / 3, "300"
Beep 440 * 5 / 3, "300"
Beep 440 * 5 / 3, "300"
Beep 440 * 5 / 3, "300"
Beep 440 * 3 / 2, "1200"
Beep 440 * 5 / 3, "300"
Beep 440 * 5 / 3, "300"
Beep 440 * 5 / 3, "300"
Beep 440 * 5 / 3, "300"
Beep 440 * 3 / 2, "1200"
Beep 440 * 4 / 3, "300"
Beep 440 * 4 / 3, "300"
Beep 440 * 4 / 3, "300"
Beep 440 * 4 / 3, "300"
Beep 440 * 5 / 4, "600"
Beep 440 * 5 / 4, "600"
Beep 440 * 9 / 8, "300"
Beep 440 * 9 / 8, "300"
Beep 440 * 9 / 8, "300"
Beep 440 * 9 / 8, "300"
Beep 440, "1200"
End Sub[/code] |
|
| |
|
|
|
|
Registrieren
Login
