Ôóíêöèÿ ON TIMER çàÿâëÿåò ïîäïðîãðàììó
Äâà Y =1
×åòûðåÕ=3
×åòûðå Y=1
ØåñòüÕ=Y
ØåñòüY=1
'íàñòðîèòü îáðàáîò÷èêè ñîáûòèé
ON STRIG (0) GOSUB ïåðåêëþ÷èòü íîëü
ON STRIG (2) GOSUB ïåðåêëþ÷èòü äâà
ON STRIG (4) GOSUB ïåðåêëþ÷èòü ÷åòûðå
ON STRIG (6) GOSUB ïåðåêëþ÷èòü øåñòü
'âêëþ÷èòü ïðîâåðêó ñîáûòèé
STRIG (0) ON
STRIG (2) ON
STRIG (4) ON
STRIG (6) ON
'ïîêà êíîïêà íå íàæèìàåòñÿ , îòîáðàæàòü òåêóùèå êîîðäèíà-
òû ðó÷åê óïðàâëåíèÿ
WHILE NOT INSTAT
LOGATE 15,15,0
PRINT STICK (0), STICK (1);
WEND
END 'êîíåö ïðîãðàììû
Ïåðåêëþ÷èòü íîëü:
LOGATE íîëüX,íîëüY
-151 -
PRINT "Êíîïêà 1"
LOGATE 15,15,0
RETURN
Ïåðåêëþ÷èòü äâà:
LOGATE ÄâàÕ, ÄâàY
PRINT "Êíîïêà2"
LOGATE 15,15,0
RETURN
Ïåðåêëþ÷èòü ÷åòûðå:
LOGATE ÷åòûðå Õ, ÷åòûðå Y
PRINT "Êíîïêà 4 "
LOGATE 15,15,0
RETURN
Ïåðåêëþ÷èòü øåñòü:
LOGATE øåñòü Õ, øåñòü Y
PRINT "ÊÍÎÏÊÀ 4"
LOGATE 15,15,0
RETURN
Çàÿâëåíèå ON TIMER
-------------------
Ôóíêöèÿ ON TIMER çàÿâëÿåò ïîäïðîãðàììó îòñëåæèâàíèÿ ñ öåëüþ ïîëó÷åíèÿ
----------------- óïðàâëåíèÿ êàæäûå n ñåêóíä.
Ñèíòàêñèñ ON TIMER(n) GOSUB ìåòêà
----------
Forekc.ru
Ðåôåðàòû, äèïëîìû, êóðñîâûå, âûïóñêíûå è êâàëèôèêàöèîííûå ðàáîòû, äèññåðòàöèè, ó÷åáíèêè, ó÷åáíûå ïîñîáèÿ, ëåêöèè, ìåòîäè÷åñêèå ïîñîáèÿ è ðåêîìåíäàöèè, ïðîãðàììû è êóðñû îáó÷åíèÿ, ïóáëèêàöèè èç ïðîôèëüíûõ èçäàíèé