2012年12月30日日曜日

ウォーキングマシーンの購入

千葉真子の推薦のウォーキングマシン(ルームマーチウォーク)を購入しました。冬になると雪が降って外に散歩にでるのがおっくうになるので、このマシンで室内で運動することができます。なお、約30分間、動作すると自動的に止まります。
また保証期間は半年 間です。


http://www.youtube.com/watch?v=hkEKutLEYLc



なお、以下の商品は、値段が上のものよりは安いのですが、同じものなのか違うものなのかよくわからないです。

2012年12月29日土曜日

C# でExcelからチャートを作成


C# でExcelファイルからチャートを作成するサンプルです。
予め、chart1 という名前のチャートコントロールをフォームに配置しておきます。\temp.xls というExcelファイルのシート名6954の領域B1~D250に表が作成されている状態で実行します。(1行目の領域B1~D1には、hiduke,svalue,hvalue などのフィールド名が記述されています。実際の数値は領域B2~D250に記述されています。)





2012年12月27日木曜日

2.0TB のハードディスク(HDD)を購入

2.0TB のハードディスク(HDD)をアマゾンで購入しました。またこのHDDは、SATAですが、SATA → IDE変換アダプタ(コネクタ)(変換名人)を合わせて購入しました。パソコンが古いので、SATAではなくてIDEのケーブルがついており、これに接続するためです。接続して問題なくハードディスクが認識できたので安心しました。ただし変換名人のIDE側のコネクタのほうがきつくて、いったん差し込むとなかなか抜けません。





WD Green 3.5inch IntelliPower 2.0TB 64MBキャッシュ SATA3.0 WD20EZRX/N

http://www.amazon.co.jp/gp/product/B009QWUF6M/ref=oh_details_o01_s00_i00




TFTEC JAPAN SATA → IDE変換アダプタ(コネクタ) IDE-SATAZD2(変換名人)

http://www.amazon.co.jp/gp/product/B004R9KPMI/ref=oh_details_o01_s00_i01

2012年12月26日水曜日

iPod用のイヤホンを買った


iPod用に使っていたイヤホンが壊れた(右側が聞こえなくなった)ので、新しいものをアマゾンで発注しました。1,000円ぐらいするかと思っていたのですが、安いのがあったので、思わずポチってしまいました。(242円でした。)カスタマープレビューでは「安いのに高音質」という評価だったので、どんなものが届くか楽しみでした。100円ショップで買えるものよりはよいものであればぐらいに思って少し期待していました。実際に届いてみると雑音が少なく音は確かにきれいだと思いました。あとはどれだけ長持ちするかだと思います。
発注した242円のもの

PLANEX iPhone4s/iPod/スマートフォン対応 ステレオイヤホン PL-EP01

http://www.amazon.co.jp/dp/B0052BPKL6/ref=pe_302852_34649732_3p_dp_1



参考まで

Apple iPodイヤフォン(2006) MA662G/B

http://www.amazon.co.jp/%E3%82%A2%E3%83%83%E3%83%97%E3%83%AB-MA662G-B-Apple-iPod%E3%82%A4%E3%83%A4%E3%83%95%E3%82%A9%E3%83%B3/dp/B000IK250U/ref=cm_cr_pr_product_top



2012年12月25日火曜日

Perl でAccessデータベースに接続するサンプル(その2)

Perl でAccessデータベースに接続するサンプル(その2)

以下のサンプルでは、C:\mdb\book.mdb というAccessデータベースに接続して,book というテーブルの中の title と isbn というフィールドの値を表示しています。ADODB.Connection をnew するところと、クエリーを実行するところでエラー発生時にメッセージを表示できるように、' or die ~'の句が挿入されています。


-------------------------------------


use strict;
use Win32::OLE;
use utf8;

my $conn = "Provider=Microsoft.Jet.OLEDB.4.0;";
$conn .= "Data Source=c:\\mdb\\book.mdb;";
my $db = Win32::OLE->new("ADODB.Connection") or die "CreateObject: $!";
$db->Open($conn);

my $query = "select * from book;";
my $result = $db->Execute($query) or die join ' ', map { $db->Errors->Item($_)->Description } (0 .. $db->Errors->Count - 1);

while (!$result->EOF) {
    print $result->Fields('title')->Value . " " . $result->Fields('isbn')->Value . "\n";
    $result->MoveNext;
}

$result->Close();
$db->Close();


------------------------------------

2012年12月24日月曜日

Accessのパスワードを忘れてしまった

数年前に作成したAccessのデータベースにパスワードをかけていたのですが、そのパスワードを忘れてしまい開けなくなっていました。以下のサイトを参考にさせて頂き、忘れていたパスワードを調べることができました。


http://pucyan.blog77.fc2.com/blog-entry-46.html


http://www.everythingaccess.com/downloads.asp



使用したのは、Access Password Retrieval Lite (FREEWARE) というツールです。このツールではAccess95/97/2000/2002(XP)/2003 をサポートしています。




Perl で Accessデータベースに接続

Perl スクリプトで Access データベース(mdb)に接続して、テーブルの内容を表示するサンプルです。access2007 のデータベースで試しました(どうもaccess97のmdbデータだとうまく動作しないようです。)




以下のサイトを参考にさせて頂きました。
http://www.tryhp.net/OLE.htm