SDKRUN.REX ÀâÌÀ½ñ
¡ü³µÍ×
£Æ¡Ý£Â£Á£Ó£É£Ã£³£¸£¶¾å¤Ç£Ô£Í£Å£Î£Õ£Ö£²¡¥£±¤Î¤è¤¦¤Ê¥µ¥¤¥É¡¼¥ï¡¼¥¯¥á¥Ë¥å¡¼
¤Î¼Â¸½¤ò²Äǽ¤Ë¤¹¤ë¥×¥í¥·¡¼¥¸¥ã¡¼¤Ç¤¹¡£¤½¤Î¤Þ¤Þ¥³¥ó¥Ñ¥¤¥ë¤Ç¤¤Þ¤¹¡£
¡ü¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à¼ýÏ¿¤·¤Þ¤·¤¿
INPUTʸ¤Ë¤è¤êÆþÎϤ·¤¿ÈÖ¹æ¤Î¥µ¥¤¥É¥ï¡¼¥¯¤ò¼Â¹Ô¤¹¤ë¥µ¥ó¥×¥ë
SAMPLE1.BAS
SAMPLE1.EXP
¥·¥ç¡¼¥È¥«¥Ã¥È¥¡¼¤Ç»ØÄꤷ¤¿¥µ¥¤¥É¥ï¡¼¥¯¤ò¼Â¹Ô¤¹¤ë¥á¥Ë¥å¡¼¤Î¥µ¥ó¥×¥ë
SAMPLE2.BAS
SAMPLE2.EXP
£Ç£Õ£É¤Ë¤è¤ë£Ô£Í£Å£Î£Õ£Ö£²¡¥£±¤Î¤è¤¦¤Ê¥µ¥¤¥É¥ï¡¼¥¯¥á¥Ë¥å¡¼¤Î¥µ¥ó¥×¥ë
SAMPLE3.BAS
SAMPLE3.EXP
SAMPLE3¼Â¹Ô»þ¤ËɬÍפʥǡ¼¥¿¡¼¥Õ¥¡¥¤¥ë(¥«¥ì¥ó¥È¥Ç¥£¥ì¥¯¥È¥ê¤Ë¤ª¤¯¤³¤È)
SAMPLE3.DAT(ÎÞÀÝÃÞ°À�GET@A���)
¡ü»ÈÍÑË¡
¡ú½é´üÀßÄê
CLEAR ,,,,1024 '1024°Ê¾å
MOUSE 0 '¥Þ¥¦¥¹¤ò½é´ü²½¤·¤Æ¤ª¤¯
OFFSET&=0 '¾¤ÎREX¥Õ¥¡¥¤¥ë¤È¤Î¶¦Â¸»þ¤Ë»ØÄê
LOADM "SDKRUN.REX",OFFSET&
SDKRUN&=OFFSET&
GETSDKNUM&=OFFSET&+&H30
GETSDKNAME&=OFFSET&+&H10
¡ú¥¤¥ó¥¹¥È¡¼¥ë¤Î³Îǧ¡¦¥µ¥¤¥É¥ï¡¼¥¯ÅÐÏ¿¿ô¤Î¼èÆÀ
RESULT&=CALLM(GETSDKNUM&)
[·ë²Ì]
RESULT&=¥á¥Ë¥å¡¼¤ò½ü¤¯¥µ¥¤¥É¥ï¡¼¥¯ÅÐÏ¿¿ô
¥µ¥¤¥É¥ï¡¼¥¯µ¡Ç½»ÈÍÑÉÔ²Äǽ¤Î¾ì¹çÉé¤Î¿ô
¡ú¥·¥ç¡¼¥È¥«¥Ã¥È¥¡¼¡¦¥µ¥¤¥É¥ï¡¼¥¯Ì¾¤Î¼èÆÀ
SDKNAME$=SPACE$(32) '¥µ¥¤¥É¥ï¡¼¥¯Ì¾¤ÎÎΰè¤òͽ¤á³ÎÊݤ¹¤ë¡£
SDKEXECNUM&=1 '¥µ¥¤¥É¥ï¡¼¥¯ÈÖ¹æ(¥á¥Ë¥å¡¼¤ò£°¤È¤·¤Æ¿ô¤¨¤ë)
RESULT$=CHR$(CALLM(GETSDKNUM&,SDKEXECNUM&,VARPTR(SDKNAME$))
[·ë²Ì]
RESULT$=¥·¥ç¡¼¥È¥«¥Ã¥È¥¡¼¤Î¥¥ã¥é¥¯¥¿(¸½¥Ð¡¼¥¸¥ç¥ó±ÑÂçʸ»ú)
SDKNAME$=¥µ¥¤¥É¥ï¡¼¥¯Ì¾
¡ú»ØÄꤷ¤¿ÈÖ¹æ¤Î¥µ¥¤¥É¥ï¡¼¥¯¤ò¼Â¹Ô
SDKEXECNUM&=1 '¥µ¥¤¥É¥ï¡¼¥¯ÈÖ¹æ(¥á¥Ë¥å¡¼¤ò£°¤È¤·¤Æ¿ô¤¨¤ë)
RESULT&=CALLM(SDKRUN&,SDKEXECNUM&)
[·ë²Ì]
RESULT&=ÉÔÄê
¡¡¤¿¤À¤·Ì¤ÅÐÏ¿»þ -32
¡¡¥µ¥¤¥É¥ï¡¼¥¯¥ª¥Õ»þ -1
¡ü¡¥»ÈÍÑ¡¦Å¾ºÜ¡¦ÇÛÉÕ¡¦²þ¤¤Ë¤Ä¤¤¤Æ
°Ê²¼¤Î¾ò·ï¤Ë½¾¤¤¡¢¼«Í³¤Ë»ÈÍÑ¡¦²þÊÑ¡¦ÇÛÉդǤ¤Þ¤¹
ºî¼Ô¤ÏËÜ¥×¥í¥°¥é¥à¤ÇÀ¸¤¸¤¿Â»³²¤ò°ìÀÚÊä½þ¤¹¤ëµÁ̳¤òÉé¤ï¤Ê¤¤¤â¤Î¤È¤¹¤ë
-----------------------------------------------------------------------
Mamiya E-mail [email protected]
HOMEPAGE(ƬǾ°µºñ¹©¾ì) http://www.proc.org.tohoku.ac.jp/~naonori/befis/
Ìá¤ë