Inspired by this Stack Exchange answer from @rm-rf, and question of @dmurta , I created this simple WiFi signal monitor with Wolfram Language. It works just for MAC, but I believe that a Windows version would be not too hard to implement. It's a cool way to test your WiFi signal in different places of your house or office.
In this gif, I have moved to far and then to near from my WiFi base station. The Notebook is available below. Code suggestions/improvement are always welcome.
Here is the code:
getSignal[]:=Module[{data},
data=ReadList["!/System/Library/PrivateFrameworks/Apple80211.framework/Versions/Current/Resources/airport -I","String"];
data=Rule@@StringSplit[StringReplace[StringTrim@#," "-> ""],":",2]&/@data;
data[[All,2]]=If[StringMatchQ[#,NumberString],Internal`StringToDouble[#],#]&/@data[[All,2]];
data
]
(*dd=getSignal[]*)
plot[data_]:=ListPlot[Transpose@data
,PlotRange->{{0,10},{-100,0}}
,AxesOrigin->{0,-100}
,Joined->True
,PlotStyle->{Directive[Darker@Green,Thick],Directive[Darker@Red,Thick]}
,Background->Black
,AxesStyle->White
,DataRange->{0,10}
,AspectRatio->0.4
,BaseStyle->{FontFamily-> "Helvetica"}
,PlotLegends->(Style[#,White,FontFamily->"Helvetica"]&/@{"Signal Strength (dBm)","Signal Noise (dBm)"})
,PlotLabel->Style["Measuring WiFi Signal Strength",14,White]
]//Panel[#,Background->Black]&
(*plot[RandomInteger[{-100,0},{40,2}]]*)
wiFiMonitor[]:=DynamicModule[{data,runQ=False},
data=ConstantArray[Null,{40,2}];
Dynamic[
Refresh[
If[runQ,data=Most@Prepend[data,{"agrCtlRSSI","agrCtlNoise"}/.getSignal[]]] (*RSSI - Received Signal Strength Indication*)
;Deploy@Grid[{
{Row@{Button[Dynamic[If[runQ,"Stop","Start"]],runQ=Not@runQ,Background->White,ImageSize->100],Button["Reset",data=ConstantArray[Null,{40,2}],Background->White,ImageSize->100]}}
,{plot[data]}}
,Background->Black
,Dividers->White
,Alignment->Left
]
,UpdateInterval->0.25
,TrackedSymbols->{}]
]
,SaveDefinitions->True
]
wiFiMonitor[]
Attachments:
