Beep Songs :D

Kev

Mimimimi - Kein Spam !

Habt euch mal net so...

Spoiler anzeigen

[autoit]

;###################################################
; Mario Bros Theme ( Beep Music )###################
;###################################################
;###################### by J0keR ##################
;###################################################

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Beep(480,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(1568,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(1568,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(1568,200);

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Beep(739.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Beep(369.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(392,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(369.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(392,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(392,400);

[/autoit] [autoit][/autoit] [autoit]

Beep(196,400);

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Beep(739.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(739.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(739.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(83.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(880,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(830.61,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(880,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(987.77,400);

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Beep(880,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(698.46,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(739.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(739.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(739.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(880,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(830.61,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(880,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(987.77,400);

[/autoit] [autoit][/autoit] [autoit]

Sleep(200);

[/autoit] [autoit][/autoit] [autoit]

Beep(1108,10);
Beep(1174.7,200);
Beep(1480,10);
Beep(1568,200);

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Sleep(200);
Beep(739.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(739.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(739.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(880,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(830.61,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(880,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(987.77,400);

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Beep(880,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(698.46,200);

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Beep(659.25,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(698.46,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(784,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(880,400);

[/autoit] [autoit][/autoit] [autoit]

Beep(784,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(698.46,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(659.25,200);

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Beep(587.33,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(659.25,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(698.46,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(784,400);

[/autoit] [autoit][/autoit] [autoit]

Beep(698.46,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(659.25,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(587.33,200);

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Beep(523.25,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(587.33,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(659.25,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(698.46,400);

[/autoit] [autoit][/autoit] [autoit]

Beep(659.25,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(587.33,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(493.88,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(523.25,200);

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Sleep(400);
Beep(349.23,400);

[/autoit] [autoit][/autoit] [autoit]

Beep(392,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(329.63,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(523.25,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(493.88,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(466.16,200);

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Beep(440,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(493.88,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(523.25,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(880,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(493.88,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(880,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(1760,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(440,200);

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Beep(392,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(440,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(493.88,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(440, 200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(1568,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(392,200);

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Beep(349.23,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(392,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(440,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(698.46,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(415.2,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(698.46,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(1396.92,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(349.23,200);

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Beep(329.63,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(311.13,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(329.63,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(659.25,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(698.46,400);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,400);

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Beep(440,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(493.88,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(523.25,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(880,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(493.88,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(880,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(1760,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(440,200);

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Beep(392,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(440,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(493.88,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(440,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(1568,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(392,200);

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Beep(349.23,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(392,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(440,00);

[/autoit] [autoit][/autoit] [autoit]

Beep(698.46,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(659.25,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(698.46,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(739.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(783.99,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(392,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(392,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(392,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(392,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(196,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(196,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(196,200);

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Beep(185,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(196,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(185,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(196,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(207.65,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(220,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(233.08,200);

[/autoit] [autoit][/autoit] [autoit]

Beep(246.94,200);

[/autoit]

Grad entdeckt

Kennt ihr noch mehr?

**Der_Doc**

Das weckt ja alter Erinnerungen.

MfG
Der_Doc

**Schnitzel**

Oja da kenn ich noch einige
Da sind jede menge driN:
http://www.autoitscript.com/forum/index.php?showtopic=25201
http://www.autoitscript.com/forum/index.php?showtopic=30069

Mit Abstand am besten find ich den hier:
(zu Tetris passts einfach am besten)

Spoiler anzeigen

[autoit]

#cs
§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§
Beep Songs
by Paulie

[/autoit] [autoit][/autoit] [autoit]

Parameters:

[/autoit] [autoit][/autoit] [autoit]

_*Key*($duration)

[/autoit] [autoit][/autoit] [autoit]

*Key* - # of keyboard key
Duration - How long to hold it
§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§
#ce

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Global $list[100]

[/autoit] [autoit][/autoit] [autoit]

$list = StringSplit("4186.01|3951.07|"& _
"3729.31|3520.00|3322.44|"& _
"3135.96|2959.96|2793.83|"& _
"2637.02|2489.02|2349.32|"& _
"2217.46|2093.00|1975.53|"& _
"1864.66|1760.00|1661.22|"& _
"1567.98|1479.98|1396.91|"& _
"1318.51|1244.51|1174.66|"& _
"1108.73|1046.50|987.767|"& _
"932.328|880.000|830.609|"& _
"783.991|739.989|698.456|"& _
"659.255|622.254|587.330|"& _
"554.365|523.251|493.883|"& _
"466.164|440.000|415.305|"& _
"391.995|369.994|349.228|"& _
"329.628|311.127|293.665|"& _
"277.183|261.626|246.942|"& _
"233.082|220.000|207.652|"& _
"195.998|184.997|174.614|"& _
"164.814|155.563|146.832|"& _
"138.591|130.813|123.471|"& _
"116.541|110.000|103.826|"& _
"97.9989|92.4986|87.3071|"& _
"82.4069|77.7817|73.4162|"& _
"69.2957|65.4064|61.7354|"& _
"58.2705|55.0000|51.9130|"& _
"48.9995|46.2493|43.6536|"& _
"41.2035|38.8909|36.7081|"& _
"34.6479|32.7032|30.8677|"& _
"29.1353|27.5000|", "|")
;Notes Go Here
;Format - Number of key on the piano (1 lowest-88 highest), Duration to hold

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;-------------------
Func _R($dura)
Sleep($dura)
EndFunc
Func _88($dura)
Beep($list[1], $dura)
EndFunc
Func _87($dura)
Beep($list[2],$dura)
EndFunc
Func _86($dura)
Beep($list[3],$dura)
EndFunc
Func _85($dura)
Beep($list[4],$dura)
EndFunc
Func _84($dura)
Beep($list[5],$dura)
EndFunc
Func _83($dura)
Beep($list[6],$dura)
EndFunc
Func _82($dura)
Beep($list[7],$dura)
EndFunc
Func _81($dura)
Beep($list[8],$dura)
EndFunc
Func _80($dura)
Beep($list[9],$dura)
EndFunc
Func _79($dura)
Beep($list[10],$dura)
EndFunc
Func _78($dura)
Beep($list[11],$dura)
EndFunc
Func _77($dura)
Beep($list[12],$dura)
EndFunc
Func _76($dura)
Beep($list[13],$dura)
EndFunc
Func _75($dura)
Beep($list[14],$dura)
EndFunc
Func _74($dura)
Beep($list[15],$dura)
EndFunc
Func _73($dura)
Beep($list[16],$dura)
EndFunc
Func _72($dura)
Beep($list[17],$dura)
EndFunc
Func _71($dura)
Beep($list[18],$dura)
EndFunc
Func _70($dura)
Beep($list[19],$dura)
EndFunc
Func _69($dura)
Beep($list[20],$dura)
EndFunc
Func _68($dura)
Beep($list[21],$dura)
EndFunc
Func _67($dura)
Beep($list[22],$dura)
EndFunc
Func _66($dura)
Beep($list[23],$dura)
EndFunc
Func _65($dura)
Beep($list[24],$dura)
EndFunc
Func _64($dura)
Beep($list[25],$dura)
EndFunc
Func _63($dura)
Beep($list[26],$dura)
EndFunc
Func _62($dura)
Beep($list[27],$dura)
EndFunc
Func _61($dura)
Beep($list[28],$dura)
EndFunc
Func _60($dura)
Beep($list[29],$dura)
EndFunc
Func _59($dura)
Beep($list[30],$dura)
EndFunc
Func _58($dura)
Beep($list[31],$dura)
EndFunc
Func _57($dura)
Beep($list[32],$dura)
EndFunc
Func _56($dura)
Beep($list[33],$dura)
EndFunc
Func _55($dura)
Beep($list[34],$dura)
EndFunc
Func _54($dura)
Beep($list[35],$dura)
EndFunc
Func _53($dura)
Beep($list[36],$dura)
EndFunc
Func _52($dura)
Beep($list[37],$dura)
EndFunc
Func _51($dura)
Beep($list[38],$dura)
EndFunc
Func _50($dura)
Beep($list[39],$dura)
EndFunc
Func _49($dura)
Beep($list[40],$dura)
EndFunc
Func _48($dura)
Beep($list[41],$dura)
EndFunc
Func _47($dura)
Beep($list[42],$dura)
EndFunc
Func _46($dura)
Beep($list[43],$dura)
EndFunc
Func _45($dura)
Beep($list[44],$dura)
EndFunc
Func _44($dura)
Beep($list[45],$dura)
EndFunc
Func _43($dura)
Beep($list[46],$dura)
EndFunc
Func _42($dura)
Beep($list[47],$dura)
EndFunc
Func _41($dura)
Beep($list[48],$dura)
EndFunc
Func _40($dura)
Beep($list[49],$dura)
EndFunc
Func _39($dura)
Beep($list[50],$dura)
EndFunc
Func _38($dura)
Beep($list[51],$dura)
EndFunc
Func _37($dura)
Beep($list[52],$dura)
EndFunc
Func _36($dura)
Beep($list[53],$dura)
EndFunc
Func _35($dura)
Beep($list[54],$dura)
EndFunc
Func _34($dura)
Beep($list[55],$dura)
EndFunc
Func _33($dura)
Beep($list[56],$dura)
EndFunc
Func _32($dura)
Beep($list[57],$dura)
EndFunc
Func _31($dura)
Beep($list[58],$dura)
EndFunc
Func _30($dura)
Beep($list[59],$dura)
EndFunc
Func _29($dura)
Beep($list[60],$dura)
EndFunc
Func _28($dura)
Beep($list[61],$dura)
EndFunc
Func _27($dura)
Beep($list[62],$dura)
EndFunc
Func _26($dura)
Beep($list[63],$dura)
EndFunc
Func _25($dura)
Beep($list[64],$dura)
EndFunc
Func _24($dura)
Beep($list[65],$dura)
EndFunc
Func _23($dura)
Beep($list[66],$dura)
EndFunc
Func _22($dura)
Beep($list[67],$dura)
EndFunc
Func _21($dura)
Beep($list[68],$dura)
EndFunc
Func _20($dura)
Beep($list[69],$dura)
EndFunc
Func _19($dura)
Beep($list[70],$dura)
EndFunc
Func _18($dura)
Beep($list[71],$dura)
EndFunc
Func _17($dura)
Beep($list[72],$dura)
EndFunc
Func _16($dura)
Beep($list[73],$dura)
EndFunc
Func _15($dura)
Beep($list[74],$dura)
EndFunc
Func _14($dura)
Beep($list[75],$dura)
EndFunc
Func _13($dura)
Beep($list[76],$dura)
EndFunc
Func _12($dura)
Beep($list[77],$dura)
EndFunc
Func _11($dura)
Beep($list[78],$dura)
EndFunc
Func _10($dura)
Beep($list[79],$dura)
EndFunc
Func _9($dura)
Beep($list[80],$dura)
EndFunc
Func _8($dura)
Beep($list[81],$dura)
EndFunc
Func _7($dura)
Beep($list[82],$dura)
EndFunc
Func _6($dura)
Beep($list[83],$dura)
EndFunc
Func _5($dura)
Beep($list[84],$dura)
EndFunc
Func _4($dura)
Beep($list[85],$dura)
EndFunc
Func _3($dura)
Beep($list[86],$dura)
EndFunc
Func _2($dura)
Beep($list[87],$dura)
EndFunc
Func _1($dura)
Beep($list[88],$dura)
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
For $a = 1 to 2
_56(400)
_51(200)
_52(200)
_54(200)
_56(100)
_54(100)
_52(200)
_51(200)
_49(400)
_49(200)
_52(200)
_56(400)
_54(200)
_52(200)
_51(600)
_52(200)
_54(400)
_56(400)
_52(400)
_49(400)
_49(400)
_27(200)
_28(200)
_30(200)
_54(400)
_57(200)
_61(400)
_59(200)
_57(200)
_56(600)
_52(200)
_56(400)
_54(200)
_52(200)
_51(400)
_51(200)
_52(200)
_54(400)
_56(400)
_52(400)
_49(400)
_49(400)
_R(400)
Next

[/autoit] [autoit][/autoit] [autoit]

For $b = 1 to 2
_44(200)
_44(200)
_40(200)
_44(200)
_42(200)
_44(200)
_39(200)
_44(200)
_40(200)
_44(200)
_37(200)
_44(200)
_36(200)
_44(200)
_39(400)
Next

[/autoit] [autoit][/autoit] [autoit]

For $a = 1 to 2
_56(400)
_51(200)
_52(200)
_54(200)
_56(100)
_54(100)
_52(200)
_51(200)
_49(400)
_49(200)
_52(200)
_56(400)
_54(200)
_52(200)
_51(600)
_52(200)
_54(400)
_56(400)
_52(400)
_49(400)
_49(400)
_27(200)
_28(200)
_30(200)
_54(400)
_57(200)
_61(400)
_59(200)
_57(200)
_56(600)
_52(200)
_56(400)
_54(200)
_52(200)
_51(400)
_51(200)
_52(200)
_54(400)
_56(400)
_52(400)
_49(400)
_49(400)
_R(400)
Next
Wend

[/autoit]

Kev

hab des tetris ding grad @firma rausgehauen
wie die geguckt haben

Awesome

Das "Beep" klappt bei mir nicht

cinema

Zitat von tuttifrutti

Das "Beep" klappt bei mir nicht

Bei mir komischerweise auch nicht.

**Sprenger120**

Das Tetris is so geil *.*

Kev

Zitat von tuttifrutti

Das "Beep" klappt bei mir nicht

Beim Notebook ists glaub deaktiviert. Falls du ein Notebook besitzt.

zptsvhbfa

Auf meinem Notebook klappt es... es kommt dann entweder durch die integrierten Lautsprecher oder (wenn angeschlossen) über das headset.

LG Daniel

AntiSpeed

Schnitzel: Ohh yeah. Einfach wundervoll :thumpsup:

**Xorianator**

Gebe @Sprenger recht, das Tetris is mega geil, klingt wie das echte, hammer
Habs jetzt schon 5 min laufen

Ineluki

Ich hab das Tetris jetz schon seit 3 Stunden laufen... Ich finds einfach nur geil, das macht süchtig *.*
Hab mal auf die schnelle was gemacht, werd es morgen etwas erweitern (und verbessern):

Spoiler anzeigen

[autoit]

#cs Frequenzen
C' 261,626 1
D' 293,665 2
E' 329,628 3
F' 349,228 4
G' 391,995 5
A' 440,000 6
H' 493,883 7
C'' 523,251 8
#ce
Dim $tasten[50]=[49, 261.626, 293.665, 329.628, 349.228, 391.995, 440, 493.883, 523.251]
Dim $notenlaenge[3]=[150, 300, 600]
play_song(1)
Func play_song($song)
Switch $song
Case 1
__1()

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
EndFunc
Func __1()
For $i=1 to 4
Beep($tasten[$i], $notenlaenge[1])
Next
For $i=1 to 4
Beep($tasten[5], $notenlaenge[1])
Next
For $i=1 to 4
Beep($tasten[$i], $notenlaenge[1])
Next
_Beep("G", $notenlaenge[2])
_Beep("G", $notenlaenge[2])
For $i=1 to 4
Beep($tasten[$i], $notenlaenge[1])
Next
For $i=1 to 4
Beep($tasten[5], $notenlaenge[1])
Next
For $i=5 to 2 Step -1
Beep($tasten[$i], $notenlaenge[1])
Next
_Beep("C", $notenlaenge[2])
_Beep("C", $notenlaenge[2])
EndFunc
Func _beep($key, $duration)
Switch $key
Case "C"
Beep($tasten[1], $duration)
Case "D"
Beep($tasten[2], $duration)
Case "E"
Beep($tasten[3], $duration)
Case "F"
Beep($tasten[4], $duration)
Case "G"
Beep($tasten[5], $duration)
Case "A"
Beep($tasten[6], $duration)
Case "H"
Beep($tasten[7], $duration)
EndSwitch
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

Awesome

Zitat von Kev

Beim Notebook ists glaub deaktiviert. Falls du ein Notebook besitzt.

Habe kein Notebook.

Regards

bbm1995

Dieses Thema abonniere ich!
muss mal später umbedingt anschauen
#Abonneed (XD)

**UEZ**

Wenn kein Systemlautsprecher installiert ist, dann schaut mal hier rein: DSBeep.au3

Gruß,
UEZ

Kev

das sind soweit ich weiß doch systemwarntöne mit dem beep. die kann man im bios deaktivieren. vill mal da schauen^^

AntiSpeed

Schnitzel: Melodie-Skript verkürtzt :

Spoiler anzeigen

[autoit]

Global $list[89],$list2[89] = ["4186.01","3951.07","3729.31","3520.00","3322.44","3135.96","2959.96","2793.83","2637.02","2489.02","2349.32","2217.46","2093.00","1975.53","1864.66","1760.00","1661.22","1567.98","1479.98","1396.91","1318.51","1244.51","1174.66","1108.73","1046.50","987.767","932.328","880.000","830.609","783.991","739.989","698.456","659.255","622.254","587.330","554.365","523.251","493.883","466.164","440.000","415.305","391.995","369.994","349.228","329.628","311.127","293.665","277.183","261.626","246.942","233.082","220.000","207.652","195.998","184.997","174.614","164.814","155.563","146.832","138.591","130.813","123.471","116.541","110.000","103.826","97.9989","92.4986","87.3071","82.4069","77.7817","73.4162","69.2957","65.4064","61.7354","58.2705","55.0000","51.9130","48.9995","46.2493","43.6536","41.2035","38.8909","36.7081","34.6479","32.7032","30.8677","29.1353","27.5000"]
For $i=UBound($list)-1 To 0 Step -1
$list[$i]=$list2[UBound($list)-1-$i]
Next

[/autoit] [autoit][/autoit] [autoit]

While 1
For $a = 1 to 2
_Beep($list[56],400)
_Beep($list[51],200)
_Beep($list[52],200)
_Beep($list[54],200)
_Beep($list[56],100)
_Beep($list[54],100)
_Beep($list[52],200)
_Beep($list[51],200)
_Beep($list[49],400)
_Beep($list[49],200)
_Beep($list[52],200)
_Beep($list[56],400)
_Beep($list[54],200)
_Beep($list[52],200)
_Beep($list[51],600)
_Beep($list[52],200)
_Beep($list[54],400)
_Beep($list[56],400)
_Beep($list[52],400)
_Beep($list[49],400)
_Beep($list[49],400)
_Beep($list[27],200)
_Beep($list[28],200)
_Beep($list[30],200)
_Beep($list[54],400)
_Beep($list[57],200)
_Beep($list[61],400)
_Beep($list[59],200)
_Beep($list[57],200)
_Beep($list[56],600)
_Beep($list[52],200)
_Beep($list[56],400)
_Beep($list[54],200)
_Beep($list[52],200)
_Beep($list[51],400)
_Beep($list[51],200)
_Beep($list[52],200)
_Beep($list[54],400)
_Beep($list[56],400)
_Beep($list[52],400)
_Beep($list[49],400)
_Beep($list[49],400)
Sleep(400)
Next

[/autoit] [autoit][/autoit] [autoit]

For $b = 1 to 2
_Beep($list[44],200)
_Beep($list[44],200)
_Beep($list[40],200)
_Beep($list[44],200)
_Beep($list[42],200)
_Beep($list[44],200)
_Beep($list[39],200)
_Beep($list[44],200)
_Beep($list[40],200)
_Beep($list[44],200)
_Beep($list[37],200)
_Beep($list[44],200)
_Beep($list[36],200)
_Beep($list[44],200)
_Beep($list[39],400)
Next
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Beep($a,$b)
Beep($a,$b+25)
Sleep(25)
EndFunc

[/autoit]

JoEtHeKiLlEr

Ist vielleicht ja schon etwas spät, aber ich habe auch nochmal was gebastelt
Die GetTone-Funktion könnte man natürlich noch Optimieren(Geschwindigkeit/Fehlerhandling/Frequenzen vorher ausrechnen und in ein Array etc...), aber dazu ist es mir zu spät
Eingeben kann man die Töne in Englischer Schreibweise, also H(deutsch) => B, Vorzeichen als '#' / 'b' oder "is" / "es" hinten an den "Grundton" hinhängen ("Es" geht auch), danach noch ne Zahl für die Oktave hin, es könne alle Frequenzen höher als A0 (englische Schreibweise, also A_2) berechnet werden:
Achtung: C (deutsch) entstricht C2 (Englisch)

Ihr versteht bestimmt nur Bahnhof, ich versteh gleich garnichts mehr, deshalb probierts das Beispiel doch einfach mal aus.... ich geh jetzt aber erstmal ins bett

Spoiler anzeigen

[autoit]

#include <Array.au3>
$gis3 = GetTone("Gis3")
$gis4 = GetTone("G#4")
$cis4 = GetTone("Db4")
$e4 = GetTone("E4")
$a4 = GetTone("A4")
$dis4 = GetTone("Eb4")
_Beep($gis3, 200)
_Beep($cis4, 200)
For $i = 1 To 3
_Beep($gis4, 250)
Next
_Beep($e4, 200)
_Beep($a4, 200)
For $i = 1 To 3
_Beep($dis4, 250)
Next
Func GetTone($sTone)
$fBase = 27.5 ; A0
$sjump = 0
Dim $aTones[12] = ["A","A#;Bb","B","C","C#;Db","D","D#;Eb","E","F","F#;Gb","G","G#;Ab"]
$aRegEx1 = StringRegExp($sTone, "(\D+)(\d?)", 3)
$aRegEx1[0] = StringReplace($aRegEx1[0], "is","#", 0, 1)
$aRegEx1[0] = StringReplace($aRegEx1[0], "es","b", 0, 1)
$aRegEx1[0] = StringReplace($aRegEx1[0], "s","b", 0, 1)
$aRegEx1[1] -= 1
$scond = StringTrimLeft($aRegEx1[0], 1)
If $scond == "#" Then
If StringLeft($aRegEx1[0], 1) == "G" Then $sjump = 7
$aRegEx1[0] = $aRegEx1[0] & ";" & Chr(Asc(StringLeft($aRegEx1[0], 1))+1 - $sjump) & "b"
ElseIf $scond == "b" Then
If StringLeft($aRegEx1[0], 1) == "A" Then $sjump = 7
$aRegEx1[0] = Chr(Asc(StringLeft($aRegEx1[0], 1)) - 1 + $sjump) & "#;" & $aRegEx1[0]
EndIf
$iIndex = _ArraySearch($aTones, $aRegEx1[0])
If @error Then Return SetError(1)
$iFrequency = $fBase
For $i2 = 0 To $aRegEx1[1]*12+$iIndex - 1
$iFrequency*=2^(1/12)
Next
Return $iFrequency
EndFunc
Func _Beep($a,$b)
Beep($a,$b+25)
Sleep(25)
EndFunc

[/autoit]

Ineluki

Hab mein Skript nochmal verbessert und ein Lied hinzugefügt:

Spoiler anzeigen

[autoit]

#cs Frequenzen
C' 261,626 1
D' 293,665 2
E' 329,628 3
F' 349,228 4
G' 391,995 5
A' 440,000 6
H' 493,883 7
C'' 523,251 8
D'' 587,330 9
E'' 659,255 10
F'' 698,456 11
G'' 783,991 12
#ce
Dim $tasten[50]=[49, 261.626, 293.665, 329.628, 349.228, 391.995, 440, 493.883, 523.251, 587.330, 659.255, 698.456, 783.991]
Dim $keys[50]=[49, "C", "D", "E", "F", "G", "A", "H", "C'", "D'", "E'", "F'", "G'", "A'", "H'", "C''"]
Dim $notenlaenge1[4]=[150, 300, 450, 600], $notenlaenge2[4]=[200, 400, 600, 800]
play_song(1)
Func play_song($song)
Switch $song
Case 1
__1()
Case 2
__2()
EndSwitch
EndFunc
Func __1()
For $i=1 to 4
Beep($tasten[$i], $notenlaenge1[1])
Next
For $i=1 to 4
_beep("G", $notenlaenge1[1])
Next
For $i=1 to 4
Beep($tasten[$i], $notenlaenge1[1])
Next
_Beep("G", $notenlaenge1[3])
_Beep("G", $notenlaenge1[3])
For $i=1 to 4
Beep($tasten[$i], $notenlaenge1[1])
Next
For $i=1 to 4
_beep("G", $notenlaenge1[1])
Next
For $i=5 to 2 Step -1
Beep($tasten[$i], $notenlaenge1[1])
Next
_Beep("C", $notenlaenge1[3])
_Beep("C", $notenlaenge1[3])
EndFunc
Func __2()
_Beep("G", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("G'", $notenlaenge2[3])
_Beep("E'", $notenlaenge2[2])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[1])
_Beep("G'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("G'", $notenlaenge2[1])
_Beep("D'", $notenlaenge2[0])
_Beep("C'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("G", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("G'", $notenlaenge2[3])
_Beep("E'", $notenlaenge2[2])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("G'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[2])
_Beep("C'", $notenlaenge2[0])
_Beep("C'", $notenlaenge2[3])
_Beep("G", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("G'", $notenlaenge2[3])
_Beep("E'", $notenlaenge2[2])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[1])
_Beep("G'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("G'", $notenlaenge2[1])
_Beep("D'", $notenlaenge2[0])
_Beep("C'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("G", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("G'", $notenlaenge2[3])
_Beep("E'", $notenlaenge2[2])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("G'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[2])
_Beep("C'", $notenlaenge2[0])
_Beep("C'", $notenlaenge2[3])
_Beep("G", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("G'", $notenlaenge2[3])
_Beep("E'", $notenlaenge2[2])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[1])
_Beep("G'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("G'", $notenlaenge2[1])
_Beep("D'", $notenlaenge2[0])
_Beep("C'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("G", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("G'", $notenlaenge2[3])
_Beep("E'", $notenlaenge2[2])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("G'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[2])
_Beep("C'", $notenlaenge2[0])
_Beep("C'", $notenlaenge2[3])
EndFunc
Func _beep($key, $duration)
For $i=1 to $keys[0]
If $key=$keys[$i] Then Beep($tasten[$i], $duration)
Next
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]