「etTomioのトホホ日記」 2010年10月
| ◆2010/10/31 |
|
500系 今日は散々 これ、どうにかなりませんか ? 天気が悪いので流し撮りに決めたのですが、上りの500系、3本狙ってみなブッシュに飛び込みました。 
|
| ◆2010/10/25 |
| Pink Floyd - Echoes Live at
Pompeii Part 1 Pink Floyd Live At Pompeii - Echoes (Part 2) |
| ◆2010/10/25 |
|
10/20に下ったT4の試運転走行で、10/23にはいつもより25分位後のスジで上るはずと出かけましたが、曇り。じゃ、流し撮りにするかとトライしましたが、僅かにタイミングが合っていません。ちっちゃなT4の文字がブレて読めませんでした。 「新幹線壁紙集」にはupしていますが、皆様のPCからは見えません。この日記からのみ開けます。 
|
| ◆2010/10/20 |
|
私の場合、新幹線は壁紙作成を目的に撮っておりますので、全て横位置です。この写真は初めて新幹線を縦位置で撮った作品です。 さてその壁紙ですが、私のモニタ、1920×1080、 テレビのフルスペックハイビジョンサイズをメインとして作っています。パソコンモニタにはTVより高画質なモノがありまして、2560×1600サイズも作っています。アクセスがあるのですから、私のモニタでは表示出来ないこんなでっかいサイズも作ります。 申し訳御座いませんが、昔の1024×768とか1280×1024サイズってのはもう作っていません。 ご要望があれば、このサイズも作ってお送りします。 
|
| ◆2010/10/20 |
| While My Guitar Gently Weeps
- George Harrison (The Beatles) Here Comes The Sun - George Harrison (The Beatles) John Lennon - Jealous Guy And so this is Christmas |
| ◆2010/10/18 |
|
土曜日の朝は晴れていました。朝5時に空を見るとこんなにも星が沢山あるのかと見とれていました。 で、この写真ですが、今の時期の早朝は後方も前方も山の影でした。400に×2のテレコンを付けていましたが、これしか望遠は持ち合わせがないので、前方の影をトリミングしてカット覚悟で撮りました。トンネルを抜けている絵ではありません。 
|
| ◆2010/10/18 |
|
さて昨日の好天気の新幹線写真、空の色は実際には水色より、少し青っぽい位です。でも私の写真は、こんな深い空は無いだろうというぐらい群青っぽくなっています。 仕方ありません。新幹線を犠牲にしたくないため、空を犠牲にしています。人間の目はそれぞれ補正して見ますが、写真の場合両方に適正露出なんて無理なのです。特に新幹線のように反射率の高いモノは、予め線路付近を測り、出た目より、私は2絞りぐらいアンダーにします。曇ったり日が差したりの日は露出合わせ、もう大変ですよ。 さて 実はこれが昨日成功した広角での切り取り1作目です。架線柱にして1スパン、50m、その右も左も山です。音で迫っているのを感じ、1秒足らずで駆け抜ける先頭を狙います。その前の土曜日はN700を3本、500系を1本、みな鼻切れでした。おかげで昨日雲一つ無い好天気で撮りましたけど。 
|
| ◆2010/10/17 |
|
朝7時過ぎから2時間かけて、この稲刈りで最後に残していたコンバインを掃除して、これで今年の米作りも終了。 カミサンは今日は休みでしたが、朝から雲一つ無い青空に、また撮影に出かけました。 写真は、昨日鼻切れで見事に失敗した500。昨日の失敗のおかげで、今日の青空の下で撮れました。題して、「青空に飛ぶ500」。 
|
| ◆2010/10/16 |
さて今日の絵は、引退も近い100系、それも原色塗装に戻された100系です。原色に戻された100系はK53、K54、K55の3編成のようです。
|
| ◆2010/10/10 |
| Union of The Snake - Duran Duran Duran Duran - The Reflex (2003 Digital Remaster) a-ha - Take On Me AHA STAY ON THESE ROADS |
| ◆2010/10/10 |
|
今日は、午後から農機具3台の掃除をしました。3時間かけて埃まみれです。つくづく先週の土曜日、急遽稲刈りをして良かったなと思います。刈り終わった途端降り始めましたから。この金曜日から昨日まで雨が降り続けました。今日は晴れたというものの、田んぼが水浸しで今日だったら出来ません。明日も晴れ予想ですが、私は仕事です。もしも先週刈らなかったら、今頃イライラしていたと思います。 午前中は、いつも行く玖珂の撮影ポイントで新幹線の流し撮りです。昨日まで降り続いた雨で、玖珂盆地は霧がかかりました。僅か10分ぐらいでしたが、下の写真は霧の中を走るN700です。しかも車体側面も屋根も真っ白でした。ラッキー。 そしてJR西日本のレールスター、来年3月に九州新幹線が開通したら、500系同様「こだま」へ格下げのようです。このレールスターも年月が経ち汚れが目立ちますが、1編成、全検上がりのような綺麗な車両がいる。レールスターを片っ端から狙い、やっと撮りました。E9編成でした。 
|
| ◆2010/10/8 |
| A-ha - Hunting High And Low |
| ◆2010/10/8 |
|
レッド・ツェッペリン 「天国への階段」 Led Zeppelin - Stairway To Heaven |
| ◆2010/10/8 |
|
先日の天気予報から、1日前にずれたようで、今朝6時頃から雨が降り始め1日中降っています。つくづく、先週の土曜日朝から急遽稲刈りをしてよかったなと。しかも刈り終わったのが12時半、それから雨が降ったのですから。 刈っていなかったら、今頃、あ〜ぁ、こりゃまた1週間後だ。熟れすぎちゃうよと、ぶつぶつ言ってた思います。 よその人が見たら、あそこはみな早く刈ってるが、どうかしてるんじゃないか位に思われたかも知れませんが、通常だったら自分もまだ早いと思うのをどんどん刈ってしまいました。結果的に青米は無かったのですから。今年の異常な暑さのせいだと思います。 |
| ◆2010/10/7 |
| ELO エレクトリック・ライト・オーケストラ- Rain Is Falling |
| ◆2010/10/7 |
|
私がまだ若かりし頃、ビートルズの「アビー・ロード」を1位の座から蹴落としたキング・クリムゾンの「21世紀の精神異常者」。 21st Century Schizoid Man by King Crimson With Lyrics Seasons - 21st Century Schizoid Man 続いて、同じアルバムの中から「エピタフ」( 墓碑銘 )、今でもこの曲を聴くと涙が出ます。 KING CRIMSON - EPITAPH |
| ◆2010/10/7 |
| 焼酎飲んで、持病のヤクを服用し、夢のプログラムを書きたいなんて大風呂敷広げていますが、朝4:30に目覚めるとその反動が出るんです。ま、無理でしょう。 |
| ◆2010/10/7 |
|
10/5に書いた、「頁印刷練習4」マクロは Dim 最終行セル as Range と変数の型を宣言した方がいいのかも知れませんが、現在のパソコンはギガ単位でメモリを搭載していますので、宣言しなくても速度に問題は無いだろうと。 実際、目に見えない速さでマクロは実行され、あのプログラムだと4枚のシートを最終行まであっという間に印刷します。 |
| ◆2010/10/7 |
| 私が60になるまでに書きたい夢のプログラム･･･ あと3年を切りました。まだイメージは全く浮かびません。何せ、コンピュータを遙かに上回る、人間の応用力、人間の思考に近いプログラムを書きたいわけで･･･ まだまだ相当勉強しなくては。それまで私が生きているかが問題だ。 |
| ◆2010/10/7 |
| The Beatles - All You Need is Love |
| ◆2010/10/7 |
| The Beatles - Hello, Goodbye |
| ◆2010/10/7 |
|
もうひとつ、マイケル・ジャクソンが歌うビートルズ、ジョン・レノンのCome
Together。もともと、MJには興味なかったのですが、最近、レンタルのブルーレイ「This Is
It」を観て最頂点のプロ魂を見せられて、ちょっとイメージが変わりました。 Come Together - Michael Jackson |
| ◆2010/10/7 |
|
ネットを見ていたら珍しい動画を見つけました。ポール・マッカートニーとマイケル・ジャクソン、そして今は亡きポールの最初の妻リンダが写っていました。 Say. Say. Say - Paul McCartney & Michael Jackson |
| ◆2010/10/5 |
| Windowsの更新プログラムをインストール後、再起動したら、「あなたのWindowsは偽造品の疑いがあります。」のメッセージが出た。直ぐに検証ボタンを押し、事なきを得たが、ふざけるな !! 私はVista ultimateとWin7 ultimate 64bitをデュアルブートにしているため、Win7はアップデート版ではなく通常品、4万円も払っているんだ。 |
| ◆2010/10/5 |
|
それなら、この2つのマクロを応用して新たに簡潔なマクロを書いてやろうと･･･ 帰宅してもカミサンも遅番だし、次男も戻っていないし、一人で焼酎飲んで･･･ 焼酎飲んだら私は天才プログラマーだ
!?
紙にコードを簡単に書いて、で、書いたのが下のマクロです。検証もしました。実に短いコードです。そして、これで今まで喉に引っかかっていた魚の骨が取れた思いです。データは日々変わりますが、フィルターをかけられたデータのA1からJ列の最終行までをA4縦で1ページに印刷します。 Sub 頁印刷練習4() ' 2010/10/5 ettomio ' 「頁印刷」マクロと「頁印刷練習3」マクロをまとめて簡略化したものである。 ' ' Range("J2").Select Selection.End(xlDown).Select ' J列の最終行をアクティブにする Set 最終行セル = ActiveCell With ActiveSheet.PageSetup .PaperSize = xlPaperA4 .Orientation = xlPortrait ' 横に設定するには xlLandscape .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With ActiveSheet.PageSetup.PrintArea = "A1" & ":" & 最終行セル.Address(0, 0) ' Falseは0でよい。Trueにするには-1にし絶対参照になる。 ActiveWindow.SelectedSheets.PrintOut Copies:=1 Range("K1").Select End Sub |
| ◆2010/10/5 |
|
9/28には以下のマクロを書いています。実はこの1週間、どうも納得がいかず、参考書も色々調べましたが、疑問に対する解がありません。「頁印刷」マクロにいっぱい
'
を付けて説明を書いたり ( 私は年ですので、すぐに何を書いたのか分からなくなります。)、やたらとメッセージボックスでそのときそのときの変数の値を出力させています。結果的に9/28の「頁印刷練習3」マクロは、9/27の「頁印刷」マクロを改良しているんだと気付きました。 Sub 頁印刷練習3() ' 2010/9/28 ' このマクロでも実行できる ' 2010/10/5 結果的にこのマクロは上の「頁印刷」マクロを改良したことになる。 Dim RowCnt As Integer Dim 最終行セル As String RowCnt = Range("J2").End(xlDown).Row 'J列のデータのある最終行数 最終行セル = "J" & RowCnt 左上 = "A1" 右下 = 最終行セル 範囲 = 左上 & ":" & 右下 ' 範囲は文字列にしなくてはならない ' MsgBox 範囲 ' A1:J90 というように表示されている With ActiveSheet.PageSetup .PaperSize = xlPaperA4 .Orientation = xlPortrait .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With ActiveSheet.PageSetup.PrintArea = 範囲 ActiveWindow.SelectedSheets.PrintOut Copies:=1 Range("K1").Select End Sub |
| ◆2010/10/5 |
|
9/27に私は仕事で使うExcelのBookに以下のマクロを書いています。実際には別のマクロを現在も作用していますが。 Sub 頁印刷() ' 2010/9/27 ' 現在「頁1印刷」を使っているが、このマクロを使えばマウスでドラッグしなくても ' 頁1〜頁4まで連続して印刷できる筈。 ' コメント行は実行しても間違いないが、必要ない 'Dim 最終行セル As Range 'Dim 範囲 As Range Dim MyRange As Range Range("J2").Select Selection.End(xlDown).Select ' J列の最終行をアクティブにする 'Set 最終行セル = ActiveCell 'MsgBox 最終行セル.Address(False,False) ' この上の行を実行し、この行を実行するとJ90が指定されている Set MyRange = ActiveCell.CurrentRegion ' 出発点を含む、連続領域全体のRangeオブジェクトを返す ' MsgBox MyRange.Address ' $A1:$J300 が指定されている ? よく分からない。 ' 分かった。頁1シートを見るとJ300まで数式を入れている。 ' MsgBox MyRange.Address(False, False) ' A1:J300 が指定されている。 ' 結局、ActiveCell.CurrentRegion によってI列は300行まで*を入れているので、 ' A1からJ300まで選択されるものと思う。 ' J300まで数式が入っていてもそれは関係ないと思われる。 With ActiveSheet.PageSetup .PaperSize = xlPaperA4 .Orientation = xlPortrait .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With 'Set MyRange = 範囲 ActiveSheet.PageSetup.PrintArea = MyRange.Address ' Rangeを指定すると .Addressを付ける。文字列でなくてはならないから。 ActiveWindow.SelectedSheets.PrintOut Copies:=1 Range("K1").Select End Sub |
| ◆2010/10/4 |
| 2週間ぐらい前、マイクロソフトからのメールでIE8をIE9β 64bit版にして今まで使っていましたが、どうも挙動不審 ! 元のIE8に戻しました。 |
| ◆2010/10/4 |
帰宅して、ネットに接続してみると、私の「新幹線壁紙集」にまたかなりのアクセスが来ています。どうも分かりません。このところ農繁期で写真を撮っていないし、後進していないのですが。先程1週間前に撮った500系をupしました。どうしてこんな色なのか
? 薄曇りの完全逆光でした。
|
| ◆2010/10/3 |
| 夕方カミサンに頼まれていたダビングをちょっと中断して、ネットに繋ぐと私の「新幹線壁紙集」にかなりのアクセスが来ています。何事だろ･･･ |
| ◆2010/10/3 |
| 午後から珍しくTVを見ていたら、カミサンがこれダビングしてと･･･ 友達から借りたとかいう韓流ドラマ、15枚･･･ まっ、いいけど･･･ |
| ◆2010/10/3 |
|
昨日は朝5時にちょっと会社に行きましたが、今にも降りそうな天気。だから露は降りていない。稲刈りは1週間後にしようと思っていたのですが、金曜日の夕方、新米をコイン精米機で精米して
気が変わりました。土曜日に急遽稲刈りをしようと思い立ったのが金曜日の夜です。 急ですから、オフクロも田んぼの周りを刈ったりはしていません。7時には自分も鎌を持ってオフクロと最後の2マチの周りを刈り始めました。露は降りていませんので、9時にはコンバインを運び込んで刈り始めました。カミサンと妹、そして11時頃には長男も偶然来てくれました。近所の人はまたまだ早いのに刈ってると思われたと思います。最初のマチの最後の最後、あっ、ハミ ( マムシ ) だ。カミサンと2人で鎌で頭を何度も叩きました。今年はハミを見ないなと思っていたのに･･･ 最後のマチを刈り終えたのが12時半で、暫くしたら雨が降り始めました。やれやれかろうじて間に合った。 昼はカミサンが新米をおにぎりにしていたので、みんなで食べました。今年は猛暑でマズイと言いますがよく分かりません。 今日は朝は1時間ほど地区の奉仕作業、それから籾摺り。それが終わった頃に雨が降り始めました。秋しか使わない農機具の掃除は来週にでもやります。 その後はカミサンとちょっと光市のほうまで買い物に出かけました。 |