2018/03/22 (木)
NDLからまとめてデータを取得する＆ISBNチェックディジット
なでしこ１ | | 
その後たいしたコトはしてませんが、連続して書籍データを取得するのは、10件ほどのデータで1秒間隔くらいでお試ししたところ、案外すんなりと快調に取得することが出来ました☆
・・・っと思っていたら、なんか突然モノスゴク遅くなることもあるみたい～。
こっ、コレは、こんなにクエリ送ってくんなと怒られてるんですかね＞＜
そんなに無茶な送りっぷりでは無いつもりだったんですがね・・・
それとも単に向こうさんが何らかの事情で遅くなってる？
まあ、応答なしとかになって焦っても、最終的には正常終了してデータも取れてるので、パソコンやインターネットなんて遅いモノだと思っていれば、何の問題もありません（違；）
どっちにしても、タイトルがびみょーだったり、ISBNで検索しても、点字の資料とか何とかで２個以上上がってきちゃうとかあるし（mediatypeの設定で解決するかと思ったらしなかった）で、結局は修正が必要そうだし、バーコードでも読めるんならいいですが、ISBNの入力するだけでも結構めんどーで、一度にそんな大量に処理する予定は無いんですけどね。
でっ、こんな感じ？
書籍データ＝空。取得データ＝空。 ファイル名＝今日の「/」を空に置換＆「-」＆今の「:」を空に置換＆「.csv」 ISBNデータ＝「9784591153062 9784041047675 9784416311165 9784091898425 9784861349157 9784885745669 9784101445069 9784122062023 4893635360 4893635840」 （ISBNデータの要素数）回 ISBNデータ[回数-1]で書籍情報取得。 取得データに書籍データを一行追加。 書籍データは空。 1秒待つ。 取得データをファイル名に保存。 終わる。 #----------------------------------------------------------- # http://iss.ndl.go.jp/information/api/ ＊書籍情報取得(ISBNで) 検索URLは「http://iss.ndl.go.jp/api/sru?operation=searchRetrieve&recordSchema=dcndl_simple&query=mediatype=1 AND isbn={ISBN}」 検索URLからHTTPデータ取得。 データ＝それをUTF8_SJIS変換。 ISBNのISBNチェック。 もし、それ＝０ならば、書籍データは「エラー！,"{ISBN}"」。戻る。 ヒット数＝データから「numberOfRecords」のタグ切り出しし、それのタグ削除。 もし、ヒット数＝０ならば、書籍データは「未検出！,"{ISBN}"」。戻る。 データ＝データから「record」のタグ切り出し。 データを「</record>」で区切る。 （データの要素数）回 C=回数-1。 書籍データ[C][0]＝データ[C]から「dc:title」のタグ切り出しし、それのタグ削除。 書籍データ[C][1]＝データ[C]から「dcndl:titleTranscription」のタグ切り出しし、それのタグ削除。 書籍データ[C][2]＝データ[C]から「dc:creator」のタグ切り出しし、それのタグ削除し、改行を「 ; 」に置換。 書籍データ[C][3]＝データ[C]から「dcndl:creatorTranscription」のタグ切り出しし、それのタグ削除し、改行を「 ; 」に置換。 書籍データ[C][4]＝データ[C]から「dcndl:volume」のタグ切り出しし、それのタグ削除。 書籍データ[C][5]＝データ[C]から「dcndl:seriesTitle」のタグ切り出しし、それのタグ削除し、改行を「 ; 」に置換。 書籍データ[C][6]＝データ[C]から「dc:publisher」のタグ切り出しし、それのタグ削除。 一時＝データ[C]から「dc:identifier」のタグ切り出し。 (一時の要素数)回 一時[回数-1]を「URI」で正規表現マッチ。 もし、それ＝「URI」ならば、書籍データ[C][7]＝一時[回数-1]のタグ削除。 一時[回数-1]を「ISBN」で正規表現マッチ。 もし、それ＝「ISBN」ならば、 ISBN＝一時[回数-1]のタグ削除。 書籍データ[C][8]＝書籍データ[C][8]＆ISBN＆「 ; 」。 もし、回数＝(一時の要素数)ならば、書籍データ[C][8]の３文字右端削除。 #----------------------------------------------------------- ＃ＩＳＢＮチェックディジット計算 # 計算式はウィキペディアによる。 # https://ja.wikipedia.org/wiki/ISBN #----------------------------------------------- ＊ISBNチェック(ISBNの|ISBNを) ISBN＝ISBNを文字列分解。A＝0。 もし、ISBNの要素数＝１０ならば、 9回 B＝ISBN\(回数-1)。 C＝10-(回数-1)。 A＝A+B*C。 D＝11-A%11。 もし、D＝10ならば、D＝「X」。 もし、D＝11ならば、D＝0。 もし、(D＝ISBN\9)ならば、はいで戻る。 違えば、いいえで戻る。 違えば、もし、ISBNの要素数＝１３ならば、 12回 B＝ISBN\(回数-1)。 回数%2＝０ならば、C＝3。 違えば、C＝1。 A＝A+B*C。 もし、A%10＝０ならば、D＝０。 違えば、D＝10-A%10。 もし、(D＝ISBN\12)ならば、はいで戻る 違えば、いいえで戻る。 違えば、いいえで戻る。 #-----------------------------------------------------------
そうそう、ISBNコードとゆう物を学びまして、日本の場合ですが先頭の「9784」は固定であることや（見りゃ分かるでしょとか言わないで～；）最後の一桁は、チェックディジットと言って、コードが間違ってないか確認するためのヤツだというコトを知りました。
前のコード部分を計算して、このチェックディジットと合わなければ、どっか入力ミスってるよ！と分かるって仕掛けです。おぉ！
計算式がウィキペディアに載っていたので、チェックできるようにしてみました☆
なにせ、世の中で一番信用できないのは自分！ ってくらいに迂闊な人間ですからねぇ～。入力ミスらないワケ無いですからっ（爆）
とりあえずは、こんなモノかな。
2018/03/17 (土)
NDLのAPIで書籍検索してみるよ！
なでしこ１ | | 
掲示板の質問で、GoogleBooksAPIを使って書籍情報を取得したい！ とゆうのがあって、ワタシの心にものすごくヒットしました☆
http://www.eznavi.net/bbs/index2.php?pagetop=415&only=one
記事一つ書けるくらい結構なんだかんだして、モノスゴク賢くなったりもしたんだけど・・・
いかんせんぐーぐるさまの検索結果は、、ISBNコードで検索してんのにヒットしないとか、複数巻あるシリーズ本でも登録されてんのとされてないのがあるとか、漫画も全巻揃ってないとか、なかなかしょぼいようです。
あと、沢山ヒットしても最初の十件しか取得されないようで、たぶん最大取得件数とか、取得開始のインデックスとかが設定できるパラメーターがあるじゃろうと思うんだけど・・・日本語のリファレンスって無いんですかねえ？？？
どうも英語のトコしか出てこなくて・・・挫折しましたヽ（；´Д｀）ノ
しかしアレですよ。書籍検索ならＮＤＬじゃないですか？
http://iss.ndl.go.jp/information/api/
天下の国立国会図書館さまですよ！
枕詞として、世界のぐーぐるさまとどっちが偉いんだとゆうのは置いといて、日本で本を検索するなら断然こっちですとも！！
がっ・・・ご説明を読むも、一体何のことやら・・・；（頭悪すぎ）
難解な日本語はカンタンな英語より読解がむずかしいの～（＋＿＋）
具合わるくはならないケド、すぐに脳がシャットダウンしてしまうので、何度も自分を再起動しないとなりませんｗ
なんか、ぷろとこる？ が６種類もあるしさー。
でっ、でも取りあえず、無難に（？）SRUでXMLを取得するやつでURLを叩いてみる。
http://iss.ndl.go.jp/api/sru?operation=searchRetrieve&query=isbn=9784041056271
ぐーぐるさまには無いと言われた本が、見事にヒットしました☆
そしてさらにまた・・・取得データのスキーマ？？ とやらが３種類もあるらしく・・・
パラメータを省略すると、「dc」となりさっきのやつ。
一番詳しいのが「dcndl」
http://iss.ndl.go.jp/api/sru?operation=searchRetrieve&recordSchema=dcndl&query=isbn=9784041056271
「dcndl_simple」はそのシンプル版？
明らかにコレが一番人間の目には優しいですねｗ
dcよりは大分詳細で、必要っぽい情報は全て備わっているようです。（実際にはタイトルと作者と、あとせいぜい出版社くらいあればいいんだから、dcでもいいんだけどｗ）
ぐーぐるさまとは違い、省略すると最大取得件数が200件なので、題名や作者で無節操な検索をしてみたら、フリーズしたかと思うほど遅くて焦った；；；
でも大丈夫～。「maximumRecords」で最大取得件数が、「startRecord」で開始位置が変更出来ます☆ 日本語って素晴らしい！（違；）
データベースとしての方針の違いか、ぐーぐるさまと違って内容的な記載はほぼ入ってないので、検索結果を眺めてもつまらんけど、データを取りたいだけなら別にいらないからね。
読みが取れるというのはすごくいいと思うんですよ☆ 後でソートしたい場合とかあるし。
とゆうわけで？ とりあえずデータを取得してみる。
折角ジェイソンさんを覚えたのに、XMLぅ～。
しかし、なでしこ１ならむしろ、タグ切り出しとタグ削除で、簡単にデータが取れますからね♪
#----------------------------------------------------------- ISBN＝「4198918635」 検索URLは「http://iss.ndl.go.jp/api/sru?operation=searchRetrieve&recordSchema=dcndl_simple&query=mediatype=1 AND isbn={ISBN}」 検索URLからHTTPデータ取得。 データ＝それをUTF8_SJIS変換。 データ＝データから「record」のタグ切り出し。 データを「</record>」で区切る。 （データの要素数）回 C=回数-1。 書籍データ[C][0]＝データ[C]から「dc:title」のタグ切り出しし、それのタグ削除。 書籍データ[C][1]＝データ[C]から「dcndl:titleTranscription」のタグ切り出しし、それのタグ削除。 書籍データ[C][2]＝データ[C]から「dc:creator」のタグ切り出しし、それのタグ削除し、改行を「 ; 」に置換。 書籍データ[C][3]＝データ[C]から「dcndl:creatorTranscription」のタグ切り出しし、それのタグ削除し、改行を「 ; 」に置換。 書籍データ[C][4]＝データ[C]から「dcndl:volume」のタグ切り出しし、それのタグ削除。 書籍データ[C][5]＝データ[C]から「dcndl:seriesTitle」のタグ切り出しし、それのタグ削除し、改行を「 ; 」に置換。 書籍データ[C][6]＝データ[C]から「dc:publisher」のタグ切り出しし、それのタグ削除。 一時＝データ[C]から「dc:identifier」のタグ切り出し。 (一時の要素数)回 一時[回数-1]を「URI」で正規表現マッチ。 もし、それ＝「URI」ならば、書籍データ[C][7]＝一時[回数-1]のタグ削除。 一時[回数-1]を「ISBN」で正規表現マッチ。 もし、それ＝「ISBN」ならば、 ISBN＝一時[回数-1]のタグ削除。 書籍データ[C][8]＝書籍データ[C][8]＆ISBN＆「 ; 」。 もし、回数＝(一時の要素数)ならば、書籍データ[C][8]の３文字右端削除。 書籍データを言う。 #-----------------------------------------------------------
コレもぐーぐるさまには無いと言われたヤツだけど、無事取れました。
ISBNでのヒット率が良ければ、いろいろ検索して遊ぶわけじゃなく蔵書リストのデータを取るだけなら、なにもGUIを使って選択するこたあないんで、ISBNコードのデータを作って置いて処理させても良さそうに思うけど、あんまり連続して機械的にクエリを送っちゃダメだろうね。大量アクセスに関するご注意を見ても、具体的に最低何秒間隔を開けろとか、毎分何件以下にすれとか的な記載は無いからねぇ～。
うーん、超珍しく実用の物を作る気満々だねｗｗｗ
・・・シカシ・・・「4839951845」はＮＤＬでもヒットしない・・・むむむ。
2018/01/02 (火)
ナコ様の透視術
なでしこ１ | | 
あけましておめでとうございます。
12月中は、ほとんどなにもしないでいるうちに年が明け、ふと気が付いたらなでしこ３がバージョンアップしていたよ！
そんな中、なでしこ１のプログラム（笑）
吹出作成と吹出セリフ表示は、前にスクリーンセーバーの時に作ったものなので（https://nadesiko.g.hatena.ne.jp/snowdrops89/20161107/1478528925）、今回は、数当てカードを作っただけ。
数当てカードは、相手が心の中で思った数を当てるという古典的な有名なマジックで、カードの最初の数を足していくだけの誰にでも出来る超カンタンなものなんだけど、暗算能力が無いワタシはまったくスマートに出来ないんですね；
そして、なんでこんなことが可能なのかについては、わりと最近理解しました；；；
全ての整数は、重複しないいくつかの２の累乗の和で表すことができる、とゆうことになってる・・・ラシイ。（結局そんなに理解してない？！）
ようするに二進数なんだけど、なんでこんな回りくどい言い方しなきゃならんのか＞＜；
とっ、とにかく、ようく分かったのは、昔は一生懸命書き写したりしていたカードですが、実はプログラムで一瞬で作るコトの出来るシロモノだった・・・ということで、ついでにナコ様に実演してもらうようにしたものです。
ナコさまのセリフを読んだら、吹き出しをクリックして進めて下さい。
カードの選択は、慎重かつ正直に。
ナコさまは間違えませんので、もし、結果が思っていた数と違ったら、それはアナタが間違ってるのですｗｗｗ
＃ナコ様の透視術 #----------------------------------------------------------- ！母艦設計=「母艦の可視はオフ」 母艦のタイトルは「ナコ様の透視術」 #------------------------------------------------------------ 科白色＝$EEBBCC #------------------------------------------------------------ #なこ様 ナコ様とはなこ。 これについて 可視はオフ。 X=ナコ様の幅。//デスクトップワークエリアW-ナコ様の幅。 Y=デスクトップワークエリアH-ナコ様の高さ。 マウス押した時は～ 吹出の可視はオフ。吹出右の可視はオフ。 マウス離した時は～ もし、Y-吹出の高さ+50＜０ならば、Y＝吹出の高さ-50-20。 もし、Y+ナコ様の高さ＞デスクトップワークエリアHならば、Y=デスクトップワークエリアH-ナコ様の高さ もし、X-吹出の幅＜０ならば、 もし、X＜０ならば、X=0。 吹出右の位置＝「{ナコ様のX+ナコ様の幅-80},{ナコ様のY-吹出右の高さ+50}」 もし、吹出方向＝「右上」でなければ、吹出方向は「右上」。 違えば、もし、X+ナコ様の幅＊２＞デスクトップワークエリアWならば、 X=デスクトップワークエリアW-ナコ様の幅＊２ 吹出の位置＝「{ナコ様のX-吹出の幅},{ナコ様のY-吹出の高さ+50}」 もし、吹出方向＝「左上」でなければ、吹出方向は「左上」。 違えば、 吹出の位置＝「{ナコ様のX-吹出の幅},{ナコ様のY-吹出の高さ+50}」 もし、吹出方向＝「左上」でなければ、吹出方向は「左上」。 もし、吹出表示状態＝オンならば、 吹出方向で条件分岐 左上ならば、吹出の可視はオン。 右上ならば、吹出右の可視はオン。 母艦位置設定。 ダブルクリックした時は～終わる。 #なこ様吹出 Ｃ＝０。クリック待ちフラグ＝オフ。 吹出とはフォーム。 これについて 可視はオフ。ドラッグ移動はオフ。 クリックした時は～ もし、クリック待ちフラグ＝オンならば、 クリック待ちフラグ＝オフ。 「{シナリオ￥Ｃ}」をナデシコする。。 Ｃ＝Ｃ＋１。 クリック待ちフラグ＝オン。 吹出右とはフォーム。 これについて 可視はオフ。ドラッグ移動はオフ。 クリックした時は～ もし、クリック待ちフラグ＝オンならば、 クリック待ちフラグ＝オフ。 「{シナリオ￥Ｃ}」をナデシコする。。 Ｃ＝Ｃ＋１。 クリック待ちフラグ＝オン。 #カードの表示位置（ダイアログ）は母艦の中央になる。 ＊母艦位置設定 母艦のX＝ナコ様のX＋１２０。母艦のY＝ナコ様のY-３０。 母艦の幅＝ナコ様の幅。母艦の高さ＝ナコ様の高さ。 #----------------------------------------------------------- シナリオ＝「科白を喋る。 科白非表示。数当カード。 終わる」 #------------------------------------------------------------ ＃メインルーチン 文字サイズは１２。 塗り色は科白色。 吹出方向は「右上」 母艦位置設定。 ダイアログ詳細＝「文字サイズ=12」 ナコ様の可視はオン。 数当表作成。 「心の中で１～６０の間の数字を思い浮かべて、 ボクには見えないようにメモって置いてね。{改行} 準備が出来たら、はじめるよ！」と喋る。 クリック待ちフラグ＝オン。 科白＝「では、これから六枚のカードを、お見せします。 その中に、あなたの思った数字があれば{カッコ}はい{カッコ閉じ}を、 なければ{カッコ}いいえ{カッコ閉じ}のボタンを押して下さい。」 ＊数当表作成 数当表＝空。 ６０回 数＝回数。 ６回 もし、AND(数,（２の（回数-1）乗）)＝０でなければ、数当表￥（回数-1）に数を一行追加。 ＊数当カード 答＝０ ６回 ダイアログタイトル＝「数当てカード {回数}枚目」 （回数-1）のカード表示。 もし、それがはいならば、答＝答＋（２の（回数-1）乗） 「むむ、読めました！{~}あなたが心に描いた数字は…{~} {答} ですね？」と喋る。 ＊カード表示（Aの） カード＝空。 数当表￥Aを配列数値ソート。 ３０回 もし、それ￥(回数-1)＜１０ならば、数＝「 {それ￥(回数-1)}」 違えば、数＝「{それ￥(回数-1)}」 もし、(回数-1)％５＝４ならば、カード＝「{カード}{数}{改行}」 違えば、カード＝「{カード}{数} 」 カードで二択。 #----------------------------------------------------------- ＊喋る（{文字列=「」}AでSと|Sを） 科白種別はA。 吹出方向で条件分岐 「左上」ならば、 吹出にSを「左上」へ200,100で吹出セリフ表示。 吹出の位置＝「{ナコ様のX-吹出の幅},{ナコ様のY-吹出の高さ+50}」 吹出の可視はオン。 吹出右にSを「右上」へ200,100で吹出セリフ表示。 「右上」ならば、 吹出右にSを「右上」へ200,100で吹出セリフ表示。 吹出右の位置＝「{ナコ様のX+ナコ様の幅-80},{ナコ様のY-吹出右の高さ+50}」 吹出右の可視はオン。 吹出にSを「左上」へ200,100で吹出セリフ表示。 吹出表示状態＝オン。 ＊科白非表示 吹出の可視はオフ。吹出右の可視はオフ。吹出表示状態＝オフ。 #------------------------------------------------------------ ●吹出作成（{グループ=?}FをW,Hで方向へ） xx=0。yy=0。ww=0。hh=0。 方向で条件分岐 右上ならば、 ＃矢印は左下 Fのポケットは「右上」 x1=0。y1=H。x2=W/8。y2=H/4*3。x3=W/4。y3=H/8*7。 右下ならば、 ＃矢印は左上 Fのポケットは「右下」 x1=0。y1=0。x2=W/4。y2=H/8。x3=W/8。y3=H/4。 左上ならば、 ＃矢印は右下（吹出し変形と同じ） Fのポケットは「左上」 x1=W。y1=H。x2=W/4*3。y2=H/8*7。x3=W/8*7。y3=H/4*3。 左下ならば、 ＃矢印は右上 Fのポケットは「左下」 x1=W。y1=0。x2=W/4*3。y2=H/8。x3=W/8*7。y3=H/4。 上ならば、 ＃矢印は下向き hh=H/10。Fのポケットは「上」 x1=W/2。y1=H+hh。x2=W/2-W/20。y2=H-H/100。x3=W/2+W/20。y3=H-H/100。 下ならば、 ＃矢印は上向き hh=H/10。yy=hh。Fのポケットは「下」 x1=W/2。y1=0。x2=W/2-W/20。y2=hh+H/100。x3=W/2+W/20。y3=hh+H/100。 左ならば、 ＃矢印は右向き ww=W/10。Fのポケットは「左」 x1=W+ww。y1=H/2。x2=W-W/100。y2=H/2-H/20。x3=W-W/100。y3=H/2+H/20。 右ならば、 ＃矢印は左向き ww=W/10。xx=ww。Fのポケットは「右」 x1=0。y1=H/2。x2=ww+W/100。y2=H/2-H/20。x3=ww+W/100。y3=H/2+H/20。 Fの可視はオフ。 FのクライアントWはW+ww。FのクライアントHはH+hh。 Fを$00FF00で画面クリア。 線スタイルは透明。 Fのxx,yyからxx+W,yy+Hへ円。1秒待つ。 Fの「{x1},{y1},{x2},{y2},{x3},{y3}」へ多角形。 F→画像通り変形。 // Fの可視はオン。 ●吹出セリフ表示（{グループ=?}FにSを{整数=100}minW,{整数=50}minHで{文字列=「」}方向へ） Aとは文字列=「」。Bとは文字列=「」。 Sで反復 Bはそれ。 もし(Aの文字数)<(Bの文字数)ならば、A＝B。 swとは整数=Aの文字幅取得。shとは整数=(Sの文字高さ取得)＊(Sの要素数) fwとは整数=(Aの文字幅取得)＊1.5。fhとは整数=(Sの文字高さ取得)＊(Sの要素数)＊1.8 もし、fw＜minWならば、fw=minW。 もし、fh＜minHならば、fh=minH。 sxとは整数＝fw/2-sw/2-10 syとは整数＝fh/2-sh/2 もし、方向＝空ならば、方向＝F→ポケット。 もし、方向＝空ならば、方向＝左上。 もし、方向＝右ならば、sx=sx+fw/10 #矢印の長さ分 もし、方向＝下ならば、sy=sy+fh/10 Fをfw,fhで方向へ吹出作成。 Fのsx,syへSを文字表示。 #------------------------------------------------------------
2017/10/28 (土)
テーブルに編集機能をつけてみたよ！
なでしこ１ | | 
クリックした時、画像部分コピーで選択色を入れる代わりに、メモを開くようにしただけです。
デフォルトはオフですが、「編集はオン」とすると、有効になります。
アイテムの変更が確定するのは、別のセルにフォーカスが移った時です。
#----------------------------------------------------------------------- #「table_改.nako」 # 編集機能付きテーブル #----------------------------------------------------------------------- ■テーブル改 +イメージ ・線太{=2} ・線色{=$CCCCCC} ・背景色{=$FFFFFF} ・選択色{=$EEEEEE} ・文字色{=$000000} ・文字サイズ{=12} ・フォント{=「ＭＳ ゴシック」} ・左余白{=3} ・右余白{=10} ・上余白{=3} ・下余白{=5} ・最小セル幅{=30} ・編集{=オフ} ・列数 ・行数 ・アイテム ←アイテム設定 →アイテム取得 ・アイテム_ ・アイテム取得～それ＝アイテム_。 ・アイテム設定(S)～ Sの変数型確認。 もし、それが「配列」でなければ、アイテム_＝SをCSV取得。 違えば、アイテム_＝S。 アイテム_＝アイテム_の表行列交換。 列数＝アイテム_の要素数。 アイテム_＝アイテム_の表行列交換。 行数＝アイテム_の要素数。 ・標準カラー設定({数値=0}Vに)～ Vで条件分岐 0ならば、文字色＝黒色。背景色＝白色。線色＝$CCCCCC。選択色＝$EEEEEE。 1ならば、文字色=白色。線色=$808080。背景色=黒色。選択色=$808080。 ・作る～ オブジェクト=VCL_CREATE(自身, 名前, VCL_GUI_IMAGE)。 テーブルイメージバックアップ画面をイメージとして作成。 テーブルイメージバックアップ画面→可視=オフ。 テーブルイメーフォーカス用画面をイメージとして作成。 テーブルイメーフォーカス用画面→可視=オフ。 テーブル編集用メモをメモとして作成。 テーブル編集用メモ→可視はオフ。 テーブル編集用メモ→スクロールバーは空。 ・選択行 ・選択列 ・マウス移動した時は～/*マウス位置設定するためのダミー定義*/ ・クリックした時は～フォーカス選択。 // ・ダブルクリックした時は～選択行&`,`&選択列と言う。 ・セルX ・セルY ・セルW ・セルH ・セル編集フラグ{=0} ・フォーカス選択～ セル内容変更。 左位置=``。右位置=``。上位置=``。下位置=``。 高列=高配列&改行&H。幅列=列幅配列。 オンの間 I=回数-1。左位置=幅列[0]。幅列の0を配列削除。 (幅列[0]>マウスX)ならば、右位置=幅列[0]。抜ける。 選択列=I。もし、選択列＞列数-1ならば、選択列＝列数-1。 オンの間 I=回数-1。上位置=高列[0]。高列の0を配列削除。 (高列[0]>マウスY)ならば、下位置=高列[0]。抜ける。 選択行=I。もし、選択行＞行数-1ならば、選択行＝行数-1。 セルX＝左位置+描線補正位置。セルY＝上位置+描線補正位置。セルW＝右位置-左位置-線太さ。セルH＝下位置-上位置-線太さ。 Ｓ＝私→アイテム。Ｓ＝Ｓ[私→選択行][私→選択列]。テーブル編集用メモ→テキストはＳ。 テーブル編集用メモ→文字サイズは私→文字サイズ。テーブル編集用メモ→文字書体は私→フォント。 テーブル編集用メモ→Xは私→セルX+私→X。テーブル編集用メモ→Yは私→セルY+私→Y。 テーブル編集用メモ→Wは私→セルW。テーブル編集用メモ→Hは私→セルH。 もし、編集＝オンならば、テーブル編集用メモ→可視はオン。テーブル編集用メモ→注目。 違えば、 テーブルイメージバックアップ画面を私の0,0へ画像コピー。 テーブルイメーフォーカス用画面のセルX,セルY,セルW,セルHを私のセルX,セルYへ画像部分コピー。 描画処理反映。 セル編集フラグ＝１。 ・セル内容変更～ テーブル編集用メモ→可視はオフ。 自身を私にグループ参照コピー。 もし、セル編集フラグ＝０でなければ、 Ｓ＝私→アイテム。Ｓ[私→選択行][私→選択列]はテーブル編集用メモ→テキスト。 私→アイテム＝Ｓ。自動作成。 ・高配列 ・描線補正位置 ・アイテム段数配列 ・自動作成～ もし、線太さ％２＝０ならば、描線補正位置=(線太/2)を切捨。 違えば、描線補正位置=(線太/2)を切捨＋1。 システム設定変更。文字幅設定する。自身を白色で画面クリア。 アイテム配列座標付情報作成する。 HI=(線太さ/2)を切捨。 //外枠を描く 自身の(線太さ/2)を切捨,(線太さ/2)を切捨からW+1-(線太さ/2)を切捨,表下線位置+1+(線太さ/2)を切捨へ四角。 高配列=(線太さ/2)を切捨。最大出現数とは整数=0。 アイテムを反復 //行線を描く。 V=アイテム段数配列[回数-1]。 (V+1)回、HI=HI+文字高。 HI＝HI＋（上余白＋下余白）。 もし、回数＜行数ならば、自身の線太-1,HIからW-線太さ+1,HIへ線。 HIを高配列に配列追加。 //列線を描く。 列幅配列を反復 （回数＞１）かつ（回数＜列数＋１）ならば、自身の対象,0から対象,表下線位置へ線。 アイテム描画する。 バックアップ画面作成する。 システム設定戻す。 ・S_塗色 ・S_線太 ・S_文字色 ・S_線色 ・S_文字サイズ ・S_文字書体 ・システム設定変更～ S_塗色＝システム:塗色。S_線太＝システム:線太。S_線色＝システム:線色。S_文字色＝システム:文字色。S_文字サイズ＝システム:文字サイズ。S_文字書体＝システム:文字書体。 システム:塗色＝背景色。システム:線太＝線太。システム:線色＝線色。システム:文字色＝文字色。システム:文字サイズ＝文字サイズ。システム:文字書体＝フォント。 ・システム設定戻す～ システム:塗色＝S_塗色。システム:線太＝S_線太。システム:線色＝S_線色。システム:文字色＝S_文字色。システム:文字サイズ＝S_文字サイズ。システム:文字書体＝S_文字書体。 ・アイテム描画～ 自身を私にグループ参照コピー。X1とは整数。Y1とは整数。 テーブルイメーフォーカス用画面を貴方にグループ参照コピー。 貴方→サイズ=私→サイズ。貴方→画面クリア(私→選択色)。 アイテム配列座標付情報を反復 X1=対象[1]。Y1=対象[2] 自身のX1,Y1へ対象[0]を文字表示。 貴方のX1,Y1へ対象[0]を貴方:文字表示。 ・アイテム配列座標付情報 ・アイテム配列座標付情報作成～ HI=(線太さ/2)を切捨。I=0。アイテム配列座標付情報=``。 アイテムを反復 対象を反復 アイテム配列座標付情報[I][0]＝対象 アイテム配列座標付情報[I][1]＝(列幅配列[回数-1]+左余白) アイテム配列座標付情報[I][2]＝(HI+上余白)。 Iに1を直接足す。 V=アイテム段数配列[回数-1]。 (V+1)回、HI=HI+文字高。 HI＝HI＋（上余白＋下余白）。 ・バックアップ画面作成～ 自身を私にグループ参照コピー。 テーブルイメージバックアップ画面→サイズ=私→サイズ。 自身をテーブルイメージバックアップ画面の0,0へ画像コピー。 ・文字高 ・表下線位置 //表の下の線位置 ・文字情報設定～ アイテム段数配列＝空。 アイテムを反復 最大出現数=0。 対象を反復 V=対象で「{CHR(10)}」の出現回数。 (最大出現数＜V)ならば、最大出現数=V。 最大出現数をアイテム段数配列に配列追加。 実行数とは整数＝０。 アイテム段数配列を反復 実行数＝実行数＋（対象＋１） 文字高=`字`の文字高さ取得。 表下線位置=(実行数×文字高)＋行数＊（上余白＋下余白）。 ・最大列幅 ・列幅配列 ・文字幅設定～ 文字幅表=``。最大列幅=``。列幅配列＝空。 文字情報設定。 アイテムを反復 I=回数-1。V=0。 対象を反復 対象を「{CHR(10)}」で区切って反復 もし、V＜(対象の文字幅取得)ならば、V＝対象の文字幅取得。 もし、V＜最小セル幅ならば、V＝最小セル幅。 文字幅表[I][回数-1]=V＋左余白＋右余白。 V=0。 文字幅表[I]の配列合計を最大列幅に配列追加。 最大列幅=最大列幅の配列最大値。 V=0。 (線太さ/2)を切捨を列幅配列に配列追加。 (文字幅表の表列数)回 V=文字幅表の(回数-1)を表列取得の配列最大値+線太をVに直接足。 Vを列幅配列に配列追加。 表サイズ設定する。 ・サイズ ・表サイズ設定～W=列幅配列の配列最大値+描線補正位置。H=表下線位置+線太。サイズ[0][0]=0。サイズ[0][1]=0。サイズ[0][2]=W。サイズ[0][3]=表下線位置。 #----------------------------------------------------------------------- # 以下はテスト #！「table_改.nako」を取り込む。 ファイル名＝「{デスクトップ}Book1.csv」 もし、ファイル名の存在＝はいならば、データはファイル名を開く。 違えば、データ＝「1,2,3 A,B,"C""D""E" "いろはにほへと{~}ちりぬるを","わかよ,たれそ","つねならむ"」 Ｔとはテーブル改。 これについて 編集はオン。 アイテムはデータ。 母艦について クリックした時は～ Ｔのセル内容変更。 Ｔを自動作成。 閉じた時は～ Ｔのアイテムをファイル名に保存。 Ｔを自動作成。 #-----------------------------------------------------------------------
どうかな～？
うまくいってると思うんだけど。
とりあえず、ちょっとワタシが使う分には大丈夫そう☆
2017/10/25 (水)
table.nakoを改造してみるよ！
なでしこ１ | | 
文字サイズの変更が出来なかったことに比べれば、全然たいしたこと無いですけど、ぱっと見どうしても気になってならないのが、最終行の高さが他と合ってないことと、フォーカスの選択色が枠線に少しかぶること。
細かくてスミマセン；；；
枠全体のサイズの計算が行線を引くための行枠高の計算と合ってないために、そのしわ寄せが最終行に来ているっぽい。
そしてさらにどーでもいいようなことですが、ワタシとしては枠線の中にピタッとフォーカスが入って欲しいワケですよ。
それから、アイテムに指定するデータの形式が、ＣＳＶと見せかけて（別に見せかけてはいない；）ちょっと特殊仕様（？）っぽいんだけど、出来ればエクセルで作ってCSVで保存したものがふつーに表示出来るようにしたい。
あと、テーブルの背景色や文字色などを設定すると、システムの塗り色や文字色を書き換えてしまうんですよね。フツーのＧＵＩは、そんなことにはならないですよね。
さらによろしくないことには、テーブルの背景色や文字色などを設定してあっても、自動作成する前にシステムの塗り色や文字色を設定したら、それで描画が行われちゃう。
たぶん、テーブルを作ったら、設定から自動作成まで一連のセットとして記述する前提の仕様なんだろうけど、ダブルクリックしたら編集用の窓を開いて、内容を書き換えることができるようにしようと思ったら、編集するたびに自動作成で描画し直すことになるんで、その時設定も全部し直さなきゃないことになっちゃう＞＜
で・・・
■テーブル改 +イメージ ・列数{=2} ・行数{=1} ・線太{=2} ・線色{=$CCCCCC} ・背景色{=$FFFFFF} ・選択色{=$EEEEEE} ・文字色{=$000000} ・文字サイズ{=12} ・フォント{=「ＭＳ ゴシック」} ・左余白{=3} ・右余白{=10} ・上余白{=3} ・下余白{=5} ・アイテム ←アイテム設定 →アイテム取得 ・アイテム_ ・アイテム取得～それ＝アイテム_。 ・アイテム設定(S)～ Sの変数型確認。 もし、それが「配列」でなければ、アイテム_＝SをCSV取得。 違えば、アイテム_＝S。 アイテム_＝アイテム_の表行列交換。 列数＝アイテム_の要素数。 アイテム_＝アイテム_の表行列交換。 行数＝アイテム_の要素数。 ・標準カラー設定({数値=0}Vに)～ Vで条件分岐 0ならば、文字色＝黒色。背景色＝白色。線色＝$CCCCCC。選択色＝$EEEEEE。 1ならば、文字色=白色。線色=$808080。背景色=黒色。選択色=$808080。 ・作る～ オブジェクト=VCL_CREATE(自身, 名前, VCL_GUI_IMAGE)。 テーブルイメージバックアップ画面をイメージとして作成。 テーブルイメージバックアップ画面→可視=オフ。 テーブルイメーフォーカス用画面をイメージとして作成。 テーブルイメーフォーカス用画面→可視=オフ。 ・選択行 ・選択列 ・マウス移動した時は～/*マウス位置設定するためのダミー定義*/ ・クリックした時は～ フォーカス選択。 // ・ダブルクリックした時は～選択行&`,`&選択列と言う。 ・セルX ・セルY ・セルW ・セルH ・フォーカス選択～ 左位置=``。右位置=``。上位置=``。下位置=``。 高列=高配列&改行&H。幅列=列幅配列。 オンの間 I=回数-1。左位置=幅列[0]。幅列の0を配列削除。 (幅列[0]>マウスX)ならば、右位置=幅列[0]。抜ける。 選択列=I。 オンの間 I=回数-1。上位置=高列[0]。高列の0を配列削除。 (高列[0]>マウスY)ならば、下位置=高列[0]。抜ける。 選択行=I。 自身を私にグループ参照コピー。 セルX＝左位置+描線補正位置。セルY＝上位置+描線補正位置。セルW＝右位置-左位置-線太さ。セルH＝下位置-上位置-線太さ。 テーブルイメージバックアップ画面を私の0,0へ画像コピー。 テーブルイメーフォーカス用画面のセルX,セルY,セルW,セルHを私のセルX,セルYへ画像部分コピー。 描画処理反映。 ・高配列 ・描線補正位置 ・アイテム段数配列 ・自動作成～ もし、線太さ％２＝０ならば、描線補正位置=(線太/2)を切捨。 違えば、描線補正位置=(線太/2)を切捨＋1。 システム設定変更。文字幅設定する。 アイテム配列座標付情報作成する。 HI=(線太さ/2)を切捨。 //外枠を描く 自身の(線太さ/2)を切捨,(線太さ/2)を切捨からW+1-(線太さ/2)を切捨,表下線位置+1+(線太さ/2)を切捨へ四角。 高配列=(線太さ/2)を切捨。最大出現数とは整数=0。 アイテムを反復 //行線を描く。 V=アイテム段数配列[回数-1]。 (V+1)回、HI=HI+文字高。 HI＝HI＋（上余白＋下余白）。 もし、回数＜行数ならば、自身の線太-1,HIからW-線太さ+1,HIへ線。 HIを高配列に配列追加。 //列線を描く。 列幅配列を反復 （回数＞１）かつ（回数＜列数＋１）ならば、自身の対象,0から対象,表下線位置へ線。 アイテム描画する。 バックアップ画面作成する。 システム設定戻す。 ・S_塗色 ・S_線太 ・S_文字色 ・S_線色 ・S_文字サイズ ・S_文字書体 ・システム設定変更～ S_塗色＝システム:塗色。S_線太＝システム:線太。S_線色＝システム:線色。S_文字色＝システム:文字色。S_文字サイズ＝システム:文字サイズ。S_文字書体＝システム:文字書体。 システム:塗色＝背景色。システム:線太＝線太。システム:線色＝線色。システム:文字色＝文字色。システム:文字サイズ＝文字サイズ。システム:文字書体＝フォント。 ・システム設定戻す～ システム:塗色＝S_塗色。システム:線太＝S_線太。システム:線色＝S_線色。システム:文字色＝S_文字色。システム:文字サイズ＝S_文字サイズ。システム:文字書体＝S_文字書体。 ・アイテム描画～ 自身を私にグループ参照コピー。X1とは整数。Y1とは整数。 テーブルイメーフォーカス用画面を貴方にグループ参照コピー。 貴方→サイズ=私→サイズ。貴方→画面クリア(私→選択色)。 アイテム配列座標付情報を反復 X1=対象[1]。Y1=対象[2] 自身のX1,Y1へ対象[0]を文字表示。 貴方のX1,Y1へ対象[0]を貴方:文字表示。 ・アイテム配列座標付情報 ・アイテム配列座標付情報作成～ HI=(線太さ/2)を切捨。I=0。アイテム配列座標付情報=``。 アイテムを反復 対象を反復 アイテム配列座標付情報[I][0]＝対象 アイテム配列座標付情報[I][1]＝(列幅配列[回数-1]+左余白) アイテム配列座標付情報[I][2]＝(HI+上余白)。 Iに1を直接足す。 V=アイテム段数配列[回数-1]。 (V+1)回、HI=HI+文字高。 HI＝HI＋（上余白＋下余白）。 ・バックアップ画面作成～ 自身を私にグループ参照コピー。 テーブルイメージバックアップ画面→サイズ=私→サイズ。 自身をテーブルイメージバックアップ画面の0,0へ画像コピー。 ・文字高 ・表下線位置 //表の下の線位置 ・文字情報設定～ アイテム段数配列＝空。 アイテムを反復 最大出現数=0。 対象を反復 V=対象で「{CHR(10)}」の出現回数。 (最大出現数＜V)ならば、最大出現数=V。 最大出現数をアイテム段数配列に配列追加。 実行数とは整数＝０。 アイテム段数配列を反復 実行数＝実行数＋（対象＋１） 文字高=`字`の文字高さ取得。 表下線位置=(実行数×文字高)＋行数＊（上余白＋下余白）。 ・最大列幅 ・列幅配列 ・文字幅設定～ 文字幅表=``。最大列幅=``。 文字情報設定。 アイテムを反復 I=回数-1。V=0。 対象を反復 対象を「{CHR(10)}」で区切って反復 もし、V＜(対象の文字幅取得)ならば、V＝対象の文字幅取得。 文字幅表[I][回数-1]=V＋左余白＋右余白。 V=0。 文字幅表[I]の配列合計を最大列幅に配列追加。 最大列幅=最大列幅の配列最大値。 V=0。 (線太さ/2)を切捨を列幅配列に配列追加。 (文字幅表の表列数)回 V=文字幅表の(回数-1)を表列取得の配列最大値+線太をVに直接足。 Vを列幅配列に配列追加。 表サイズ設定する。 ・サイズ ・表サイズ設定～W=列幅配列の配列最大値+描線補正位置。H=表下線位置+線太。サイズ[0][0]=0。サイズ[0][1]=0。サイズ[0][2]=W。サイズ[0][3]=表下線位置。 #----------------------------------------------------------------------- # 以下はテスト #！「table_改.nako」を取り込む。 データ＝「1,2,3 A,B,"C""D""E" "いろはにほへと{~}ちりぬるを","わかよ,たれそ","つねならむ"」//をCSV取得 //データは「Book1.csv」を開く Ｔとはテーブル改。 これについて 選択色は$EEEEEE 背景色は$EEFFFF 線太さは５ 線色は$CCCCCC 文字色は$000066 フォントは「ＭＳ 明朝」 文字サイズは18 上余白は１０。 下余白は１０。 左余白は１０。 右余白は１０。 アイテムはデータ。 Ｔを自動作成。 #-----------------------------------------------------------------------
エクセルで保存したCSVの改行はCR+LFではなくLFみたい。
上下左右の余白（padding的な）を設定できるようにしてみた。
さてさて、どうかな？
見た目的にはうまくいってると思うんだけど・・・
あと、やっぱり編集できるようにしたいね。
2017/10/22 (日)
新機能のテーブルをお試ししてみる
なでしこ１ | | 
なでしこ1.57で、自由なレイアウトでグリッドを表現できる「table.nako」が新機能として追加されたんですが、どうするもんだかの説明はマニュアルにもサンプルにも追加されていないっぽいんですよね～（？）
グループのことがあんまり分かっていないけど、ちょこっと眺めてみた感じ、どうやら、イメージ部品を使って、アイテムとして与えた配列を表にして表示するモノのようです。
なんか、こんな感じ？
#----------------------------------------------------------- ！「table.nako」を取り込む。 データ＝「1,2,3 A,B,C い,ろ,は」 Ｔとはテーブル。 そのアイテムはデータ。 Ｔを自動作成。 #-----------------------------------------------------------
すごいのは、クリックすると、そこにフォーカスが入る点ですね☆
元のイメージのバックアップと、フォーカスが入った時のカラーと、二枚の裏画面を使って画像部分コピーするとゆう、わりとワタシがやりそうな原始的な方法で実現しているようです。
背景色、選択色（フォーカスが入った時の色）、線色、線太さ、文字色、文字サイズ、フォントは変更できるようです。
グループってすごいな～。便利そうだな～とは思うものの、今ひとつひらめかない。
眺めると、何となく分かるよーな気はするものの、自分で作れる気がしない～；；；
ところで、どうも文字サイズの変更が、うまくいきません。
アイテムを設定する前に文字サイズを設定しようとするとエラーになっちゃう。
アイテムを設定した後だと・・・エラーは出ないけど反映されてない。
ちょっと標準の文字がでかすぎるからちっちゃくしたいと思っただけなのにぃ～。しくしくしくしく。
うーむと思って眺めていると・・・159行目、文字情報設定で、なんで文字サイズを40に決め打ちしちゃってるんすか？？ 反映されるわけなくないですか？？ ここは「文字サイズ_」なのでは？？？
しかし、それでもやっぱりうまくいきません。
どうやら、文字サイズ設定時に文字幅設定しているんだけど、この時アイテムが空だとダメっぽい。
どっちみち、アイテム設定する時に、正規化アイテム表作成を行う中で文字幅設定をするんだからと、消してみる（無謀；）
エラー出なくなりました☆
が・・・アイテムを設定した後に文字サイズを設定したら反映されません。ついでに、フォントの設定もアイテムを設定した後だと、反映されません。
文字情報設定は文字幅設定の中で、文字幅設定は正規化アイテム表作成の中で、正規化アイテム表作成はアイテム設定の中で行われているんだから当然でしたね（＠＿＠；ﾔﾔｺﾔｼｲ...
てゆうか、最終的には「自動作成」で線引いて表にしてるんだから、全部ココでいいんじゃないの？（ヤケ；）
とゆうわけで、自動作成の最初に正規化アイテム表作成するを突っ込んだところ、とりあえず、文字サイズの設定に関してはうまくいってるっぽい感じになりました。
うーん、これはバグ・・・なのかなぁ。
このやっつけな修正が妥当なのかどうかもよく分からんし・・・
悩むわ～；；；
でも、とりあえずは動いてる。
！「table.nako」を取り込む。 データ＝「1,2,3 A,B,C い,ろ,は」 Ｔとはテーブル。 これについて 選択色は$999999 背景色は$EEFFFF 線太さは3 線色は$CCCCCC 文字色は$000066 フォントは「ＭＳ 明朝」 文字サイズは18 アイテムはデータ。 Ｔを自動作成。
編集するなどは、各自で別途プログラムするというコトかな？？
ダブルクリックした時、選択行,選択列を言うようになっているのが、そこはかとなくお試し中感なんだけど、ここを書き換える？？？
2017/09/25 (月)
丸いボタンを作りたい！
だって、本来ボタンって、丸いモノでしょ。
・・・それはともかく、画像ボタンとかはあるけど、ボタン自体は結局四角くなってしまうため、丸とか、あと楕円や角丸の形で凹むボタンが欲しいなあと思って、かなり無理矢理系で作ってみたはいいけれど、使いどころが無いまま放置してあったのを、ちょこっと手直しして、なんとなくＵＰしてみる。（なでしこ１）
#----------------------------------------------------------- # イメージボタン #----------------------------------------------------------- # 画像ボタンとかは、ボタン自体は四角になってしまうため、 # 丸や楕円、角丸の形で凹むボタンとして作成したものです。 # 画像も使えますが、周囲にアンチエイリアスのかかってない # 単純形状のものに限ります。（影が変になるんで） #★便利機能としてイメージのサイズに合わせて、図形描画位置と、文字描画位置を取得する関数を追加。 #----------------------------------------------------------------------- ●イメージボタン作成（{数値=$FFFFFF}地色に{グループ=?}OBJから{数値=1}影幅,{数値=$000000}影色で） OBJの白色を$FFFFFEに画像色置換。 #白色は地色に置換されてしまうための措置； マスクをイメージとして作成。マスクの可視はオフ。マスクの画像はOBJ→名前。 処理用をイメージとして作成。処理用の可視はオフ。処理用の画像はOBJ→名前。 #マスク作成 マスクの0,0を点取得。 マスクをそれで画像マスク作成。 #ボタン押下時の画像を作成 #影の部分 マスクを処理用の0,0へ画像コピー。 処理用の黒色を影色に画像色置換。 #ボタン画像を影幅分ずらした位置に合成 マスクを画像ネガポジ。 マスクをOBJの0,0へ画像ANDコピー。 マスクを画像ネガポジ。 マスクを処理用の影幅,影幅へ画像ANDコピー。 OBJを処理用の影幅,影幅へ画像ORコピー。 #ボタンの透明色を地色に変換 マスクをOBJの0,0へ画像ORコピー。 OBJの白色を地色に画像色置換。 #ボタン押下時ようのイメージを作成 ON用=「{OBJ→名前}ON」。 「{ON用}をイメージとして作成。{ON用}の可視はオン。OBJを最前面。 {ON用}の位置はOBJ→位置。{ON用}の幅はOBJ→幅。{ON用}の高さはOBJ→高さ。 #処理用を元のボタンに合わせて切り抜く。 マスクを{ON用}の0,0へ画像ANDコピー。 処理用を{ON用}の0,0へ画像ORコピー。 {ON用}の白色を地色に画像色置換。 #ボタン押下のマウスイベント OBJ→マウス押した時は～自身→可視はオフ。 OBJ→マウス離した時は～自身→可視はオン。」をナデシコする。 #マスクと処理用は壊す。 VCL_FREE(マスク) VCL_FREE(処理用) ●イメージボタン可視設定（{グループ=?}OBJを|OBJのAに|Aで） ON用=「{OBJ→名前}ON」 「もし、A＝オンならば、OBJ→可視はオン。{ON用}→可視はオン。 違えば、OBJ→可視はオフ。{ON用}→可視はオフ。」をナデシコする。 ●イメージボタン位置変更（{グループ=?}OBJを|OBJのx,yに|x,yで） ON用=「{OBJ→名前}ON」 「OBJ→位置は"{x},{y}"。{ON用}→位置は"{x},{y}"」をナデシコする。 #----------------------------------------------------------------------- #----------------------------------------------------------- x1とは整数。y1とは整数。x2とは整数。y2とは整数。 mxとは整数。myとは整数。 ＊イメージボタン描画位置取得（{グループ=?}OBJの） x1=(線太さ/2)。y1=(線太さ/2)。x2=(OBJ→幅-線太さ/2)。y2=(OBJ→高さ-線太さ/2)。 ＊イメージボタンテキスト位置取得（Sで{グループ=?}OBJの） mx=(OBJ→幅/2)-(Sの文字幅取得/2)。my=(OBJ→高さ/2)-(Sの文字高さ取得/2) #----------------------------------------------------------- ＃以下はテスト 丸ボタンとはイメージ これについて 位置は"10,10"。幅は50。高さは50。可視はオン。 緑色で画面クリア。 塗り色は白色。線色は黒色。線太さは2。 丸ボタンのイメージボタン描画位置取得。 x1,y1からx2,y2へ円。 文字色は赤色。文字書体は「|20|太字」 「OK」で丸ボタンのイメージボタンテキスト位置取得。 mx,myへ「OK」を文字描画。 クリックした時は～ 自身の可視はオン。 ＃処理によっては必要。（ダイアログ表示や秒待つ命令でウェイトがかかる時とか、処理が終わるまでボタンが押ささったままになっちゃうんで） 10,10で丸ボタンのイメージボタン位置変更。 「ＯＫ！」と言う。 角丸ボタンとはイメージ これについて 位置は"100,15"。幅は90。高さは40。可視はオン。 緑色で画面クリア。 塗り色はウィンドウ背景色。線色は黒色。線太さは3。 角丸ボタンのイメージボタン描画位置取得。 x1,y1からx2,y2へ20,30で角丸四角 文字色は黒色。文字書体は「|12|」 「ＯＮ／ＯＦＦ」で角丸ボタンのイメージボタンテキスト位置取得。 mx,myへ「ＯＮ／ＯＦＦ」を文字描画。 クリックした時は～ もし、丸ボタンの可視＝オンならば オフで丸ボタンのイメージボタン可視設定。 違えば、 丸ボタンをオンにイメージボタン可視設定。 楕円ボタンとはイメージ。 これについて 位置は"210,10"。幅は80。高さは50。可視はオン。 白色で画面クリア。 塗り色は$FFAAAA。線色は$993333。線太さは2。 楕円ボタンのイメージボタン描画位置取得。 x1,y1からx2,y2へ円 文字色は$660000。文字書体は「|12|」 「↓移動」で楕円ボタンのイメージボタンテキスト位置取得。 mx,myへ「↓移動」を文字描画。 クリックした時は～ 次位置＝丸ボタンのY 次位置＝次位置+10 10,次位置で丸ボタンのイメージボタン位置変更。 母艦を$FFCCCCで画面クリア $FFCCCCに丸ボタンからイメージボタン作成。 $FFCCCCに角丸ボタンからイメージボタン作成。 $FFCCCCに楕円ボタンから2,$660000でイメージボタン作成。
・・・どうかな～？
元の画像から、無理矢理影付きの画像を自動生成してるんだよねぇ～ｗ
なでしこ３は、DOMスタイル設定ができるから、ＣＳＳを使ってもっとカンタンに作れそう！
っとゆうわけで、とりあえずこんな感じ。
http://snowdrops.starfree.jp/wnako3_test/06_maru_button.html
（本当は、もうちょっと丁寧に、マウス乗った時は、ボーダーと影の色も一緒に薄めるようにしたほうがよさそう）
して、そのコードは・・・
こっコードはっ・・・・・・
<style type="text/css"> <!-- #btn { position:relative; /* 相対位置への配置（凹むボタンでtopの位置を変えるのに必要） */ display:table-cell; /* コレを設定しないとwidthとheightの設定が効かない。 */ cursor:pointer; /* カーソルを手の形に。 */ width:50px; /* ボタンの幅。 */ height:50px; /* ボタンの高さ。 */ border-radius:30px; /* 角丸設定（ボタンサイズの半分よりもちょい大きめのほうが綺麗な丸になるっぽい） */ background-color: #FFCCCC; /* ボタンの色。 */ border:1px solid #FF9999; /* ボタンの線色。 */ box-shadow:1px 2px 0 #CC6666; /* ボタンの影設定。 */ color: #FFFFFF; /* 文字色。*/ font-weight:bold; /* 文字太さ。*/ font-size:24px; /* フォントサイズ。*/ text-shadow:0 1px 1px rgba(0,0,0,.3); /* 文字の影設定。*/ text-align:center; /* 横方向文字揃え。 */ vertical-align:middle; /* 縦方向文字揃え。 */ text-decoration:none; /* 装飾無し（aタグには大抵下線とかが付いてるので解除する） */ } #btn:hover { /* マウス乗った時 */ background-color: #FFDDDD; /* ボタンの色を薄くする。 */ } #btn:active { /* マウス押した時 */ top: 2px; /* ボタン位置を下げる。 */ box-shadow:none; /* 影を消す。 */ } --> </style> <!-- 丸いボタン --> <a id="btn">OK</a>
・・・こんだけです。
ええ、こんだけです。なでしこいりません。ＣＳＳだけで出来ましたｗ
ってか、トランジョンとか、アニメーションとかあって、もっと凝ったことがＣＳＳだけでもなんぼでもできるっぽいです。すごいな。
でっでもっ、いちおうコレを全部DOMスタイル設定でやってみようと思ったんです。
だけど、うまく出来ませんでした。しくしくしく。
どうやら、:hoverや:activeは、設定できないっぽくて・・・（？）
それに・・・今回はIDを振っているけど、たぶんボタンって複数あって、みんな同じよーなデザインに揃えるのがふつーだから、classでまとめて設定すると思うんだけど、コレもどうやらDOMスタイル設定ではできないっぽい・・・（？）
ならば、DOM_HTML設定を使えば・・・とも思ったのですが、ココで浮上したのがまた、例の波カッコ閉じが使えない問題です(´д｀； ←0.1.6で対応されました！
前に、背景色設定をした時には、取りあえず閉じなくても通ったんだけど、最低でも:hoverと:activeとで項目が二つとゆうことになると、閉じないわけにはいかないでしょ。
それぞれにstyleタグを用意して別々にDOM_HTML設定する・・・などという方法も考えられましたが、あんまりにもやっつけ感が過ぎる上に、別に背に腹は替えられないって状況でもないんで、試してません；
うまくなでしこで設定できるようなら、いつも使うような定型のボタンを、この見てるだけで具合わるくなるＣＳＳをいちいちやらなくても、日本語だけで色とか文字とかサイズとかを設定して使える関数が作れるんじゃないかと思ったんだけどね。
2017/08/19 (土)
バイオリズム
突然何の脈絡も無く、バイオリズムを表示するプログラム。
ムカシはだいぶ流行ったけど、最近はあんまりお見かけしませんね。
やっぱり、カガク的コンキョに欠けるとゆうコトなんでしょうか。
Ａ型が几帳面だなんて、絶っっ対にあり得ないと思うんだけど・・・（＾▽＾；
＃バイオリズム(なでしこ１) #-----宣言-------------------------------------------------- 生年月日とは文字列。生年月日＝「」。 当日とは整数。当日＝今日の２文字右部分を整数変換。 当月とは整数。当月＝今日の６から２文字抜き出しを整数変換。 基準日とは整数。基準日＝今日に「-0/0/{当日-1}」を日付加算。 誕生日とは文字列。 表示年とは整数。 表示月とは整数。 表示年月とは文字列。 閏年とは整数。 月末とは整数。 #----------------------------------------------------------- 母艦について クライアント幅は640。クライアント高さは480。 文字色は黒色。30,20へ「生年月日(yyyy/mm/dd):」を文字描画。 生年月日エディタとはエディタ。 これについて 位置は「175,15」。幅は80。テキストは生年月日。 部品間隔は０。 前月ボタンとはボタン。 これについて 位置は「280,15」。幅は50。高さは20。 クリックした時は～ 基準日＝基準日に「-0/1/0」を日付加算。 バイオリズム表示。 今月ボタンとはボタン。 これについて 位置は前月ボタンの右側。幅は50。高さは20。 クリックした時は～ 基準日＝今日に「-0/0/{当日-1}」を日付加算。 バイオリズム表示。 翌月ボタンとはボタン。 これについて 位置は今月ボタンの右側。幅は50。高さは20。 クリックした時は～ 基準日＝基準日に「+0/1/0」を日付加算。 バイオリズム表示。 文字色は青色。480,20へ「■身体」を文字描画。 文字色は赤色。530,20へ「■感情」を文字描画。 文字色は緑色。580,20へ「■知性」を文字描画。 #----------------------------------------------------------- 枠線描画。 もし、生年月日が空ならば、「生年月日を入力して下さい」と言う。 違えば、バイオリズム表示。 #----------------------------------------------------------- ＊枠線描画 線スタイルは実線。塗りスタイルはべた。線色は白色。塗り色は白色。文字色は黒色。 0,40から640,480へ四角。 １１回 もし、（(回数-1)＝０）ならば、３,４０へ「高{~}調{~}期」を文字描画。 もし、（(回数-1)＝９）ならば、３,（(回数-1)＊４０＋４０）へ「低{~}調{~}期」を文字描画。 もし、（(回数-1)＝５）ならば、 ３,（(回数-1)＊４０＋２０）へ「要{~}注{~}意」を文字描画。 線スタイルは透明。塗りスタイルはべた。塗り色は黄色。 ２０,（(回数-1)＊４０＋２０）から６２０,（(回数-1)＊４０＋６０）へ四角。 線色は黒色。塗りスタイルは透明。 もし、（(回数-1)＝０）または（(回数-1)＝５）または（(回数-1)＝１０）ならば、 線太さは２。線スタイルは実線。 違えば、 線太さは１。線スタイルは点線。 ２０,（(回数-1)＊４０＋４０）から６２０,（(回数-1)＊４０＋４０）へ線。 ３１回 もし、（(回数-1)＝０）または（(回数-1)＝３０）ならば、 線太さは２。線スタイルは実線。 違えば、 線太さは１。線スタイルは点線。 （(回数-1)＊２０＋２０),４０から（(回数-1)＊２０＋２０),４４０へ線。 (月末)回 （(回数-1)＊２０＋１５),４５０へ回数を文字描画。 #----------------------------------------------------------- ＊バイオリズム表示 生年月日は生年月日エディタのテキスト。 誕生日＝「{生年月日の４文字左部分}年{生年月日の６から２文字抜き出し}月{生年月日の２文字右部分}日」 表示年＝基準日の４文字左部分を整数変換。 表示月＝基準日の６から２文字抜き出しを整数変換。 表示年月＝「{表示年}年{表示月}月」 もし、表示年％4＝０でなければ、閏年＝いいえ。 違えば、もし、表示年％100＝０でなければ、閏年＝はい。 違えば、もし、表示年％400＝０でなければ、閏年＝いいえ。 違えば、閏年＝はい。 もし、（表示月＝02）または（表示月＝04）または（表示月＝06）または（表示月＝09）または（表示月＝11）でなければ、月末＝３１。 違えば、もし、表示月＝02ならば、 もし、閏年＝はいならば、月末＝２９。 違えば、月末＝２８。 違えば、月末＝３０。 母艦のタイトルは「{誕生日} 生まれの方の {表示年月} のバイオリズム」 枠線描画。バイオリズム描画。 ＊バイオリズム描画 線太さは３。線スタイルは実線。塗りスタイルはベタ。 ３１回 日付＝基準日に「+0/0/{回数-1}」を日付加算。 結果＝生年月日と日付でバイオリズム計算。 身体２＝(結果￥０)＊２。 感情２＝(結果￥１)＊２。 知性２＝(結果￥２)＊２。 もし、回数＞１ならば、 線色は青色。(20＊(回数-1)),(-身体１＋240)から(20＊回数),(-身体２＋240)へ線 線色は赤色。(20＊(回数-1)),(-感情１＋240)から(20＊回数),(-感情２＋240)へ線 線色は緑色。(20＊(回数-1)),(-知性１＋240)から(20＊回数),(-知性２＋240)へ線 もし、（表示年＝今年）かつ（表示月＝今月）かつ（回数＝当日）ならば、 線色は青色。塗り色は青色。(20＊回数-5),(-身体２＋240-5)から(20＊回数＋5),(-身体２＋240+5)へ円 線色は赤色。塗り色は赤色。(20＊回数-5),(-感情２＋240-5)から(20＊回数＋5),(-感情２＋240+5)へ円 線色は緑色。塗り色は緑色。(20＊回数-5),(-知性２＋240-5)から(20＊回数＋5),(-知性２＋240+5)へ円 身体１＝身体２。 感情１＝感情２。 知性１＝知性２。 #----------------------------------------------------------- #外枠の表示 線色は黒色。塗りスタイルは透明。 18,38から622,442へ四角。 #----------------------------------------------------------- ＊バイオリズム計算（誕生日と基準日で） 日数＝誕生日と基準日の日数差。 結果￥０＝SIN（日数/２３＊PI＊２）＊１００を整数変換。 結果￥１＝SIN（日数/２８＊PI＊２）＊１００を整数変換。 結果￥２＝SIN（日数/３３＊PI＊２）＊１００を整数変換。 結果で戻る。 #-----------------------------------------------------------
宣言のところで、生年月日に自分のを入れとけば、それが自動的に表示されます。
高調期や低調期は、それほど気にする必要は無く、０と交わる辺りが注意日で色々と不安定になるので気をつけなければならないそうです。
こんなヤツを、なでしこ３で、ウェブ上に設置できたら面白そうだなぁ～と思って、なでしこ１で試しに作ってみたんだけど・・・
まあ、バイオリズム自体は、サインカーブを描くだけなんで、サインもコサインも何も覚えてないけど、プログラム的にはそう難しいことはないんですが、なでしこ３では使えない命令があったり、色々ナゾ現象はあるし、密かに違っているところも多くて、なんだか次から次へとエラーが出る～（＊＿＊；
たとえば、文字列中の{}の中の変数は、１同様展開されるんだけど、その中で{回数-1}みたいに計算するコトは出来ないみたいなんだよね。不便っす；；；
でも、それ以前にずっと引っかかっていたのは、<button>タグのonclickに、なでしこの関数を設定したりは出来ないのかしらん・・・とゆうことでした。
カナリ色々試したんだけど、今のところムリっぽい気が～・・・・・・（？）
↑バージョン0.1.5でできるようになりました！！！
◆覚え書き◆ ※バイオリズムの計算式 日数差＝誕生日－基準日。 身体のリズム＝２３。 感情のリズム＝２８。 知性のリズム＝３３。 SIN（日数差/リズム＊PI＊２） ※閏年の計算方法 １、4で割り切れる。 ２、ただし、100で割り切れる場合は閏年でない。 ３、ただし、400で割り切れる場合は閏年である。
変更箇所は結構少ないです。
（設定反映のために、一見、無駄に見える命令があるります。）
weyk.la.coocan.jp/files/tableU.zip
Unicode系の命令を調べている中で、表示サイズを調べる命令と、実際の表示する命令がいくつかあったので、うまく使えばGridのセルを表示するときに役立ちそうです（はみ出るときは「...」的なものを表示 とかもできるっぽい）
シカシ、いきなり「CSVの記述に誤りがあります」とか言われてしまったのでした。しくしく。
文字列を""でくくったらダメっぽい・・？？
これまで文字コードのコトなんて気にして生きてこなかったので、Unicodeのこと自体があまり分かっていなかったり；
もうちょっとよくお試ししてみますです☆
ほんとは、CSV取得のUT8版かASCII版(SJISではだめ)があるとよいのですが
ありがとうございます、うまくいきました☆
本当は「UniUtil.nako」の中身をよく研究すると色々賢くなれそうな気がしているんですが、まだそこまで到達していません（＾▽＾；