Енгізу-шыәару командалары

Стандартты формада редактрлеу терезесін анықталәан орында қолдану қолайсыз. Јр алаҫ/айнымалы мјліметі ҝшін арнайы енгізу/редактрлеу командасын қолданады. Сондықтан экранды тазалау командасынан бастап қарастырайық.

• CLEAR

Тҝгел терезе экранында берліген информацияны тазалап курсорды терезе экраныныҫ сол жақ бўрышына орналастырады.

Экран/принетрге мјліметтерді енгізіп-шыәаруды форматтау ҝшін қолдану.

@ <Y,X>

[SAY<ҙрнек1>

[PICTURE<ҙрн C1>] [FUNCTION<Фкод 1>]

[COLOR SCHENE<ҙрн. N1>/ COLOR<тҝсті пар тізімі>]]

GET<айнымалы>

[PICTURE<ҙрн.C2>] [FUNCTION<Фкод 2>]

[DEFAULT<ҙрн.2>] [ENABLE/DISABLE]

[MESSAGE<ҙрн.C3>][[OPEN] WINDOW<терезе>]

[RANGE[<ҙрн. 3>][,<ҙрн. 4>]]

SIZE<ҙрн. N2>,<ҙрн. N3>]

[VALID<ҙрн. L1>/<ҙрн. N4> [ERROR<ҙрн. C4>]]

[WHEN<ҙрн. L2>]

COLOR SCHEME<ҙрн. N5>/COLOR<тҝсті пар тізімі>]]

Мўндаәы Y жјне X – қос сан немесе айнымалы.

@ <Y,X> SAY<ҙрнек1> – <ҙрнек1> позициямен беріледі.

Мысалы:

Х=7

@ 4,8 SAY ‘HOMER-’ + STR(X,1) && HOMER -7

@ Y,X GET<айнымалы/ҙріс> – берілген позицияда айнымалыны шыәарады.

DEFAULT<ҙрн2> – мјліметтер базасыныҫ ҙрісіне јсер етпей, айнымалымен жўмыс жасауәа мҝмкіндік беретін опция.

ENABLE/DISABLE – GET ҙрісіне байланысты тиым салады / рўқста береді.

MESSAGE<ҙрн. C3> – мјліметтер ҙрісі ҝшін тҝсініктеме хабарын береді.

RANGE<ҙрн. 3>,<ҙрн. 4> – Бўл команда элементі енгізу диапазонында енгізу мҙлшеріне контроль ўйымдастырады.

SIZE<ҙрн. N2>,<ҙрн. N3> – облысты анықтайды <ҙрн. N2> жол саны,<ҙрн. N3> баәан саны.

Мысалы:

F=’Петропавловский А.’ Фамилия: Петроп

@ 2,4 SAY ’Фамилия:’ GET f SIZE 3,6 авловс

READ кий А.

-------------------------------- kadr.fmt форматты файлы --------------------------------------

@ 4,30 SAY ’Данные о сотруднике’

@ 5,9 TO 15,70 DOUBL

@ 5,51 SAY’сегодня’+DTOC(DATE())+’’

@ 6,18 SAY’Фамилия, инициалы:’ GET fam;

MESSAGE ’Ввод фамилии прописными буквами’

@ 7,20 SAY ’Дата рождения (день.месяц.год):’;

GET dtr RANGE DATE() – 80*365, DATE -16*365

@ 8,11 SAY ’Табельный номер:’ GET tab

@ 8,33 SAY ‘Количество детей’ GET det

@ 8,54 SAY ‘Пол (М или Ж)’ GET pol FUNCTION ‘М М,Ж’;

MESSAGE ‘Выбор’

Циклдарды ўйымдастыру

FoxPro-да программалық циклды ўйымдастырудыҫ дамыәан тјсілі шартты цикл жјне параметрлі цикл классификациясы болып есеп қойылады.

Шартты цикл

Аяқталуы алдын-ала белгілі боләандаәы шарттыҫ орындалу конструкциясы.

DO WHILE <шарт>

<командалар>

ENDDO

<Шарт> ақиқат боләанәа дейін орындала береді. DO WHILE жјне ENDDO арасында аяқталәанша команда. Егер жаләан болса келесі команданыҫ ENDDO қабылдайды.

Мысалы:

Қосындысы 1000-нан асқанәа дейін S айнымалысын X санәа қосылуын клавиатурадан енгізіҫіз.

S=0

DO WHILE S<=1000

INPUT ‘ВВЕДИТЕ Х’ TO X

S=S+X

ENDDO

FoxPro-да “белгі” ўәымы жоқ, программаныҫ басқа орынәа ҙту табиәи жаәдайы жоқ. Кейбір қиыншылықтарды жеҫуге қўрылады, қажетті қолданылатын команда.

Келесі EXIT ENDDO-әа беретін басқару командасы.

Қарама-қарсы жаәдайда цикл командасыныҫ басына баруәа басқарады.

Бўл керек LOOP бірнеше команданы орындаудыҫ қашу қажеттілігі END фразасынан туады жјне келесі цикләа ҙтеді.

Мысалы: Дўрыс сандардыҫ қосындысы, егер X=0 кездессе, қосу мҝлдем тоқтатады.

S=0

DO WHILE S<1000

INPUT ‘ВВЕДИТЕ Х’ TO X

IF X<0

LOOP

ENDIF

IF X=0

EXIT

ENDIF

S=S+X

ENDDO