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


HSPTV!掲示板


未解決 解決 停止 削除要請

2014
1129
ポチ尾エディターで実行+コンパイルしたのですがウインドウを移動するとプログラムが反応しなくなります。3解決


ポチ尾

リンク

2014/11/29(Sat) 20:35:03|NO.66238

#pack"keihou.wav"
#packopt name"THMS"
#include "pcbnet2.as"
wd=str(wd)
d=3
p=0
t=0
n=0
x=0
y=0
mmload "keihou.wav",1,1
onexit goto*stp
repeat
*sd
udpsock soc,58497
if stat=0 :goto *st
wait 500
loop
*st
screen 0,1300,730
color 20,174,16:boxf
color 217,182,182:boxf 60,125,125,570
boxf 165,125,230,570
boxf 265,125,355,570
boxf 390,125,480,570
boxf 580,20,670,370
boxf 710,20,790,370
boxf 800,20,880,370
boxf 920,20,1000,370
boxf 1010,20,1090,370
boxf 710,450,1160,530
boxf 710,575,1160,650
font "ms ゴシック",40,1+16
color 0,0,0
pos 70,160:mes "A"
pos 180,160:mes "B"
pos 280,160:mes "C"
pos 410,160:mes "D"
pos 610,110:mes "E"
pos 735,110:mes "F"
pos 825,110:mes "G"
pos 945,110:mes "H"
pos 1045,110:mes "I"
pos 735,470:mes "J"
pos 735,600:mes "K"
*dget

udpget wd,26,soc
if stat=0 :goto *dget
*dget2
dt(n)=peek(wd,n)
n=n+1
if n=23: goto *pr
goto *dget2
*pr
p=(dt(21))*256+(dt(22))
t=0.1175*p-49.2
c1=0 : c2=0 : c3=0
if dt(20)=26 : k="正常":k1="正常"
if dt(20)=2 : k="異常":k1="異常"
if dt(20)=10 : k="異常":k1="正常"
if dt(20)=18 : k="正常":k1="異常"
if t>100 {n=0
goto *dget
}
if dt(11)=6 :x=750 :y=240
if dt(11)=17 : x=0 :y=0
if dt(11)=179 : x=750 :y=365
if dt(11)=190 : x=520 :y=-45
if dt(11)=74 : x=330 :y=0
if dt(11)=10 : x=550 :y=-45
if dt(11)=63 : x=740 :y=-45
*pa
if t>31 :c2=225 :c3=225 :a=1
if t<10 :c1=225 : c2=225 :a=1
if t<31 :a=0
if t=10 :a=0
color 255-c1,255-c2,255-c3
boxf 50+x,220+y,155+x,275+y
color 0,0,0
font "ms ゴシック",18,1+16
pos 50+x,220+y:mes "温度"+strf("%0.1f",t)+"℃":mes"加温機 "+k
mes "警報機 "+k1
if a=0 :mmstop
if a=1 :mmplay 1
n=0
goto *dget
*stp
udpclose soc
if stat!0 : goto *stp
end



この記事に返信する


暇人

リンク

2014/11/29(Sat) 20:53:21|NO.66240

wait、await、stopが実行されてる時だけウィンドウ操作を受け付けている
これが無いとアプリが応答なしになったりするので普通は一定間隔で実行されるようにする



ポチ尾

リンク

2014/11/29(Sat) 20:56:58|NO.66241

参考になります。ためしてみます。



ポチ尾

リンク

2014/11/29(Sat) 21:03:08|NO.66242

速攻解決です!ありがとうございました!!



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