74 lines
2.2 KiB
QBasic
74 lines
2.2 KiB
QBasic
' VOiCe - VU - Meter
|
||
' by RoboCop INDUSTRIES
|
||
dim sig$(51,200)
|
||
dim sig(51,200)
|
||
dim ym(51)
|
||
cls
|
||
print:print
|
||
print"™ffne Datei ";:color 30:print"... ":color 7
|
||
OPEN "I",#1,"BAD_DAY.V_C"
|
||
locate 3,13:print"... OK"
|
||
print"Lese Daten [Zeile: Zeichen: ( ) Zeichen ges.: ] ";:color 30:print"...":color 7
|
||
for z=1 to 10
|
||
if eof(1) then exit for
|
||
line input #1,ZLE$
|
||
e=len(zle$)
|
||
for x=1 to e
|
||
if x>=401 then exit for
|
||
SIG$(z,x)=mid$(zle$,x,1)
|
||
zeiges=zeiges+1
|
||
locate 1,66:print using"###.#kB Memory";fre(0)/1024
|
||
locate 2,66:print using"###.#kB free";fre(-1)/1024
|
||
locate 3,66:print using"##### B unused";fre(-2)
|
||
locate 4,18:print using ": ### Zeichen: ### (!) Zeichen ges.: ######";z,x,sig$(z,x),zeiges;
|
||
next x
|
||
ym(z)=x
|
||
next z
|
||
zm=z
|
||
print" ] ... OK"
|
||
print"Konvertiere Daten [Zeichen: ASCII: Kurve: ñ Wert: ] ";:color 30:print"...":color 7
|
||
for z=1 to zm
|
||
for x=1 to ym(z)
|
||
sig(z,x)=0
|
||
f=ascii(sig$(z,x))
|
||
sig(z,x)=f-128
|
||
locate 1,66:print using"###.#kB Memory";fre(0)/1024
|
||
locate 2,66:print using"###.#kB free";fre(-1)/1024
|
||
locate 3,66:print using"##### B unused";fre(-2)
|
||
locate 5,27:print using": ! ASCII: ### Kurve: +### Wert: ###";sig$(z,x),f,sig(z,x),abs(sig(z,x));
|
||
next x
|
||
next z
|
||
print " ] ... OK"
|
||
print"Zeige Daten [Kurve: ñ Wert: Aussteuerung: ] ";:color 30:print"...":color 7
|
||
locate 1,1:color 8:print "þþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþþ"
|
||
locate 1,1:color 12:print"ANF"
|
||
locate 1,31:print"MID"
|
||
locate 1,62:print"END"
|
||
oldx=1
|
||
for z=1 to zm
|
||
for y=1 to ym(z)
|
||
a=sig(z,y)/2
|
||
a=abs(a)
|
||
x=round(a,0)
|
||
if x<1 then x=1:if x>64 then x=64
|
||
for h=1 to x
|
||
if h<64 and h>=52 then far=12
|
||
if h<52 and h>=35 then far=14
|
||
if h<35 and h>=0 then far=10
|
||
b$="þ"
|
||
if h=1 then b$="A"
|
||
if h=32 then b$="M"
|
||
if h=64 then b$="E"
|
||
locate 1,h:color far:print b$;:color 8
|
||
next h
|
||
for i=h to 64
|
||
b$="þ"
|
||
if i=1 then b$="A"
|
||
if i=32 then b$="M"
|
||
if i=64 then b$="E"
|
||
locate 1,i:print b$;
|
||
next i
|
||
color 7:locate 6,19:print using": +### Wert: ### Aussteuerung: ##";sig(z,y),abs(sig(z,y)),x;
|
||
next y
|
||
next z
|
||
color 7:print" ] ... OK" |