Das deutsche QBasic- und FreeBASIC-Forum

[monster_beep]

Hallo Leute! Ich arbeite immer noch an meinem Synthesizerprojekt und hab mal wieder ein paar knifflige Fragen. Hier erstmal der aktuelle Quelltext:

DECLARE FUNCTION converter$ (x$)
CLS
SLEEP 1
PRINT ":MONSTER BEEP:"
PRINT " < digital synth >"
PRINT
PRINT "version 1.0"
PRINT "m. s. 2005"
PRINT
PRINT
PRINT "CONTROLS"
PRINT "play: < a y s x c f v g b h n m"
PRINT "quit: q"
PRINT
SLEEP 1
PRINT "--------------------------------------------------------------------------------"
PRINT "messages:"
DO WHILE i$ <> "q"
i$ = INPUT$(1)
i$ = LCASE$(i$)
IF i$ <> "q" THEN
IF INSTR("<aysxcfvgbhnm", i$) THEN
i$ = converter$(i$)
PLAY "l 16"
PLAY i$
ELSE
PRINT "error: unknown key"
END IF
END IF
LOOP
PRINT "monster beep has been killed..."
SLEEP 2
CLS
SYSTEM

FUNCTION converter$ (x$)
SELECT CASE x$
CASE IS = "<"
converter$ = "c"
CASE IS = "a"
converter$ = "c+"
CASE IS = "y"
converter$ = "d"
CASE IS = "s"
converter$ = "d+"
CASE IS = "x"
converter$ = "e"
CASE IS = "c"
converter$ = "f"
CASE IS = "f"
converter$ = "f+"
CASE IS = "v"
converter$ = "g"
CASE IS = "g"
converter$ = "g+"
CASE IS = "b"
converter$ = "a"
CASE IS = "h"
converter$ = "a+"
CASE IS = "n"
converter$ = "b"
CASE IS = "m"
converter$ = "o5 c o4"
END SELECT
END FUNCTION

Nun zu den Fragen:

1.
Also momentan ist es so, dass wen man eine Taste im Bereichder möglichen Töne drückt, der Ton in einer bestimmten, von mir festgelegten Länge gespielt wird. Dabei ist es egal, ob ich in der Zwischezeit schon einen anderen drücke. Der wird dann nachgeschoben.
Ich hätte es aber gerne so, dass die PLAY – Anweisung abgebrochen wird und die DO - WHILE - Schleife von neuem beginnt, wenn man eine andere Taste drückt. Das Problem dabei ist, dass es momentan so aussieht, dass in der Schleife immer erst gewartet wird, bis der nächste Ton eingegeben wird. Man müsste die Taste also zweimal drücken.
Würde ich die Warteanweiung auf die nächste Eingabe außerhalb der Schleife setzen, würde das ganze in einer Endlosschleife münden, weil die Abbruchbedingung nie erfüllt wird.
Wie könnte man das also anstellen?

2.
In der Funktion converter habe ich momentan noch die Bezeichnungen der Töne für die einzelnen Tasten verwendet. Ich würde aber anstatt der PLAY – Anweisung gerne die Anweisung SOUND benutzen. Da gibt man dann Frequenzen ein. Das Problem ist jetzt: Welche Frequenz ist welche Tonbezeichnung. Wenn ich zum Beispiel das C in der ersten Oktave bei der PLAY – Anweisung spielen will, dann geb ich PLAY „o1 c“ ein. Aber welcher Soundfrequenz entspricht das? Gibt es da eine Aufschlüsselung von PLAY zu SOUND oder andersrum?
Jetz mag man sich fragen, warum ich denn das mit SOUND mache möchte. Nun ja, das ist nicht so statisch und festgelegt wie PLAY. Da kann man zum Beispiel auch mit kleineren Tonschrittenals mit Halbtönen arbeiten und so.

[jb]

Zu deiner ersten Frage: Da müsste man wissen, wie lange ein Schleifendurchlauf dauert,
und dann die Tonabspielzeit mit SOUND halt so lange machen.

Da die Abspieldauer bei SOUND aber nicht in ms angegeben wird, würde ich dir
DIRSOUND.BAS aus der MonsterFAQ empfehlen, bei der das der Fall ist.

Zu deiner 2. Frage:

C: ~261 Hz
D: ~294 Hz
E: ~330 Hz
F: ~349 Hz
G: ~393 Hz
A: ~440 Hz
H: ~494 Hz
C: ~523 Hz

jb

[MisterD]

Frequenzen bestimmen geht einfacher so:

ausgangston a = 440 hz
dann kann man die frequenz so berechnen:

440*2^(halbtonschritte/12)

ein C wäre zB dann a -> c = 3 hts -> 440*2^(3/12) =~532,25
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[monster_beep]

[monster_beep]

Während ich hier so an meinem Klavierchen bastel, stellt sich mir eine grundlegende Frage zu QBasic: Ist es überhaupt möglich eine Anwendung so zu konstruieren, dass man sie, wenn sie gerade ausgeführt wird durch einen Tastendruck unterbricht bzw. abbricht?

Dazu mal das konkrete Beispiel:

Bei meinem Klavierprogramm ist der Hauptprogrammteil folgende Schleife:

DO WHILE i$ <> „q“
i$ = INPUT$(1)
i$ = LCASE$(i$)
IF i$ <> „q“ THEN
IF INSTR („<aysxcfvgbhnmw3e4rt6z7u8io“, i$) THEN
SELECT CASE
CASE IS = „<“
SOUND 261.63, l // l ist die vom Nutzer festgelegte Tonlänge
.
.
.
CASE IS = „o“
SOUND 1046.5, l
END SELECT
ELSE
PRINT „error: unknown key“
END IF
END IF
LOOP

Es ist also momentan so, dass, wenn eine bestimmt Taste gedrückt wurde, wein bestimmter Ton einfach mit der vom Nutzer festgelegten Länge gespielt wird (wie ich wahrscheinlich schon mehrmals erklärt habe ).
Ich hätte das aber gern so, dass sofort, wenn während des Spielens des SOUND eine neue Taste gedrückt wird, auch ein neuer Ton, oder der entsprechende Error ausgegeben wird.
Es müsste also so sein, dass das Programm während des SOUNDS registriert, ob was eigegeben wird, das dann mit i$ abgleicht und sofort für den neue Wert ausführt, ohne zu warten, bis der Ton zu Ende ist. Die Frage ist: Geht das überhaupt? Wenn ich so eine Anweisung in jeden CASE unter die SOUND – Anweisung schreibe, geht das meiner Meinung nach nicht, weil QBasic dann erstmal den Befehl zu Ende ausführt und sich dann Gedanken über den Rest macht. Kann man das nun trotzdem irgendwie realisieren? Vielleicht klemmts bei mir im Kopf nur ein wenig.

[Devilkevin]

Ähm in die entsprechende Schleife schreibst du einfach:

[monster_beep]

da würde der ja einfach die schleife abbrechen, wenn ich ESC drücke. Naja, das ist ja schon so (nur dass es hier halt mit q steht).
Ich will aber, dass er die Schleife an der stelle, wo er ist abbricht und sie von neuem anfängt und sie nicht verlässt.
Ich würde ja gerne mal den neuen kompletten Quelltext posten, aber irgendwie kann ich die BAS - Datei nicht wie bei der Version oben einfach ins Notpad ziehen. Also das heißt, ich kann das schon. Nur bekomme ich da keinen vernünftigen Quelltext sondern Gehacktes.

[jb]

Dann speichere die .BAS-Datei halt im Textmodus ab

jb

[monster_beep]

danke für den tipp. ganz schön blöd, dass ich da nicht selbst drauf gekommen bin. hier ist also nochmal der aktuelle programmtext:

COLOR 14, 0
CLS
SLEEP 1
PRINT ":MONSTER BEEP:"
PRINT " < digital piano >"
PRINT
COLOR 7, 0
PRINT "Version 2.1"
PRINT "M.S. 2005"
PRINT
PRINT
INPUT"Tonlaenge festlegen => ENTER (18.2 entspricht einer Sekunde):", l
PRINT
PRINT
COLOR 0, 7
PRINT "Tasten:"
COLOR 7, 0
PRINT "Oktave 1: < a y s x c f v g b h n m"
PRINT " c cis d dis e f fis g gis a ais h c"
PRINT
PRINT "Oktave 2: w 3 e 4 r t 6 z 7 u 8 i o"
PRINT " c cis d dis e f fis g gis a ais h c"
PRINT
COLOR 0, 7
PRINT "Beenden:"
COLOR 7, 0
PRINT "ESC"
PRINT
COLOR 7, 0
PRINT "--------------------------------------------------------------------------------"
COLOR 3, 0
PRINT "Messages:"
DO WHILE i$ <> CHR$(27)
i$ = INPUT$(1)
i$ = LCASE$(i$)
IF i$ <> CHR$(27) THEN
IF INSTR("<aysxcfvgbhnmw3e4rt6z7u8io", i$) THEN

SELECT CASE i$
CASE IS = "<"
SOUND 261.63, l
CASE IS = "a"
SOUND 277.18, l
CASE IS = "y"
SOUND 293.66, l
CASE IS = "s"
SOUND 311.12, l
CASE IS = "x"
SOUND 329.62, l
CASE IS = "c"
SOUND 349.23, l
CASE IS = "f"
SOUND 369.99, l
CASE IS = "v"
SOUND 391.99, l
CASE IS = "g"
SOUND 415.3, l
CASE IS = "b"
SOUND 440, l
CASE IS = "h"
SOUND 466.16, l
CASE IS = "n"
SOUND 493.88, l
CASE IS = "m"
SOUND 523.25, l
CASE IS = "w"
SOUND 523.25, l
CASE IS = "3"
SOUND 554.37, l
CASE IS = "e"
SOUND 587.33, l
CASE IS = "4"
SOUND 622.25, l
CASE IS = "r"
SOUND 659.26, l
CASE IS = "t"
SOUND 698.45, l
CASE IS = "6"
SOUND 739.99, l
CASE IS = "z"
SOUND 783.99, l
CASE IS = "7"
SOUND 830.61, l
CASE IS = "u"
SOUND 880, l
CASE IS = "8"
SOUND 932.33, l
CASE IS = "i"
SOUND 987.77, l
CASE IS = "o"
SOUND 1046.5, l
END SELECT


ELSE
PRINT "Error: invalid key"
END IF
END IF
LOOP
PRINT "Monster Beep wird beendet..."
COLOR 7, 0
SLEEP 2
CLS
SYSTEM

ja, das Problem hatte ich ja oben schon beschrieben...

[Skilltronic]

Hallo

Ich habe mir mal einen anderen Ansatz überlegt. Mit der untersten Tastenreihe von Y bis zum , kann man damit die Tonleiter vom c' bis zum c'' spielen, die Töne werden gehalten, bis die Taste losgelassen oder eine andere gedrückt wird. Am besten funkioniert es aber, wenn man immer nur eine Taste gleichzeitig drückt...

[monster_beep]

Das geht ja richtig ab. Schönes Ding. Mein Problem ist jetzt nur, wie man vielleicht schon an meinen Beiträgen in diesen Topic ablesen kann, dass ich nicht besonders gut logisch denken kann.
Das heißt im Klartext: Ich kapier deinen Algorithmus überhaupt nicht. Also ich seh, dass da Schleifen und Alternativen und ne SOUND - Anweisung sind, aber mehr auch nicht. Kannst du (oder jemand anderes, der Zeit hat) das für mich vielleicht nochmal idiotensicher aufschlüsseln und mir sagen, wo genau das dann im Programm hingehört (ersetzt ja sicherlich die "Hauptschleife", die ich oben gepostet hab)??
Was ich mich zum Besipiel Frage, ist: Wieso benutzt du eine FOR – Schleife, die 8 Mal durchlaufen wird? Was ist READ tf (a)...
Ich würd halt gerne verstehen, wie das funktioniert, damit ich es benutzen und ausbauen kann.

Ach da fällt mir nochwas ein: Du scheinst dich ja auch mit Elektronik auszukennen. Da hab ich mal ne Frage: Kann ich an meinen PC – Speaker einen Verstärker und eine BOX anlöten, damit der mein „Monster Beep“ richtig Wums kriegt? Nun könnte man vielleicht meinen, dass ich da doch lieber auf eine Ausgabemöglichkeit über die Soundkarte zurückgreifen sollte, aber das will ich nicht. Mir gefällt nämlich der Sound des PC – Speakers ziemlich gut. Ist so spielzeugartig, wie so ein Kinderroboter. Wenn ich das ganze dann noch durch mein Boss Overdrive/Distortion – Pedal jage, hört sich das bestimmt krass an.

Ja, soweit erstmal vielen Dank für die neue Idee!!!

[dreael]

Unter

http://www.dreael.ch/Deutsch/BASIC-Knowhow-Ecke/SOUND_Toene.html

hätte ich sonst auch ein sehr einfaches Tastaturklavier-Beispiel. Mit Hilfe der von MisterD gegebenen Formel der temperierten Tonleiter sowie der Tastenabfrage über INSTR (die Position des Zeichens entspricht indirekt dem Argument der Formel) konnte der Code extrem kompakt gehalten werden.
_________________
Teste die PC-Sicherheit mit www.sec-check.net

[Skilltronic]

Hallo

Also: Die Schleife liest mit READ die acht Frequenzen die ganz unten unter DATA stehen ein und speichert sie im Array tf() ab. Sieh' dir am besten einfach mal den Eintrag in der QB-Onlinehilfe zu READ und DATA an.

Dann beginnt die Schleife. Wenn f = 0 ist, bedeutet das, das keine Taste gedrückt ist (siehe weiter unten), folglich wird auch kein Ton ausgegeben. Ist f > 0, dann wird für kurze Zeit (hab' mich auch nur durch ausprobieren an die .2 rangetastet) ein Ton mit der Frequenz f ausgegeben.

t = INP(96) ist einfach nur eine andere Art der Tastaturabfrage. Dazu findest du was in der Monster-FAQ auf qbasic.de . Mit diesem Befehl wird eine Zahl ausgelesen, die für die letzte Tastenaktivität steht. Liegt t zwischen 0 und 127, dann wurde die entsprechende Taste gedrückt, ist t>127 dan wurde die Taste (t-128) losgelassen. Mit

[MisterD]

ey dreael, die instr-variante is ja ma sehr genial! Das mach ich bei meinem nächsten ich-hab-4-freistunden-und-weiß-nicht-was-ich-an-diesen-müll-pc's-machen-kann-außer-schwachsinn-zu-programmieren-und-damit-andere-leute-zu-nerven-Projekt
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[monster_beep]

Also ich hab mich jetzt mal hartnäckig damit auseinandergesetzt, wie das funtionieren soll, aber ich durchschau es immer noch nicht.

Also ich kapier folgendes:
Die FOR – Schleife muss 8mal durchlaufen werden, weil es 8 Werte einzulesen gibt. Beim ersten Schleifendurchlauf liest der den Wert 1 (also 262) aus dem tf – Array ein, beim zweiten den Wert 2...

So, dann beginnt die DO – Schleife. Da ist schon erstmal die Frage, wieso ich für f einfachso Buchstaben eingeben kann. Ein Buchstabe kann ja nicht größer 0 sein.

Dann frag ich mich noch, wie das Programm wissen kann, welche Frequenz f hat. Die Frequenzen sind doch im Array tf und nicht in f gespeichert.

So, die 0.04 Takte Abspieltzeit sind dann wohl sicher die Zeit für einen Schleifendurchlauf...

Na ja, ich hoffe ich kapier das noch.

[monster_beep]

[jb]

[monster_beep]

Hab mich mal noch ein bisschen mit dem Problem Tonlänge beschäftigt:

COLOR 14, 0
CLS
SLEEP 1
PRINT ":MONSTER BEEP:"
PRINT " < digital piano >"
PRINT
COLOR 7, 0
PRINT "Version 3.0"
PRINT "m s 2005"
PRINT "ms@x.yz"
SLEEP 1
PRINT
PRINT
PRINT
PRINT
COLOR 0, 7
PRINT "Tasten:"
COLOR 7, 0
PRINT "Oktave 1: < a y s x c f v g b h n m"
PRINT " c cis d dis e f fis g gis a ais h c"
PRINT
PRINT "Oktave 2: w 3 e 4 r t 6 z 7 u 8 i o"
PRINT " c cis d dis e f fis g gis a ais h c"
PRINT
COLOR 0, 7
PRINT "Beenden:"
COLOR 7, 0
PRINT "ESC"
PRINT
COLOR 12, 0
PRINT "----------------------------------Nachrichten-----------------------------------"


DO WHILE i$ <> CHR$(27)
i$ = INPUT$(1)
i$ = LCASE$(i$)
IF i$ <> CHR$(27) THEN
IF INSTR("<aysxcfvgbhnmw3e4rt6z7u8io", i$) THEN
h% = INSTR("<aysxcfvgbhnmw3e4rt6z7u8io", i$)


i$ = INKEY$
DO UNTIL i$ <> INKEY$
SOUND 440! * 2! ^ ((h% + 2) / 12), .04
LOOP


ELSE
PRINT "Fehler: Ung?ltige Taste"
END IF
END IF
LOOP
PRINT "Monster Beep wird beendet..."
COLOR 7, 0
SLEEP 2
CLS
SYSTEM




Die SOUND-Schleife wird jetzt ausgeführt, bis sich der Tastaturpuffer ändert. Kann man das so ralisieren?
Problem wieder: Am Anfang der Schleife wartet er auf die nächste Eingabe. Das wurde hier ja schonmal auf andere Weise gelöst. Kann ich dass jetzt auch hier einbauen?

Achso: Was ist eigentlich der Tastaturpuffer so richtig?


=> => ??

[MisterD]

nein. Der Tastaturpuffer ist sofort wenn du ihn abfragst ein zeichen kürzer, wenn nur eins drin ist isser dann leer. Das müsstest du dann mit Scancodes machen.
ich schreib da grad ma was..

/edit: Mist, geht ned, mein TV-Programm macht stress
also sowas:

mit