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


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0911
ガリームHSP3では・・・6解決


ガリーム

リンク

2008/9/11(Thu) 18:48:22|NO.19372

はじめまして。初心者の者です。
HSP3では、「○○が実行された時、△△を実行させる」というものが作れますでしょうか?
宜しくお願いします。



この記事に返信する


inovia

リンク

2008/9/11(Thu) 18:59:40|NO.19382

一番簡単なのならこんな感じですね。
以下は電卓があったら、メモ帳が起動するサンプルです。


#include "hspext.as" exec "calc" //電卓を起動 repeat aplsel "電卓",0//電卓を探してみる wait 5 if stat=0:break loop exec "notepad"//見つけたらメモ帳起動 end



ガリーム

リンク

2008/9/11(Thu) 19:36:10|NO.19384

ご返信ありがとうございます。
言葉が足りてませんでした。すみません。
正確には、「○○が実行されいる時、△△を実行させる」というもので
すでに○○が実行されているときにHPSで△△を実行する。
と言いたかったのです・・・。本当にすみません。



テトラヒドロフラン

リンク

2008/9/11(Thu) 19:56:51|NO.19395

ほとんど同じことではありませんか?
inoviaさんのサンプルをじっくり読めば分かるかと思いますよ。
電卓が実行されている時にプログラムを実行すると、メモ帳が起動する。
という流れと解釈したのですが、
それであれば少し変更を加えるだけで、望む通りのプログラムになるかと思います。



Quiet

リンク

2008/9/11(Thu) 20:11:43|NO.19397

>「○○が実行されている時、△△を実行させる」

つまりこの様な事で無いでしょうか?


exec "notepad" objsize 320,120:pos 160,180:button "ペイントも出す",*paint stop *paint exec "mspaint" stop



774

リンク

2008/9/11(Thu) 21:13:50|NO.19398

>「○○が実行されている時、△△を実行させる」
これかい?

//※注意※
//このプログラムは、『実行してもすぐには画面に何も表示されません。』 // //※使用方法※ //電卓を起動すると画面が見えます。 //(新しくまっさらなメモ帳を起動してください。) // //※終了方法※ //電卓を起動している間のみ表示される、左上の画面をクリック #include "hspext.as" //二重起動されていないか確かめる onclick goto*APL_ONCLICK title "" aplsel "TEST",0 if stat=0:end await 1 title "TEST" screen 0,150,60 dialog "OKを押した後、すぐに電卓を起動してください。",1,"注意書き" *APL_OFFSTART gsel 0,-1 *APL_OFFLOOP aplsel "電卓",0 if stat=0:goto *APL_ONSTART wait 5:goto *APL_OFFLOOP *APL_ONSTART //処理開始 sec=0:ref=gettime(6) gsel 0,2 *APL_ONLOOP //電卓が生きているか調査 aplsel "電卓",0:if stat=1:goto *APL_OFFSTART //秒経過の調査 if ref!gettime(6):sec+:ref=gettime(6) redraw 0 color 0,0,0:boxf color 255,255,255:pos 1,1 mes"電卓起動し "+sec+"秒\n この黒い部分を\n クリックで終了" redraw 1 wait 5:goto *APL_ONLOOP *APL_ONCLICK dialog "プログラムを終了します。",2,"終了確認" if stat=7:goto *APL_ONLOOP//終了回避しループに戻る end



ガリーム

リンク

2008/9/11(Thu) 21:17:39|NO.19399

ご返信ありがとうございます。
皆さんのサンプルが非常に理想に近いものですし、意味も理解しました;;
あとは自分で少しずつ変えていけばなんとかなりそうです。
また、何かあったら宜しくお願いします。



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