ひまわりユーザー プログラム掲示板 バックアップ
注意
ひまわりのススメ  □ ひまわり本家Home  □ 新着記事  □ 新規投稿  □ SEARCH  □ 参考プログラム集
ツリー表示

MESSAGE 日記WDP版 /竹之下 明仁 (02/05/15(Wed) 12:09) [901]
......MESSAGE Re[1]: 日記WDP版 /竹之下 明仁 (02/05/15(Wed) 12:36) [902]
............MESSAGE Re[2]: 日記WDP版 /竹之下 明仁 (02/05/15(Wed) 12:42) [903]


親記事 / ▼[ 902 ]
NO.901  日記WDP版
□投稿者/ 竹之下 明仁 -(2002/05/15(Wed) 12:09:29)
□U R L/
よかったら、使ってね



▲[ 901 ] / ▼[ 903 ]
NO.902  Re[1]: 日記WDP版
□投稿者/ 竹之下 明仁 -(2002/05/15(Wed) 12:36:54)
□U R L/
{---プログラム掲示板投稿フォーム---
【ソフト名】ワードパッド使用の日記 (バージョン 1.00)
【作 成 者】竹林
【種  別】フリーソフトウェア
【ひまわりのバージョン】ver.1.00
【転  載】可 どうぞ
【改変運用】可 どうぞ
【ひまわり本体への梱包】可
【実行時に利用作成するファイル】
「WordPad」
「万年カレンダーA」  なくても可
「大地.mid」      なくても可 (他のサウンドに変えてネ)
「KUUU.bpm」      なくても可 (他のに変えてね)
{
    「あかんた」さんの、「万年カレンダー」を改変して、
          「万年カレンダーA」としました。
               ありがとうございました。
               
 日記のデータと同じフォルダで運用してください。
【コメント】
 日記をつけたくて、でも、いまある日記ソフトのは、いわゆるエディタでし
た。
やっぱり、行間を広くして見やすく、1文字単位でフォント、色、でかいの
とか、…と、思えばワードパッドがあるって。ワードではなんか重すぎで、この
ワードパッドを起動して、作ったバッチです。
}
'-----------------------------------------------------------------------------
'■ 日記ワードパッド版 ■
'-----------------------------------------------------------------------------

*START
'   演奏繰り返し=オン。「大地.mid」を、演奏。
*初期処理
'-- constant -----------------------------------------------------------------
   写真は、『KUUU.bmp』。
   ワードパッドは、『C:\Program Files\Windows NT\Accessories\Wordpad.exe』。
   日記フォルダ=『C:\Documents and Settings\Owner\My Documents\ひまわり\ひまわり日記\』
   日記フォルダへ、作業フォルダ変更
   シート0は、「ドキュメント.rtf」
   シート1は、「名前を付けて保存」
   
'-- 外部プログラム   -----------------------------------------------------------
'   『C:\Program Files\mom3\m3calc.exe』を、起動
   「万年カレンダーA.hmw」を、起動

'-- 母艦-----------------------------------------------------------------------
   母艦の、X=0。母艦の、Y=0。
   母艦の、高さ=400。母艦の、幅=400
   母艦の、タイトルを、「日記WDP」に、設定。
   水色で、画面クリア。
   
'--メニュー--------------------------------------------------------------------
   ペン色は、「#ffaacc」
   塗り色は、白色。
   ファイルメニューを、メニュー作成。
   ファイルメニューに、終了メニューを、メニュー追加。
   その、イベントは、終了処理。
   貼り付けメニューを、メニュー作成。
   ヘルプメニューを、メニュー作成。
   その、イベントは、ヘルプ処理。
'------------------------------------------------------------------------------
*フォーム

   (10,10)へ、移動
   写真を、(110,145)で、画像拡大表示。

   文字書体=「HG創英角ポップ体」。文字色=赤色。文字サイズ=15。


   画面指定日を、ラベルとして、作成。
    その、X=200。その、Y=50。その、W=160。その、H=30。
   その、背景色=白色。
   その、テキスト=指定日。

    画面指定曜日を、ラベルとして、作成。
    その、X=220。その、Y=80。その、W=160。その、H=30。
   その、背景色=白色。
   その、テキスト=指定日の曜日。

   文字書体=「AR丸ゴシック体M」。文字色=青色。文字サイズ=8

   「{日記フォルダ}日記*.rtf」の、ファイル列挙
   ファイル群=それ
   bx=10。by=160。bw=140。bh=200。
   ファイル群表示を、リストとして、作成
   その、アイテム=ファイル群。
その、X=bx。その、Y=by。その、幅=bw。その、高さ=bh。
   その、背景色=黄色。
'   その、サイズ=200。
その、テキストを、指定日の日記に、設定。
   その、イベントを、選択に、設定

   bx=180。by=160。bw=50。bh=30。
   前日ボタンを、ボタンとして、作成
その、X=bx。その、Y=by。その、幅=bw。その、高さ=bh。
その、テキスト=「 前 日 」
   その、イベントを、前日処理に、設定

   翌日ボタンを、ボタンとして、作成
その、X=(bx+bw+20)。その、Y=by。その、幅=bw。その、高さ=bh。
その、テキスト=「 翌 日 」
   その、イベントを、翌日処理に、設定

   終了ボタンを、ボタンとして、作成
その、X=(bx+00)。その、Y=by+100。その、幅=(bwx2)。その、高さ=bh。
その、テキスト=「 保存終了 」
   その、イベントを、終了処理に、設定

   
   IEボタンを、ボタンとして、作成
その、X=(bx+00)。その、Y=by+50。その、幅=(bwx2)。その、高さ=bh。
その、テキスト=「 エクスプローラ 」
   その、イベントを、IE処理に、設定


今日処理。

待機。
'----------- サブルーチン ---------------------------------------------------------------------
*指定日表示

   指定日の、曜日。
    指定日の曜日=「{それ}曜日」
   画面指定日の、テキスト=指定日。
  画面指定曜日の、テキスト=指定日の曜日。
戻る
'----------- イベント ---------------------------------------------------------------------
*選択
   ファイル群表示の、値を、番号に、得る
   指定日の日記=「{ファイル群#番号}」
「{指定日の日記}」を、起動
   指定日の日記の、「-」を、「/」に、置換
   指定日の日記の中で、3から、10つ、切り出す。
  指定日=それ。
   指定日表示を、呼ぶ。
待機
*今日処理
  指定日は、今日。
   指定日処理へ、飛ぶ。
*前日処理
  指定日に、"-0/0/1"を、日付加算。
  指定日=それ。
   指定日処理へ、飛ぶ。
*翌日処理
  指定日に、"+0/0/1"を、日付加算。
  指定日=それ。
   指定日処理へ、飛ぶ。

*指定日処理
   指定日の、「/」を、「-」に、置換
   指定日の日記=「日記{それ}.rtf」
   
   指定日表示を、呼ぶ。
   
   指定日の日記が、存在するか。
   もし、それ、
      ならば(
        「{指定日の日記}」を、起動。
     )違えば( '存在しない
            「{シート0}」を、起動。1秒、待つ。
         シート0に、「%FA」を、キー送信。1秒、待つ
         シート1に、「{指定日の日記}\n」を、キー送信。1秒、待つ

   「{日記フォルダ}日記*.rtf」の、ファイル列挙
   ファイル群=それ
   ファイル群表示の、アイテム=ファイル群。

   )。
待機
*IE処理
   作業フォルダを、エクスプローラーで開く。
   1秒、待つ
   「{作業フォルダ}日記*.rtf」の、ファイル列挙
   ファイル群=それ
   ファイル群表示の、アイテム=ファイル群。
待機

*終了処理

   ウインドウ列挙。活動ウインドウ名=それ
   活動ウインドウ名を、反復する(
      識別名@=LEFT({それ}、2)。 識別名A=RIGHT({それ}、6)。
      もし、(識別名@=「日記」)かつ(識別名A=「ワードパッド」)、
      ならば(
             「{それ}」へ、「%FS」を、キー送信。0.2秒、待つ。
           「{それ}」へ、「%FX」を、キー送信。0.2秒、待つ。
     )
   )
   それは、「ドキュメント.rtf - ワードパッド」
             「{それ}」へ、「%FS」を、キー送信。0.2秒、待つ。
           「{それ}」へ、「%FX」を、キー送信。0.2秒、待つ。

   「万年カレンダーA」を、アクティブ。
   「万年カレンダーA」へ、『EXIT』を、キー送信。

'   「ばいばい」と、言う
終わり。

*ヘルプ処理
待機。
'-------------------------------------------------------------------------------------

' バイバイ…。

'-------------------------------------------------------------------------------------{---プログラム掲示板投稿フォーム---
【ソフト名】ワードパッド使用の日記 (バージョン 1.00)
【作 成 者】竹林
【種  別】フリーソフトウェア
【ひまわりのバージョン】ver.1.00
【転  載】可 どうぞ
【改変運用】可 どうぞ
【ひまわり本体への梱包】可
【実行時に利用作成するファイル】
「WordPad」
「万年カレンダーA」  なくても可
「大地.mid」      なくても可 (他のサウンドに変えてネ)
「KUUU.bpm」      なくても可 (他のに変えてね)
{
    「あかんた」さんの、「万年カレンダー」を改変して、
          「万年カレンダーA」としました。
               ありがとうございました。
               
 日記のデータと同じフォルダで運用してください。
【コメント】
 日記をつけたくて、でも、いまある日記ソフトのは、いわゆるエディタでし
た。
やっぱり、行間を広くして見やすく、1文字単位でフォント、色、でかいの
とか、…と、思えばワードパッドがあるって。ワードではなんか重すぎで、この
ワードパッドを起動して、作ったバッチです。
}
'-----------------------------------------------------------------------------
'■ 日記ワードパッド版 ■
'-----------------------------------------------------------------------------

*START
'   演奏繰り返し=オン。「大地.mid」を、演奏。
*初期処理
'-- constant -----------------------------------------------------------------
   写真は、『KUUU.bmp』。
   ワードパッドは、『C:\Program Files\Windows NT\Accessories\Wordpad.exe』。
   日記フォルダ=『C:\Documents and Settings\Owner\My Documents\ひまわり\ひまわり日記\』
   日記フォルダへ、作業フォルダ変更
   シート0は、「ドキュメント.rtf」
   シート1は、「名前を付けて保存」
   
'-- 外部プログラム   -----------------------------------------------------------
'   『C:\Program Files\mom3\m3calc.exe』を、起動
   「万年カレンダーA.hmw」を、起動

'-- 母艦-----------------------------------------------------------------------
   母艦の、X=0。母艦の、Y=0。
   母艦の、高さ=400。母艦の、幅=400
   母艦の、タイトルを、「日記WDP」に、設定。
   水色で、画面クリア。
   
'--メニュー--------------------------------------------------------------------
   ペン色は、「#ffaacc」
   塗り色は、白色。
   ファイルメニューを、メニュー作成。
   ファイルメニューに、終了メニューを、メニュー追加。
   その、イベントは、終了処理。
   貼り付けメニューを、メニュー作成。
   ヘルプメニューを、メニュー作成。
   その、イベントは、ヘルプ処理。
'------------------------------------------------------------------------------
*フォーム

   (10,10)へ、移動
   写真を、(110,145)で、画像拡大表示。

   文字書体=「HG創英角ポップ体」。文字色=赤色。文字サイズ=15。


   画面指定日を、ラベルとして、作成。
    その、X=200。その、Y=50。その、W=160。その、H=30。
   その、背景色=白色。
   その、テキスト=指定日。

    画面指定曜日を、ラベルとして、作成。
    その、X=220。その、Y=80。その、W=160。その、H=30。
   その、背景色=白色。
   その、テキスト=指定日の曜日。

   文字書体=「AR丸ゴシック体M」。文字色=青色。文字サイズ=8

   「{日記フォルダ}日記*.rtf」の、ファイル列挙
   ファイル群=それ
   bx=10。by=160。bw=140。bh=200。
   ファイル群表示を、リストとして、作成
   その、アイテム=ファイル群。
その、X=bx。その、Y=by。その、幅=bw。その、高さ=bh。
   その、背景色=黄色。
'   その、サイズ=200。
その、テキストを、指定日の日記に、設定。
   その、イベントを、選択に、設定

   bx=180。by=160。bw=50。bh=30。
   前日ボタンを、ボタンとして、作成
その、X=bx。その、Y=by。その、幅=bw。その、高さ=bh。
その、テキスト=「 前 日 」
   その、イベントを、前日処理に、設定

   翌日ボタンを、ボタンとして、作成
その、X=(bx+bw+20)。その、Y=by。その、幅=bw。その、高さ=bh。
その、テキスト=「 翌 日 」
   その、イベントを、翌日処理に、設定

   終了ボタンを、ボタンとして、作成
その、X=(bx+00)。その、Y=by+100。その、幅=(bwx2)。その、高さ=bh。
その、テキスト=「 保存終了 」
   その、イベントを、終了処理に、設定

   
   IEボタンを、ボタンとして、作成
その、X=(bx+00)。その、Y=by+50。その、幅=(bwx2)。その、高さ=bh。
その、テキスト=「 エクスプローラ 」
   その、イベントを、IE処理に、設定


今日処理。

待機。
'----------- サブルーチン ---------------------------------------------------------------------
*指定日表示

   指定日の、曜日。
    指定日の曜日=「{それ}曜日」
   画面指定日の、テキスト=指定日。
  画面指定曜日の、テキスト=指定日の曜日。
戻る
'----------- イベント ---------------------------------------------------------------------
*選択
   ファイル群表示の、値を、番号に、得る
   指定日の日記=「{ファイル群#番号}」
「{指定日の日記}」を、起動
   指定日の日記の、「-」を、「/」に、置換
   指定日の日記の中で、3から、10つ、切り出す。
  指定日=それ。
   指定日表示を、呼ぶ。
待機
*今日処理
  指定日は、今日。
   指定日処理へ、飛ぶ。
*前日処理
  指定日に、"-0/0/1"を、日付加算。
  指定日=それ。
   指定日処理へ、飛ぶ。
*翌日処理
  指定日に、"+0/0/1"を、日付加算。
  指定日=それ。
   指定日処理へ、飛ぶ。

*指定日処理
   指定日の、「/」を、「-」に、置換
   指定日の日記=「日記{それ}.rtf」
   
   指定日表示を、呼ぶ。
   
   指定日の日記が、存在するか。
   もし、それ、
      ならば(
        「{指定日の日記}」を、起動。
     )違えば( '存在しない
            「{シート0}」を、起動。1秒、待つ。
         シート0に、「%FA」を、キー送信。1秒、待つ
         シート1に、「{指定日の日記}\n」を、キー送信。1秒、待つ

   「{日記フォルダ}日記*.rtf」の、ファイル列挙
   ファイル群=それ
   ファイル群表示の、アイテム=ファイル群。

   )。
待機
*IE処理
   作業フォルダを、エクスプローラーで開く。
   1秒、待つ
   「{作業フォルダ}日記*.rtf」の、ファイル列挙
   ファイル群=それ
   ファイル群表示の、アイテム=ファイル群。
待機

*終了処理

   ウインドウ列挙。活動ウインドウ名=それ
   活動ウインドウ名を、反復する(
      識別名@=LEFT({それ}、2)。 識別名A=RIGHT({それ}、6)。
      もし、(識別名@=「日記」)かつ(識別名A=「ワードパッド」)、
      ならば(
             「{それ}」へ、「%FS」を、キー送信。0.2秒、待つ。
           「{それ}」へ、「%FX」を、キー送信。0.2秒、待つ。
     )
   )
   それは、「ドキュメント.rtf - ワードパッド」
             「{それ}」へ、「%FS」を、キー送信。0.2秒、待つ。
           「{それ}」へ、「%FX」を、キー送信。0.2秒、待つ。

   「万年カレンダーA」を、アクティブ。
   「万年カレンダーA」へ、『EXIT』を、キー送信。

'   「ばいばい」と、言う
終わり。

*ヘルプ処理
待機。
'-------------------------------------------------------------------------------------

' バイバイ…。

'-------------------------------------------------------------------------------------





▲[ 902 ] / 返信無し
NO.903  Re[2]: 日記WDP版
□投稿者/ 竹之下 明仁 -(2002/05/15(Wed) 12:42:39)
□U R L/
{---プログラム掲示板投稿フォーム---
【ソフト名】万年カレンダー改変版 
【作 成 者】あかんた -->竹林
【種  別】フリーソフトウェア
【ひまわりのバージョン】ver.1.0
【転  載】可
【改変運用】可
【ひまわり本体への梱包】可
【実行時に利用作成するファイル】無
【コメント】日記WDP版で使えます。
      あかんたさんのの改変です。
         ありがと
         
---投稿フォームここまで---}
母艦の、幅=250。母艦の、高さ=250
母艦の、X=10。母艦の、Y=440。
その、タイトルは、「万年カレンダーA」

wx=母艦の、幅。wy=母艦の、高さ。
'文字書体=「AR丸ゴシック体M」。文字サイズ=12。
文字書体=「HG創英角ポップ体」。文字サイズ=12。

*ふぉーむ
         bwx=(wx/7)。bwy=(wy/7)
 塗り色は、16711680。ペン色=16711680
 (1,0)から、(250,250)へ、四角形。
 塗り色は、13697022
 ペン色は、10485760
 (1,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
 (1,(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=「土」。
      文字色=赤色
   (9,(bwy-13))へ、移動。「{YOA}」と、表示
      文字色=黄色
b=1。c=0。
5回(
         (((bwx*b)+9),(bwy-13))へ、移動。「{YO#c}」と、表示
b=b+1。c=c+1
)
文字色=16776960
(((bwx*6)+9),(bwy-13))へ、移動。「{YO6}」と、表示
日付えでを、エディタとして、作成
   その、Xは、2。その、Yは、1。その、幅は、68。その、高さは、7
   その、フォントサイズは、8。
   その、イベントは、EDE
先月を、ボタンとして、作成。
   その、フォントサイズは、9。
    その、テキストは、「前月」
   その、Xは、73。その、Yは、3。その、高さは、16。その、幅は、43
   その、イベントは、先月君
来月を、ボタンとして、作成。
   その、フォントサイズは、9。
   その、テキストは、「来月」
   その、Xは、118。その、Yは、3。その、高さは、16。その、幅は、43
   その、イベントは、来月君
文字色=白色。文字サイズ=15
(180,1)へ、移動。
月表示を、ラベルとして、作成。
tukiの、「0」を、「 」に、置換
月表示の、テキストは、「{それ}月」
         
*今日の表示
今日。tday=それ
日付えでの、テキストは、tday
文字色は、黒色
qq=1。ww=1。ee=0。rr=0
42回(
   「CLE{qq}」を、ラベルとして、作成
   その、フォント書体は、『Arial Black』
   その、フォントサイズ=12
   その、Xは、((bwx*ee)+7)。その、Yは、((bwy*ww)+9)
   その、テキストは、『』
   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回(
   もし、N>9、ならば、「CLE{M}」の、テキストは、「{N}」
違えば、「CLE{M}」の、テキストは、「 {N}」
   
M=M+1。N=N+1
)
c1=POS(tuki、「0」)
もし、c1=1、ならば( tukiの、「0」を、「 」に、置換 )
違えば( それ=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
日付表示へ、飛ぶ
日付えでに、注目。待機。
*EDE
   日付えでの、テキストを、DATに、得る
    もし、DAT=「EXIT」、なら、終わり。
    戻る
   
*先月君
   日付えでの、テキストを、MONTHに、得る
   MONTHに、「-00/01/00」を、日付加算。
   日付えでの、テキストは、それ
   うるう年計算へ、飛ぶ
*来月君
   日付えでの、テキストを、MONTHに、得る
   MONTHに、「+00/01/00」を、日付加算。
   日付えでの、テキストは、それ
   うるう年計算へ、飛ぶ





- Child Tree -