
Ich bin jetzt nicht sooooo der Kombjuda Profi, dass ich das alles kann... kannst Du mir da den Code passend machen ? Ich dreh hier noch durch. Das übersteigt mein eigentliches BASIC Wissen.... 10 Print "Hallo"; 20 Goto 10

Danke NIC
Rings hat geschrieben:ziert sich nich beim zitieren
Wenn es auch ohne externes Programm laufen darf dann wäre ev. der Code im englischen Forum interessant. Der Source Code ist zwar etwas chaotisch aber etwas angepasst funktioniert er bei mir soweit gut. Vielleicht ja etwas für Dein Projekt.Then hat geschrieben:Hi, kennt jemand einen Konverter von MP3 nach WAV... aber der sollt per Shell aufgerufen werden, quasi COMMAND LINE TOOL ??
Code: Alles auswählen
InitSprite()
window=OpenWindow(#PB_Any,0,0,1024,600,"stream", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If ReadFile( 0,datei$ )
riff$=""
For i=1 To 4
riff$+Chr(ReadCharacter(0))
Next
gr=ReadLong(0)
wave$=""
For i=1 To 4
wave$+Chr(ReadCharacter(0))
Next
fmt$=""
For i=1 To 4
fmt$+Chr(ReadCharacter(0))
Next
fmt_length=ReadLong(0)
format_tag=ReadWord(0)
channels=ReadWord(0)
sample_rate=ReadLong(0)
bytes_per_second=ReadLong(0)
block_align=ReadWord(0)
bits_per_sample=ReadWord(0)
dat$=""
For i=1 To 4
dat$+Chr(ReadCharacter(0))
Next
data_length=ReadLong(0)
*buffer=AllocateMemory(data_length)
ReadData(0, *buffer, data_length)
CloseFile(0)
EndIf
faktor_x=data_length/1024
faktor_y.d=200/32767
If faktor_x % 2 <> 0 ;faktor_x muß durch 2 teilbar sein
faktor_x+1
EndIf
OpenWindowedScreen(WindowID(window),0,0,1024,500,0,0,0, #PB_Screen_WaitSynchronization)
Repeat
event=WindowEvent()
ClearScreen(0)
StartDrawing(ScreenOutput())
x=0
x1=0
While x<data_length
y=PeekW(*buffer+x)
y*faktor_y
LineXY( x1,250,x1,250+y,RGB(200,87,0) )
x+faktor_x
x1+1
Wend
LineXY( 0,250,1024,250,RGB($FF,$00,$00) )
StopDrawing()
FlipBuffers()
Until event=#PB_Event_CloseWindow
CloseScreen()
CloseWindow(window)