日常

2009年08月01日

ガンダムの潮風公園

会社の帰りにガンダムを見てきました。
品川駅から新橋駅に戻り、ゆりかもめに乗り換え台場駅で降ります。
10分ぐらい潮風公園まで歩きます。
もう夕方なのに人の流れがあって直ぐ判ります。

18mの高さは人型の為か巨大に見えます。
ただ見るだけですが、平日でも見に来ている人は多いです。
SA390034
SA390053
SA390067


yamama009ma at 18:17|この記事のURLComments(0)TrackBack(0)

2008年10月18日

容疑者Xの献身。ガウスの加速器




ストーリーと直接関係ありませんが、ドラマのように湯川の実験を紹介する場面で、ガウスの加速器が出てました。

手元に丁度いい大きさの磁石は無かったのですが、ネオジム磁石があったので、アルミレールと鉄球を調達して来て、真似してみました。
もう少し大きい磁石を使って2段階で加速させれば更に加速するそうです。

映画の中では超電導コイルを使ったコイルガンも派手に使ってました。(張りぼてですが)
ネットを検索するとコイルガンやレールガンは人気のようで、自作してる人も多いですね。

2段にしてみました。

yamama009ma at 15:35|この記事のURLComments(0)TrackBack(0)

2007年05月02日

鴻巣市図書館のOPACシステム更新

市町村合併により、鴻巣、吹上、川里の図書館のシステムが統一され再オープンしました。
1ヶ月以上休館していたのでデータ移行は手作業で再登録する必要があったのでしょう。
吹上の旧システムは以前からインターネットでも携帯でもアクセスできたのでそれほど操作感は変わりませんが、利用カードの他に携帯のFelicaが使えるようになったので登録して来ました。
携帯を買い換えた時は面倒だけど、他でも会員カード代わりに使えるようになって欲しいところです。
http://lib.city.kounosu.saitama.jp/Library/index.aspx
このOPACシステムはaspxなのでwindowsで動いてますね。
今日は初日なのでシステムメーカの担当者らしき人が図書館員の隣で操作の指示をしていました。

地元の図書館以外に、勤務先でも千代田区の図書館を利用しています。
http://www.library.chiyoda.tokyo.jp/
昌平まちかど図書館は秋葉原にあるので昼休みの散歩コースに入っています。
千代田区は本館が移転の為に1ヶ月以上休館して連休明けまで使えません。
年度変わりで、民活の「指定管理者制度」が導入され、購入希望図書のアンケートの受付が廃止されてのも少し残念です。
また都内の他区の図書を相互に貸し出す制度がありますが、これも移転完了まで使えなくなっています。

http://metro.tokyo.opac.jp/
東京都の横断検索により都内公立図書館の蔵書が検索できます。
区内の図書館から取り寄せて借りられる素晴らしい制度です。

OPACはこちら
http://ja.wikipedia.org/wiki/OPAC


yamama009ma at 18:44|この記事のURLComments(0)TrackBack(0)

2006年07月29日

CD曲リストと検索イメージを取ってくる

MoreInfoからは殆どイメージが取れないので,googleのイメージ検索で取ってくるように変更した。
文字コードの指定とか省いてるので環境に依存するかもしれないけど、とりあえず動いてる。

Set IE3 = CreateObject("InternetExplorer.Application")
IE3.Visible = True
url = "http://images.google.co.jp/images?q=" & Title & " " & Artist
IE3.Navigate2(url)


yamama009ma at 02:22|この記事のURLComments(0)TrackBack(0)

2006年07月26日

Windows Media PlayerのCD曲リストを得る vbs その2

CDの曲リストの他のアルバム情報も取得するように変更した。
ジャケットのjpegファイルを得るのが主目的だけど、日本のジャケットは登録されていないようだ。
表示はInternetExplorerを使うように変更して、CDのアクセスまで最大20秒待つようにもした。

rem CDドライブに挿入したCDのタイトル、曲リストを取得する 2006.7.26 yamama
rem CDのドライブレターを指定
DriveLetter = "F"

Set objPlayer = CreateObject("WMPlayer.OCX" )
Set objCdromCollection = objPlayer.cdromCollection
Set objCdrom = objCdromCollection.getByDriveSpecifier(DriveLetter)
for i = 0 to 20
	Set objPlaylists = objCdrom.playlist
	if objPlaylists.count > 0 then
		i = 20
	end if
	WScript.Sleep 1000
next

rem タイトル、アーティスト、曲名を取得する
Title =  objPlaylists.getItemInfo("Name")
Artist = objPlaylists.getItemInfo("Artist")
MoreInfo = objPlaylists.getItemInfo("MoreInfo")
objList = Title & vbNewLine & Artist & vbNewLine

For i = 0 to objPlaylists.count - 1
	Set objSong = objPlaylists.item(i)
	if i < 9 then
		idx = i+1 & ".  "
	else
		idx = i+1 & ". "
	end if
	objList = objList & idx  &  objSong.name & vbNewLine
Next

Set fso = CreateObject("Scripting.FilesystemObject")
Filename = "CDList.txt"
Set ListFile = fso.CreateTextFile(Filename, True)
ListFile.WriteLine(objList)
ListFile.Close

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate2(MoreInfo)

Set IE2 = CreateObject("InternetExplorer.Application")
IE2.Visible = True
IE2.Navigate2(fso.GetAbsolutePathName(Filename))

album cdlist

yamama009ma at 00:28|この記事のURLComments(0)TrackBack(0)

2006年07月25日

CDの曲リストを取得するVBS

CDドライブに挿入したCDのタイトル、曲リストをテキストにする.vbsを作ってみた。
ドライブレターを環境に合わせて変更してget.vbsを実行するとCDList.txtに曲名のリストを出力する。
但しWindowsMediaPlayerからアクセス出来るマイクロソフト版のCDデータベースに登録されていないCDでは曲名等は取れない。

以下のテキストをget.vbsとして保存して、マウスで実行すると同じディレクトリにテキストが作られます。

DriveLetter = "F"
rem デバッグ用
checkattribute = 0
outmsgbox = 0

Set objPlayer = CreateObject("WMPlayer.OCX" )
Set objCdromCollection = objPlayer.cdromCollection
Set objCdrom = objCdromCollection.getByDriveSpecifier(DriveLetter)
Set objPlaylists = objCdrom.playlist

rem 属性を取得
rem Name, Artist, Author, Genre, Provider, Style
if checkattribute then
	For i = 0 to objPlaylists.attributeCount - 1
		attrname = objPlaylists.attributeName(i)
		attribute = attribute & attrname 
		attribute = attribute & " = "  & objPlaylists.getItemInfo(attrname)
		attribute = attribute & vbNewLine
	Next
	Wscript.Echo attribute
end if

rem タイトル、アーティスト、曲名を取得する
Title = objPlaylists.getItemInfo("Name")
Artist = objPlaylists.getItemInfo("Artist")
objList = Title & vbNewLine & Artist & vbNewLine
For i = 0 to objPlaylists.count - 1
	Set objSong = objPlaylists.item(i)
	if i < 9 then
		idx = i+1 & ". "
	else
		idx = i+1 & "."
	end if
	objList = objList & idx  &  objSong.name & vbNewLine
Next
if outmsgbox then
	Wscript.Echo objList
else
	rem Dim fso, ListFile
	Set fso = CreateObject("Scripting.FilesystemObject")
	Filename = "CDList.txt"
	Set ListFile = fso.CreateTextFile(Filename, True)
	ListFile.WriteLine(objList)
	ListFile.Close
	Wscript.Echo objList
end if


yamama009ma at 00:55|この記事のURLComments(0)TrackBack(0)

2006年03月25日

ジャンクDVDプレーヤのリモコン

昼休みの徘徊でジャンクのDVDプレーヤ5.1CHスピーカ付き1980円をどちらか動けば良いかと思って買ってみた。じゃんじゃん亭で何度も見かけていたが今回は箱が開いていて中が見えたのでコード類もあることを確認した。
会社で帰りに電源を入れてみると、リモコンが動いていない。
携帯のカメラで赤外LEDを写してみても点滅していない。
本体のDVDプレーヤは他のリモコンで電源のON/OFFが出来る事は確認した。
またモニタとスピーカは繋いでいないが前面の表示をみると再生はしているようだ。

家に帰ってリモコンを開けてテスターを当てて見て電池の電極を受けるところでプリント基板の剥離をみつけた。(画面の白丸の中)
ここをジャンパすると動作したので来週出社したらもうすこし動作確認する予定。
リモコン
剥離



yamama009ma at 14:34|この記事のURLComments(0)TrackBack(0)