Das deutsche QBasic- und FreeBASIC-Forum

[coolMCcool]

Hallo liebe Programmierergemeinde,

mich plagt seit längeren der Gedanke, wie ich es ganz simpel lösen kann das unten aufgeführte unterprogramm "nebenbei" laufen zu lassen, ohne dass das Hauptprogramm davon beeinflusst wird, das u.g. unterprogramm jedoch jederzeit auch abgebrochen werden kann:

Quellcode:

InitSpeed = 10

FILE$ = "C:\... .wav"
SampleRate% = 22050

OUT &H43, &HB6
OUT &H42, &HFF
OUT &H42, 0
OUT &H43, &H90
R = INP (&H61) OR 3
OUT &H61, R

OPEN FILE$ FOR BINARY AS #1
z! = TIMER
speed = InitSpeed

DO
s$ = INPUT$(1, #1)
IF s$ <> "" THEN VOL% = ASC (s$) /4: Byte& = Byte& + 1

FOR a% = 1 to speed: Next a%
OUT &H42, VOL%
IF z! + 0.2 < TIMER THEN
z! = TIMER
speed = speed * (Byte& / (SampleRate% / 5))
Byte& = 0
IF speed < 0.1 THEN GOTO Fast:
END IF
LOOP WHILE NOT EOF (1)

GOTO Ende:

Fast:

DO
s$ = INPUT$ (1, #1)
IF s$ <> "" THEN VOL% = ASC (s$) / 4: Byte& = Byte& + 1
OUT &H42, VOL %
LOOP WHILE NOT EOF (1)

Ende:
OUT &H43, &HB6
R = INP (&H61) AND &HFC
OUT &H61, R

Soweit zum kleinen Programm. Wenn jemand weiß, wie ich es noch schneller kriege, bitte auch melden. Ich hoffe das Problem ist klar? Also ich weiß, dass es möglich ist, nur weiß ich nicht, wie es in Qbasic lösbar sein könnte. Vielen dank und einen schönen Abend noch.

cool MC cool

P.S. Ich liebe Maschinensprache. Sie ist so.... direkt

[jb]

Das kannst du mit ON TIMER() lösen: