富士山へ行くのは初めてである。
富士山についての勉強をしなければならないと思い、富士山ブック (2008) (別冊山と溪谷)
どんな物が必要なのか？
どんな格好をしていけばよいのか？
どんな心構えで行けばよいのか？
等が書いてる。
結構勉強になる。
・リュック（３５リットルくらい）
・スパッツ
・懐中電灯（ヘッドライト）
あたりは必要なんだろうな〜と思う。出来れば本格的な登山靴も欲しい所。
防寒具は合羽を兼用している物を買った。今度紹介したい。
合羽にのズボンを調達しなければと思うが、ゴルフで使うやつで大丈夫かな？と思ったりする。
靴やリュックを買ったら使って馴らさなければならないだろう・・・陣馬山〜高尾山でチャレンジかな？
娘のハンドボールの応援に行った。残念ながら試合は負けてしまった。
試合があった学校から駅までの間に数件のラーメン屋があったので、昼飯はラーメンにしようと嫁とまるしゅうらーめんってラーメン屋に入った。
店が狭く調理に時間がかかったのがちょっと気になるところではあったが、ラーメンは美味かった。野菜がたっぷり乗っていて、その野菜が美味い。チャーシューも上手い。スープも麺も美味い。久しぶりに美味いと思うラーメンに出会った。
たぶん・・・この野菜を炒めるのに時間がかかっているんだと思う。オーダー来てから炒めないと美味しく出来ないんだろうなぁ〜なんて思うとちょっと時間がかかったのもしょうがないかな？と思えてくる。
ラーメンを食べた後、せっかくここまで来たのだから昭和記念公園に行ってみよう！となり、立川で乗り換え。一駅で昭和記念公園へ着いた。もう・・・何年ぶりかな？だいぶ前に来たっきりである。
公園を散策していると何やらざわめきといい匂い・・・バーベキュー場がある。沢山の人がバーベキューをしていて、メッチャ楽しそう。う〜ん・・・ラーメン食ったばかりだけどバーベキューしたくなってきた。
しかし、予約制なのでバーベキューは断念。
公園をあっちこっちまわって軽く食事をした帰った。
ここも機会があったらバーベキューをしに来たいなぁ〜と思う。
今日は皇居２周してきました！
とってもゆっくり。
１時間３０分かけて１周１０Ｋｍの皇居を２周。
週の半ばに運動が出来なかったので、ちょっと筋肉痛が残りそうではあるが、ＧＷ中の目標として掲げていた皇居２周を達成した。
今日は新しいビジネスモデルも思いついた。
なかなか良いビジネスモデルである。
明日晴れたら高尾山に行こうと思っている。
明日の高尾山登山コースは、先日混雑して降りてこれなかった 6号路（ びわ滝コース ）を上がって頂上。 4号路（ 吊り橋コース ）を下り、 1号路（ 表参道コース ）に入り、途中でＪＲ高尾方面への道を下ってみたいと思っている。
明日晴れるかな？
前回のブログで書いたパラカップ（PARACUP）2008 。昨日多摩川にて行われ出場してきました。
秋田にとって初めてのマラソン大会。しかも2,000人でのかけっこ大会。前日から少々ワクワクしてやや寝不足気味で朝を迎えた。（子供の運動会と全く変わらない心境・・・）
嫁に朝食（納豆ごはん）を用意してもらい、それを食しイザ新丸子（スタート地点最寄駅）へ！
渋谷で東横線に乗ると何となくそれらしき人（マラソンに出そうな雰囲気の人）が乗っていて、新丸子に近づくにつれ徐々に増えていく。
新丸子の駅を降りる頃には、ほとんどがマラソンの人。そろって皆駅を降りた。マラソンの人がぞろぞろ行列をなして会場へ向かう。駅や途中でボランティアの方が会場はこちらですよ〜ってプラカードで案内をしてくれているのも手伝って、まったく迷うこと無く会場へ辿りついた。
それなり風があり、少々寒かった。経営者仲間と会場でであい、心拍数が計れる時計の見せっこをしたりした。見せてもらった奴ですごかったのは、GPS機能付きの腕時計（腕GPS）。これを付けていると、何処を歩いたのか？どれくらいの速度で歩いたのか？どこからどこまでがどのくらいの速度だったのか？等がわかるそうである。便利な機械ではあるが、その機械・・・嫁さんには内緒でね・・・
さて、スタート前の30分間。2000人でエアロビクス。かなり楽しかったけどここで疲労してしまっては何にもならないので、中学生の頃のようにだらだらとエアロビクスをやる。エアロビクス終了後、スタート地点へ向かうのだが、スタート地点どこだろう？なんて思っているうちにスタートになってしまった。
もたもたしながらスタート。
恐ろしい渋滞で前に進むにも遅く進むにも出来ない状態。とりあえず流れに任せタラタラと進み始める。
定期的にボランティアの方がゼッケンに書いてあるニックネームで「アキタさん ファイトぉ〜」なんて言ってくれる。まだスタート直後は照れ臭い感じがあり軽く会釈で通り抜けていく。
4Km を過ぎて折り返し地点を通過。ここが半分だと思って「残り半分ペース上げてみよう」なんて思ったのが間違い。しばらく行くと5Km で〜す。なんて・・・あれ？ 5Km で折り返しじゃなかったんだ・・・
このあたりからだんだん苦しくなってくる。苦しくなってくると嬉しいのがボランティア「アキタさん ファイトぉ〜」の声。元気が湧いてくる感じである。
少々ペースを落としたり、ちょっとペースを上げたりしながら、あまり無理をせずに走った。目標は 1時間15分で走る事と翌日の仕事に支障をきたさない。って事。自分なりのスピードでゴールを通過した。タイムは 1時間4分23秒。
思ったより良いペースで走れた。意外と長かったが、終わってみると短かった感じもする。もう少し心肺機能を高めてまた10Km にチャレンジしたいと思う。そのあとはハーフマラソン・・・フルマラソン。本格的にチャレンジしてみたくなった。今年末〜来年にはチャレンジ出来るかな？一応目標って事で・・・宣言ではない（苦笑）
パラカップ（PARACUP）2008 を主催していただいた方々、ボランティアの皆さん。誘いのメールを入れていただいた先輩社長。共に走った方々。ありがとうございます！楽しくて有意義な一日を過ごさせていただきました。
感謝！
今日は新宿の高島屋へ行った。
リラックマのイベント真っ最中であった。
リラックマ・・・社内の誰かが作ったブログのスキンに使ってたっけ・・・新しいキャラクターがどんどん出てくる感じがする。
ちなみにこのブログの携帯版はやわらか戦車である。そろそろ変えようかなぁ〜
東宝映像事業部さんの某年パーティーでいただいた「FinePix S8000fd」。意外と難しい。かなり簡単に撮れるように設計されているのだろうけど、やっぱり難しい。何枚か撮ってみた。（このブログの2007年12月22日 東宝映像事業部様 忘年パーティー 2007 から先は FinePix S8000fd である）今までは携帯のカメラで愛犬のモカをうまく撮影する事が出来なかったが、このカメラのお陰？で愛犬のモカを撮影する事が出来た。 今まで持っていたテレビ。画面に黒い帯が出てしまい、修理にだそうとした所リコール対象製品であった。
ここまでは豊作プロジェクトのメルマガに書いたとおりである。その後があり、何と修理用の液晶のパネルが入荷するのが２月との事で、いつの間にテレビの交換をしてくれるとなった。
新しいテレビは LT-42LH805。上にあるＴ字の奴は Wii のアンテナ。
しかし・・・液晶ってのもすごいが、地上デジタルは映像がえらい奇麗ですなぁ〜。びっくり。でも・・・ＢＳがまだダメみたい・・・雨だからどうのって言い訳画面がでて、映像がトロトロに溶けちゃってる・・・
とにもかくにも、ビクターさん新しいテレビをありがとう！感謝！感謝！感謝！
この素晴らしいＴＶで、正月・・・小島よしおを見ちゃうんだろうなぁ〜・・・微妙な気分・・・（苦笑）
先日ライブハウスドットコム ってサイトの携帯向けコンテンツに google map を追加した。
http://www.livehouse.com/ へ携帯端末でアクセスしながらこのサイトを見てもらえればと思う。
今回は、これを忘れないためにブログに書き記すと共に、誰かの役に立てればと思う。
はじめに、google map を利用するには、Google Maps API の key 取得しなければならない。これに関しては、「Google Maps API key 取得」等で google 検索等で調べてもらい、 key を取得してほしい。
次に、携帯でGoogle map を利用するとなると、JavaScript が使えないので、各プログラムからHTTPにて値を取得したりしなければならない。ソケットとかソープとか・・・そんな感じのものである。
php や perl 等を使った事があれば問題ない。秋田の場合、VBScript が得意なので、VBScript （old asp）で作った。なるべく言語に依存しないように書くつもりである。
プログラムの流れとしては、
１、住所情報を Google に投げて、緯度と経度を教わる。
２、緯度と経度を Google に投げて、地図イメージをもらい画面表示する。
これだけである。
１、で緯度と経度を取得する
http://maps.google.co.jp/maps/geo?q=東京都中野区中野&output=xml&key=自分のgoogleKey
このように値を投げると、XMLにて情報を返してくれる。
q=住所（ビル名は入れると結果が戻らない）
output=xml このままxml としておくのがよい
key=自分のgoogle Key
緯度と経度は <coordinates></coordinates> の中にカンマ区切りで入ってくる。
３ヶ目（2）に「0」があるが、これはよくわからない。
カンマ区切りの緯度と経度がこれで取得出来る。
ここまではソケット通信などと呼ばれる技術になる。
普通にブラウザのURL入力欄に入れてアクセスすると状況がわかる。
これを試してからプログラムをいじるとイメージが湧きやすい。
２、地図イメージをもらう
こちらは単純に <img src=> でリクエストする。
http://maps.google.com/mapdata? に以下の引数を渡してあげる
w=もらう地図の横幅
h=もらう地図の縦幅
cc=jp（言語 jp のままでよい）
min_priority=1（優先度 １のままで良い）
latitude_e6=緯度
longitude_e6=経度
zm=地図のズームサイズ
Point=b マーカー指定開始b のまま
Point.latitude_e6=緯度座標
Point.longitude_e6=経度座標
Point.iconid=16 マーカーのアイコンを指定
Point=e マーカー指定終了e のまま
これらを & で繋いで<img> タグで呼び出す。
マーカーは複数指定できるが、携帯画面なのであまり指定しても・・・って感じなので、複数指定は割愛する。このページに辿りつくまでに色々と情報を見たと思うので、そちらで見てもらえればと思う。
若干適当な所もあるが、以下に old asp のコードを記しておく。
もし使うのであれば、自己責任でお願いしたい。
************************************************************************************
<img src=<%=googlemapMb(txt,googlekey,errcod,mpzm,mpw,mph)%>>>
Function googlemapMb(txt,googleKey,errcod,mpzm,mpw,mph)
'日本語住所からGoogle map API で緯度、経度を取得し、
'携帯で利用できる地図を取得する
'txt 検索される住所
'googleKey = google のキー
'errcod = エラーコード
'mpzm = 地図のズーム
'mpw = 地図の幅
'mph = 地図の高さ
On Error Resume Next
'緯度、経度取得のための url 作成
dim url
url = "http://maps.google.co.jp/maps/geo?" & _
"q=" & txt & _
"&output=xml" & _
"&key=" & googleKey
'オブジェクトの作成
Dim objXMLHTTP,objXML,ReturnData
Set objXMLHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
'ソケット通信
objXMLHTTP.open "GET", url, false
objXMLHTTP.Send
'ソケット通信状況を見る
if objXMLHTTP.status = "200" then
ReturnData = objXMLHTTP.responseText
'response.write ReturnData
else
errcod = "1" '通信エラー
googlemapMb = errcod
exit function
end if
If Err <> 0 Then
errcod = "2" 'システムエラー
googlemapMb = errcod
exit function
else
end if
Set objXMLHTTP = nothing
On Error GoTo 0
'取得した XML より緯度経度を取得する
dim fTxt,eTxt
'response.write InStr(lcase(ReturnData),"<coordinates>")
'response.write InStr(lcase(ReturnData),"</coordinates>")
if InStr(lcase(ReturnData),"<coordinates>") > 0 and InStr(lcase(ReturnData),"</coordinates>") > 0 Then
fTxt = InStr(lcase(ReturnData),"<coordinates>")
eTxt = InStr(lcase(ReturnData),"</coordinates>")
Else
errcod = "3" '緯度、経度取得エラー
googlemapMb = errcod
exit function
End if
'データ取得
ReturnData = Replace(ReturnData,"<coordinates>","")
dim coordinates: coordinates=mid(ReturnData,fTxt,eTxt)
dim coordinates_Array
coordinates_Array = Split(coordinates,",")
'緯度、経度はカンマで区切られていて、配列要素は3ヶ。
'Ubound して 2 以外はエラーなので、エスケープする
if Ubound(coordinates_Array) <> 2 Then
errcod = "4" '緯度、経度取得エラー
googlemapMb = errcod
exit function
end if
dim latitude '緯度
dim longitude '経度
latitude = trim(coordinates_Array(1))
longitude = trim(coordinates_Array(0))
'response.write latitude & "<br>"
'response.write longitude
'必ず数字型なので、それを調べる。
'数字方ではない場合、失敗しているのでエラーとする
if IsNumeric(latitude) and IsNumeric(longitude) Then
else
errcod = "5" '緯度、経度取得エラー
googlemapMb = errcod
exit function
end if
latitude = replace(latitude,".","")
longitude = replace(longitude,".","")
'地図情報のURLを返す
rtn = ""
rtn = "http://maps.google.com/mapdata?" & _
"w=" & mpw & _
"&h=" & mph & _
"&cc=jp" & _
"&min_priority=1" & _
"&latitude_e6=" & latitude & _
"&longitude_e6=" & longitude & _
"&zm=" & mpzm & _
"&Point=b" & _
"&Point.latitude_e6=" & latitude & _
"&Point.longitude_e6=" & longitude & _
"&Point.iconid=16" & _
"&Point=e"
googlemapMb = rtn
end Function
以前このブログにも書いたが、ヨーヨーの世界チャンピオンの川田くん。
 |
このBlogを チェッカーズに追加 |
 |
このBlogを リーダーに追加 |
