Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
oldzorro
Anmeldungsdatum: 09.03.2018 Beiträge: 20 Wohnort: Erkelenz
|
Verfasst am: 25.03.2018, 12:22 Titel: Ton mit Tastatur eingeben |
|
|
Hi,habe mit dem code
#Include "windows.bi"
#Define a _beep(440,800)
a
sleep
den Kammerton a erzeugt.Wie kann ich ihn durch die Taste a erzeugen?
Mit inkey habe ich nichts gefunden |
|
Nach oben |
|
|
Jojo alter Rang
Anmeldungsdatum: 12.02.2005 Beiträge: 9736 Wohnort: Neben der Festplatte
|
Verfasst am: 25.03.2018, 13:17 Titel: |
|
|
Vielleicht so?
Code: |
#Include "windows.bi"
dim as string taste
do
taste = inkey
if taste = "a" then
_beep(440,800)
elseif taste = "c" then
_beep(...)
endif
...
Sleep 1
loop until taste = chr(27) 'Escape
|
INKEY wartet nicht bis tatsächlich eine Taste gedrückt wurde, vermutlich war das dein Problem. GETKEY wartet auf einen Tastendruck, das wäre auch eine Alternative. _________________ » Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
|
|
Nach oben |
|
|
oldzorro
Anmeldungsdatum: 09.03.2018 Beiträge: 20 Wohnort: Erkelenz
|
Verfasst am: 25.03.2018, 15:41 Titel: |
|
|
Danke,verstanden,Es funktioniert.Damit kann ich die Tonleiter mit den entsrechenden Tasten belegen |
|
Nach oben |
|
|
|