◆□□□□□□□□□□□□□□□□□□□□□□□□□□□◆ ＨＳＰであなたもプログラマー 発行者そらとす 第八回　“画像を表示しよう２”2001/8/23 MAIL:soratosu@24i.net HP:http://www3.to/soratosu/ ◆□□□□□□□□□□□□□□□□□□□□□□□□□□□◆ うぉっとっとっと！！今日は木曜日だった！！うげっ。ずっと朝から 「今日は水曜日。今日発行しないとな〜」とおもってました。 夏休みボケかな？ ☆前回 気をとりなおして、えっとこの前は、inputを別のウインドウに表示して、 その入力されたものをinput(入力ボックス)があるウィンドウと違う ウィンドウに表示するという命令でしたね。 ┌───┐┌─────────┐ │input ││inputに入力された │ │button││画像パス │ └───┘└─────────┘ という具合でした。 ☆今回 　しかし、これでは（前書いたスクリプト）画像（.bmp,.jpg)とは 違うパスを入れられては、困ります。 　それを解消するスクリプトを書いてみます。 ;-----ここから------ screen 0,640,480,0 : cls screen 3,300,300,0 : cls a="" mes "画像集改良版" input a button "表示",*hyoji stop *hyoji exist a if strsize = -1 : dialog "そんな画像はありません。",0,"画像表示改良版" : stop gsel 0 picload ""+a+"" stop ;------ここまで-------- こんなスクリプトです。説明していきます。 一行目：画像表示用のウィンドウを作ります。次に初期化。 二行目：入力ボックス用のウィンドウを作ります。次に初期化 三行目：変数aを文字列方にします。こうしないと入力したものが、意味不明なものになります。 四行目：タイトルみたいなのを表示（なくても動作にはまったく関係ない） 五行目：入力ボックスを作ります 六行目：このボタンを押すと、入力されたものを表示します。 七行目：一旦ここでスクリプトを中断。 八行目：ラベル 九行目：existという命令を使って入力されたものが在るかどうかチェック 十行目：もしない場合は、システム変数strsizeに-1が代入されるので、それをチェックし、 そうだったときは、ダイアログを表示して、ないことを告げる。そんでとめる。 十一行目：画面操作先をWindowID0に変更。 十二行目：変更した先に画像をロード。 十三行目：終了しないようにとめる。 とこんな処理をしています。 前に書いたかどうかわかりませんがＨＳＰでは、[:(コロン)]を打つと 次の行に書いたのと同じになります。 つまり、いままで、 alloc a,3000 a="" alloc b,300 b="" としていたものが、 alloc a,3000 : a="" alloc b,3000 : b="" とかけるようになります。 別に、 alloc a,3000:a="" としても alloc a,3000 : a="" としてもＯＫです。しかし、 alloc a,3000; : a=" としてもa=""はコメントとして認識されます。 こんなものでしょうか。 システム変数について。(前書いたかも知れない。） システム変数とは、ＨＳＰ自体が使う（代入する）変数のことです。 perlにたとえると（何故？）$ENV見たいなものです。 このシステム変数は、ユーザーが勝手に書き換えることはできません。 要するにリードオンリー。 strsize=503 とかしたらエラーが出ます。 ほかにもいろいろシステム変数がありますが、そのつど説明するということで、 省略させていただきます。 今回おわり。次回（もう配信されてるけど）は整形です。 ■読者コーナー■ えっとメールのログが消えてしまったのでちょっとかけません。 もーっとおくってください！！。 「わかりやすいです。」「わかりにくいです」「解約します」 「執筆後記がながすぎ」とかでもいいので。 θ事故中θ もー最近ついてないです。 帰ってきたすぐは全く問題なかったのにハードディスクがクラッシュして何もかもなくなってしまいました。 うーん。原因は...ズバリＨＤＤを踏んだからであります。なぜ落としたかというと知っているかどうかわかりませんが、 僕のホームページにちょっと拡張というコラムがあって、その実験台になってもらおうとおもってかった、 ５００円ハードディスク（１Ｍ一円）を付けてお気に入りのＵ５を新聞の上に置いとくいて、つけて、Ｌｉｎｕｘいれて、 あまりの遅さに感激して(嘘)やめてさあ元に戻そうとして椅子から立ち上がったそのときおもっきりふんずけてありの裏から血が でて恐らく電源を入れたとき、血が電解液となってショートして吹っ飛んだ、と思います。 大事な、スクリプトとかは、ＣＤ−ＲＷとかにとって在るので助かりましたが、 メールとかは全てなくなってしまいました。 あーあ。あーあ。あーあ。あーあ。あーあ。あーあ。あーあ。 これではホームページが更新できない。回線がおそいのでＦＦＦＴＰでＤＬする気にもならない。 ●ＹａｈｏｏＢＢのＡＤＳＬ開通までの日記超いい加減。 七月二十八日にホームページから予約。 次の日（土曜日）にＹａｈｏｏから返事があって登録可能だと。 本登録してまってまってまってまってまってまってまってまってまってまってやっとＹａｈｈｏＢＢから 8/7に「お客様のエリアは九月を目処に順次開通していく」ということだそーです。そんな〜。 いろいろページで調べたら、三週間もあったら開通するということを信じてＤＩＯＮを四時間コースに 換えたのに。 そらとす徒歩距離計測では、交換機まで約2.3ＫＭ。ちょっととおいね。しかもこのコース山の中を通る 超短距離コースなので恐らくもっと長いだろう。 ▲ノイズフィルター。 これをつけたら回線速度が０．２キロバイト（kbpsではない)上昇した。 あんまり意味ないみたい。 （アナログ）