#include-once

Func _beepton($v_ton, $i_dauer = 1000, $i_anzahl = 1)
	Local $frequenz = -1, $v_ton2 = $v_ton, $i_oktave = StringRight($v_ton,1)
	Local $aToene[17][2] = [["c", 262],["c#",277],["db",277],["d",294],["d#",311],["eb",311],["e", 330],["f", 349],["f#",370],["gb",370],["g", 392],["g#",415],["ab",415],["a", 440],["a#",466],["b",466],["h", 494]]
	If StringIsInt($i_oktave) Then $v_ton2 = StringTrimRight($v_ton,1)
	If Not StringIsInt($i_oktave) Then $i_oktave = 1
	For $i = 0 To 16
        If $v_ton2 = $aToene[$i][0] Then $frequenz = $aToene[$i][1]
	Next
	If $frequenz = -1 Then
		Return 0
		SetError(1)
	EndIf
	$beepton = ($frequenz*2^$i_oktave)/2
	For $i = 1 To $i_anzahl
		Beep($beepton,$i_dauer)
	Next
	Return 1
EndFunc