Online FM broadcast monitoring station Plzen (CZE) |
| Powered by PIRA75 FM Broadcast Analyzer |
Bandscan:
<%
dim title, freq, freqs(), titles(), i, rdsdatas(), rdsdata, rdsstats(), rdsstat
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("stations.txt"), 1)
i=0
Do While f.AtEndOfStream = false
title=f.ReadLine
if (f.AtEndOfStream = false) then
freq=f.ReadLine
end if
ReDim Preserve freqs(i)
ReDim Preserve titles(i)
ReDim Preserve rdsdatas(i)
ReDim Preserve rdsstats(i)
if (fs.FileExists(Server.MapPath("rd"&freq&".txt")))=true then
Set f2=fs.OpenTextFile(Server.MapPath("rd"&freq&".txt"), 1)
if (f2.AtEndOfStream = false) then
rdsdatas(i)=f2.ReadLine
else
rdsdatas(i)=""
end if
if (f2.AtEndOfStream = false) then
rdsstats(i)=f2.ReadLine
else
rdsstats(i)=""
end if
f2.Close
Set f2=Nothing
else
rdsdatas(i)=""
end if
freqs(i)=freq
titles(i)=title
i=i+1
Loop
f.Close
Set f=Nothing
Set fs=Nothing
%>
[Welcome message]
<%
i=0
For Each item In freqs
title=titles(i)
rdsdata=rdsdatas(i)
rdsstat=rdsstats(i)
%>
<% Response.Write(titulek) %> |
Frequency deviation histogram and accumulated distribution plot:
 %>.jpg)
 %>.jpg)
MPX analysis, RF carrier spectrum and RF instantaneous frequency histogram:
 %>.jpg)
 %>.jpg)
Modulation power behaviour:
 %>.jpg)
<%
if (rdsdata<>"") then
%>
| RDS |
<% Response.Write(rdsdata) %> |
Group statistics:
<% Response.Write(rdsstat) %>
|
<%
end if
%>
Complete report |
History
<%
i=i+1
Next
%>
(C) Pira.cz 2009