{---プログラム掲示板投稿フォーム--- 【ソフト名】万年カレンダー (バージョン 1.00) 【作 成 者】あかんた【種　　別】フリーソフトウェア 【ひまわりのバージョン】ver.1.32 【転　　載】可【改変運用】可【ひまわり本体への梱包】可/不可 【実行時に利用作成するファイル】無 【コメント】 予定表を作りたくて、とりあえず作ったのがこのスクリプトです。 mokaさんの、真似をしてつくったわけではありません 何のひねりも無い作品ですが、何かの参考になれば、幸いです ---投稿フォームここまで---} 母艦の、幅は、250 　その、高さは、250 その、タイトルは、「万年カレンダー」 wx=母艦の、幅。wy=母艦の、高さ。 ＊ふぉーむ 　　　　　　　　　bwx=(wx/7)。bwy=(wy/7) 　塗り色は、16711680 ペン色=16711680 　(0,0)から、(250,250)へ、四角形。 　塗り色は、13697022 ペン色は、10485760 (0,30)から、(250,250)へ、四角形。 塗り色は、16704414 ペン色は、16704414 ((bwx*6),(bwy+4))から、(((bwx*7)-2),((bwy*7)-2))へ、四角形。 　塗り色は、15909375 ペン色は、15909375 (2,(bwy+4))から、((bwx-1),((bwy*7)-2))へ、四角形。 　 塗り色=8421440 ペン色=10485760 (0,(bwy-14))から、((bwx*7),((bwy*1)+4))へ、四角形 A=1 6回( 　　　　　　ペン色は、10485760 　　　　　　　　　((bwx*A),((bwy*1)-12))へ、移動。((bwx*A),((bwy*7)-2))へ、線。 　　　　　　　　　(2,((bwy*A)+3))へ、移動。(((bwx*7)-2),((bwy*A)+3))へ、線。 A=A+1 ) 　　　YOA=「日」。 　　　YO#0=「月」。YO#1=「火」。YO#2=「水」。 　　　YO#3=「木」。YO#4=「金」。YO6=「土」。 　　　　　　文字色=赤色 　　　(10,(bwy-15))へ、移動。「｛YOA｝」と、表示 　　　　　　文字色=白色 b=1。c=0。 5回( 　　　　　　　　　(((bwx*b)+5),(bwy-13))へ、移動。「｛YO#c｝」と、表示 b=b+1。c=c+1 ) 文字色=16776960 (((bwx*6)+5),(bwy-15))へ、移動。「｛YO6｝」と、表示 日付えでを、エディタとして、作成 　　　その、Xは、2。その、Yは、1。その、幅は、68。その、高さは、7 　　　その、フォントサイズは、8 先月を、ボタンとして、作成。その、テキストは、「<<」 　　　その、Xは、73。その、Yは、3。その、高さは、16。その、幅は、43 　　　その、イベントは、先月君 来月を、ボタンとして、作成。その、テキストは、「>>」 その、Xは、118。その、Yは、3。その、高さは、16。その、幅は、43 その、イベントは、来月君 文字色=白色。文字サイズ=15 (180,1)へ、移動。 月表示を、ラベルとして、作成。その、テキストは、「{tuki}月」 ＊今日の表示 今日。tday=それ 日付えでの、テキストは、tday 文字色は、黒色 　　　　　　　　　　　　　　　　　　　　　　　　　　　qq=1。ww=1。ee=0。rr=0 42回( 　　　「CLE｛qq｝」を、ラベルとして、作成 　　　その、フォント書体は、『MS明朝』 　　　その、フォントサイズ=12 　　　その、Xは、((bwx*ee)+5)。その、Yは、((bwy*ww)+5) 　　　その、テキストは、『』 　　　qq=qq+1。ee=ee+1。rr=rr+1 　　　もし、ee=7ならば、ee=0 　　　もし、rr=7ならば、( 　　　　　　　　　　　　　　　　　　ww=(ww+1) 　　　　　　　　　　　　　　　　　　rr=0 )　　　)。 ＊うるう年計算 KL=0。KM=0 42回（ 　　　「CLE｛KM｝」の、テキストは、『』 　　　KM=KM+1 ) 日付えでの、テキストを、HDに、得る HDの中で、1から、4つ、切り出す。nen=それ　'＿＿＿＿西暦何年を判定 HDの中で、6から、2つ、切り出す。tuki=それ　'________何月を判定 HDの中で、9から、2つ、切り出す。hi=それ それ=HD hiを、「01」に、置換。それの、曜日。yobi=それ もし、(HD%400=0)ならば、うるうへ、飛ぶ 違えば( 　　　もし、(HD%100=0)ならば、ちがうるうへ、飛ぶ 　　　違えば( 　　　　　　もし、(HD%4=0)ならば、うるうへ、飛ぶ 　　　　　　違えば、ちがうるうへ、飛ぶ 　　　)。　　　 )。 待機 ＊日付表示 sc=1 42回（ 「CLE｛sc｝」の、フォント色は、黒色 　　　その、透過処理は、オン sc=sc+1 ） '_______ 土日の色変え＿＿＿＿ sa=1 6回( 「CLE｛sa｝」の、フォント色は、赤色 sa=sa+7 ) sb=7 6回（ 「CLE｛sb｝」の、フォント色は、青色 sb=sb+7 ) もし、yobi=「日」ならば、M=1 もし、yobi=「月」ならば、M=2 もし、yobi=「火」ならば、M=3 もし、yobi=「水」ならば、M=4 もし、yobi=「木」ならば、M=5 もし、yobi=「金」ならば、M=6 もし、yobi=「土」ならば、M=7 。S=((M+hi)-1)。 「CLE｛S｝」の、フォント色は、16744703 その、背景色は、緑色 その、透過処理は、オフ N=1 hiku回( 「CLE｛M｝」の、テキストは、「｛N｝」 　　　 M=M+1。N=N+1 ) 月表示の、テキストは、「{tuki}月」 母艦浮上 待機 ＊うるう もし、tukiが、01ならば、hiku=31 もし、tukiが、02ならば、hiku=29 もし、tukiが、03ならば、hiku=31 もし、tukiが、04ならば、hiku=30 もし、tukiが、05ならば、hiku=31 もし、tukiが、06ならば、hiku=30 もし、tukiが、07ならば、hiku=31 もし、tukiが、08ならば、hiku=31 もし、tukiが、09ならば、hiku=30 もし、tukiが、10ならば、hiku=31 もし、tukiが、11ならば、hiku=30 もし、tukiが、12ならば、hiku=31 日付表示へ、飛ぶ 待機 ＊ちがうるう もし、tukiが、01ならば、hiku=31 もし、tukiが、02ならば、hiku=28 もし、tukiが、03ならば、hiku=31 もし、tukiが、04ならば、hiku=30 もし、tukiが、05ならば、hiku=31 もし、tukiが、06ならば、hiku=30 もし、tukiが、07ならば、hiku=31 もし、tukiが、08ならば、hiku=31 もし、tukiが、09ならば、hiku=30 もし、tukiが、10ならば、hiku=31 もし、tukiが、11ならば、hiku=30 もし、tukiが、12ならば、hiku=31 日付表示へ、飛ぶ 待機 ＊先月君 　　　日付えでの、テキストを、MONTHに、得る 　　　MONTHに、「-00/01/00」を、日付加算。 　　　日付えでの、テキストは、それ 　　　うるう年計算へ、飛ぶ ＊来月君 　　　日付えでの、テキストを、MONTHに、得る 　　　MONTHに、「+00/01/00」を、日付加算。 　　　日付えでの、テキストは、それ 　　　うるう年計算へ、飛ぶ

お〜すごい。ラベルを並べたんですね。 それに比べ、いつもながら私のは地味ですねぇ。(^_^;) サンプルとして利用してもらえたら、と思ってるんです。 簡単そうなところから、今日の強調表示と、 月替え表示を、自分でも挑戦したくなりました。

mokaさんのサンプル的なスクリ、しょっちゅう参考にさせていただいています 今回似たようなコンセプトのスクリだったのと、予定表みたいなものを作りたい人が いれば、何かの役に立てるかもしれないと思い投稿してみました。 まだまだ、改良しなければならない所などたくさんありますが、予定表が出来上がったら、又投稿してみようかと思います