CSI 7040 Series Podręcznik Użytkownika Pobierz pdf (Strona 47)

BB2-7040 User Guide – Rev. 1.2 Page 43

c = c - 48

e = e * 16 + c

next i

unstuff = e

END FUNCTION

open "API" for comm as 1

$api = "Remote," & stuff(201) & ",00:13:A2:00:40:48:5A:2B,Y,IS"

print #1, $api

timeout 10

line input #1, $r

print $r, "\n"

$hv = mid($r,53,4)

print $hv

n = unstuff($hv)

print "\n", n

setreg 4, n/10

end

1 2 ... 42 43 44 45 46 47 48 49 50 51 52 ... 59 60

Komentarze do niniejszej Instrukcji

Brak uwag