ForthLogic inst prog H P.1.2 120113.pdf - F&F

Sterowniki programowalne MAX Logic
(OK)
> : powitanie ." hello.wav " PLAY wait DROP ;
(OK)
> : wait_haslo WAITPW powitanie HOLD STOP DROP 6 TONE ;
(OK)
> : haslo ." haslo.wav " PLAY czekac_haslo DROP ;
(OK)
> : menu_glosowe
." +48123456789 " DIAL haslo STOP DROP ;
(OK)
> menu_glosowe
+48123456789 (OK)
>
Za słowem WAITSTR podajemy trzy słowa. Podczas połączenia głosowego podanie wiersza cyfr za pomocą klawiatury
telefonu zostanie zinterpretowane przez forth‐system jako liczba i zostanie ona położona na szczyt stosu
matematycznego, zarazem spowoduje wykonanie pierwszego słowa. Każdą kolejną cyfrę należy wprowadzać wyłącznie po
sygnale [bip]. Przecinek dla liczb zmiennoprzecinkowych wprowadzamy przyciskiem *. Wprowadzanie liczby należy
zakończyć symbolem # (przykład: „Podaj wartość”[bip] 1[bip] 2[bip] 3[bip] *[bip]4[bip] # [123,4]). W
przypadku, kiedy nie zostanie podany żaden sygnał w ciągu 60 sek. zostanie wykonane drugie słowo. W przypadku, kiedy
połączenie zostanie przerwane przez użytkownika zostanie wykonane trzecie słowo. W przypadku załączenia funkcji
NODTMFCOMFIRM liczbę wprowadzamy ciągiem, bez oczekiwania na sygnały potwierdzające.
Wynik wykonania słowa WAITSTR kładzie się na stos jako znaczenie logiczne. Przy czym znaczenie logicznie PRAWDA
oznacza, że proces rejestrowania podanych słów (typu callback) zakończył się i są one gotowe do ewentualnego
wykonania, a FAŁSZ, że zaistniał problem (np.: w danej chwili nie ma żadnego przychodzącego połączenia głosowego).
Przykład prostego menu głosowego z wprowadzeniem wartości (temperatury) jako zmiennej zmiennoprzecinkowej:
> : set_temp FDUP 60.0 F<
IF 1 FVAR! ." ok.wav " PLAY HOLD DROP
ELSE ." wrong.wav " PLAY HOLD DROP
THEN;
(OK)
> : wait_temp WAITSTR set_temp HOLD STOP DROP 11 TONE ;
(OK)
> : powitanie ." demand.wav " PLAY wait_temp DROP ;
(OK)
> : menu_glosowe
." +48123456789 " DIAL powitanie STOP DROP ;
(OK)
> menu_glosowe
+48123456789 (OK)
>
Zdefiniowaliśmy słowo set_temp, które tworzy kopię liczby na stosie matematycznym, porównuje ją z liczbą 60.0
(zdejmując ze stosu matematycznego jedną z kopii). Jeżeli w skutek porównania na stosie danych będzie logiczne
znaczenie PRAWDA, to zmiennej matematycznej numer 1 zostanie nadana wartość temperatury (przy czym z
matematycznego stosu zostanie zdjęta ostatnia kopia), oraz zostanie odtworzony plik "ok.wav", po którym połączenie
zostanie przerwane. W przeciwnym wypadku zostanie odtworzony plik "wrong.wav", po którym połączenie zostanie
przerwane. Następnie zdefiniowaliśmy słowo wait_temp, które pozwala na wprowadzenie liczby za pomocą sygnałów
DTMF z klawiatury telefonu. Po naciśnięciu przycisku # zostanie wykonane słowo set_temp. W przypadku, kiedy nie
zostanie podany żaden sygnał w ciągu 60 sek. sterownik zakończy połączenie. W przypadku, kiedy połączenie zostanie
przerwane przez użytkownika sterownik nie podejmie żadnej akcji. Następnie zdefiniowaliśmy słowo powitanie, które
odtworzy plik „demand.wav”, a następnie wykona słowo wait_temp. Ostatecznie zdefiniowaliśmy główne słowo
menu_glosowe, które wykonuje połączenie głosowe na wskazany numer telefonu i wykonuje słowo powitanie.
Wykonanie głównego słowa w następnej linii rozpoczyna proces inicjacji połączenia i odtworzenia menu głosowego.
‐ 50 ‐