皆さん、こんにちは。山本美孝です。

　今日は新装開店の日。るんるん気分で、朝からパチンコ三昧。そういう自由がきくのも自営業の強み。と言っても、パチンコやパチスロは、あくまでも遊びなので、13時過ぎに切り上げました。

　打った機種は三洋物産の「大海物語」という機種です。

http://patbank.web.infoseek.co.jp/aaa/20050323_oumi_kekka.jpg

　「海物語」という機種は、従来のパチンコ業界で最もヒットした名作と言われています。私は、横スクロールの機種は苦手なんですけどね。

　んで、少しだけ勝ちましたが、金額は内緒。見たい人は秘密日記をご覧下さい。

　皆さん、こんにちは。山本美孝です。

　携帯電話でアクセスできるサイトを作ってみた。

　普通のサイトと異なるのは、画像のサイズ(特に幅)である。最近の携帯は画面が大きくなったが、色々な機種のことを考えると、横幅は96ピクセルにする必要があるようだ。
　(auショップの店の人に尋ねてみたら、私の今の機種だと、幅240×縦320ピクセルまで表示できるらしい。)

　とりあえず試作してみた。

　　http://patbank.web.infoseek.co.jp/au/

　コンテンツはうちの飼い犬のシェパード(ただ今、6ヶ月で訓練に出している。会えないので切ないw)

作成日: 2005年3月22日（火）

　
　皆さん、こんにちは。山本美孝です。

　夜になって、パソコンに向かい続けて作業するのが苦痛になってきたら、パソコンの電源を落として、読書をする。読書と言っても、半分はコミックだ。

　それにしても、コミックの売り上げは凄いの一言である。

　私が愛読している野球コミックの「MAJOR」が53巻まで出ているが、2500万部だそうだ。「ベルセルク」というコミックも2000万部である。最近は帯に発行部数が記載されていることが多い。

　印税は普通10パーセントである。450円のコミックスを買うと、作者に45円支払われることになる。電卓をたたいて計算してみて欲しい。

　45円×2500万部＝　………

　ちなみに、「名探偵コナン」の著者の青山剛昌さんや「犬夜叉」の高橋留美子さんクラスになると1億部を越えるらしい。特に私がファンの高橋留美子さんは、「うる星やつら」「らんま1/2」「犬夜叉」などで3億部売れたと何かで読んだ記憶がある。

　45円×3億部＝　………………

　自らのペンで、これだけの価値を生み出すコミック作家は凄いと思う。

P.S.
　「カイジ」や「アカギ」もファンなのだが、これも軽く2000万部は突破しているだろう。

　食わず嫌いで読まないが「ワンピース」が面白いそうだ。たまたま、ネットの友人とチャットして薦められた。感動するらしい。
　うーん。私の友人のプロのイラストレーター曰く「デッサンは正しくないが内容が面白いから売れる」と言ってたような記憶がある。

　絵が下手でもコミック作家としては成功しているね。

　皆さん、こんにちは。山本美孝です。

　以前にも紹介しましたが
　　　エディタ＆スクラップの機能を持つ「紙 copi」
　に惚れ直しているところです。

　　　　　http://www.kamilabo.jp/

　スクラップの何が便利なのか具体例を挙げて説明してみましょう。今、

　　2005.03 歌手倉木麻衣さんが卒業

というニュースがホームページで報じられています。例えば以下。

http://www.mainichi-msn.co.jp/geinou/news/20050322k0000m040065000c.html

　このページはあくまでニュースですから、いつまでもWebにあるわけではありません。
また広告も煩わしいですね。

　　　　　　そんなあなたに「紙 copi」

です。

　取り込む範囲をマウスで選択して、
　　マウス右ボタン「選択箇所を紙に取り込む」
これでOK。もう私のパソコンの中にデータとして保存されたので、
今後ニュースが削除されたとしても問題ありません。

　また「紙 copi」はエディタとしても優秀でアイデアにあふれています。

P.S.
　私は立命館大学なので、先輩風をふかせたくて
　「オレは倉木麻衣の先輩なのだぁ。」
とアホなことを言いふらしていたりしていました。
　それまでは、あまり母校に関心はなかったんですけどね(汗)

作成日: 2005年3月22日（火）

　皆さん、こんにちは。山本美孝です。

　ちょいと愚痴などを書きます(汗) 友人から電話がかかってきて「中古車売りたいんだけど」と言います。Googleで「中古車　買取」で検索したら「ガリバー」のサイトが先頭でした。そこに車種や年式などを入れたら………なんと5分で友人宅に電話がかかってきました(汗)　凄い。

　その友人は、未だにファックスもパソコンも持っていないヤツなので、何かあると私に検索を依頼してきます。

　いい加減にパソコン買えよ………と言ってるんですけどね(汗)
　ただ、パソコン買わせたら、私が徹底的に面倒を見るハメになりそうで恐いです(笑)

　それにしても、パソコンに興味はなくても、情報検索ツールとしてパソコンがいかに優れているかを実感した人はパソコンを買います。
　私の弟も基本的にアウトドア派でパソコン嫌いだったのですが、
その情報検索ツールとしての便利さを実感して、活用しています。

　　皆さん、こんにちは。山本美孝です。

　私は本来、コーヒーはあまり好きではなかった。しかし、最近はコールコーヒーに凝っている。と言っても、所詮は(しょせんは)インスタントである。

　熱いのは苦手なので、水にインスタントコーヒーを溶かし、ブラックで飲む。

　コーヒーに含まれるカフェインは、周知のとおり、目を覚まして集中力をアップする薬効がある。その昔、仕事のスケジュールが物凄くハードだった時、薬局で販売しているカフェインの錠剤を飲んで、睡眠時間を減らしたものだ。途中で、ぶっ倒れたけど(笑)

　カフェイン中毒という症状もあるらしいが、一日でコーヒーを12杯くらい飲むとヤバいらしい。私は5杯しか飲まないので大丈夫だろう(笑)。

　インスタントコーヒーでお気に入りのブランドは、ネスカフェの

　　　「香味焙煎　柔らかモカブレンド」

である。苦味を押さえているので、万人向けと言えそうだ。

　　http://jp.nescafe.com/product/soluble/koumibaisen.htm

作成日: 2005年3月21日（月）

　　皆さん、こんにちは。山本美孝です。

　たまには、パソコンねた、ギャンブルねた以外も書いてみようと思い立ちました。

　私は仕事がある時には、一歩も外出せずに、パソコンの前に座り続けて、ぶっ通しで作業をします。遊びに行くとしても、パチンコ・パチスロ・競艇………、趣味で株式。うぅ、なんて世界が狭いんだ(ToT)　

　飼い始めたシェパードも、今は警察犬訓練所に預けています。うぅぅ。

　んで、自己管理のために工夫したのがヨガです。ヨガと言っても、瞑想をメインにした精神的なものや、健康を目的にした肉体的なものがあります。私は昔、本を3冊ほど買って、独学で齧った(かじった)ことがある程度でした。

　生活にはメリハリがないと面白くないので、再びヨガを始めました。ポーズは、「逆立ち」か「鋤(すき)のポーズ」くらいのものです。

　　参照URL http://stretch-yoga.jp/kihon/kihon02.html

　まぁ、二時間に一回くらいのペースでやっても、全身の血流が良くなり、リフレッシュして、次の作業を続けることができます。

　え゛、結局は2時間に1回、休憩を入れただけだろうって？　その通りです(笑)。

作成日: 2005年3月20日（日）

　皆さん、こんにちは。山本美孝です。

　チャットで知り合いのhさんから教えてもらった以下のurl

http://yugure.ameblo.jp/

　面白いです。圧倒的に。思わず、爆笑しました。

P.S.
　なんか、テレビ化されるとか書いてありましたが、本当でしょうか(笑)

　皆さん、こんにちは。山本美孝です。

　昨日、作ることにした「犬時計」ですが、名前がイマイチなので、「DogAlarm」と改名しました(汗)

　半日ほどで概略のコードを書き上げました。仕様は以下の通りです。

(1)アラームする時刻と内容は、テキストファイル「InuDokei.txt」から読み込む。

(2)自動でSortするリストボックスにアラーム内容を書き込む。
o O (　配列を用いてソートするコードを書いても良いのですが、中身が見えるので、リストボックスは楽ですw)

(3)「InuDokei.txt」は、プログラム上で編集できるようにする。

(4)3秒毎にタイマー割り込みをかける(これは、30秒でもいい)。

(5)その結果、アラームする時刻になっていたら、警報を出す。

(6)一度、アラームした内容は再表示しない。
　(1分未満でタイマー割り込みしている関係上)

　ここまでは、できています。ただ、コードをここに貼っても、わかる人にはわかるし、わからない人にはノイズになる気がするので、控えます。気が向いたら、コードの一部をブログの中に書くかもしれません。

　追加仕様として検討しているのは、以下の点です。

(7)警報する時に出す画像を自由に設定できるようにする。

(8)警報する時に音楽(MidiまたはMp3)を演奏する。

　まぁ、半日で作ったソフトですが、少なくとも私には、とても有用なソフトになりそうです。一応のコードを書いたので、しばらく寝かせておくと、新しいアイデアを思いつくかもしれません。

作成日: 2005年3月20日（日）

　皆さん、こんにちは。山本美孝です。

　今日はソフトウェア開発する上での決まりきったコードを整理していました。例えば、Webを閲覧できるAPIとか、メールを出せるAPIとかの使い方などです。その都度探すのは効率的ではありませんから。

　あと、今は警察犬訓練所で預かってもらっている飼い犬が帰宅した時のために、カンタンなスケジューラーを作り始めました。

　私は「山本」で、飼い犬の名前は「ヤマト」です。必要なのは、
------------------------------------------------------------
07:00　山本とヤマトの朝食
07:30　ヤマトの朝の散歩
12:00　山本の昼食
17:00　ヤマトの夕方の散歩
18:00　山本の夕食
21:00　風呂
23:00　パソコンの電源オフ
------------------------------------------------------------
といった時刻にパソコンでアラームを出す単純なものです。

　パソコンで作業中に没頭していると、ヤマトの散歩の時刻になっても忘れたりしますから、それを知らせてくれれば良いだけです。

　コーディングの途中で考えました。

　「こんなソフトならVectorに行けば良いのでは？」と。
　　http://www.vector.co.jp/

　いくつかオンラインソフトをダウンロードしてみた感想は、
　「機能が豊富なのは良いが、かえって使いにくい」です。
　中には.NET開発言語で記載されているものを見かけて「おおっ」とか、思いましたが(笑)
　私の望みの単純なソフトもあるのかもしれませんが、途中で考え直しました。

　「探す手間をかけるくらいなら、作った方が早い。」

と（爆）それで作ることにしましたとさ(汗)。

作成日: 2005年3月19日（土）

　皆さん、こんにちは。山本美孝です。

　先日から、ぼちぼちと作っている英日時計ですが、サマータイムなのかどうか、人間が設定するのでは、混乱します。
　コーディングでサマータイムか否かを自動判定させるようにしました。以下の場所にあります。

http://patbank.web.infoseek.co.jp/zzz

　サマータイム判定は厳密に言うと
　　イギリスでは毎年 3 月最後の日曜日午前 2 時から始まる
そうです。ただサマータイム終了時間がインターネットで探せなかったのと、タイマー割り込みしている関係で1分ごとに、サマータイムかどうかを調べると重くなります。そこで時刻の判定はしないように手抜きしました(汗)

・余談
　日本でもサマータイム法案が検討されているらしいですね。良いのか悪いのか、なんとも言いがたいです。

　皆さん、こんにちは。山本美孝です。

　私は墓参りの移動中、昼飯にとんこつラーメンを食った。しかし、わからないのは、なんで「ラーメンライス」があるのかだ。「ラーメン」をおかずにして、「ライス」を食うのだろうか？

　別に「ラーメンライス」を食べる人を非難するつもりは全くない。ただ、「でんぷんばかり………」と思う。

　さらに「焼きそば」や「お好み焼き」でご飯を食べる人も、不可思議なものと映る。

　皆さん、こんにちは。山本美孝です。

　携帯電話は登場してまもなく利用していましたが、料金が高いので止めてずっと辛抱してきました。しかし最近はかなり安く(月5，000円未満)で使えるので、利用することにしました。

　今や、外出の時の必須アイテムになっています。

(1)携帯のデジタルカメラとして利用する

　外出する時には、なにげなく持ち運ぶ習慣が身についたので、「デジカメ写真を撮りたいな。」と思った時に気軽にできます。

(2)スケジューラーとして利用する

　ある時間に携帯電話から音を発するようにしておき、外出時のタイマーとして利用します。腕時計の代わりにもなります。

(3)メモ帳として利用する

　携帯電話のメモ帳機能を使って、キーワードを打ち込んでおきます。

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

　え゜、電話として使わないのかって？メールは使わないのかって？基本的に、電話は自宅の電話機を使って話します。メールは、パソコンのメールを使います。

　タッチタイピングが出来る人なら、メールで文書を作る作業がまどろっこしくて、耐えられないからです。

　皆さん、こんにちは。山本美孝です。

最近になってGoogleで検索すると以下のような表示を見ることが多くなりました。

------------------------------------------------------------
このページは自動的に英語から翻訳されています。 BETA
------------------------------------------------------------

　要するに英語のページをGoogleが自動的に翻訳してくれるのです。
　従来から、翻訳ソフトに、このような翻訳をしてくれるものはあります。しかし、検索サイト側で翻訳する工夫をしているのは初めて見ました。Googleにエール(拍手)を送りたいです。

　英語のページと言っても、複雑な文章でなければ大意は把握できますが、自動翻訳を使うと楽です。
　翻訳結果が気に入らない場合には、元の英語のページに戻せば良いのですから。

作成日: 2005年3月18日（金）

　皆さん、こんにちは。山本美孝です。

さて、どうも連載が4回というのは、縁起が悪いので、他に改善できる点がないか調べてみた。

(1)最小化(アイコン化)しなくても、日時を挿入できる
(2)ヘルプらしきものを作る

　この2点に絞って考えてみた。(2)の方が面倒なので、手抜きコーディングの例を伝授します(笑)

　新しくフォーム　frmSetumei を作って、それにテキストボックスを配置する。

------------------------------------------------------------
Private Sub ViewHelp()

　　TmpFile = MyPath & "ReadMe.txt"

　　If Dir(TmpFile) = "" Then
　　　　MsgBox "ReadMe.txtが見つからない_
　　　　，vbCritical， "TmpMemo"
　　　　Exit Sub
　　End If

　　AllMes = ""
　　Open TmpFile For Input As #1

　　Do
　　　Line Input #1， TmpMes
　　　AllMes = AllMes & TmpMes & vbCrLf
　　Loop While Not EOF(1)

　　Close #1

　　txtMemo.Text = AllMes

End Sub
------------------------------------------------------------
　これを使うと、テキストエディタで、ReadMe.txtを編集するだけで、他のコードに流用できるので便利です。

　皆さん、こんにちは。山本美孝です。

　一時的にメモをとるソフトはできましたが、だんだんと欲が出てきます。たとえば、家族が旅行中で翌日までファイルを残したいような場合です。

・ファイルを読み込み　Open 日記ファイル名 For InPut As #1

・ファイルの書き出し　Open 日記ファイル名 For OutPut As #1
　追記して残したい場合には、Append　を使います。

　コードは秘密日記に記述しました。

　皆さん、こんにちは。山本美孝です。いよいよプログラムの完成です。以下のコードを追加してください。

------------------------------------------------------------
Private Sub Form_Load()’フォームがロードされた最初の時

　　Call DateSet

End Sub
------------------------------------------------------------
Private Sub Form_Resize()’フォームがリサイズされた時

　　If frmMain.WindowState = 1 Then ’標準に戻されたなら
　　　　’0………最小化 2………最大化
　　　　Call DateSet
　　End If

End Sub
------------------------------------------------------------

　これで、完成です。え゛、プログラムを修正するとメモも消えてしまうじゃないかって？ごもっともです。

　皆さん、こんにちは。山本美孝です。

　さて電話メモのデザインは概ね(おおむね)完成したので、次はコーディングです。

　DateSetというプロシージャを設計します。これは、改行や日付を入力する機能を持ったものです。

------------------------------------------------------------
Private Sub DateSet()

　　’txtMemoの終端が改行でなければ、改行を入れる

　　If Len(txtMemo.Text) ＜＞ 0 And Right(txtMemo.Text， 1)_
　　＜＞ vbCrLf Then
　　　　txtMemo.Text = txtMemo & vbCrLf
　　End If

　　’txtMemoの終端に年月日と曜日を追加する

　　txtMemo.Text = txtMemo.Text & Format _
　　(Now， "yyyy/mm/dd (aaa) hh:nn") & vbCrLf & "　"

　　’txtMemoの終端にカーソルを移動させる

　　txtMemo.SelStart = Len(txtMemo.Text)

End Sub
------------------------------------------------------------

　　　　　まだ続く(汗)

　皆さん、こんにちは。山本美孝です。

　BJClock(英日時計)の解説をした勢いで、プログラミングについて簡単に説明しようと思いつきました。
　とは言え、あまり複雑だと理解しにくいので
　　　電話メモ(保存しないエディタ)
を作ってみようと考えたわけです。

　SOHOで大抵は自宅のパソコンの前に座っている私ですが、家族の友人から電話がかかってくることがあります。その伝言をメモを渡すのも面倒だし、かといって、エディタに記録して残すほどのものでもありません。

　そこで、「記録しないエディタ」を思いつきました。仕様は以下の通り。

(1)最初に起動した時に時刻を貼り付ける。

(2)ユーザーが通常のサイズに戻したら、新たに時刻を貼り付ける。

　ファイルに保存したり読み込んだりするコーディングは極めて簡単である。従って、簡易エディタも作れるのだが、ここでは単にメモリに残しておくだけのものにする。

------------------------------------------------------------
Visual Basic 6.0を使う場合
------------------------------------------------------------
デザインは以下のような形で行われる。

■フォーム

(1)フォームを用意する。フォームの名前はfrmMainとする。

(2)フォームのCaptionは、例えば
　　"TmpMemo (C)2005，山本美孝 PAF02437@nifty.com"
　　とする。

(3)フォームのアイコン(Icon)を用意する。
　フリーのアイコン集などから使えそうなものを選ぶ。
　もちろんアイコンを自分で作成しても良い。

(4)フォームのStartUpPositionは、「2-画面の中央」にする。

(5)フォームのMaxButtonは、「False」にする。

■テキストボックス

(1)フォームにテキストボックスtxtMemoを配置する。

(2)テキストボックスの Text はヌル(空文字)にする。

(3)テキストボックスのMultiLineをTrueにする。
　これにより、複数行が扱えるようになる。

　テキストボックスの大きさはフォームより少し小さい
　くらいにする。

(4)テキストボックスのScrollBarsは「2-垂直」にする。
　つまり、垂直方向のスクロールバーがつくことになる。

(5)テキストボックスの　IMEModeを「1-オン」にする。
　これで入力する時に、IMEがオンの状態で入力できる。

------------------------------------------------------------
　　　　(読む人が少ないかもしれないがw、続く)

　ちなみに、Visual Basic .NETだとCaptionではなく、Textになっている。従って、
　フォームのCaptionは、→フォームのTextは
と書き換える必要がある。

　皆さん、こんにちは。山本美孝です。

　サマータイムの判定をするコードを入れてみました。結局は見え易いリストボックスを配列の代わりに利用しました。
　実際にプログラムの中に入れるのは面倒なので、これで終了です(汗)

------------------------------------------------------------
Private Function Summer_Check(BritainNow As Date) As Boolean
’サマータイムの調査

　　　NowDate = Format(BritainNow， "yyyy/mm/dd (aaa)")
　　　’例 NowDate = "2005/03/27(日)"

　　　Dim I As Integer

　　　For I = 0 To lstYear.ListCount - 1

　　　　　If InStr(lstYear.List(I)， NowDate) = 1 Then
　　　　　　　Exit For
　　　　　End If

　　　Next

　　　SummerCheck = False
　　　If InStr(lstYear.List(I)， "■") > 0 Then
　　　　　SummerCheck = True
　　　End If

End Function
------------------------------------------------------------

お付き合いいただき、ありがとうございました。
　サマータイムを「■」で表しましたが「夏」の方がわかりやすいかもしれませんね(汗)