!干支(えと)の計算４※こちらの「空打ち」は...

!干支(えと) の計算４　※こちらの「空打ち」は、翌年となります。

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

!還暦は、干支(えと) と、十二支のＬＣＭ( 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

Re: 干支(えと) の計算	返事を書くノートメニュー
SECOND <jjqdmekgpt> 2008/01/12 15:43:11 ** この記事は4回修正されてます
!干支(えと) の計算４　※こちらの「空打ち」は、翌年となります。 !ダブル・クリックのように「ダブル空打ち」すると終了。 !翌年を見る時、(Enter) は、たたく様に「空打ち」して下さい。 !長く押すと、オートリピートで、同様に、終了します。 !還暦は、干支(えと) と、十二支のＬＣＭ( 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