VPF::Помогие дать комментарии к программе

Anastasiya1692

Дата 26.3.2010, 17:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 26.3.2010

Репутация: нет
Всего: нет

Доброго времени суток!!! Помогите пожалуйста с комментариями (дать к каждой строке). Программа написана в FoxPro 2.0
Заранее всем спасибо!

Код


*prog pechat
set talk on
set date germ
use spisok
inde on nom to i1
clea
set device to file pech.txt
set print to pech.txt
lst=1
do shap
strl=4
do while ! eof()
@ prow()+1,0 say nom
@ prow(),pcol() say imja
@ prow(), pcol() say otch
@ prow(),pcol() say god_r
strl=strl+l
if strl>65
eject
lst=lst+l
do shap
strl=4
endif
skip
enddo
@prow()+1,0 say' '
return
Procedure Shap
@prow()+1,20 say 'parikmaherskie'
@prow()+1,60 say 'list'+str(lst,3)
@prow()+1,0 say 'nomer nazwanie adress telefon'
@peow()+1,0 say replicate(' ',80)
return

Данкинг

Дата 26.3.2010, 17:39 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130

Комментирую те, которые знаю:

Код


set talk on&&включаем вывод системных сообщений
set date germ&&формат даты - ДД.ММ.ГГГГ
use spisok&&открывает таблицу spisok
inde on nom to i1&&индексируем по полю nom
clea&&очистка экрана (видимо)
set device to file pech.txt&&ставим устройство вывода принтер
set print to pech.txt
lst=1
do shap&&запускаем процедуру shap
strl=4
do while ! eof()&&цикл до тех пор, пока не конец файла
@ prow()+1,0 say nom&&выводим на печать в ряд по умолчанию, колонку 0 значение переменной nom
@ prow(),pcol() say imja&&аналогично
@ prow(), pcol() say otch
@ prow(),pcol() say god_r
strl=strl+l
if strl>65
eject
lst=lst+l
do shap
strl=4
endif
skip
enddo
@prow()+1,0 say' '
return&&возврат из процедуры
Procedure Shap
@prow()+1,20 say 'parikmaherskie'
@prow()+1,60 say 'list'+str(lst,3)
@prow()+1,0 say 'nomer nazwanie adress telefon'
@peow()+1,0 say replicate(' ',80)
return

--------------------

There's nothing left but silent epitaphs.

Данкинг

Дата 14.6.2010, 01:31 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 7
Всего: 130

Н-да, а сказать "спасибо" ой как трудно... smile

--------------------

There's nothing left but silent epitaphs.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Foxpro/Clipper/Dbase \| Следующая тема »