FlashAirで周囲のWiFiのアクセスポイントのログを取って歩いて、GoogleのGeolocation APIで緯度経度を求めた結果を地図にプロットしてみた。
前に書いた「FlashAirで、周囲のWiFiのアクセスポイントを検索して、そのログを取るソフトを作ってみた」という話の続きだ。

名古屋の大須の電気街の招き猫広場からスタートして、反時計回りに第一アメ横ビルの周辺の道を回って一周して歩きながらログを取ってみた。
そうやって取得したログ情報から、GoogleのGeolocation APIで緯度経度を求めた結果、このようになった。

名古屋の大須の地図の上に、縦長の四角形を描くように地図マーカーが並んでいる。
左下がスタート地点の招き猫広場だ。
そこから約30秒毎にログが記録されている。
ほぼ一定の速度で歩いたのだが、マーカーは等間隔になっていない。これはGeolocationの精度が出なくて位置がずれているためだ。
GPSほどの精度は出なくて20メートル～100メートルくらいのずれが生じているようだ。

大まかに位置が記録できるロガーになりそうだ。FlashAirが薄っぺらいので、薄くて小型なロガーを作るというのができそうだ。
使い道としては、ちょっと思いつかないのだが、ポケットに入れておけば大雑把に一日の行動が記録できるだろう。あと、小包とかを送るときに中にロガーを仕込んでおけば送られた経路とかを調べられそうだ。
続きを読む →

FlashAirで、周囲のWiFiのアクセスポイントを検索して、そのログを取るソフトを作ってみた、という話の続き。

前回のものはBSSIDも記録しないといけないということを失念していたので、ちゃんとBSSIDも記録するように作り直してみた。

local file = io.open("/log.txt", "a")
file:write("WiFi SSID Logging data\r\n")
file:write("---\r\n")
file:close()
fa.SetCurrentTime(0x2821,0)
hh=0
mm=0
ss=0
sleep(100)
while true do
	file = io.open("/log.txt", "a")
	file:write("time , "..hh..","..mm..","..ss.."\r\n")
	count = fa.Scan()
	for i=0, (count-1), 1 do
		ssid, other = fa.GetScanInfo(i)
		if ssid ~= "" then
			file:write("SSID,"..ssid.."\r\n")
			for key, val in pairs(other) do
				if key=="BSSID" then
					file:write(" BSSID,"..val.."\r\n")
				elseif key=="RSSI" then
					file:write(" RSSI,"..val.."\r\n")
				end
			end
		end
	end
	file:write("---\r\n")
	file:close()
	fat_time = lfs.attributes("/log.txt")
	hh = bit32.band (bit32.rshift(fat_time.modification, 11),0x1F);
	mm = bit32.band (bit32.rshift(fat_time.modification, 5),0x3F);
	ss = bit32.band (fat_time.modification,0x1F)*2;
	sleep(1000*30)
end

続きを読む →

FlashAirで、周囲のWiFiのアクセスポイントを検索して、そのログを取るソフトを作ってみている。

とりあえず、一定時間毎に、時間と、SSIDとRSSIを記録するというのを作ってみた。
ログを取ったあと、そのログを解析して、無線AP情報から緯度経度を推定するサービスと連動させて移動の軌跡を出せるかなあ、とか考えている。

コードはLua言語で書いた。FlashAir W-04で動かしている。
test.luaというファイル名でFlashAirのSDカードストレージのルートフォルダーに入れる。

local file = io.open("/log.txt", "a")
file:write("WiFi SSID Logging data\r\n")
file:write("---\r\n")
file:close()
fa.SetCurrentTime(0x2821,0)
hh=0
mm=0
ss=0
sleep(100)
while true do
	file = io.open("/log.txt", "a")
	file:write("time , "..hh..","..mm..","..ss.."\r\n")
	count = fa.Scan()
	for i=0, (count-1), 1 do
		ssid, other = fa.GetScanInfo(i)
		if ssid ~= "" then
			file:write("SSID,"..ssid.."\r\n")
			for key, val in pairs(other) do
				if key=="RSSI" then
					file:write(" RSSI,"..val.."\r\n")
				end
			end
		end
	end
	file:write("---\r\n")
	file:close()
	fat_time = lfs.attributes("/log.txt")
	hh = bit32.band (bit32.rshift(fat_time.modification, 11),0x1F);
	mm = bit32.band (bit32.rshift(fat_time.modification, 5),0x3F);
	ss = bit32.band (fat_time.modification,0x1F)*2;
	sleep(1000*30)
end

続きを読む →

FlashAirのハンズオンイベントに行ってきた。
→ FlashAir Developers Summit ハンズオン@大阪 2018年度 – connpass

続きを読む →