HSP¥Ý¡¼¥¿¥ë
¥µ¥¤¥È¥Þ¥Ã¥× ¤ªÌ䤤¹ç¤ï¤»


HSPTV!·Ç¼¨ÈÄ


̤²ò·è ²ò·è Ää»ß ºï½üÍ×ÀÁ

2013
0929
¤±¤ócls ¤« clrobj ¤½¤ì¤È¤â¤Û¤«¤ÎÊýË¡¡©13²ò·è


¤±¤ó

¥ê¥ó¥¯

2013/9/29(Sun) 17:13:14|NO.57461

¤¿¤Ó¤¿¤Ó¡¡¼ÁÌ䤷¤Þ¤¹¡£
°ÊÁ°¼ÁÌä¤Ë½Ð¤·¤¿»Åʬ¤±¤Ë¤Ä¤¤¤Æ¤Ï¤Ê¤ó¤È¤«¤Ç¤­¤Þ¤·¤¿¡£¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£

¼ÁÌä¤Ï¤½¤Î³¤­¤Ç¤¹¡£¹ØÆþ¤·¤¿¤â¤Î¤À¤±¤òÇ㤤ʪ¥ê¥¹¥È¤ò¾Ã¤·É½¼¨¤µ¤»¤¿¤¯¹Í¤¨¤Æ¤¤¤Þ¤¹¤¬¡¢
cls¤ò»È¤¦¤È¡¡Çã¤Ã¤¿¾õÂ֤ǡ¡¹ØÆþ¡¢»ý¤Áʪ¥ê¥¹¥È¤ò·«¤êÊÖ¤·²¡¤¹¤³¤È¤Ç¡¢¹ØÆþ¥ê¥¹¥È¤¬
¾Ã¤¨¤Æ¤·¤Þ¤¤¤Þ¤¹¡£
¤É¤¦¤«¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£¡Ê¤¤¤Ä¤â¤Î¤è¤¦¤Ë¡¢²¼µ­¤Ëº£¤Ç¤­¤Æ¤¤¤ë¥Ç¡¼¥¿¤òºÜ¤»¤Æ¤ª¤­¤Þ¤¹¡£¡Ë
¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£

#module
#defcfunc fun_GetKenName int ken_id
if kens=0 {
sdim kens
kens(0) = "Ë̳¤Æ»","ÀÄ¿¹¸©","´ä¼ê¸©","µÜ¾ë¸©","½©Åĸ©"
kens(5) = "»³·Á¸©","Ê¡Å縩","°ñ¾ë¸©","ÆÊÌÚ¸©","·²Çϸ©"
kens(10) = "ºë¶Ì¸©","ÀéÍÕ¸©","ÅìµþÅÔ","¿ÀÆàÀ","¿·³ã¸©"
kens(15) = "ÉÙ»³¸©","ÀÐÀ","Ê¡°æ¸©","»³Íü¸©","ĹÌ"
kens(20) = "´ôÉ츩","ÀŲ¬¸©","°¦Ãθ©","»°½Å¸©","¼¢²ì¸©"
kens(25) = "µþÅÔÉÜ","ÂçºåÉÜ","ʼ¸Ë¸©","ÆàÎɸ©","Ï²λ³¸©"
kens(30) = "Ä»¼è¸©","Å纬¸©","²¬»³¸©","¹­Å縩","»³¸ý¸©"
kens(35) = "ÆÁÅ縩","¹áÀ","°¦É²¸©","¹âÃθ©","Ê¡²¬¸©"
kens(40) = "º´²ì¸©","Ĺºê¸©","·§Ëܸ©","Âçʬ¸©","µÜºê¸©"
kens(45) = "¼¯»ùÅ縩","²­Æ츩"
}
ken_name = kens(ken_id)
return ken_name
#global
*hajime
cls 0
onerror *jj ;¥¨¥é¡¼¤¬½Ð¤¿¾ì¹çÈô¤Ö

iddat=2,3,7,13,25,6,9,41
kenString=""

repeat length(iddat)
id=iddat(cnt)
kenString+fun_GetKenName(id) + "\n"
ken_id(cnt)=id //¸©ID¤ò¸©Ì¾½ç¤ËÊݸ(listbox¤Î½çÈ֤ȸ©ID¤ò¥»¥Ã¥È¤Ë¤¹¤ë)
loop

ken_index = 0
listbox ken_index,100,kenString
lb_ID = stat
hListbox = objinfo(stat, 2)

cb_flag = 0 ; combox¤¬É½¼¨Ã椫¤É¤¦¤«¤Î¥Õ¥é¥°
cc_flag = 0 ; combox¤¬É½¼¨Ã椫¤É¤¦¤«¤Î¥Õ¥é¥°
button gosub "¹ØÆþ", *check

pos 150,350
button "»ý¤Áʪ¥ê¥¹¥È",*cls5
stop

*cls5
cls 0
button "Ç㤤ʪ",*hajime

stop

*check
notesel kenString
noteget getlist, ken_index

DDD = "¹ØÆþºÑ"

if getlist = DDD {
goto *check3
} else {
dialog getlist + "¤ò¹ØÆþ¤·¤Þ¤·¤¿¡£"
}

if getlist = DDD {
goto *check3 }
if ken_id(ken_index) < 10 {
goto *check4}

if ken_id(ken_index) <= 10 & ken_id(ken_index) <= 25{
goto *check5}
if ken_id(ken_index) > 25{
goto *check6}

; combox¤¬Èóɽ¼¨¤Ê¤éɽ¼¨¡¢É½¼¨Ãæ¤Ê¤éÆâÍƤò½ñ¤­´¹¤¨
*check4
notesel combdataX
noteadd Getlist

pos 150,50
if ca_flag = 0 {
d = 0
combox d,100,combdataX : ca_ID = stat
ca_flag = 1
} else {
objprm ca_ID, combdataX
objprm ca_ID, 0
}
goto *check7


*check5
notesel combdata
noteadd Getlist

pos 150,150
if cb_flag = 0 {
b = 0
combox a,100,combdata : cb_ID = stat
cb_flag = 1
} else {
objprm cb_ID, combdata
objprm cb_ID, 0
}
goto *check7

*check6
notesel combdataA
noteadd Getlist
pos 150,250
if cc_flag = 0 {
c = 0
combox c,100,combdataA : cc_ID = stat
cc_flag = 1
} else {
objprm cc_ID, combdataA
objprm cc_ID, 0
}
goto *check7

*check7

; ¹ØÆþ¤·¤¿¥¢¥¤¥Æ¥à¤Ë°õ¤ò¤Ä¤±¤ë
notesel kenString
noteadd DDD, ken_index, 1
objprm lb_ID, kenString
objprm lb_ID, ken_index
return

*check3
; ¥¢¥¤¥Æ¥à¤ÎƬ¤Ë°õ¤¬¤¢¤ì¤Ð½èÍý¤òÃæÃÇ
cstr = strmid(getlist, 0, 6) ;strmid¡Êʸ»ú¤Î¼è¤ê½Ð¤·¡Ë,²¿Ê¸»úÌܤ«¤é,²¿Ê¸»ú¡Ê²¿¥Ð¥¤¥È¡Ë
if cstr = DDD {
dialog DDD + "¤Ç¤¹" }
return


*jj



¤³¤Îµ­»ö¤ËÊÖ¿®¤¹¤ë


²Ë¿Í

¥ê¥ó¥¯

2013/9/29(Sun) 19:15:18|NO.57462

//--¤«¤é//--¤Î´Ö¤¬¼ç¤Ê½¤ÀµÉôʬ

*hajime cls 0 onerror *jj ;¥¨¥é¡¼¤¬½Ð¤¿¾ì¹çÈô¤Ö iddat=2,3,7,13,25,6,9,41 kenString="" //------------ list_cnt=0 repeat length(iddat) id=iddat(cnt) kenString+fun_GetKenName(id) + "\n" ken_id(cnt)=id //¸©ID¤ò¸©Ì¾½ç¤ËÊݸ(listbox¤Î½çÈ֤ȸ©ID¤ò¥»¥Ã¥È¤Ë¤¹¤ë) list_cnt++ //¥ê¥¹¥È¤Î¸Ä¿ô¤ò¿ô¤¨¤ë loop list_max=list_cnt //¥ê¥¹¥È¸Ä¿ô¤òÊݸ //------------- ken_index = 0 listbox ken_index,100,kenString lb_ID = stat hListbox = objinfo(stat, 2) ca_flag = 0 cb_flag = 0 ; combox¤¬É½¼¨Ã椫¤É¤¦¤«¤Î¥Õ¥é¥° cc_flag = 0 ; combox¤¬É½¼¨Ã椫¤É¤¦¤«¤Î¥Õ¥é¥° button gosub "¹ØÆþ", *check pos 150,350 button "»ý¤Áʪ¥ê¥¹¥È",*cls5 stop *cls5 cls 0 button "Ç㤤ʪ",*hajime stop *check //------------ if list_max=0 { dialog "¾¦Éʤ¬¤¢¤ê¤Þ¤»¤ó¡£":return} notesel kenString noteget getlist, ken_index dialog getlist + "¤ò¹ØÆþ¤·¤Þ¤·¤¿¡£" if ken_id(ken_index) < 10 { goto *check4} if ken_id(ken_index) >= 10 & ken_id(ken_index) <= 25{ goto *check5}//ken_id(ken_index) <= 10 ¤ò>=¤Ë½¤Àµ if ken_id(ken_index) > 25{ goto *check6} //------------ ; combox¤¬Èóɽ¼¨¤Ê¤éɽ¼¨¡¢É½¼¨Ãæ¤Ê¤éÆâÍƤò½ñ¤­´¹¤¨ *check4 notesel combdataX noteadd Getlist pos 150,50 if ca_flag = 0 { d = 0 combox d,100,combdataX : ca_ID = stat ca_flag = 1 } else { objprm ca_ID, combdataX objprm ca_ID, 0 } goto *check7 *check5 notesel combdata noteadd Getlist pos 150,150 if cb_flag = 0 { b = 0 combox a,100,combdata : cb_ID = stat cb_flag = 1 } else { objprm cb_ID, combdata objprm cb_ID, 0 } goto *check7 *check6 notesel combdataA noteadd Getlist pos 150,250 if cc_flag = 0 { c = 0 combox c,100,combdataA : cc_ID = stat cc_flag = 1 } else { objprm cc_ID, combdataA objprm cc_ID, 0 } goto *check7 *check7 //-------------------- ; ¹ØÆþ¤·¤¿ID¤òken_id()¤«¤éºï½ü¤·listbox¤ËÈ¿±Ç¤µ¤»¤ë kenString="" list_cnt=0 repeat list_max if cnt ! ken_index{//º£²ó¹ØÆþ¤µ¤ì¤Æ¤¤¤Ê¤±¤ì¤Ð¥ê¥¹¥È¤ËÄɲà id=ken_id(cnt) kenString+fun_GetKenName(id) + "\n" ken_id(list_cnt)=id //¹ØÆþ¤µ¤ì¤¿ID¤¬È´¤±¤ë¤Î¤ÇºÆÅÙ¥»¥Ã¥È list_cnt++ } loop list_max=list_cnt objprm lb_ID, kenString objprm lb_ID, limit(ken_index,0,list_max-1) //-------------------- return *jj
¥¿¥Ö¤¬¾Ã¤¨¤¿¤êÀèƬ¤Ë¥¹¥Ú¡¼¥¹¤¬Äɲ䵤줿¤ê¤Ç¥³¥Ô¥Ú¤·¤ÆÊÔ½¸¤¬¤ä¤ê¤Ë¤¯¤¤¤«¤é
¥¹¥¯¥ê¥×¥È¤ò·Ç¼¨ÈĤ˽ñ¤¯»þ¤ÏÃí°Õ½ñ¤­¤Î4ÈÖ¸«¤Æ



¤±¤ó

¥ê¥ó¥¯

2013/10/1(Tue) 21:00:50|NO.57488

²Ë¿Í¤µ¤ó¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

¤¹¤ß¤Þ¤»¤ó¡£4.¥¹¥¯¥ê¥×¥È¤Ï¾®Ê¸»ú¤Î¡Á
¤Ç°Ï¤à¤È¸«¤ä¤¹¤¯É½¼¨¤Ç¤­¤Þ¤¹¡£
¤½¤ì¤¬¤è¤¯¤ï¤«¤Ã¤Æ¤¤¤Þ¤»¤ó¡£º£¸å¤ÏÄ´¤Ù¤Æ½ñ¤­Êý¤òÊѹ¹¤·¤Þ¤¹¡£

¸å¡¢ÀâÌÀ¤¬¤ï¤«¤ê¿É¤¤¾õÂÖ¤À¤Ã¤¿¤Î¤Ç½¤Àµ¤·¤Þ¤¹¡£

¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤«¤é¹ØÆþ¤·¤¿¤â¤Î¤ò»ý¤Áʪ¥ê¥¹¥È¤ËÈ¿±Ç¤·¤¿¤¤¤È»×¤Ã¤Æ¤¤¤Þ¤¹¡£
combox¤Î»ý¤Áʪ¥ê¥¹¥È¤ò²¡¤·¤¿¤È¤­¤Ï¡¢¥ê¥¹¥È¥Ü¥Ã¥¯¥¹¤¬¾Ã¤¨¤Æ
¹ØÆþ¤·¤¿¤â¤Î¤À¤±¤ò¼ïÎàÊ̤˻ý¤Áʪ¥ê¥¹¥È¤Ëɽ¼¨

Î㤨¤Ð¡¢£Ò£Ð£Ç¥²¡¼¥àÆâ¤ÇÇ㤤ʪ¤ò¤·¤¿¤È¤­¡¢
¤½¤Î²èÌ̤òÈ´¤±¤Æ»ý¤Áʪ¤Î³Îǧ¤ò¤¹¤ë¤È¤¤¤¦Æ°ºî¤Ë¤Ê¤ê¤Þ¤¹¡£
¤½¤Î¸å¡¢¤Þ¤¿Ç㤤ʪ¤ò¤·¤Æ¤Þ¤¿»ý¤Áʪ¥ê¥¹¥È¤Î³Îǧ¤ò¤·¤Þ¤¹¡£

¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹



²Ë¿Í

¥ê¥ó¥¯

2013/10/3(Thu) 00:36:23|NO.57495

NO.57461¤ÈNO.57488¤Ç¸À¤Ã¤Æ¤ë¤³¤È°ã¤¦µ¤¤¬¤·¤Æ¡¢¤è¤¯Ê¬¤«¤é¤Ê¤¤¤Î¤Ç
>if 0 { //0¤Ê¤é{}Æâ¤òÈô¤Ð¤¹
¤Î0¤ò1¤Ë¤¹¤ë»ö¤Ç°ã¤¦Æ°ºî¤â¤¹¤ë¤è¤¦¤ËÍÑ°Õ¤·¤¿

//¥·¥ç¥Ã¥×¥Ç¡¼¥¿ Shop_dat_str={" 2, 3, 7,13,25, 6, 9,41 8,32,10, 5, 1,45,20,30,46,15"} Shopitem_max=15 //°ì¤Ä¤ÎÇä¤êʪ¥ê¥¹¥È¤ÎºÇÂç¿ô notesel Shop_dat_str Shop_max=notemax dim iddat,Shopitem_max,Shop_max //ʸ»ú¤Î¥·¥ç¥Ã¥×¥Ç¡¼¥¿¤«¤é¿ôÃͤÎID¥Ç¡¼¥¿¤ËÊÑ´¹¤·¡¢ID¤¬Ìµ¤¤Í×ÁǤò$80000000¤Ë¤·¤Æiddat(cnt,Shop_id)¤ËÂåÆþ repeat Shop_max noteget dat_str,cnt split dat_str,",",iddat_str Shop_id=cnt repeat Shopitem_max if cnt <stat{ iddat(cnt,Shop_id)=int(iddat_str(cnt)) //ʸ»ú¤ò¿ôÃͤËÊÑ´¹¤·¤Æ½çÈÖ¤Ëiddat¤ØÂåÆþ }else{ iddat(cnt,Shop_id)=$80000000 //ID¤Î̵¤¤Í×ÁǤÏ$80000000¤òÂåÆþ } loop loop Totl_itemid_max=0 Shop_id=0 ShopName="Ç㤤ʪA","Ç㤤ʪB" //¥¿¥¤¥×ÊÌÍѤËͽ¤á½èÍý type_mes="0¡Á9","10¡Á25","26¡Á" repeat 47 //cnt¤òID¤È¤·¤Æ¥¿¥¤¥×ÃͤȤ·¤Æ0¡Á2¤òÂåÆþ if cnt < 10 {get_type(cnt)=0} if cnt >= 10 & id <= 25{get_type(cnt)=1} if cnt > 25{get_type(cnt)=2 } loop *hajime title ShopName(Shop_id) cls 0 onerror *jj ;¥¨¥é¡¼¤¬½Ð¤¿¾ì¹çÈô¤Ö kenString="" list_cnt=0 repeat Shopitem_max id=iddat(cnt,Shop_id)//Æ󼡸µÇÛÎó¤Ë¤Ê¤Ã¤Æ¤ë¤Î¤ÇÃí°Õ if id>=0 {//ID¤¬Éé¿ô¤Ê¤éID¤¬Ìµ¤¤¤«´û¤Ë¹ØÆþ¤µ¤ì¤¿ kenString+fun_GetKenName(id) + "\n" ken_id(list_cnt)=id //¸©ID¤ò¸©Ì¾½ç¤ËÊݸ(listbox¤Î½çÈ֤ȸ©ID¤ò¥»¥Ã¥È¤Ë¤¹¤ë) list_cnt++ //¥ê¥¹¥È¤Î¸Ä¿ô¤ò¿ô¤¨¤ë ken_cnt(id)=cnt //ID¤«¤é¸µ¥Ç¡¼¥¿(iddat)¤ÎÍ×ÁÇ¿ô¤ò¼è¤ê½Ð¤»¤ë¤è¤¦¤Ë¤¹¤ë }else{ if id=$80000000 {break}//ID¤¬Ìµ¤¤¤Î¤ÇÈ´¤±¤ë } loop list_max=list_cnt //¥ê¥¹¥È¸Ä¿ô¤òÊݸ dim c_flag,3 sdim combdata,1024, length(c_flag) if 0 { //0¤Ê¤é{}Æâ¤òÈô¤Ð¤¹ ; ¢¬¤ò1¤Ë¤¹¤ë¤È¡¢Ç㤤ʪ¥Ü¥¿¥ó¤ò²¡¤·¤¿»þ¤Ë¡¢º£¤Þ¤Ç¹ØÆþ¤·¤¿Êª¤ò¥¿¥¤¥×Ê̤Ëcombox¤ËÆþ¤ì¤Æɽ¼¨ repeat Totl_itemid_max id=Totl_itemid_list(cnt) gosub *buy //id¤ò¥ê¥¹¥È¤ËÄɲä·combox¤ËÈ¿±Ç loop Totl_itemid_max=0 } ken_index = 0 pos 0,0 listbox ken_index,100,kenString lb_ID = stat hListbox = objinfo(stat, 2) button gosub "¹ØÆþ", *check pos 150,350 button "»ý¤Áʪ¥ê¥¹¥È",*cls5 stop *cls5 cls 0 button "Ç㤤ʪA",*Shopping spbA_id=stat button "Ç㤤ʪB",*Shopping spbB_id=stat //º£²ó¹ØÆþ¤·¤¿Êª¤ò»ý¤Áʪ¥ê¥¹¥È¤ËÄɲà repeat spitem_max id=spitem_id(cnt) //º£²ó¹ØÆþ¤·¤¿ID Totl_itemid_list(Totl_itemid_max)=id //Á°²ó¤Þ¤Ç¤Î»ý¤Áʪ¤ËÄɲà Totl_itemid_max++ //»ý¤Áʪ¤Î¿ô¤òÁý¤ä¤¹ loop spitem_max=0 sdim item_list_str,100,3 //»ý¤Áʪ¥ê¥¹¥È¤ÎID¤«¤é¿¶¤êʬ¤±¤·¤Æ̾Á°¤ò¼è¤ê½Ð¤· repeat Totl_itemid_max id=Totl_itemid_list(cnt) type=get_type(id) //ID¤«¤é¥¿¥¤¥×¤ò¼èÆÀ item_list_str(type)+fun_GetKenName(id) + "\n" loop repeat 3 pos cnt*100+100,100 mes type_mes(cnt) mes item_list_str(cnt) loop stop *Shopping if spbA_id=stat {Shop_id=0}else{Shop_id=1} goto *hajime *check if list_max=0 { dialog "¾¦Éʤ¬¤¢¤ê¤Þ¤»¤ó¡£":return} notesel kenString noteget getlist, ken_index dialog getlist + "¤ò¹ØÆþ¤·¤Þ¤¹¤«¡©¡£",2 if stat=7 {return} id=ken_id(ken_index) gosub *buy //¹ØÆþ¤·¤¿id¤ò¥ê¥¹¥È¤ËÄɲä·combox¤ËÈ¿±Ç ; ¹ØÆþ¤·¤¿ID¤òken_id()¤«¤éºï½ü¤·listbox¤ËÈ¿±Ç¤µ¤»¤ë kenString="" list_cnt=0 repeat list_max id=ken_id(cnt) if cnt ! ken_index{//º£²ó¹ØÆþ¤µ¤ì¤Æ¤¤¤Ê¤±¤ì¤ÐºÆÅ٥ꥹ¥È¤ËÄɲà kenString+fun_GetKenName(id) + "\n" ken_id(list_cnt)=id //¹ØÆþ¤µ¤ì¤¿ID¤¬È´¤±¤ë¤Î¤ÇºÆÅÙ¥»¥Ã¥È list_cnt++ }else{//º£²ó¹ØÆþ¤·¤¿ID¤Î¸µ¤Î¥Ç¡¼¥¿¤Ë$81000000Äɲ乤ë(¹ØÆþ¤·¤¿Êª¤ÈºÇ½é¤«¤éID¤¬Ìµ¤«¤Ã¤¿Êª¤È¤ò¶èÊ̤¹¤ë¤¿¤á) iddat(ken_cnt(id),Shop_id) | $81000000 //ken_cnt(id)¤Ç¸µ¤Î¥Ç¡¼¥¿¤ÎÍ×ÁÇ¿ô¤ò¼è¤ê½Ð¤¹ } loop list_max=list_cnt objprm lb_ID, kenString objprm lb_ID, limit(ken_index,0,list_max-1) return //¹ØÆþ¤·¤¿id¤ò¥ê¥¹¥È¤ËÄɲä·combox¤ËÈ¿±Ç *buy spitem_id(spitem_max)=id //º£²ó¹ØÆþ¤·¤¿Êª¤À¤±Êݸ¡Êspitem_id()¤ò¼ïÎàÊ̤˻ý¤Ã¤Æ¤âÎɤ¤¤¬¡Ë spitem_max++ type=get_type(id) //ID¤«¤é¥¿¥¤¥×¤ò¼èÆÀ ; combox¤¬Èóɽ¼¨¤Ê¤éɽ¼¨¡¢É½¼¨Ãæ¤Ê¤éÆâÍƤò½ñ¤­´¹¤¨ notesel combdata(type) //¥¿¥¤¥×Ê̤Îcombdata¤òÁªÂò noteadd fun_GetKenName(id) if c_flag(type) = 0 { pos 150,50+100*type c_index(type) = 0 combox com_index(type),100,combdata(type) : c_ID(type) = stat c_flag(type) = 1 } else { objprm c_ID(type), combdata(type) objprm c_ID(type), 0 } return *jj end
Ʊ¤¸½èÍý¤ÏÅ»¤á¤ÆÇÛÎó¤ò»È¤Ã¤ÆƱ¤¸°ÕÌ£¤ò»ý¤Ä̾Á°°ã¤¤¤ÎÊÑ¿ô¤ò¸º¤é¤·¤¿



¤µ¤«

¥ê¥ó¥¯

2013/10/5(Sat) 18:57:57|NO.57515

¥¹¥¯¥ê¥×¥È¤ò¼Â¹Ô¤·¤Æ¤ß¤¿¤Î¤Ç¤¹¤¬¡¢¤É¤¦¤¤¤¦Æ°ºî¤¬Àµ¤·¤¤¤Î¤«¤Á¤ç¤Ã¤È¤ï¤«¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡£

¤¿¤ÀÁàºî¤Ë¤è¤ê¥ª¥Ö¥¸¥§¥¯¥È¤òcls¤Ç¾Ã¤·¤¿¤ê¤Þ¤¿Æ±¤¸¥ª¥Ö¥¸¥§¥¯¥È¤òºî¤Ã¤¿¤ê¤·¤Ê¤¤¤Û¤¦¤¬ÎÉ
¤¤¤Ç¤¹¡£
°Ê²¼¤Î¤É¤Á¤é¤«¤Ë¤·¤¿¤é¤É¤¦¤Ç¤·¤ç¤¦¤«¡£
­¡Á´¤Æ¤Î¥ª¥Ö¥¸¥§¥¯¥È¤ÏºÇ½é¤Ëɽ¼¨¤·¤Æ¤ª¤¯¡£É½¼¨¤·¤¿¤¯¤Ê¤¤¾ì¹ç¤ÏÈóɽ¼¨ÀßÄê¤È¤¹¤ë¡£¤Þ¤¿¤Ï
¡¡Èó»ÈÍѤȤ¹¤ë¡£
­¢°ã¤¦²èÌ̤ò¸Æ¤Ó½Ð¤¹¡£

­¡¤Î¾ì¹ç¤Î¥µ¥ó¥×¥ë¤Ç¤¹¡£
#include "user32.as" // API¤ÎShowWindow¤ò»ÈÍѤ¹¤ë¤¿¤á¤ÎÀë¸À

pos 0,10: button "ɽ¼¨Èóɽ¼¨", *hyouji
pos 0,50: button "»ÈÍÑÈó»ÈÍÑ", *siyou

pos 100,10: combox ls,100,"aa\nbb\ncc": hCombox=objinfo(stat, 2) ; ¥¦¥£¥ó¥É¥¦¥Ï¥ó¥É¥ë¼èÆÀ
ShowWindow hCombox, 0 // Èóɽ¼¨
flg1=0

pos 100,50: combox ls,100,"11\n22\n33": iCombox=stat
objenable iCombox,0 //Èó»ÈÍÑ
flg2=0

stop
*hyouji // ɽ¼¨ÀÚ¤êÂؤ¨
if flg1==5{ flg1=0 }else{ flg1=5 }
ShowWindow hCombox, flg1
stop
*siyou // Èó»ÈÍÑÀÚ¤êÂؤ¨
if flg2==0{ flg2=1 }else{ flg2=0 }
objenable iCombox,flg2
stop



¤±¤ó

¥ê¥ó¥¯

2013/10/10(Thu) 23:09:48|NO.57563

²Ë¿Í¤µ¤ó¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
¼«Ê¬¤Ê¤ê¤Ë¡¢²òÆÉÃæ¤Ê¤Î¤Ç»þ´Ö¤¬³Ý¤«¤Ã¤Æ¤·¤Þ¤¤¤ªÎ餬ÃÙ¤¯¤Ê¤ê¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡£

¤µ¤«¤µ¤ó¡¢¥¢¥É¥Ð¥¤¥¹¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
­¡¤Ë¤Ä¤¤¤Æ¤Ï¡¢¤¿¤Ö¤ó²Ë¿Í¤µ¤ó¤¬¤ä¤Ã¤Æ¤¤¤ë¤È¤ª¤â¤¤¤Þ¤¹¤Î¤Ç²òÆɤλ²¹Í¤Ë¤·¤Þ¤¹¡£

­¢¤Ë¤Ä¤¤¤Æ¤Ï¡¢¹Í¤¨¤Æ¤¤¤¿¤é°ã¤¦²èÌ̤ǻý¤Áʪ¤ò¥Á¥§¥Ã¥¯¤¹¤ë¤È¤¤¤¦Æ°ºî¤¬¤è¤¤¤Î¤Ç¤Ï
¤È»×¤¨¤Æ¤­¤¿¤Î¤Ç¡¢¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¤¬»²¹Í¤Ë¤Ê¤ë¥µ¥ó¥×¥ë¤ò¶µ¤¨¤Æ¤¤¤¿¤À¤±¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©

¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£



¤µ¤«

¥ê¥ó¥¯

2013/10/12(Sat) 14:11:54|NO.57571

¤³¤ó¤Ê´¶¤¸¤Ç¤¹¤«¡£

pos 150,350
button "»ý¤Áʪ¥ê¥¹¥È",*cls5
stop

*cls5
screen 1 // ¿·¤·¤¤¥¦¥£¥ó¥É¥¦
title "Ç㤤ʪ¥ê¥¹¥È"
button "Ç㤤ʪ",*tojiru

stop

*tojiru
gsel 1,-1 // ¥¦¥£¥ó¥É¥¦Èóɽ¼¨
stop



¤±¤ó

¥ê¥ó¥¯

2013/10/20(Sun) 21:10:15|NO.57701

²òÆɤ˻þ´Ö¤¬³Ý¤«¤ë¤¿¤á¡¢¾¯¤·¤Å¤Ä¿Ê¤á¤è¤¦¤È»×¤¤¤Þ¤¹¡£
¤µ¤«¤µ¤ó¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£Ê̤βèÌ̤˽Ф¹ÊýË¡¤Ï¤Ç¤­¤Þ¤·¤¿¡£

º£¤Ï¡¢²Ë¿Í¤µ¤ó¤Îºî¤Ã¤¿¥¹¥¯¥ê¥×¥È¤ò¼«Ê¬¤Î¤â¤Î¤Ë¤·¤è¤¦¤È¹Í¤¨¤Æ¤¤¤Þ¤¹¤¬¤Ç¤­¤Ê¤¤¤Î¤Ç
¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¤¬¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£

²¼µ­¤Î¥¹¥¯¥ê¥×¥È¤ò¼Â¹Ô¤·¤Æ¡¢¿ÀÆàÀ¤òºÇ½é¤Ë¹ØÆþ¤·»ý¤Áʪ¥ê¥¹¥È¤ËÈ¿±Ç¤µ¤ì¤Æ¤¤¤Þ¤»¤ó¡£

Ç㤤ʪ¤ÇºÇ½é¤Î²èÌ̤ˤâ¤É¤ê¡¡´ä¼ê¤ò¹ØÆþ¤¹¤ë¤È
»ý¤Áʪ¥ê¥¹¥È¤Ë¤Ï¡¢´ä¼ê¸©¡¢¿ÀÆàÀ¤¬¹ØÆþ¤·¤¿¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£
Ĺºê¸©¤âƱÍͤËƱ¤¸¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£

¤É¤¦¤Ë¤«¡¢¿ÀÆàÀ¤òºÇ½é¤Ë¹ØÆþ¤·¤Æ¤â»ý¤Áʪ¥ê¥¹¥È¤ËÈ¿±Ç¤·¤¿¤¤¤Î¤Ç¤¹¤¬¤ï¤«¤ê¤Þ¤»¤ó¡£

¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¤¬¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£
¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£


#module #defcfunc fun_GetKenName int ken_id if kens=0 {//fun_GetKenName¤ÎÅ٤˸©Ì¾Æþ¤ì¤ë¤Î¤Ï̵ÂÌ¤Ê¤Î¤Ç sdim kens; kens(0) = "Ë̳¤Æ»","ÀÄ¿¹¸©","´ä¼ê¸©","µÜ¾ë¸©","½©Åĸ©" kens(5) = "»³·Á¸©","Ê¡Å縩","°ñ¾ë¸©","ÆÊÌÚ¸©","·²Çϸ©" kens(10) = "ºë¶Ì¸©","ÀéÍÕ¸©","ÅìµþÅÔ","¿ÀÆàÀ","¿·³ã¸©" kens(15) = "ÉÙ»³¸©","ÀÐÀ","Ê¡°æ¸©","»³Íü¸©","ĹÌ" kens(20) = "´ôÉ츩","ÀŲ¬¸©","°¦Ãθ©","»°½Å¸©","¼¢²ì¸©" kens(25) = "µþÅÔÉÜ","ÂçºåÉÜ","ʼ¸Ë¸©","ÆàÎɸ©","Ï²λ³¸©" kens(30) = "Ä»¼è¸©","Å纬¸©","²¬»³¸©","¹­Å縩","»³¸ý¸©" kens(35) = "ÆÁÅ縩","¹áÀ","°¦É²¸©","¹âÃθ©","Ê¡²¬¸©" kens(40) = "º´²ì¸©","Ĺºê¸©","·§Ëܸ©","Âçʬ¸©","µÜºê¸©" kens(45) = "¼¯»ùÅ縩","²­Æ츩" } ken_name = kens(ken_id) return ken_name #global onerror *jj ;¥¨¥é¡¼¤¬½Ð¤¿¾ì¹çÈô¤Ö iddat=2,3,7,13,10,6,9,41 kenString="" repeat length(iddat) id=iddat(cnt) kenString+fun_GetKenName(id) + "\n" ken_id(cnt)=id //¸©ID¤ò¸©Ì¾½ç¤ËÊݸ(listbox¤Î½çÈ֤ȸ©ID¤ò¥»¥Ã¥È¤Ë¤¹¤ë) loop *hajime cls 0 onerror *jj ;¥¨¥é¡¼¤¬½Ð¤¿¾ì¹çÈô¤Ö ken_index = 0 listbox ken_index,100,kenString lb_ID = stat hListbox = objinfo(stat, 2) button gosub "¹ØÆþ", *check pos 150,350 button "»ý¤Áʪ¥ê¥¹¥È",*cls5 stop *cls5 cls 0 button "Ç㤤ʪ",*hajime pos 150,50 combox az,100,combdataX : lb_ID = stat pos 150,150 combox bz,100,combdataZ : lb_ID = stat pos 150,250 combox cz,100,combdataA : lb_ID = stat stop *check notesel kenString noteget getlist, ken_index DDD = "¹ØÆþºÑ" if getlist = DDD { goto *check3 } else { dialog getlist + "¤ò¹ØÆþ¤·¤Þ¤·¤¿¡£" } if ken_id(ken_index) < 10 { notesel combdataX noteadd Getlist if ca_flag = 0 { a = 0 ca_flag = 1 } else { objprm lb_ID, combdataX objprm lb_ID, 0 } goto *check7} if ken_id(ken_index) >= 10 & ken_id(ken_index) <= 25{ notesel combdataZ noteadd Getlist if cb_flag = 0 { b = 0 cb_flag = 1 } else { objprm lb_ID, combdataZ objprm lb_ID, 0 } goto *check7} if ken_id(ken_index) > 26{ notesel combdataA noteadd Getlist if cc_flag = 0 { c = 0 cc_flag = 1 } else { objprm lb_ID, combdataA objprm lb_ID, 0 } goto *check7} *check7 ; ¹ØÆþ¤·¤¿¥¢¥¤¥Æ¥à¤Ë°õ¤ò¤Ä¤±¤ë notesel kenString noteadd DDD, ken_index, 1 objprm lb_ID, kenString objprm lb_ID, ken_index return *check3 ; ¥¢¥¤¥Æ¥à¤ÎƬ¤Ë°õ¤¬¤¢¤ì¤Ð½èÍý¤òÃæÃÇ cstr = strmid(getlist, 0, 6) ;strmid¡Êʸ»ú¤Î¼è¤ê½Ð¤·¡Ë,²¿Ê¸»úÌܤ«¤é,²¿Ê¸»ú¡Ê²¿¥Ð¥¤¥È¡Ë if cstr = DDD { dialog DDD + "¤Ç¤¹" } return *jj



²Ë¿Í

¥ê¥ó¥¯

2013/10/20(Sun) 23:03:31|NO.57710

> objprm lb_ID, combdataA
> objprm lb_ID, 0
lb_ID¤Ë¤Ïlistbox¤ÎID¤¬Æþ¤Ã¤Æ¤ë¤Î¤Ë¢¬¤Çlistbox¤Î0¤¬ÁªÂò¤µ¤ì¤Æ("»ý¤Áʪ¥ê¥¹¥È"¤ò²¡¤¹¤Þ¤Çcombox¤¬ºî¤é¤ì¤Æ¤¤¤Ê¤¤)

> ; ¹ØÆþ¤·¤¿¥¢¥¤¥Æ¥à¤Ë°õ¤ò¤Ä¤±¤ë
> notesel kenString
> noteadd DDD, ken_index, 1
¤³¤³¤Îindex¤Ë¤Ï0¤¬Æþ¤Ã¤Æ¤ë

¸åonerror¤Ï»È¤ï¤Ê¤¤Êý¤¬Îɤ¤
»È¤¦¤Ê¤é¥¨¥é¡¼½Ð¤¿»þ¤Ëʬ¤«¤ë¤è¤¦¤Ë¤·¤Ê¤¤¤È¤¤¤±¤Ê¤¤
º£²ó¤Î¾ì¹çcombox¤Îɽ¼¨ÆâÍƤËʸ»úÎó°Ê³°¤ò»ÈÍѤ·¤Æ¥¨¥é¡¼½Ð¤Æ¤ë¤Î¤Ëʬ¤«¤é¤Ê¤¤



¤±¤ó

¥ê¥ó¥¯

2013/11/3(Sun) 17:46:18|NO.57969

²Ë¿Í¤µ¤ó¤ªÊÖ»öÃÙ¤¯¤Ê¤ê¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡£
ÊÖÅú¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
¤Þ¤À¡¢»ä¤Ê¤ê¤ÎÅú¤¨¤¬½Ð¤Ê¤¤¾õÂ֤Ǥ¹¡£
¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¤¬¡¢»ä¤Îºî¤Ã¤¿¥¹¥¯¥ê¥×¥È¤òÍøÍѤ·¤ÆÌÏÈϲòÅú¤ª¤Í¤¬¤¤¤Ç¤­¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©

¸å¡¢¤¤¤Ä¤â²Ë¿Í¤µ¤ó¤Î¹Í¤¨¤¿Åú¤¨¤¬»ä¤Î¹Í¤¨¤Æ¤¤¤ë¤â¤Î¤Ë¶á¤¤¤È»×¤¤
¸Ä¿ÍŪ¤ËÁêÃ̤·¤Æ¤â¤è¤í¤·¤¤¤Ç¤·¤ç¤¦¤«¡©

º¹¤·½Ð¤¬¤Þ¤·¤¤¤è¤¦¤Ç¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¤¬¡¢¸Ä¿ÍŪ¤ËÁêÃ̤˾è¤é¤»¤Æ¤¤¤¿¤À¤­¤¿¤¤¤È»×¤¤¤Þ¤¹¤Î¤Ç¡¢
¤è¤«¤Ã¤¿¤é¡¡e-mail

FFF2000DET@yahoo.co.jp

¤Þ¤Ç¤´Ï¢Íí¤¯¤À¤µ¤¤¡£


°Ê¾å¡¢¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£



²Ë¿Í

¥ê¥ó¥¯

2013/11/3(Sun) 20:43:08|NO.57974

>»ä¤Îºî¤Ã¤¿¥¹¥¯¥ê¥×¥È¤òÍøÍѤ·¤ÆÌÏÈϲòÅú
NO.57701¤Î¤ò¡¢¤¢¤Þ¤êÊѤ¨¤º¤Ë¤ä¤ë¤Ê¤é

onerror *jj ;¥¨¥é¡¼¤¬½Ð¤¿¾ì¹çÈô¤Ö iddat=2,3,7,13,10,6,9,41 kenString="" repeat length(iddat) id=iddat(cnt) kenString+fun_GetKenName(id) + "\n" ken_id(cnt)=id //¸©ID¤ò¸©Ì¾½ç¤ËÊݸ(listbox¤Î½çÈ֤ȸ©ID¤ò¥»¥Ã¥È¤Ë¤¹¤ë) loop combdataX="" combdataZ="" combdataA="" *hajime cls 0 onerror *jj ;¥¨¥é¡¼¤¬½Ð¤¿¾ì¹çÈô¤Ö ken_index = 0 listbox ken_index,100,kenString lb_ID = stat hListbox = objinfo(stat, 2) button gosub "¹ØÆþ", *check pos 150,350 button "»ý¤Áʪ¥ê¥¹¥È",*cls5 gosub *set_combox stop *cls5 cls 0 button "Ç㤤ʪ",*hajime gosub *set_combox stop *set_combox if ca_flag { pos 150,50 combox az,100,combdataX : ca_ID = stat } if cb_flag { pos 150,150 combox bz,100,combdataZ : cb_ID = stat } if cc_flag { pos 150,250 combox cz,100,combdataA : cc_ID = stat } return *check notesel kenString noteget getlist, ken_index DDD = "¹ØÆþºÑ" if getlist = DDD { goto *check3 } else { dialog getlist + "¤ò¹ØÆþ¤·¤Þ¤·¤¿¡£" } if ken_id(ken_index) < 10 { notesel combdataX noteadd Getlist if ca_flag = 0 { a = 0 ca_flag = 1 pos 150,50 combox az,100,combdataX : ca_ID = stat } else { objprm ca_ID, combdataX objprm ca_ID, 0 } goto *check7 } if ken_id(ken_index) >= 10 & ken_id(ken_index) <= 25{ notesel combdataZ noteadd Getlist if cb_flag = 0 { b = 0 cb_flag = 1 pos 150,150 combox bz,100,combdataZ : cb_ID = stat } else { objprm cb_ID, combdataZ objprm cb_ID, 0 } goto *check7 } if ken_id(ken_index) > 26{ notesel combdataA noteadd Getlist if cc_flag = 0 { c = 0 cc_flag = 1 pos 150,250 combox cz,100,combdataA : cc_ID = stat } else { objprm cc_ID, combdataA objprm cc_ID, 0 } goto *check7 } *check7 ; ¹ØÆþ¤·¤¿¥¢¥¤¥Æ¥à¤Ë°õ¤ò¤Ä¤±¤ë notesel kenString noteadd DDD, ken_index, 1 objprm lb_ID, kenString objprm lb_ID, ken_index return *check3 ; ¥¢¥¤¥Æ¥à¤ÎƬ¤Ë°õ¤¬¤¢¤ì¤Ð½èÍý¤òÃæÃÇ cstr = strmid(getlist, 0, 6) ;strmid¡Êʸ»ú¤Î¼è¤ê½Ð¤·¡Ë,²¿Ê¸»úÌܤ«¤é,²¿Ê¸»ú¡Ê²¿¥Ð¥¤¥È¡Ë if cstr = DDD { dialog DDD + "¤Ç¤¹" } return *jj dialog "¥¨¥é¡¼ÈÖ¹æ("+wparam+")\n¥¨¥é¡¼È¯À¸¹ÔÈÖ¹æ("+lparam+")" end

>¸Ä¿ÍŪ¤ËÁêÃ̤·¤Æ¤â¤è¤í¤·¤¤¤Ç¤·¤ç¤¦¤«¡©
¿½¤·Ìõ¤Ê¤¤¤±¤É¥á¡¼¥ë¤Ç¤Î¤ä¤ê¤È¤ê¤Ï¿§¡¹ÌÌÅݤʤΤǡ¦¡¦¡¦
¼«Ê¬¤Î¾ì¹ç¤³¤Î·Ç¼¨ÈĤǼÁÌä¤È¥á¡¼¥ë¤Ç¼ÁÌä¤Î¥ì¥¹¥Ý¥ó¥¹¤ÏÊѤé¤Ê¤¤¤È»×¤¦¡¦¡¦¡¦



¤±¤ó

¥ê¥ó¥¯

2013/11/4(Mon) 21:38:52|NO.57986

²Ë¿Í¤µ¤ó
ÁᮤβóÅú¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£

¤³¤ì¤òÍý²ò¤·¤Æ¼¡¤Î¥¹¥Æ¥Ã¥×¤Ë¿Ê¤ß¤¿¤¤¤È»×¤¤¤Þ¤¹¡£

¸å¡¢¥á¡¼¥ë¤Î·ï¤Ç¤¹¤¬¡¢¼Â¤Ï¤É¤¦¤·¤Æ¤â£È£Ó£Ð¤ÇºîÀ®¤·¤Æ¤ß¤¿¤¤¥²¡¼¥à¤¬¤¢¤ê
¼«Ê¬¤Ç¤ÏÎÏÉÔ­¤Ê¤¿¤á¤´¶¨ÎϤ·¤Æ¤¤¤¿¤À¤­¤¿¤¤»×¤¤¤Çµ­ºÜ¤·¤Þ¤·¤¿¡£

º£¤Ï¡¢±£¤·¤Æ¤ª¤­¤¿¤¤°Æ¤¬¤¢¤ë¤Î¤Ç¥á¡¼¥ë¤Ç¸Ä¿ÍŪ¤ËÏ佤¦¤È¤·¤Þ¤·¤¿¡£

ÅÙ¡¹¤¹¤ß¤Þ¤»¤ó¤¬¡¢¤è¤«¤Ã¤¿¤é¥á¡¼¥ë¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£



²Ë¿Í

¥ê¥ó¥¯

2013/11/4(Mon) 23:28:57|NO.57988

¤³¤¦¤¤¤¦ÊýË¡¤â¤¢¤ë

#module #defcfunc fun_GetKenName int ken_id if kens=0 {//fun_GetKenName¤ÎÅ٤˸©Ì¾Æþ¤ì¤ë¤Î¤Ï̵ÂÌ¤Ê¤Î¤Ç sdim kens; kens(0) = "Ë̳¤Æ»","ÀÄ¿¹¸©","´ä¼ê¸©","µÜ¾ë¸©","½©Åĸ©" kens(5) = "»³·Á¸©","Ê¡Å縩","°ñ¾ë¸©","ÆÊÌÚ¸©","·²Çϸ©" kens(10) = "ºë¶Ì¸©","ÀéÍÕ¸©","ÅìµþÅÔ","¿ÀÆàÀ","¿·³ã¸©" kens(15) = "ÉÙ»³¸©","ÀÐÀ","Ê¡°æ¸©","»³Íü¸©","ĹÌ" kens(20) = "´ôÉ츩","ÀŲ¬¸©","°¦Ãθ©","»°½Å¸©","¼¢²ì¸©" kens(25) = "µþÅÔÉÜ","ÂçºåÉÜ","ʼ¸Ë¸©","ÆàÎɸ©","Ï²λ³¸©" kens(30) = "Ä»¼è¸©","Å纬¸©","²¬»³¸©","¹­Å縩","»³¸ý¸©" kens(35) = "ÆÁÅ縩","¹áÀ","°¦É²¸©","¹âÃθ©","Ê¡²¬¸©" kens(40) = "º´²ì¸©","Ĺºê¸©","·§Ëܸ©","Âçʬ¸©","µÜºê¸©" kens(45) = "¼¯»ùÅ縩","²­Æ츩" //¸©¥¿¥¤¥×¤òÀßÄê repeat 10 //0¡Á9 Ken_type(cnt)=0 loop repeat 16,10 //10¡Á25 Ken_type(cnt)=1 loop repeat 21,26 //26¡Á46 Ken_type(cnt)=2 loop } ken_name = kens(ken_id) return ken_name //¸©ID»ØÄꤷ¤Æ¸©¥¿¥¤¥×¤ò¼èÆÀ #defcfunc fun_GetKenType int ken_id return Ken_type(ken_id) //¸©Ì¾»ØÄꤷ¤Æ¸©ID¤ò¼èÆÀ //¸«¤Ä¤«¤é¤Ê¤±¤ì¤Ð-1 #defcfunc fun_GetKenID str kenname id=-1 repeat length(kens) if kenname=kens(cnt) {id=cnt:break} loop return id #global onerror *jj ;¥¨¥é¡¼¤¬½Ð¤¿¾ì¹çÈô¤Ö iddat=2,3,7,13,10,6,9,41 kenString="" repeat length(iddat) id=iddat(cnt) kenString+fun_GetKenName(id) + "\n" ken_id(cnt)=id //¸©ID¤ò¸©Ì¾½ç¤ËÊݸ(listbox¤Î½çÈ֤ȸ©ID¤ò¥»¥Ã¥È¤Ë¤¹¤ë) loop sdim combdata,64,3 cb_px=150,150,150 //¥¿¥¤¥×ÊÌcomboxɽ¼¨°ÌÃÖ cb_py=50,150,250 dim combox_ID,3 dim comb_index,3 dim combox_flag,3 *hajime cls 0 onerror *jj ;¥¨¥é¡¼¤¬½Ð¤¿¾ì¹çÈô¤Ö ken_index = 0 listbox ken_index,100,kenString lb_ID = stat hListbox = objinfo(stat, 2) button gosub "¹ØÆþ", *check pos 150,350 button "»ý¤Áʪ¥ê¥¹¥È",*cls5 gosub *set_combox stop *cls5 cls 0 button "Ç㤤ʪ",*hajime gosub *set_combox stop *set_combox repeat 3 if combox_flag(cnt) { pos cb_px(cnt),cb_py(cnt) combox comb_index(cnt),100,combdata(cnt) : combox_ID(cnt) = stat } loop return *check notesel kenString noteget getlist, ken_index DDD = "¹ØÆþºÑ" if getlist = DDD { ; ¥¢¥¤¥Æ¥à¤ÎƬ¤Ë°õ¤¬¤¢¤ì¤Ð½èÍý¤òÃæÃÇ cstr = strmid(getlist, 0, 6) ;strmid¡Êʸ»ú¤Î¼è¤ê½Ð¤·¡Ë,²¿Ê¸»úÌܤ«¤é,²¿Ê¸»ú¡Ê²¿¥Ð¥¤¥È¡Ë if cstr = DDD { dialog DDD + "¤Ç¤¹" } return } else { dialog getlist + "¤ò¹ØÆþ¤·¤Þ¤·¤¿¡£" } id=ken_id(ken_index) type=fun_GetKenType(id) notesel combdata(type) noteadd Getlist if combox_flag(type) = 0 { combox_flag(type) = 1 pos cb_px(type),cb_py(type) combox comb_index(type),100,combdata(type) : combox_ID(type) = stat }else { objprm combox_ID(type), combdata(type) objprm combox_ID(type), 0 } ; ¹ØÆþ¤·¤¿¥¢¥¤¥Æ¥à¤Ë°õ¤ò¤Ä¤±¤ë notesel kenString noteadd DDD, ken_index, 1 objprm lb_ID, kenString objprm lb_ID, ken_index return *jj dialog "¥¨¥é¡¼ÈÖ¹æ("+wparam+")\n¥¨¥é¡¼È¯À¸¹ÔÈÖ¹æ("+lparam+")" end
ºÇ½é¤Ë¸©ID¤Ë¥¿¥¤¥×¤òÀßÄꤷ¤Æ¤·¤Þ¤¨¤ÐÈæ³Ó¤·¤Æ¿¶¤êʬ¤±¤ëɬÍפÏ̵¤¯¤Ê¤ë¤Ã¤ÆÊýË¡

>º£¤Ï¡¢±£¤·¤Æ¤ª¤­¤¿¤¤°Æ¤¬¤¢¤ë¤Î¤Ç¥á¡¼¥ë¤Ç¸Ä¿ÍŪ¤ËÏ佤¦¤È¤·¤Þ¤·¤¿¡£
¥²¡¼¥à¥¢¥¤¥Ç¥£¥¢Éôʬ¤Ï¾å¼ê¤¯¤Ü¤«¤·¤Æ¼ÁÌ䤷¤¿¤ê¤Ï½ÐÍè¤ë¤È»×¤¦
¤½¤ì¤È°ì¿Í¤Î¹Í¤¨¤À¤±Ê¹¤¤¤Æ¤ë¤È¡¢¤â¤Ã¤ÈÎɤ¤ÊýË¡¤¬¤¢¤Ã¤Æ¤âÃΤë»ö¤¬Æñ¤·¤¯¤Ê¤ë¤Î¤È
»ä¤¬Åú¤¨¤é¤ì¤Ê¤¤ÌäÂê¤À¤Ã¤¿¾ì¹ç·ë¶É³°¤Ç¼ÁÌ䤹¤ë¤³¤È¤Ë¤Ê¤ê±£¤¹°ÕÌ£¤Ï̵¤¯¤Ê¤ë



check

¥ê¥ó¥¯

2013/11/5(Tue) 20:24:09|NO.57991

°ì¸«ÆÈÁÏŪ¤Ë¸«¤¨¤ë¥²¡¼¥à¤Ç¤â¡¢ËܼÁ¤Ï¾¤Î¥²¡¼¥à¤È¤¢¤Þ¤êÊѤï¤é¤Ê¤¤¡£

Î㤨¤Ð¡¢Æȼ«¤ÎÀïÆ®¥·¥¹¥Æ¥à¤¬Çä¤ê¤Î£Ò£Ð£Ç¤Ç¤â¡¢
¥À¥á¡¼¥¸·×»»¡¢¥­¥ã¥é¥¯¥¿¡¼¤Î¹ÔÆ°¡¢·Ð¸³ÃͤνèÍýÅù¤ÏÉáÄ̤ΣңУǤȤϤ¢¤Þ¤êÊѤï¤é¤º¡¢
¤¢¤ëÆÃÄê¤Î°ìÉôʬ¤À¤±(Î㤨¤Ð¥­¥ã¥é¥¯¥¿¡¼¤¬¹ÔÆ°¤¹¤ë¤Ë¤Ï¥Ð¡¼¤¬Î¯¤Þ¤é¤Ê¤¤¤È¤¤¤±¤Ê¤¤Åù)
ÊѲ½¤µ¤»¤Æ¤¢¤ë¤À¤±¤Ç¡¢´°Á´¤Ê¤ë¥ª¥ê¥¸¥Ê¥ë¤È¤¤¤¦¤Î¤Ï¤â¤¦Â¸ºß¤·¤Ê¤¤¤È»×¤¦¡£

¤¢¤¯¤Þ¤Ç²¶¸Ä¿Í¤Î°Õ¸«¤À¤¬¡£

¼«Ê¬¤Î¥²¡¼¥à¤ÎÆȼ«¤ÎÉôʬ¤ò¤·¤Ã¤«¤êÍý²ò¤·¤Æ¤¤¤ì¤Ð¡¢
¥²¡¼¥à¥·¥¹¥Æ¥à¤Î¤É¤³¤ò¤Ü¤«¤·¤Æ¼ÁÌ䤹¤ì¤Ð¤¤¤¤¤Î¤«¤¬Ê¬¤«¤ë¤Ï¤º¡£



ONION software Copyright 1997-2023(c) All rights reserved.