dish¤Î¥µ¥ó¥×¥ë¤Çbutton_test.hsp¤Ç¥Ü¥¿¥óʸ»ú¤¬¹õÅɤê¤Ë¤Ê¤Ã¤Æ¤¤¤¿¤Î¤Ç
Ä´¤Ù¤Æ¤ß¤ë¤ÈÀµ¾ï¤Î¤È¤¤È°Û¾ï¤Î¤È¤¤Î¥Ò¥ó¥È¤¬¤¢¤Ã¤¿¤Î¤Ç¤¹¤¬²ò·è¤·¤Æ¤¤¤Þ¤»¤ó¡£
²¿¤¬ÌäÂê¤Ê¤Î¤«¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤Þ¤¹¡£
²¼¤Î½é´üÀµ¾ï¤ÎÎã¤Ç¡¤Î¥³¥á¥ó¥È¤ò¼è¤ë¤È
button gosub "URL",*wowsub3;¡¡¤Î¡¡¡Ö¼Âµ¡¡×¤ÇURL¤¬¹õÅɤê¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹
¼¡¤Ë°Û¾ï¤Î¾õÂÖ¤Çbutton goto info_os,*owari ;¤ò
¡¡¡¡¡¡¡¡¡¡¡¡¡¡button goto "URL",*owari;¤Ë¤¹¤ë¤È¡¡¡¤âÀµ¾ï¤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£
½é´üÀµ¾ï¤ÎÎã
#include "hsp3dish.as"
#include "hspmath.as"
;sx=320: sy=480
;screen 0,sx,sy
sx=ginfo_sx: sy=ginfo_sy
info_os = sysinfo(0)
info_user = sysinfo(1)
info_name = sysinfo(2)
flag_ios=0:flag_and=0:flag_win=0
if instr(info_os,0,"iOS")>=0 : flag_ios=1
if instr(info_os,0,"android")>=0 : flag_and=1
if instr(info_os,0,"Windows")>=0 : flag_win=1
objsize 160,40
button gosub str(sy),*wowsub ;"URL"
;if flag_and=0 {
; button goto info_os,*owari ;"TEST END"
;}
if flag_and {
button gosub "URL",*wowsub3;"DIAL"
}
redraw 0
color 255,255,255 :boxf ;²èÌÌÇò¥¯¥ê¥¢
; ʸ»ú¤òɽ¼¨
color 0,0,128
font msgothic, 20, 1
pos 32,220
mes "HSP3Dish gradf sample"
;¡ celload "hsp3dish.png",3 ;²èÁü¥Õ¥¡¥¤¥ë¤ò¥Ð¥Ã¥Õ¥¡¤Ë¥í¡¼¥É"btn9_000.jpg"
;¢ pos 0,sy/2
;£ celput 3,0,1,1 ;(floor(sy*10/188)/20)
redraw 1
stop
*wowsub
exec "http://hsp.tv",16
return
*wowsub3
exec "tel:0123456789",16
return
*wowsub4
dialog "OK"
return
*owari
end