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


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0820
エレキ掃除機エラー4が出る12未解決


エレキ掃除機

リンク

2008/8/20(Wed) 11:25:30|NO.18487

(長文すいません。)
#define Name "blend 2"
title Name sdim kazu,32000 sdim itiran,32000 sdim gyousuu,32000 sdim bmpname,32000 button_1_x=40:button_1_y=30 button_2_x=250:button_2_y=30 gazou_x=127:gazou_y=96 blend_x=40:blend_y=180 blend_ritu=50 blend_kazu=256 kazu="0\n1\n2\n3\n4\n5\n6\n7\n8\n9\n10\n11\n12\n13\n14\n15\n16\n17\n18\n19\n20\n21\n22\n23\n24\n25\n26\n27\n28\n29\n30\n31\n32\n33\n34\n35\n36\n37\n38\n39\n40\n41\n42\n43\n44\n45\n46\n47\n48\n49\n50\n51\n52\n53\n54\n55\n56\n57\n58\n59\n60\n61\n62\n63\n64\n65\n66\n67\n68\n69\n70\n71\n72\n73\n74\n75\n76\n77\n78\n79\n80\n81\n82\n83\n84\n85\n86\n87\n88\n89\n90\n91\n92\n93\n94\n95\n96\n97\n98\n99\n100"#15#VEV("0\n1\n2\n3\n4\n5\n6\n7\n8\n9\n10\n11\n12\n13\n14\n15\n16\n17\n18\n19\n20\n21\n22\n23\n24\n25\n26\n27\n28\n29\n30\n31\n32\n33\n34\n35\n36\n37\n38\n39\n40\n41\n42\n43\n44\n45\n46\n47\n48\n49\n50\n51\n52\n53\n54\n55\n56\n57\n58\n59\n60\n61\n62\n63\n64\n65\n66\n67\n68\n69\n70\n71\n72\n73\n74\n75\n76\n77\n78\n79\n80\n81\n82\n83\n84\n85\n86\n87\n88\n89\n90\n91\n92\n93\n94\n95\n96\n97\n98\n99\n100" screen 0,420,430 cls 3 font "MSゴシック",,1 objmode 1 objsize 50 pos 323,180 color 255,255,255 mes "ブレンド率" pos 323,200 listbox blend_ritu,155,kazu pos 323,373 button "更新(F5)",*blend font "MSゴシック",, pos button_1_x,button_1_y+98:objsize 128,23 button "画像を読み込む(L)",*gazou_1 color 0,0,0 boxf button_1_x,button_1_y,button_1_x+gazou_x,(button_1_y+gazou_y)-1 color 255,255,255 pos button_1_x+13,button_2_y+33 mes "ここには、\n画像が表示されます" pos button_2_x,button_2_y+98:objsize 128,23 button "画像を読み込む(R)",*gazou_2 color 0,0,0 boxf button_2_x,button_2_y,button_2_x+gazou_x,(button_2_y+gazou_y)-1 color 255,255,255 pos button_2_x+13,button_2_y+33 mes "ここには、\n画像が表示されます" color 0,0,0 boxf blend_x,blend_y,blend_x+255,blend_y+191 pos blend_x,blend_y+194:objsize 256,23 button "これを、保存する(S)",*hozon color 255,255,255 pos blend_x+25,blend_y+80 mes "\n画像のプレビューが表示されます" objsel 2 *rupu repeat redraw 2 getkey alt,18 getkey a,'L' getkey b,'R' getkey c,'S' getkey tab,9 getkey f5,116 getkey enter,13 getkey shift,16 stick key,10 if (key=2)|(key=8):objsel -1:if stat!0:objsel 0 if alt=1{ if a=1:hantei=1:break if b=1:hantei=2:break if c=1:hantei=3:break } if f5=1:hantei=4:break if shift=1{ if tab=1{ objsel -1 obj=stat-1 if obj<0:obj=4 objsel obj } }else{ if tab=1{ objsel -1 obj=stat+1 if obj>4:obj=0 objsel obj } } objsel -1 if stat=1:if enter:hantei=4:break if stat=2:if enter:hantei=1:break if stat=3:if enter:hantei=2:break if stat=4:if enter:hantei=3:break redraw 1 await 100:loop if hantei=1:goto *gazou_1 if hantei=2:goto *gazou_2 if hantei=3:goto *hozon if hantei=4:goto *blend goto *rupu *gazou_1 dialog "bmp;*.jpg",16 if stat=0:goto *rupu t=1 buffer 2 picload refstr ax=ginfo_winx:ay=ginfo_winy if y=1:buffer 5,ax,ay:gzoom ax,ay,3,0,0,bx,by gsel 0,1 pos button_1_x,button_1_y gzoom 128,96,2,0,0,ax,ay goto *blend *gazou_2 dialog "bmp;*.jpg",16 if stat=0:goto *rupu y=1 buffer 3 picload refstr bx=ginfo_winx:by=ginfo_winy if t=1:buffer 5,ax,ay:gzoom ax,ay,3,0,0,bx,by gsel 0,1 pos button_2_x,button_2_y gzoom 128,96,3,0,0,bx,by goto *blend *blend if (t=1)&&(y=1):gsel 0,1:else:goto *rupu color boxf blend_x,blend_y,blend_x+255,blend_y+191 pos blend_x+83,blend_y+90 color 255,255,255 mes "Now Loading..." buffer 4,1024,768 gcopy 2,0,0,ax,ay blend_hontou=(blend_ritu*blend_kazu)/100 gmode 3,,,blend_hontou gcopy 5,0,0,ax,ay gsel 0,1 pos blend_x,blend_y gzoom 256,192,4,0,0,ax,ay goto *rupu *hozon if (t=1)&&(y=1){ gsel 4,1 *tuika dialog "bmp",17 if stat=0:goto *rupu name=refstr instr kensaku,name,".bmp" if kensaku=-1:name+=".bmp" dirlist itiran,"*.bmp" notesel itiran gyousuu=int(gyousuu) gyousuu=notemax u=0 repeat gyousuu noteget bmpname,u kekka=instr(name,0,bmpname) if kekka!-1:dialog name+" ファイルは既に存在します。\n上書きしますか?",3,"名前を付けて保存":break u++ loop if stat=7:goto*tuika bmpsave name gsel 0,1 } else { dialog "画像を読み込んでください。",1,Name goto *rupu } goto *rupu
こうすると、error 4 : パラメーター式の記述が無効です (13行目)と出て、kazuに値を代入するところでエラーが出ます。



この記事に返信する


s

リンク

2008/8/20(Wed) 11:47:05|NO.18488

13行目で変な記述があるみたいですが?



かっぺい

リンク

2008/8/20(Wed) 12:18:43|NO.18495

13行目に問題があるみたいですね
ためしにコメントにしてみようと思ったら、解釈できない文字コードと言われました・・
あと、182行目にも問題があるみたいです。
(すみませんこれぐらいしかかけなくて)



かっぺい

リンク

2008/8/20(Wed) 12:21:55|NO.18496

あと、184行目もです。
とりあえず、エラーの出る箇所を抜いたら動作しました。
(ブレンド率のところはむりでした)



f(浮気中)

リンク

2008/8/20(Wed) 12:22:58|NO.18497

変数kazuに大きな文字列を入れようと指定r行だが、

真ん中辺の \n100"・・・・辺りの内容が、意図したとおりになっているのなら、
何をやっているのか説明してみてくれ。



s

リンク

2008/8/20(Wed) 12:24:58|NO.18498

もしかしたら見えてないのかな・・・?

自分のPCで見ると、

"1..100"ここ"1..100"
に文字化けした文字?が入っています。

"1..100" のみに修正したら、次に183行目がエラーが出ます。
変数名がnameなので、文頭のdefineが反応しているようです。



s

リンク

2008/8/20(Wed) 12:28:43|NO.18499

投稿の消し方がわからないw

fさんが仰る通りなので自分の書き込みはなかったことにしてください。



かっぺい

リンク

2008/8/20(Wed) 12:39:34|NO.18500

とりあえず、kazuのところをこうすればよいかと
kazu="0\n1\n2\n3\n4\n5\n6\n7\n8\n9\n10\n11\n12\n13\n14\n15\n16\n17\n18\n19\n20\n21\n22\n23\n24\n25\n26\n27\n28\n29\n30
\n31\n32\n33\n34\n35\n36\n37\n38\n39\n40\n41\n42\n43\n44\n45\n46\n47\n48\n49\n50
\n51\n52\n53\n54\n55\n56\n57\n58\n59\n60\n61\n62\n63\n64\n65\n66\n67\n68\n69\n70
\n71\n72\n73\n74\n75\n76\n77\n78\n79\n80\n81\n82\n83\n84\n85\n86\n87\n88\n89\n90\n91\n92\n93\n94\n95\n96\n97\n98\n99\n100"
(長くてすいません)



やみねこ

リンク

2008/8/20(Wed) 12:56:18|NO.18502

動くところまで行ったら、やりたい事が分かった。

先頭の部分
#define Name blend2
title "Name"
に直してみてください。

後のほうで、変数名に使うときは空白と、”が邪魔をしていて、
タイトルのところでは、”が無いと動作しない…という現象のようでした。

考え方は色々ですが、ややこしい使いかたしてますね… ^^;



かっぺい

リンク

2008/8/20(Wed) 12:59:19|NO.18503

下のほうにあるinstrの使いかたが間違っているみたいです。



s

リンク

2008/8/20(Wed) 19:13:21|NO.18520

なんか色々な解釈が出てきてますが、まとめましょう。

1.このプログラムは2枚の画像を読み込んでブレンド率を指定してやれば
  ブレンドして保存できるソフト
2.エラーが起きてるのは13行目、と183行目以下略

そしてエラーの理由ですが、

13行目:謎な文字コードが指定されている。
    詳しくないのでわからないですが、こちらのPCだと
    「#15#VEV(」という文字列が、二つの文字列の間に挟まれています。

おそらくエレキさんがやろうとしてること:kazu="0\n1\n...100" 現状                 :kazu="0\n1\n...100"#15#VEV("0\n1\n...100"
おそらくやろうとしてること、に差し替えると、次に183行目がエラーになります。
これは言わずもがなですが、文頭のdefineが反応しているため、

#define Name "blend 2" name=refstr → "blend 2"=refstr
となり、文法エラーとなります。
自分なりの解決法としては、

TitleString = "blend 2" title TitleString 〜略〜 dialog "画像を読み込んでください。",1,TitleString
とするやり方です。

13行目は文字か何かだと思うので解釈としては「+」だと思ったのですが、
それだとプログラムが動きませんねw

にしてもこのソフト、色々なところで出回ってそうですが使いやすくていいですね!
シンプルでとてもいいです!



エレキ掃除機

リンク

2008/8/20(Wed) 19:30:47|NO.18523

そうですか。
実は「きょろ」さんが作ったソース付きのプログラムなのですが、
本来の名前は「blend」で、Readmeには転載というところに「メールをくれればOK」となっていたのですが、
メールが送れなくて、現在に至っております。
もともとこれはHSP2のものだったのをソースコンバータで直したものです。
なのでinstrがおかしいのです。



やみねこ

リンク

2008/8/20(Wed) 22:03:18|NO.18549

>エレキ掃除機さん

 ソースコンバーターでしたか、
なんか変わったテクニックを使うなぁと思いました。



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