新しく発言する  EXIT  インデックスへ
干支(えと)の計算

  干支(えと)  の計算 SECOND 2008/01/12 02:18:50  (修正1回)
  !干支(えと)の計算4※こちらの「空打ち」は... SECOND 2008/01/12 15:43:11  (修正4回)

Re: 干支(えと) の計算  返事を書く  ノートメニュー
SECOND <jjqdmekgpt> 2008/01/12 15:43:11 ** この記事は4回修正されてます
!干支(えと) の計算4 ※こちらの「空打ち」は、翌年となります。

!ダブル・クリックのように「ダブル空打ち」すると終了。
!翌年を見る時、(Enter) は、たたく様に「空打ち」して下さい。
!長く押すと、オートリピートで、同様に、終了します。

!還暦は、干支(えと) と、十二支の LCM( Least Common Multiple)

!----------------------------------------------------------
!入力とテキスト・ウィンドウの、左上位置(x0,y0)と、幅(xw,yw) 設定。

CALL SetWindowPos( WinHandle("TEXT" ),0, 350,70,450,530, 0)
CALL SetWindowPos( WinHandle("INPUT"),0, 620,380,350,100, 0)

SUB SetWindowPos( handle,C2, x0,y0,xw,yw, nFLG ) ! nFLG, 0=x0y0xwyw 1=x0y0 2=xwyw
ASSIGN "user32.dll","SetWindowPos"
END SUB

!----------------------------------------------------------
DIM 干支$(0 TO 9), 十二支$(0 TO 11)

MAT READ 干支$
DATA "庚 こう  かのえ  金の兄" ! 0
DATA "辛 しん  かのと  金の弟" ! 1
DATA "壬 じん みずのえ  水の兄" ! 2
DATA "癸 き  みずのと  水の弟" ! 3
DATA "甲 こう  きのえ  木の兄" ! 4
DATA "乙 おつ  きのと  木の弟" ! 5
DATA "丙 へい  ひのえ  火の兄" ! 6
DATA "丁 てい  ひのと  火の弟" ! 7
DATA "戊 ぼ  つちのえ  土の兄" ! 8
DATA "己 き  つちのと  土の弟" ! 9

MAT READ 十二支$
DATA "申 しん   さる   さる" ! 0
DATA "酉 ゆう   とり   とり" ! 1
DATA "戌 じゅつ  いぬ   いぬ" ! 2
DATA "亥 がい    い いのしし" ! 3
DATA "子 し     ね  ねずみ" ! 4
DATA "丑 ちゅう  うし   うし" ! 5
DATA "寅 いん   とら   とら" ! 6
DATA "卯 ぼう    う  うさぎ" ! 7
DATA "辰 しん   たつ   たつ" ! 8
DATA "巳 し     み   へび" ! 9
DATA "午 ご    うま   うま" ! 10
DATA "未 び   ひつじ  ひつじ" ! 11

CALL 干支十二支( 2006)
CALL 干支十二支( 2007)
CALL 干支十二支( 2008)

SUB 干支十二支( Year)
PRINT "____________________________"
PRINT "西暦";year;"年の干支(えと)"
PRINT "  音     訓   意味"
PRINT "----------------------------"
PRINT 干支$(MOD( Year,10))
PRINT 十二支$(MOD( Year,12))
PRINT Year-60;"年生れの方は、この年(";Year;"年)が、還暦です。"
PRINT
LET Memo=Year
END SUB

!----------------------
SET ECHO "off"
DO
INPUT PROMPT "(ダブル空打:終了) 調べる西暦年は?(空打:翌年)": k$
WHEN EXCEPTION IN
IF k$="" THEN LET Memo=Memo+1 ELSE LET Memo=VAL(k$)
INPUT TIMEOUT 0.3,PROMPT "(ダブル空打:終了) 調べる西暦年は?(空打:翌年)":k$
EXIT DO
USE
IF EXTYPE=8401 THEN
CALL 干支十二支( Memo)
ELSE
beep
PRINT "半角数字で、西暦を。(空打ち:翌年)"
END IF
END WHEN
LOOP
PRINT "終了。"

END

  テキストWindowを起動時に、位置と、大きさ... SECOND 2008/01/12 16:18:03 
  │└WINHANDLE関数を使うとWin32APIに渡すための... 白石 和夫 2008/01/12 18:31:28 
  │ └すみません、トップページも見るようにしま... SECOND 2008/01/12 20:15:11 
  !広範囲B.C.4713(-4712)~2400~のユリウス日... SECOND 2008/01/13 14:35:13  (修正3回)
  │└!続く SECOND 2008/01/13 14:36:31  (修正2回)
  │ └ユリウス日とは、何か。 SECOND 2008/01/14 06:45:15 
  グレゴリオ暦とユリウス暦の両方を表示でき... 荒田浩二 2008/01/20 11:40:55 
   ├!<続き> 荒田浩二 2008/01/20 11:44:36 
   │└![続き] 荒田浩二 2008/01/20 11:52:14 
   │ └!(続き) 荒田浩二 2008/01/20 11:56:51 
   │  └!"続き" 荒田浩二 2008/01/20 11:58:05 
   └紀元0年については、理科年表の「ユリウス... SECOND 2008/01/20 15:50:59  (修正6回)
    └続く SECOND 2008/01/21 16:02:27 
     └天文関係では紀元0年を設定しているとは不明... 荒田浩二 2008/01/23 20:25:33 
      └私も、初めてお聞きする事で、できれば・・... SECOND 2008/01/24 05:50:01  (修正1回)

 インデックスへ  EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。