PB5.30 geht.... PB5.50 bringt Fehler !
Verfasst: 22.11.2016 12:24
Hallo, habe ein Programm zur Steuerung meiner Lichtanlage (Weihnachtsbeleuchtung am Haus
) geschrieben und lese WAV Dateien ein, welche dann per Zeitachse grafisch dargestellt werden und da kann ich dann die Lichteffekte mit steuern. Unter 5.30 läuft alles bestens, habe nun auf 5.50 geuppt und nu kommen Fehler in folgendem Stück.... :
Ist das nur bei mir so ??
Code: Alles auswählen
If ReadFile(0,wav_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