HSPTV!掲示板

#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

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

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

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