「etTomioのトホホ日記」　2011年2月　　　　　　　　

◆2011/2/27
　昨日は2週間ぶりに新幹線詣でをしました。
　撮影の合間は、15年前のExcel5の雑誌の付録、「新幹線検索システム」のプログラムコードを一生懸命解読しようと･･･　先週の土日、3/12のダイヤ改正の時刻データは打ち込みました。でも、作者の書いているコードがちんぷんかんぷん･･･
　昨日帰宅して、参考書を開いたり、コードの印刷された紙に殴り書きしたり･･･　それでも完全には理解できていません。トホホです。
　今日は料金体系を打ち込みました。自由席の料金になって、こんなの打ち込んだって勉強にならないとさぼりました。
    
◆2011/2/24
　先程の話の続きですが、私のパソコンの筐体の上には、サウンド・ブラスターとDENONのヘッドフォンが今のところ死んでいます。DENONのヘッドフォンはたまにウォークマン携帯で使っていますが。以前使っていたSONYのヘッドフォンは会社のロッカーに入ってます。昼休みにたまにパソコンで音楽を聴いています。
◆2011/2/24
　帰宅して、隣のオフクロの処で焼酎飲みながら、NHKを見ていたらRGPDCAという言葉が気にかかり煙草の箱にメモして、私が10年ぐらい前VBで作った「eText」に放り込みました。
Ｒ：リサーチ（現状把握）
Ｇ：ゴール（目標設定）
Ｐ：プラン（Ｇへの計画）
Ｄ：行動
Ｃ：チェック（行動してみてどうだったか）
Ａ：アクション（Ｃを生かして再行動）

　勉強の素材はあちこちに散らばっていますね。ただ、私は自分の好きな分野しか勉強しませんけど。好きだから勉強する。そしてそれが理解できて次のステップに進む。
　勉強ってそんなもんじゃないんでしょうか。イヤイヤにやるのは苦痛だし身につかないと思います。
　だから、私は若い人に本を読んでいますか ? じゃ、自分の好きな趣味でも徹底的に追求していますか ? と問うのですが、反応がありません。

　パソコンの音にしても、先日借りた「島谷ひとみ」のCDのコピーを今、ヘッドフォンなしでかけています。BOSEのスピーカーの下に敷いたインシュレーターの効果を試しています。パソコンというおよそオーディオではない機器でいかにいい音を出すか･･･　サウンドボード、スピーカー、ヘッドフォンとお金はかかってしまいましたが･･･
◆2011/2/24
　やれ、ある車種の現 量産車が初めてCKDとしてオーダーが出ました。さて、親会社からの確定メールを取り込み、私のファイルから0301(日付)と打ち込み、スタートボタンを押すと、あれ、どの部品もCKDを拾わない。確定メールを開いてみると、どの部品も時刻のところが、追加となっていました。この車種は8:30にCKDとしてオーダーがかかるので、配車シートの8:30は0として拾うようにしています。
　さて、どうやって拾うか…　ウチに帰って焼酎飲みながら考えなくちゃならないかな･･･　昼休み、紙に絵をかいてみました。E2セルがWR6とかWで始まっている場合(CKD)、LEFT関数でWの場合はI2セルに0、そうでない場合はD2セルの時刻を、配車シートの時系列のデータから日勤ならI2セルに1、夜勤ならI2に2を入れなさいと…　空白の場合は空白を返しなさい。I2セルの関数です。

=IF(E2="","",IF(LEFT(E2)="W",0,IF(D2="","",VLOOKUP(D2,配車マスター,2,FALSE))))

これを5シートに1108列までドラッグでコピーをかけました。見事に読み込み、CKDは0、日勤は1、夜勤は2としてそれぞれの集計が罫線を入れてプリントアウトされます。
　やれやれ焼酎飲まなくても、数分で関数書けました。
◆2011/2/21
　先ほど、「新幹線検索システム」の九州ダイヤの下りを全て打ち込みました。これで思ったことは、博多～熊本間を検索したら片道60本以上もの列車がある。なんでそんなに ? 昨年暮れ開業した東北の八戸～新青森間が15往復、たったのこれだけの為に八甲田の長大トンネルを掘り、莫大の工事費をかけ造る必要があったのか ? 博多～熊本間が60往復以上というのは逆になんでそんなにと思うけど。ま、いいや。
　九州直通はN700の8両編成で走ります、九州は800系の6両編成の「つばめ」がかなりのウェイトを占めてはいますが。800系にしても最高速は260km/h。最新のN700も山陽は最高300km/hですが、九州では最高260。なんで最新の線で260まで落とすんだろうと思っていました。
　そりゃ、無理ないわ。あれだけの駅を造り、しかも予算の関係か追い越しの出来る駅が少ない。これじゃ300は出せないな。新大阪から鹿児島中央が最速3時間45分ですか…　予算をもっと減らし、駅を少なくし、追い越しの出来る駅ばかりにしていれば(他の新幹線なら当たり前、ただ、新神戸、熱海は通過線はありませんが)、もう10分は縮めただろうに…　これで飛行機との競合を考えているのか ? 疑問です。
◆2011/2/21
　昨日から、九州新幹線のダイヤを打ち込んでいて感じるのは、福岡県、駅を造りすぎでしょう。自民党の福岡県出身のドンのおかげですね。新鳥栖～久留米間、5分弱。久留米～筑後船小屋、7分弱。筑後船小屋～新大牟田、6分。
　新幹線という高速列車にこれ異常でしょう。加速する間もありませんね。山陽の三原と後から出来た新尾道間よりもひどいかも。
◆2011/2/21
　この土日は写真撮影には全く出ていません。土曜日はいつものように早朝に会社に行き、用事を済ませて帰宅。カメラの電池は充電していましたが、出る気がしませんでした。午後からオフクロを買物に連れて行き、その後は「新幹線検索システム」の改竄を始めました。15年前のExcelの参考書の付録を昨年夏、改竄しましたが、今回は、3/12の九州新幹線開業のダイヤに作り替えてやろうと。
　まず、検索フォームに「みずほ」、「つばめ」のチェックボックスを作りました。でもこいつが動かないなと、コードを調べて書き加えました。続いて博多から鹿児島中央まで駅名を全部入れましたが、これも反映されないので、コードを調べてこれも書き加えました。
　それからは新しいダイヤの書き換えです。昨年夏はこの書き込みに1か月もかかりましたが、今回はJR東海はあまり書き換える必要はありません。昨日はいつものように朝4時には起きましたので、それからダイヤを打ち込み始めました。夕方には上り終了、下り8割は終了させています。
　そして今晩も帰宅して焼酎飲みながらの打ち込みです。ただ、「さくら」「みずほ」の料金体系はまだ全く見ていません。これも書き加えなくてはならないのですが。
　なんでこんな面倒なことやってるか。ひとつは勉強ですね。新幹線といえば自分がしょっちゅう写真撮りに行くぐらい好きですから、自分の趣味です。そしてプロの書いているプログラムを自分なりに改竄して、これも勉強と思ってやっています。好きでなければこんな馬鹿馬鹿しいことやってられません。
◆2011/2/15
　カミサンと一緒になった頃流行ったREO Speedwagonの曲を。初アルバムが爆発的に売れ、カミサンにもよく聞かせました。私は確かコンサートにも行ったな。2曲目と3曲目は同タイトルですが、3曲目は最近の年取ったREO Speedwagon。私もカミサンも年取りました。
In your letter - Reo Speedwagon
REO Speedwagon- Take It On The Run(Live)
REO Speedwagon - Take It On The Run (Live - 2008)
◆2011/2/14
　先日書いていた、スピーカーの下に敷くスペーサーは金曜日の夕方には届いていました。でも、隣にいる次男に気兼ねして、昨日1曲、それも前半だけ試してみただけです。10円玉を敷くだけでも音は良くなりますから、おそらく格段にいい音になっていると思います。
　私が使っている両手に載るほどのちっちゃなスピーカーが、その昔何十万もするJBLに匹敵するほどの音を出しますって書きましたが、あれはオーバーです。でも、個々の楽器の音を綺麗に拾うのは確かです。同じ1枚2000～3000円のCD(レンタル店で借りてダビングしたモノも多いですが)を出来るだけ良い音で聞きたいというのは･･･　これもネクラの趣味かも知れませんが。
◆2011/2/14
　昨日、折角書いたプログラムですけど、採用はやめました。土曜日に書いたプログラムに比べて、ファイル容量が10倍近くにもなっています。何故なのかが分かりません。コードを1頁増やし、シートを5シート増やしただけなのに･･･　Excelに最適化機能があるのか探しましたがありませんね。Accessのようなデータベースだと最適化機能があるんですけどね。
◆2011/2/13
　黄色先生が1時間半も前に来て、タイミングを外されましたが、あれが車の中にいたら呆気にとられて何をしに来たんだと愚痴っていたでしょう。黄色先生の少し前のN700「のぞみ」です。雪で10分遅れていました。
    
◆2011/2/13
　昨日の午前中に書いたExcelのプログラム、無限ループに入ったのかと思う程、処理が遅く、結局今までのコードを過去史いじっただけで解決しました。
　さて今日の午後は今朝コピーした映画を見ました。昼間から焼酎飲みながら･･･
　焼酎飲んだら天才プログラマーなんてふざけた事を書く私ですが、犬の散歩の後、再び挑戦するかと･･･　work1～work5までオートフィルターをかけています。これは見た目にはどれも100行足らずですが、隠れている行数が凄くて。この隠れている行に対してもwork1のI列が空白なら0を入れろとか命令を書くから凄く時間がかかるんだなと。シートによっては5000行ぐらいあります。
　じゃどうするか･･･　このフィルターのかかったシートとは別にシートを作り、そこにコピーをかけたら、見た目通りの行数になります。それに命令を書けばいいんだなと。
　実際にWork100～500まで5シートを作り、そこにマクロでコピーをし、そいつに命令文を書きました。結果は成功。
　ただ、昨日書いたコードで事足りますので、印刷物は今日の方が綺麗ですが、使うかどうかは未定です。

Sub work100から500にコピー()
'
' work100から500にコピー Macro
' マクロ記録日 : 2011/2/13 ユーザー名 : etTomio
'

'
Dim RowCnt1, RowCnt2, RowCnt3, RowCnt4, RowCnt5 As Integer

Sheets("work1").Select
Columns("A:I").Select
Selection.Copy
Sheets("work100").Select
Columns("A:A").Select
ActiveSheet.Paste
Application.CutCopyMode = False

RowCnt1 = Range("A1").End(xlDown).Row
For y = 2 To RowCnt1
If Cells(y, 9).Value = "" Then
Cells(y, 9) = "0"
End If
Next

Sheets("work2").Select
Columns("A:I").Select
Selection.Copy
Sheets("work200").Select
Columns("A:A").Select
ActiveSheet.Paste
Application.CutCopyMode = False

RowCnt2 = Range("A1").End(xlDown).Row
For y = 2 To RowCnt2
If Cells(y, 9).Value = "" Then
Cells(y, 9) = "1"
End If
Next

Sheets("work3").Select
Columns("A:I").Select
Selection.Copy
Sheets("work300").Select
Columns("A:A").Select
ActiveSheet.Paste
Application.CutCopyMode = False

RowCnt3 = Range("A1").End(xlDown).Row
For y = 2 To RowCnt3
If Cells(y, 9).Value = "" Then
Cells(y, 9) = "2"
End If
Next

Sheets("work4").Select
Columns("A:I").Select
Selection.Copy
Sheets("work400").Select
Columns("A:A").Select
ActiveSheet.Paste
Application.CutCopyMode = False

RowCnt4 = Range("A1").End(xlDown).Row
For y = 2 To RowCnt4
If Cells(y, 9).Value = "" Then
Cells(y, 9) = "3"
End If
Next

Sheets("work5").Select
Columns("A:I").Select
Selection.Copy
Sheets("work500").Select
Columns("A:A").Select
ActiveSheet.Paste
Application.CutCopyMode = False

RowCnt5 = Range("A1").End(xlDown).Row
For y = 2 To RowCnt5
If Cells(y, 9).Value = "" Then
Cells(y, 9) = "4"
End If
Next

Range("K3").Select
Sheets("work100").Select
Range("K2").Select
End Sub
　
◆2011/2/13
　昨日の早朝いつものように会社に行き、用事を済ませた後、さて、6月からある車種が今の倍の生産量になるというし、今この車種の部品は10トン車2台で運んでるけど、私が昨年作ったアプリはこれが3台でも4台でも対応できる筈だけどな。試しに2/16のデータで、時系列を4つにして表示させると、あれ順番が変だな･･･
　家に帰って、久しぶりに参考書を開き、自分なりにコードを書いてみました。
RowCnt=Range("A2").End(xlDown).Row
For y=2 To RowCnt
    if Cells(y,9).Value="" Then
      Cells(y,9).Value="0"
    End if
Next
これを実行するとパソコンが無限ループに入ったのかというほど、反応が遅く結果は満足出来るモノではありませんでした。あれこれ昼頃までかけて色々試しましたが、結局元々書いていたコードを少し直すだけで解決しました。
　へっ　半日もかけて･･･　まっ　いいか。おかげでまたVBの感触が戻って来た。
◆2011/2/13
　昨日の昼前は暖かいこの辺りでも暴風雪でした。午後になるとちょっと会社に行き、帰りにレンタル店でトム・クルーズの「ナイト&デイ」のブルーレイを借りました。夕方、いつものソフトでハードディスクにリッピング。これを夜あるソフトでブルーレイに焼き始めましたが、なんと残り2時間半と出てたので、ベッドに入ってたらそのまま寝てしまいました。朝起きてパソコンを見たら、エラー。ちぇっ　50GBのBDがパーかよ。1万近くもするソフトで失敗。以前もこのソフトで焼けないことがあったな。この会社にメールで文句言ったら、お客様は非合法的なことをしようとしておられますね。違うんだよ。違法コピーだろうが、あんたらのソフトはデータをきちんとBDに書き込めなくちゃならないだよ。
　朝、フリーのイメージバーンで焼いたら、残り1時間15分とでました。それから新幹線撮りに出ましたが、帰宅したらちゃんと焼けていました。
◆2011/2/13
　昨日、東海のドクターイエローT4がまた試運転で下ったことは知っていました。じゃ今日上るな。朝行ってみると、いつもの鞍掛山登山道は山影のせいで、昨日の雪がちがちに凍っていました。4駆に入れていつもの場所へ。眺めていると上りが約12分遅れでした。新大阪からの下りは正常。でも名古屋からだとこれも10分以上遅れていました。
　このままだとドクターは10時50分ぐらいか･･･　外で9時過ぎの100系を狙うと、以前の汚い車体だったのでパス。下りの9時12分の500系「こだま」を狙ったらぶれぶれ。9時12分左のトンネルから音がします。ん ? 何だろう･･･　自分のいつものポジションに戻らぬまま、カメラを構えました。ファインダーに入ったのが黄色の車体。咄嗟に追っかけますが、ちょっとタイミングが合いませんでした。いつもより1時間半も早く来てしまった。今日はこれが目的だったので、帰宅しました。
    
◆2011/2/10
Moody Blues - Nights In White Satin (From "Live at Montreux 1997")
◆2011/2/9
　パソコンで音を聞くというのは、狭い筐体の中では音源ボードを付けても、ノイズを拾いやすくなるんです。勿論今はビデオも音もプロセッサー チップで内蔵していますが、私はビデオボードも内部に差していますし、音の方は外付けのUSBのサウンドボードを使っています。ONKYOのWAVIO SE-U55SXⅡです。
◆2011/2/9
　まだ今夜は次男が帰宅していませんので、10円玉を敷いたBOSEのスピーカーを鳴らしているのは、ビートルズのWHILE MY GUITAR GENTLY WEEPSです。因みに両手に載るほどのスピーカーですが一応4万円弱です(初めて価格を書きました)。大型家電店とか近くにある方は聞いてみて下さい。BOSEのComputer MusicMonitorです(勿論この名前をネットで検索すれば詳細が出ます)。ちっちゃなスピーカーが私の若い頃(20代) 店で聞いたJBLの何十万円もするような音と遜色ない音を出しますから。
◆2011/2/9
　久しぶりにパソコンに繋いでいるBOSEのスピーカーで倉木麻衣のCDを聞いています。普段は隣にいる次男に気兼ねしてBOSEのヘッドフォンを使っていますが、今夜は次男がまだ帰宅していませんので。
　ずっと前からスピーカーの下に置くインシュレーターというモノが気になっていました。試しにネットで知った10円玉インシュレーターというのが気になり、今夜試してみました。10円玉をスピーカーの下に何個か置くだけですが、これがびっくり。確かに音が良くなります。騙されたと思って試してみて下さい。
　先程、6個で3000円はしないインシュレーターを注文しました。
　さて今のところ、私のパソコンではサウンドブラスターとBOSEのスピーカー1セットとDENONのヘッドフォン、昔からのSONYのヘッドフォンが死んでいます。こいつをどう使うか･･･
　現在パソコンで音を聞くために使用しているのは、DENONのUSBサウンドボード、BOSEの両手に載るほどのスピーカー、BOSEのヘッドフォンです。ウチには今、古いちゃちなオーディオしかありませんので。
◆2011/2/8
Procol Harum - A Whiter Shade Of Pale (From "Live at the Union Chapel") 青い影
◆2011/2/7
　台風19号、1991年9月27日、この台風を体験しました。朝出るとき、まだ九州沖でしたが、家族に今夜　体験したこともない台風に出くわすと言いました。そして17時に急激に風力が増し、20時頃はもう目茶苦茶、瞬間最大60m近かったのだと思います。夜中に帰宅するのに道路があちこち通行止めで苦労しました。
　新幹線の屋根にへばりつけば最大83mの暴風を体験できますね。
    
◆2011/2/7
　もう1枚2009年11月に撮ったS1の耐久試験をupしますが、まあ汚れています。雑誌で見るとSとRではロゴが微妙に違いますね。
    
◆2011/2/7
　最近、九州直通のN700の新型の8両編成、JR西はS編成、JR九州はR編成ですが、全くカメラに収める事が出来ません。最近だと1/23にいつも行く玖珂で9:40、1/29に13:40に上ったのを確認しています。翌日曜日に流し撮りで狙いましたが、僅かにぶれました。
　この前の2/5は朝から16時近くまで見張っていましたが、全く姿を見ていません。九州所有のR6が2/4に山陽で試験走行している情報はネットで得ていましたが。昨日2/6は出向く気もなく、撮影には行っていません。どうも気持ちが萎えてしまって、3/12の開業を待つか･･･ そしたらいつ来るかも知れないじゃなく、ダイヤ通りに来るから。
　ということで私のこれまで撮ったS編成で私の好きな絵を1枚upします。1年前は先行量産車のS1編成が、週に5日間ぐらい、それも1日に博多と姫時間を2往復耐久試験していました。そのうち余りの汚れにうんざりして、続くS編成に期待していたのに私はS1しか撮っていません。現在Sはよく知りませんがS8まで、Rも最近R8が納入されたのかな･･･
　どちらも車体は青磁色とか称される水色ですが、この色が写真には再現出来ません。雑誌のプロの写真を見てもあの色は再現されていません。
　下の写真は割と現物に近い色が出ていると思います。
    
◆2011/2/6
　昨日は朝から1日新幹線詣でに行っていました。九州直通のN700を狙っていたのですが、全く姿を見せてくれませんでした。
　写真はどちらも500系で左は下りの最後尾です。
 
◆2011/2/3
　辺りには少し雪が残っていました。残念ながら上りの最後尾です。2011/1/30 9:03:38 135mmレンズ使用 F16 1/40 ISO100。徳山～新岩国間で撮影。
    
◆2011/2/2
　私が学生の頃にリリースされた、キーボード奏者リック・ウェイマンの「ヘンリー8世の6人の妻」。数週間前から、アメリカ輸入のブールーレイで見ていますが、疲れて帰った時など、フル オーケストラをバックに美しい音、美しい絵に癒されます。
Rick Wakeman - Kathryn Howard (2009) from "The Six Wives of Henry VIII"
◆2011/2/2
　数週間前にレンタル店で借りてコピーした「倉木麻衣」のCDを聞いていましたが、どうも今日はその気分じゃないなと、1968年発表のビートルズの「The Beatles」から「While My Guitar Gently Weeps」。もう40年以上も前の曲だけど、今日はこちらの方がしっくりきます。作曲、歌は亡きジョージ・ハリスン、ギターはエリック・クラプトン。

先頭に戻る　　　　過去の日記