HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2011
0919
メロン二回目の保存で消える2解決


メロン

リンク

2011/9/19(Mon) 11:29:29|NO.41503

前にもここで質問させていただいたのですが、
【保存】のボタンを押した後、
一度目はソフトを再起動しても保存されているのですが、
その後、もう一度保存して再起動すると左上のボックスに書いた
文字が消えてしまいます。
なぜこのようなことが起こるのでしょうか?

//------------------------------------ title "視聴カウンター" width 625,400,150,100 font "",20 objmode 0,0 //------------------------------------ sdim N,30,15 ;タイトルボックス dim S,15 ;見た話数 sdim Sa,50,15 ;話数ボックス dim W,15 ;曜日保存 sdim Wa,15 ;曜日読み込み dim T,15 ;時間保存 sdim Ta,15 ;時間読み込み dim M,15 ;分保存 sdim Ma,15 ;分読み込み repeat 15 pos 0,cnt*25 :input N(cnt),200,25 ;タイトルボックス pos 200,cnt*25 :input Sa(cnt),110,25,6 ;話数ボックス objsize 50,25,1 pos 310,cnt*25 :button "UP",*up pos 360,cnt*25 :button "DOWN",*down objsize 45,25,1 pos 410,cnt*25 :combox W(cnt),100,"\n日\n月\n火\n水\n木\n金\n土" pos 455,cnt*25+3 :mes "曜日" pos 495,cnt*25 :combox T(cnt),100,"\n10\n11\n00\n01\n02\n03\n04" pos 540,cnt*25+3 :mes "時" pos 560,cnt*25 :combox M(cnt),100,"\n00\n05\n10\n15\n20\n25\n30\n35\n40\n45\n50\n55" pos 605,cnt*25+3 :mes "分" objprm cnt*7+1,"まだ観てない" loop objsize 100,25,1 pos 0,375 : button "保存する",*save goto *load stop //------------------------------------- *up st=stat ;ボタンIDの取得 S(st/7)++ objprm st-1,""+S(st/7)+"話まで観た" stop *down st=stat ;ボタンIDの取得 S(st/7)-- redraw 2 objprm st-2,""+S(st/7)+"話まで観た" if S(st/7) <= 0{ objprm st-2,"まだ観てない" S(st/7)=0 } redraw 1 stop //------------------------------------- *save sdim data,500 notesel data repeat 15 noteadd ""+N(cnt),-1,0 noteadd ""+S(cnt),-1,0 noteadd ""+W(cnt),-1,0 noteadd ""+T(cnt),-1,0 noteadd ""+M(cnt),-1,0 loop notesave"data.ini" //この下はメッセージ表示// color pos 100,375+3 mes "保存しました" wait 100 color 255,255,255 boxf 100,375,455,400 stop *load sdim data,1000 notesel data exist "data.ini" if strsize<=0{ notesave"data.ini" stop } noteload"data.ini" repeat 15 noteget N,5*cnt : objprm 7*cnt,N noteget Sa(cnt),5*cnt+1 A(cnt)=int(Sa(cnt)) if S(cnt)=0{ Sa(cnt)="まだ観てない" }else{ Sa(cnt)=""+S(cnt)+"話まで観た" } objprm 7*cnt+1,Sa(cnt) noteget Wa,5*cnt+2 : objprm 7*cnt+4,int(Wa) noteget Ta,5*cnt+3 : objprm 7*cnt+5,int(Ta) noteget Ma,5*cnt+4 : objprm 7*cnt+6,int(Ma) loop



この記事に返信する


fortunehill

リンク

2011/9/19(Mon) 11:56:09|NO.41506

/*左上だけならN配列に添え字が無いので読み込み時最後の値になってます*/


noteget N(cnt),5*cnt : objprm 7*cnt,N(cnt)



メロン

リンク

2011/9/19(Mon) 15:05:37|NO.41509

解決しました。
有難うございます。



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