>1ms間のマウスの移動距離を加算すればいいのではないか？
>と思ったのですが、どうしても不自然になります。
　私ならマウス座標の取得は１個所にして前回と今回の差を
座標に加えますが、Revyさんの処理でもそれほど不自然には
感じません。他の処理がまずいのでは？

>await 1は1msだと書いていましたが、
>明らかにそうではないんですよね
　Windowsの時間計測誤差は数十ミリ秒程度です。

	repeat
		stick key,256
		if key = 256 {
			if f {
				f=0
				ox=mousex
				oy=mousey
				px=ox
				py=oy
			} else {
				mx = mousex
				my = mousey
				await 1
				redraw 0
				color 255,255,255
				line px,py,ox,oy
				px += (mousex-mx)
				py += (mousey-my)
				color
				line px,py,ox,oy
				redraw
			}
		} else {
			wait 1
			f=1
		}
	loop

> >しかし８を足してもメインウィンドウがなければタスクバーに表示されてしまいます。
> 　私の環境ではそんなことはないようですが……

そうですか。
環境によっても違うんですね。
ありがとうございました。

　ですよね。
私は if () {}が普通なんですけどHSP使いの方は
if () :(マルチステートメント)が多いので
そこにマクロ(複雑な)が入って条件が真でもないのに
:以降が実行されるのに苦しんだんでもので・・・。

>しかし８を足してもメインウィンドウがなければタスクバーに表示されてしまいます。
　私の環境ではそんなことはないようですが……

	screen 0,640,480,8

　こんな気持ちの悪いスクリプトを書く方が悪いと思う。

if (0): if (1) { mes "?" } mes "::"

20100304さん有難うございます<(_ _)>

大分レベル高いですね…このサンプル；
頑張って理解して参考にさせて頂きます！

/*
　ご参考：相手からメッセージを送って終了させる(Mutexでも同じ)
*/

#include "user32.as"

repeat
      FindWindowExA  0,ii,"hspwnd0",0 :ii = stat
  if (ii == 0)    {break}
      GetProp ii,"回数"               :jj = stat
  if (jj != 0) and (ii != hwnd) {nn++ }
      await
      kk = ii
loop

      mes strf("回数 = %2d 回目 [Handle] = %d",nn+1,hwnd)
  if (nn <  1) {SetProp hwnd,"回数",1} else {sendmsg kk,$8000,hwnd}

  oncmd gosub *Close,$8000 ;WM_APP

stop

*Close : dialog wparam :sendmsg wparam,$10 :return ;WM_CLOSE

もう一つ聞きたい事が有りまして
自分で調べたんですが、見つけきらず…質問します。

Mutexを使った二重起動防止の場合で、一つ目のウィンドウをアクティブにする方法って有るんでしょうか？

お二人ともご回答ありがとうございます！
サンプルも有りがたいです。

参考にさせて頂きます<(_ _)>

/*
　Bsaveのオプションでファイルポインターを調整すれば
Appendと同等に扱えると思う。
*/

ss = "A\nB\nC\n"
bsave "test",ss,strlen(ss)

exist "test"
ii = strsize
ss = "1\n2\n3\n"
bsave "test",ss,strlen(ss),ii

bload "test",ss
mes ss

/*
　SCREEN１にPropを設定して試して見た。

*/

#include "user32.as"
screen 0
screen 1
repeat
      FindWindowExA  0,ii,"hspwnd0",0 :ii = stat
  if (ii == 0)    {break}
      GetProp ii,"回数"               :jj = stat
  if (jj != 0) and (ii != hwnd) {nn++ }
      await
loop

      mes strf("回数 = %2d 回目",nn+1)
  if (nn <  2) {SetProp hwnd,"回数",1} else {dialog "強制終了" :end}


onexit  *Close
stop
*close :RemoveProp hwnd,"回数" :end

/*
　ご参考：２度目の起動は仕方ないとして抽出した
ｈｗｎｄからクラス名でＨＳＰを特定しＰｒｏｐの設定・取得でプログラム
を制御する方法も便利かも。（起動個数の制御とか）
*/
	
#include "user32.as"
ss = ""
GetClassName hwnd,varptr(ss),256
mes ss

SetProp hwnd,"起動回数",123
Getprop hwnd,"起動回数"
mes stat

RemoveProp hwnd,"起動回数"
Getprop hwnd,"起動回数"
mes stat

手抜きですがこんな感じで。タイトルバーの文字で同じもの
があったら終了させます。

>二つ目すら起動させないで
これは無理です。非表示ウィンドウで実行ファイル自動作成
しとけば、それっぽく見えます。

/////
#packopt hide 1//非表示ウィンドウ

#include "user32.as"

FindWindow 0, "hogehoge"
if stat != 0 {// 同じタイトルがあるならアクティブして終了
SetForegroundWindow stat
end
}

title "hogehoge"
mes "１つめ"

gsel , 1
///

どういうコードを組んだのか具体的に分からんですが、

扱う量が多いと、バッファ確保を明示的にしてなかったり、
noteaddとか＋結合はパフォーマンスに響きます。

ぷまさんのカキコを参照。
http://fs-cgi-basic01.freespace.jp/~hsp/ver3/hsp3.cgi?print+200601/06020038.txt

/*先頭5数字とスペースをキーとしてＤａｔ１の不足キーを補うだけなら
　こんな感じかしら？（キーでソートされてる前提でポインター補正した）
　注意：検索終了はＤａｔ１の文字数-5（キー数）
*/
 dat1 = "00001 A\n00003 C\n00004 D\n"
 dat2 = "00001 C\n00002 B\n00005 E\n"
 dat3 = ""
 ii   =  0
 jj   =  0
 kk   =  0
 ll   =  0
 mm   =  0
 repeat
                       ii = instr(Dat1,kk,strf("%05d ",cnt))
        if (ii != -1) {kk+=ii :mm = instr(Dat1,kk,"\n")
                             Dat3+= strmid(Dat1,kk,mm)+"\n" :kk+=mm}
        if (ii == -1) {jj = instr(Dat2,ll,strf("%05d ",cnt))
                   if (jj != -1) {ll+=jj :mm = instr(Dat2,ll,"\n")
                                        Dat3+= strmid(Dat2,jj,mm)+"\n" :ll+=mm}}
       
        if (kk >= strlen(Dat1)-5){break}
 loop
 mes Dat3

/*面白そうなのでやってみたがＦＸ向きなのかも知れない
　基準単価の変動とかダウ先・先物・為替・とかやりだすときりが無い
　Ｅｘｃｅｌで出来るとも思うが
　簡単なアルゴリズム売買でも利益が出せるのかも知れない・・・
*/
 kk = 100,101,70,102,110,120,109,102,99,91,90,85,90,105,130,132,135,90,100
 bb = 100.0
 nn = 1
 ss =  bb
 tt = 0.0
 uu =  bb*0.05
 dd = -bb*0.05
 cc = -bb*0.3
 ff = 0.0
 oo = 0
 mm = ""
 font msmincho,14
 mes strf("  利確 = %5f 買増 = %5f 損切 = %5f\n",uu,dd,cc)
 mes strf("%5s %5s %5s %5s %5s %5s %5s","  基準","枚数","金額","利益","指数","株価","回数")
 repeat length(kk)
     ff = (kk(cnt)-bb)
     if (ff ==  0) {} else {                     :color 0
     if (ff <= dd) {
         if (ff <= cc) {tt += (nn*kk(cnt))-(ss)  :nn = 0 :ss = 0 :oo++
                                                 :color 255,,255    :mm = "損切"}
       else            {ss += kk(cnt) :nn++      :color 0,,255   :oo++}}
     if (ff >= uu) {
         if (nn ==  0) {                         :color 128,128,128 :mm = "機会"}
         if (nn !=  0) {tt += (nn*kk(cnt))-(ss)  :nn = 0 :ss = 0 :color 255 :oo++}}
     mes strf("%5d %5d %5d %5d %5d %5d %5d %3s",bb,nn,ss,tt,ff,kk(cnt),oo,mm)
     mm = ""
 loop

> 変数dataがnoteselとnotegetで被ってるのが原因です。
なるほど、notegetのp1に読み出し先の変数名と書いてあったので、
てっきり呼び出すのに変数指定が必要なのかと勘違いしてました。
解決しました、ありがとうございます。

変数dataがnoteselとnotegetで被ってるのが原因です。

dim x,2,2
x(0,0)=1,2
x(0,1)=3,4

mes x(0,0)
mes x(1,0)
mes x(0,1)
mes x(1,1)

dim y,2,2
memcpy y,x,(2*2*4);次元ｘ次元ｘ4Byte

mes y(0,0)
mes y(1,0)
mes y(0,1)
mes y(1,1)

”誰かが作った”の時点でアウトです。
直接作者に連絡して下さい、連絡先が判らないとはいいませんよね。

解決しました。
ありがとうございます。

おっと、解決済みですかい （＾＾;

>「マルチポスト」
Google検索してください

>「HSP input パスワード」
Google検索してください

ありがとうございます！何とかうまくいきそうです！

>・最初の問題文と回答が表示されたまま次の問題に移ってしまう
clsで消しましょう

>・このままだと常に同じところに正解があることになるので、問題ごとに正解の位置を変えたい
rndとposを使います。

>hspを使い答1の位置をランダムにすると解釈しているのですが、
>だいたいそんな感じの解釈で良いのでしょうか？txtに問答以外に
>記述するものはありませんよね？
　そうであっていけない理由はありませんが、
そうでなければならない理由もありません。
あなたが決めることですし、足りない情報があれば、
作っていく内に気がつくでしょう。

　この構造ではrepeatとloopは不要です。
また、stopの後にラベル定義以外の命令を書いても無意味です。

　「強制改行」にするか、適当に改行を入れてください。

Kpan 様

早速のご教授、ありがとうございます。
HSPの整数型の限界だったのですね。。。

提示頂いた掲示板の情報で、ファイルサイズを取得する
ことも出来ました。本当に感謝です。