¤Ï¤¸¤á¤Þ¤·¤Æ¡£¸½ºßÂç³Ø£´Ç¯¤Ç¿´Íý³Ø¤òÀ칶¤·¤Æ¤¤¤ë³ØÀ¸¤Ç¤¹¡£
´ÏÀ¤Ç¹Ô¤¦¼Â¸³¤ÎºîÀ®¤Ë¶µ¼ø¤«¤éHSP¤ò´«¤á¤é¤ì¡¢£±¥ö·îÁ°¤¯¤é¤¤¤«¤é¼è¤ê¤¯¤ó¤Ç¤¤¤ë¤ó
¤Ç¤¹¤¬¡¢¤ï¤«¤é¤Ê¤¤ÅÀ¤¬¤¤¤í¤¤¤í¤È½Ð¤Æ¤¤¿¤Î¤Ç¡¢¤ª¼ê¿ô¤Ç¤¹¤¬¤´¶µ¼ø¤¤¤¿¤À¤±¤ë¤ÈÈó¾ï
¤Ë½õ¤«¤ê¤Þ¤¹m(__)m
²¼¤Î¥¹¥¯¥ê¥×¥È¤Î¤è¤¦¤Ê¼Â¸³¤ò¹Ô¤ª¤¦¤È¤·¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢
(£±)¸½¾õ±¦¤«¤éº¸¤ØÆ°¤¯¡û¤Î°ÜÆ°»þ´Ö¤ÏÌÜʬÎ̤ǤÀ¤¤¤¿¤¤1800ms¤¯¤é¤¤¤Ë¤·¤Æ¤¤¤ë¾õÂ֤ʤÎ
¤Ç¤¹¤¬¡¢¥¹¥¯¥ê¥×¥È¤Î¾å¤Ç1800ms¤Î°ÜÆ°»þ´Ö¤ËÀßÄꤹ¤ë¤Ë¤Ï¤É¤Î¤è¤¦¤Ë½ñ¤±¤Ð¤¤¤¤¤Î¤Ç¤·¤ç
¤¦¤«¡©
(£²)¸½¾õ£±¥Ö¥í¥Ã¥¯½ªÎ»Ëè¤ËÈ︳¼Ô¤Î£µ»î¹ÔÌܤÎÈ¿±þ¤Îɾ²Á¤À¤±¤òɽ¼¨¤·¤Æ¤¤¤ë¾õÂ֤Ǥ¹¤¬¡¢
£µ»î¹ÔÌܽªÎ»¸å¤Ë£±¡Á£µ»î¹Ô¤Îɾ²Á¤ò°ì¤Ä¤Î²èÌ̤Ǥ¹¤Ù¤Æɽ¼¨¤¹¤ë¤Ë¤Ï¤É¤Î¤è¤¦¤Ë¤¹¤ì¤Ð¤¤
¤¤¤Î¤Ç¤·¤ç¤¦¤«¡©
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£±¡¡ÁÇÀ²¤é¤·¤¤¡ª(100ms°ÊÆâ)
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¤³¤Î¤è¤¦¤Ë¡¡¡¡¡¡¡¡¡¡¡¡£²¡¡¤Ê¤«¤Ê¤«¤Ç¤¹(200ms°ÊÆâ)
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¤·¤¿¤¤¤Î¤Ç¤¹¤¬¢ª¡¡¡¡¡¡£³¡¡¤¬¤ó¤Ð¤ê¤Þ¤·¤ç¤¦(400ms°ÊÆâ)
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£´¡¡ÁÇÀ²¤é¤·¤¤¡ª(100ms°ÊÆâ)
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡£µ¡¡Á´Á³¥¿¥¤¥ß¥ó¥°¤¬°ã¤¤¤Þ¤¹(400msÈϰϳ°)
¢¨ËÜÈ֤μ¸³¤Ç¤Ïº¸Ã¼¤Î»Í³Ñ¤¤ÏÈÆâ¤Ï¤º¤Ã¤È¹õ¤¤¤Þ¤Þ¤Ç¹Ô¤¤¡¢¼ÂºÝ¤Ë¤É¤Î¥¿¥¤¥ß¥ó¥°¤Ç
¡¡¡û¤¬º¸Ã¼¤ËÍè¤ë¤Î¤«È︳¼Ô¤Ï¤ï¤«¤é¤Ê¤¤¾õÂ֤ˤ¹¤ë¤Î¤Ç¤¹¤¬¡¢¸½ºß¤ÏºîÀ®ÅÓÃæ¤È¤¤¤¦
¡¡¤³¤È¤Çº¸Ã¼¤Ë¡û¤¬Åþ㤷¤Æ¡¢¸«¤¨¤ë¤è¤¦¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤Æ¤¤¤Þ¤¹¡£
¥¹¥¯¥ê¥×¥È¤Ï°Ê²¼¤Ë¤Ê¤ê¤Þ¤¹¡£ÀÛ¤¤ÅÀ¤¬Â¿¡¹¤¢¤ë¤È»×¤¤¤Þ¤¹¤¬¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£
pre
#uselib "kernel32"
#func QueryPFreq "QueryPerformanceFrequency" var
#func QueryPCount "QueryPerformanceCounter" var
dim lgint, 4 ;LARGE_INTEGER¹½Â¤ÂÎ
#define _start QueryPFreq nFreq : QueryPCount nBefore
#define _goal QueryPCount lgint(2) : dwTime=strf("%%.3fmSec", 1000.*(lgint(2)-nBefore)/nFreq)
a=0
screen 0, ginfo (20), ginfo (21)
color : boxf
font msmincho, 30:pos 100,150:color 255,255,255
mes"¡¦¤³¤Î¼Â¸³¤Ç¤Ï±¦¤«¤éº¸¤Ø°ÜÆ°¤¹¤ë¡ü¤¬¡¢"
pos 100,180:mes"¡¡º¸Ã¼¤Î»Í³Ñ¤¤ÏÈÆâ¤Î°ÌÃ֤ˤ¯¤ë¤È»×¤ï¤ì¤ë¥¿¥¤¥ß¥ó¥°¤òͽ¬¤·¤Æ"
pos 100,210:mes"¡¡¥¹¥È¥Ã¥×¥Ü¥¿¥ó¤ò²¡¤·¤Æ¤¤¤¿¤À¤¤Þ¤¹¡£"
pos 100,300:mes"¡¦¼Â¸³¤Ï£µ»î¹Ô¤ò£±¥Ö¥í¥Ã¥¯¤È¤·¡¢·×20¥Ö¥í¥Ã¥¯¹Ô¤¤¤Þ¤¹¡£"
pos 100,390:mes"¡¦½àÈ÷¤¬¤Ç¤¤¿¤é²¼¤Î¼Â¸³³«»Ï¥Ü¥¿¥ó¤ò²¡¤·¤Æ¡¢"
pos 100,420:mes"¡¡¼Â¸³¤ò³«»Ï¤·¤Æ¤¯¤À¤µ¤¤¡£"
pos 500,550:button "¼Â¸³³«»Ï",*hata0
stop
*hata0
b=0
screen 0, ginfo (20), ginfo (21)
color : boxf
color 255, 255, 255
boxf 65, 300, 950, 350
color 0,0,0
boxf 500, 306, 944, 344
color
boxf 69, 306, 109, 344
pos 500, 470 :button "¥¹¥È¥Ã¥×" ,*hata1
while ( b < 5 )
await 2000
b = b + 1
kaisu = 140 ;·«¤êÊÖ¤·²ó¿ô
x1 = 60 ;³«»Ï°ÌÃÖ
x2 = 900 ;½ªÎ»°ÌÃÖ
y = 306 ;YºÂɸ
dx = (x2 - x1) / kaisu ;°ÜÆ°ÎÌ
_start
repeat kaisu
redraw 0
color :boxf
color 255, 255, 255
boxf 65, 300, 950, 350
color 0,0,0
boxf 500, 306, 944, 344
color
boxf 69, 306, 109, 344
color 255, 255, 255
mes "¡ü" : font msmincho, 37
pos x2 - dx * cnt, y ;ºÂɸ»ØÄê(x,y)
await 1
redraw 1
loop
stop
*hata1
_goal
title dwTime
notesel data
noteadd dwTime
notesave "hsp-test0"
wend
if 100 >= int(dwTime)-1800&int(dwTime)-1800>= 0|0 >int(dwTime)-1800&int(dwTime)-1800>=-100{
screen 0, ginfo (20), ginfo (21)
color : boxf:color 255, 255, 255:font msmincho, 37:pos 100,300
mes "ÁÇÀ²¤é¤·¤¤¡ª(100ms°ÊÆâ)"
}else :if 200>=int(dwTime)-1800&int(dwTime)-1800>100|-100>int(dwTime)-1800&int(dwTime)-1800>=-200{
screen 0, ginfo (20), ginfo (21)
color : boxf:color 255, 255, 255:font msmincho, 37:pos 100,300
mes "¤Ê¤«¤Ê¤«¤Ç¤¹(200ms°ÊÆâ)"
}else :if 300>=int(dwTime)-1800&int(dwTime)-1800>200|-200>int(dwTime)-1800&int(dwTime)-1800>=-300{
screen 0, ginfo (20), ginfo (21)
color : boxf:color 255, 255, 255:font msmincho, 37:pos 100,300
mes "ÉáÄ̤Ǥ¹(300ms°ÊÆâ)"
}else :if 400>=int(dwTime)-1800&int(dwTime)-1800>300|-300>int(dwTime)-1800&int(dwTime)-1800>=-400{
screen 0, ginfo (20), ginfo (21)
color : boxf:color 255, 255, 255:font msmincho, 37:pos 100,300
mes "¤¬¤ó¤Ð¤ê¤Þ¤·¤ç¤¦(400ms°ÊÆâ)"
}else :if int(dwTime)-1800>400|-400>int(dwTime)-1800{
screen 0, ginfo (20), ginfo (21)
color : boxf:color 255, 255, 255:font msmincho, 37:pos 100,300
mes "Á´Á³¥¿¥¤¥ß¥ó¥°¤¬°ã¤¤¤Þ¤¹(400msÈϰϳ°)"}
await 3000
goto *hata2
*hata2
a=a+1
await 3000
if a<3{goto *hata0}
color:boxf:color 255, 255, 255:pos 300,300 :font msmincho, 37:mes "¼Â¸³¤Ï°Ê¾å¤Ç½ªÎ»¤Ç¤¹¡£"
pos 300,335 :mes "¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£"
stop
/pre