ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите, пожалуйста, разобраться с примером из книги Попова
25 сообщений из 81, страница 1 из 4
  1  все
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33784786
parenyok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
parenyok
Участник
Привет всем! Люди добрые! Помогите, пожалуйста! Делаю курсовую по FoxPro 2.6 на основе примера про гостиницу из книги А. А. Попова "Создание приложений для FoxPro 2.5/2.6 в DOS и Windows", который рассматривается со страницы 453. Книгу я скачал из Инета, но там оказалось очень много синтаксических ошибок из-за ошибок сканера. Потом соовсем недавно удалось взять эту книгу в читальном зале политеха под залог. Дописав недостающие моменты и исправив ошибки сканера, у меня появилась синтаксическая ошибка на несколько строк. А теперь подробнее. Задание и требования к курсовой:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Требования к курсовым работам
Независимо от конкретной проблемы, можно выделить некоторые формальные требования, на которых защищается квалификация разработчика.
 1 .	Устойчивость программы. Программа не должна терять работоспособности ни при каких, даже некорректных действиях пользователя. Всякие действия, грозящие потерей информации, выполняются только после повторного подтверждения. Вводимая информация там, где это возможно, подвергается логическому контролю.
 2 .	Обеспечение целостности баз данных. При любых действиях пользователя базы не должны терять целостности (некорректность индексов, потеря ссылок в связях после удаления – добавления записей и т.д.).
 3 .	Функциональная полнота. Должны быть реализованы все потребности пользователя.
 4 .	Терминологическая среда и интерфейс. В диалоговых средствах используются только термины, понятные пользователю, и не используются термины разработчика («запись», «индексация» и т.д.). Появление служебных англоязычных сообщений СУБД недопустимо. Язык диалога – с соблюдением норм вежливости, цветовая гамма – по общепринятым рекомендациям.
 5 .	Использование клавиатуры. На любом этапе нажатие любой клавиши (особенно функциональных) должно игнорироваться или вызывать предусмотренные действия (описанные в средствах помощи). Привязка действий к клавишам должна быть общепринятой: F1 – помощь; Enter – согласие, завершение ввода; Esc – отказ, возврат к предыдущему узлу ветви алгоритма (с восстановлением экранной формы); Tab – переход к следующему полю, окну и т.д.; Shift-Tab – возврат к предыдущему полю и т.д.
 6 .	Средства помощи. В любой момент по нажатии клавиши F1 должен выдаваться текст помощи.
 7 .	Входные и выходные документы. Экранные формы для ввода и корректировки должны быть максимально «похожими» на привычные пользователю документы; результаты работы не только отображаются на экране, но и выводятся в текстовой файл в привычной форме с возможностью корректировки и распечатки. 
 8 .	Средства документации. Программы снабжаются документацией в виде отчета (требования к оформлению отчета см. в файле Report_kurs.doc).
Программный продукт должен обеспечивать выполнение следующих операций над базами. 
 1 .	Должно быть несколько связанных баз данных с использованием (по необходимости) связей «один к одному», «один ко многим».
 2 .	Для облегчения просмотра и поиска используется упорядоченность с помощью индексации или (в крайнем случаи) сортировки. 
 3 .	Вся информация поддается просмотру и редактированию. 
Информация, поддающаяся стандартизации, хранится в отдельных базах-справочниках, также поддающихся корректировке (с соблюдением целостности).
Задание
Код: plaintext
Администратор гостиницы. Список номеров: класс, число мест. Список гостей: паспортные данные, даты приезда и отъезда, номер. Поселение гостей: выбор подходящего номера (при наличии свободных мест), регистрация, оформление квитанции. Отъезд: выбор всех постояльцев, отъезжающих сегодня, освобождение места или оформление задержки с выпиской дополнительной квитанции. Возможность досрочного отъезда с перерасчетом. Поиск гостя по произвольному признаку.
А вот пример из книги, который я доводил до ума
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
SET TALK OFF 
SET DATE GERMAN 
ON KEY LABEL F10 ACTIVATE WINDOW F10 && Вызов окна баэы 
ON KEY LABEL F1 ACTIVATE WIND el && Вьиэов окна первого этажа 
ON KEY LABEL F2 ACTIVATE WIND e2 && Вызов окна второго этажа 
USE gost INDEX gost 
r=RECNO() 
DEFINE WINDOW gost FROM  0 , 0  TO  8 , 62 ; 
       TITLE 'F10 Номера' && Окно-список номеров 
DEFINE WINDOW el FROM  10 , 16  TO  19 , 42 ; 
       TITLE 'Fl Этаж 1' COLOR n/gb && Окно первого этажа 
DEFINE WINDOW e2 FROM  9 , 4  TO  18 , 30 ; 
       TITLE 'F2 Этаж 2' COLOR n/gb && Окно второго этажа 
BROWSE TITLE 'F10      Номера    Сегодня:'+DTOC(DATE()); 
FIEL d=IIF(DATE()>opl.AND.!EMPTY(fam),'Долг','') :h='Долг',; 
     r=IIF(r=RECNO(),'>',' ') :h='',; 
     mes :h='Место' :p='9999',; 
     fam :h='Фамилия' : 14 ,; 
     pol :h='Пол'; 
         :v=(pol='M'.ОR.ро1='Ж').AND.pl(LEFT(mes, 3 ),pol); 
         :e='Только М или Ж',; 
     pri :h='Прибытие',; 
     otb :h='Отбытие',;
     opl :h='Оплачено';
    COLOR SCHEME  10  WINDOW gost NOWAIT WHEN ttt()
ACTIVATE WINDOW e1 && Открытие окна первого этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-101----102----103---104--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-105----106--      --107--|'
@  2 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('1011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('1012')
@  1 , 4  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALID ms('1013')
         .................
ACTIVATE WINDOW e2   &&Открытие окна второго этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-201----202----203---204--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-205----206--      --207--|'
@  2 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('2011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('2012')
         .................
READ CYCLE 
DEACTIVATE WINDOW el,e2,F10 
RELEASE WINDOWS el,e2,F10 
ON KEY 

FUNCTION ttt &&-----------ФУЯКЦИЯ обновления курсора 
r=RECNO() 
SHOW WINDOW F10 REFRESH 
RETURN 
FUNCTION ms &&--0тслеживание в окне GOST записи с данными о 
&& человеке, занимающем место, где находится курсор в плане этажа 
PARAMETERS.m 
SEEK m && Поиск в BROWSE-окне выбранного на плане места 
r=RECNO() 
SHOW WINDOW F10 REFRESH 
RETURN 

FUNCTION pl &&-----Функция предупреждений (Мужчина/Женщина) 
PARAMETERS m,p 
nr=KECNO() && Запоминается номер текущей записи 
           && Поиск непустого места в той же комнате, где проживает 
           && человек с другим аначением поля POL 
LOCATE FOR mee=m.AND.!EMPTY(pol).AND.pol#p 
IF FOUND() && Если поиск удачный, выдается предупреждение 
   WAIT 'В комнате живет '+IIF(pol='M','Мужчина','Женщина'); 
         WINDOW NOWAIT 
   GO nr && Возврат к исходной записи 
ENDIF 
RETURN
Ошибка (синтаксическая ошибка) в строках
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
BROWSE TITLE 'F10      Номера    Сегодня:'+DTOC(DATE()); 
FIEL d=IIF(DATE()>opl.AND.!EMPTY(fam),'Долг','') :h='Долг',; 
     r=IIF(r=RECNO(),'>',' ') :h='',; 
     mes :h='Место' :p='9999',; 
     fam :h='Фамилия' : 14 ,; 
     pol :h='Пол'; 
         :v=(pol='M'.ОR.ро1='Ж').AND.pl(LEFT(mes, 3 ),pol); 
         :e='Только М или Ж',; 
     pri :h='Прибытие',; 
     otb :h='Отбытие',;
     opl :h='Оплачено';
    COLOR SCHEME  10  WINDOW gost NOWAIT WHEN ttt()
Проверяю по книге - вроде всё так. А ошибка есть, а где непонятно... Да, кстати, к этой программе нужны ещё дополнительные файлы, поэтому в архиве всё, что нужно. Прошу Вас, помогите мне довести до ума пример и на его основе сделать курсовую
...
Рейтинг: 0 / 0
10.06.2006, 09:06
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33784789
parenyok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
parenyok
Участник
Ой! Кажется файл не получилось присоединить. Кто знает как это делается?
...
Рейтинг: 0 / 0
10.06.2006, 09:13
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33784802
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
piva
Участник
в .OR. была русская буква О
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
BROWSE TITLE 'F10      Номера    Сегодня:'+DTOC(DATE()); 
FIEL d=IIF(DATE()>opl.AND.!EMPTY(fam),'Долг','') :h='Долг',; 
     r=IIF(r=RECNO(),'>',' ') :h='',; 
     mes :h='Место' :p='9999',; 
     fam :h='Фамилия' : 14 ,; 
     pol :h='Пол'; 
         :v=(pol='M' .OR. роl='Ж') .AND. pl(LEFT(mes, 3 ),pol) ; 
         :e='Только М или Ж',; 
     pri :h='Прибытие',; 
     otb :h='Отбытие',;
     opl :h='Оплачено';
    COLOR SCHEME  10  WINDOW gost NOWAIT WHEN ttt()
...
Рейтинг: 0 / 0
10.06.2006, 09:42
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33784980
parenyok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
parenyok
Участник
Спасибо! Но ошибка всё равно есть. Давай я тебе на мыло сброшу архив с программой и со всем остальным. Какое у тебя мыло?
...
Рейтинг: 0 / 0
10.06.2006, 16:32
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33785434
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Слушай, ну пройдись по каждому символу. Синтаксическая ошибка - это и есть синтаксическая ошибка. Где-то, какой-то символ неправильно написал. У тебя в слове из 3 букв пять ошибок

:v=(pol='M'.ОR.ро1='Ж').AND.pl(LEFT(mes,3),pol);

Вместо латинской буквы "O" в слове "OR" - русская
Вместо латинской буквы "L" во втором "pol" - цифра 1

Идем в функцию PL()

FUNCTION pl &&-----Функция предупреждений (Мужчина/Женщина)
PARAMETERS m,p
nr=KECNO() && Запоминается номер текущей записи

Вместо латинской буквы "R" в функции RECNO() стоит русская "К"

Наверняка еще полно подобных же ляпов.

Только не надо мне слать свой проект! Разбор синтаксических ошибок - это твоя работа. Не можешь "проглотить" все сразу - копируй отдельный фрагменты и компилируй по частям.
...
Рейтинг: 0 / 0
11.06.2006, 15:38
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33785819
parenyok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
parenyok
Участник
Ах! Забыл написать. Ошибку я исправил ещё вчера. Просто переписал заново этот отрывок из книги. Теперь проблема заключается в следующем. Не могу понять как искать посетителей по признакам. Кроме того почему-то не открывается окно первого этажа. Вот программа:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
SET TALK OFF 
SET DATE GERMAN 
ON KEY LABEL F10 ACTIVATE WINDOW F10 && Вызов окна баэы 
ON KEY LABEL F1 ACTIVATE WIND el && Вьиэов окна первого этажа 
ON KEY LABEL F2 ACTIVATE WIND e2 && Вызов окна второго этажа 
USE gost INDEX gost 
r=RECNO() 
DEFINE WINDOW gost FROM  0 , 0  TO  8 , 62 ; 
       TITLE 'F10 Номера' && Окно-список номеров 
DEFINE WINDOW el FROM  10 , 16  TO  19 , 42 ; 
       TITLE 'Fl Этаж 1' COLOR n/gb && Окно первого этажа 
DEFINE WINDOW e2 FROM  9 , 4  TO  18 , 30 ; 
       TITLE 'F2 Этаж 2' COLOR n/gb && Окно второго этажа 
BROWSE TITLE 'F10      Номера    Сегодня:'+DTOC(DATE());
FIEL d=IIF(DATE()>opl.AND.!EMPTY(fam),'Долг','') :h='Долг',;
     r=IIF(r=RECNO(),'>',' ') :h='',;
     mes :h='Место' :p='9999',;
     fam :h='Фамилия' : 14 ,;
     pol :h='Пол';
         :V=(pol='М'.OR.pol='Ж').AND.pl(LEFT(mes, 3 ),pol);
         :e='Только М или Ж',;
     pri :h='Прибытие',;
     otb :h='Отбытие',;
     opl :h='Оплачено';
    COLOR SCHEME  10  WINDOW gost NOWAIT WHEN ttt()
ACTIVATE WINDOW e1                           && Открытие окна первого этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-101----102----103---104--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-105----106--      --107--|'
@  6 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('1011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('1012')
@  1 , 4  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALID ms('1013')
         .................
ACTIVATE WINDOW e2   &&Открытие окна второго этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-201----202----203---204--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-205----206--      --207--|'
@  6 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('2011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('2012')
         .................
READ CYCLE 
DEACTIVATE WINDOW el,e2,F10 
RELEASE WINDOWS el,e2,F10 
ON KEY 

FUNCTION ttt &&-----------ФУЯКЦИЯ обновления курсора 
r=RECNO() 
SHOW WINDOW F10 REFRESH 
RETURN 
FUNCTION ms &&--0тслеживание в окне GOST записи с данными о 
&& человеке, занимающем место, где находится курсор в плане этажа 
PARAMETERS.m 
SEEK m && Поиск в BROWSE-окне выбранного на плане места 
r=RECNO() 
SHOW WINDOW F10 REFRESH 
RETURN 

FUNCTION pl &&-----Функция предупреждений (Мужчина/Женщина) 
PARAMETERS m,p 
nr=KECNO() && Запоминается номер текущей записи 
           && Поиск непустого места в той же комнате, где проживает 
           && человек с другим аначением поля POL 
LOCATE FOR mee=m.AND.!EMPTY(pol).AND.pol#p 
IF FOUND() && Если поиск удачный, выдается предупреждение 
   WAIT 'В комнате живет '+IIF(pol='M','Мужчина','Женщина'); 
         WINDOW NOWAIT 
   GO nr && Возврат к исходной записи 
ENDIF 
RETURN
Давай я тебе пришлю архив со всеми файлами и ты поможешь мне сделать курсовую.
...
Рейтинг: 0 / 0
12.06.2006, 07:06
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33786072
Фотография Redrik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Redrik
Участник
Может я от жизни отстал... А что, на 1-ом заочном курсе сразу несколько языков учить заставляют? 8-\
...
Рейтинг: 0 / 0
12.06.2006, 13:46
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33786288
parenyok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
parenyok
Участник
А ты кто? Школьник или студент? Если школьник, то всё веселье у тебя ещё впереди. :-) А если студент, то тебе крупно повезло, что на первом курсе один язык программирования учил. Но это ещё смотря какой институт (а может и во всех так)! Я вот, например, учусь в АлтГТУ на специальность прикладная информатика в экономике. О как! :-) Так я знаю на базовом уровне Турбо Паскаль и С++, а FoxPro, этот е... долбанный, уже некогда учить, т.к. в среду экзамен по матеМАТике, а в понедельник по экономике! Поэтому, с Фоксом разбираться, ну просто, не хватает ни времени, ни сил. Ребята! Ну сжальтесь над человеком, помогите кто чем может! До 18-го сделать надо, а ещё и отчёт делать! БЛИИИИИИИИИИИИИИН! :-(((((((((
...
Рейтинг: 0 / 0
12.06.2006, 16:53
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33786373
-Guest-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-Guest-
Гость
автора FoxPro, этот е... долбанный
не плюй в колодец, студент
...
Рейтинг: 0 / 0
12.06.2006, 18:47
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33786433
Фотография Redrik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Redrik
Участник
parenyokА ты кто? Школьник или студент?
Третьего не дано? :-)))

parenyokЯ вот, например, учусь в АлтГТУ на специальность прикладная информатика в экономике. О как!
Та ты шо???!!! ;-) Ну, серьезная специальность... Но сильно нос не задирай! ОК?

parenyok...До 18-го сделать надо...
А целый семестр чем занимался? :-(
...
Рейтинг: 0 / 0
12.06.2006, 20:51
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33786436
Фотография Redrik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Redrik
Участник
P.S. Насчет отношения к Фоксу тебе уже ответили! :-(
Добавлю только, что приходя просить помощи, негоже ТАК отзываться об инструменте, которым по жизни пользуются потенциальные "помогатели"!

P.P.S. А с учетом твоей будущей специальности тем более стОит пересмотреть отношение...
...
Рейтинг: 0 / 0
12.06.2006, 20:56
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33786487
-)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-)
Гость
Для – автора ветки.
Почитать здесь
...
Рейтинг: 0 / 0
12.06.2006, 22:06
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33786493
-)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-)
Гость
Для автора ветки
Почитать здесь
Исправлена ссылка
...
Рейтинг: 0 / 0
12.06.2006, 22:14
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33786526
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
parenyokАх! Забыл написать. Ошибку я исправил ещё вчера. Просто переписал заново этот отрывок из книги. Теперь проблема заключается в следующем. Не могу понять как искать посетителей по признакам. Кроме того почему-то не открывается окно первого этажа.
Лучше бы сказал, что это пример со страницы 277. Книга Попова периздавалась многократно. С точностью до страницы. Хотя формат несколько менялся.

Предположительно, на клавишу F1 осталось навешана функция вызова файла справки. Вот это-то и надо отключить командой вроде

SET HELP OFF
...
Рейтинг: 0 / 0
12.06.2006, 22:55
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33786831
parenyok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
parenyok
Участник
-Guest- автора FoxPro, этот е... долбанный
не плюй в колодец, студент А я и не плюю. ВладимирМ parenyokАх! Забыл написать. Ошибку я исправил ещё вчера. Просто переписал заново этот отрывок из книги. Теперь проблема заключается в следующем. Не могу понять как искать посетителей по признакам. Кроме того почему-то не открывается окно первого этажа.
Лучше бы сказал, что это пример со страницы 277. Книга Попова периздавалась многократно. С точностью до страницы. Хотя формат несколько менялся.Ну у меня на 277-ой странице описана программа KADR3.PRG. Я же не могу угадывать на какой странице какого издания описана прога про гостиницу. ВладимирМПредположительно, на клавишу F1 осталось навешана функция вызова файла справки. Вот это-то и надо отключить командой вроде

SET HELP OFFОх! Написал... После SET TOLK OFF - всё также. Поменял F1 на F3 - бесполено! Короче, полный облом! -)Для автора ветки
Почитать здесь
Исправлена ссылкаМ-да... Такое почитаешь, так забоишься вообще на форум лезть. RedrikP.S. Насчет отношения к Фоксу тебе уже ответили! :-(
Добавлю только, что приходя просить помощи, негоже ТАК отзываться об инструменте, которым по жизни пользуются потенциальные "помогатели"!

P.P.S. А с учетом твоей будущей специальности тем более стОит пересмотреть отношение...Я к Фоксу ничего плохого не имею!!! Хорошо! Представь себе такую ситуацию. Ты попадаешь в институт, тебе по информатике задают делать лабы (причем на разных семестрах - на разных языках программирования!). Ты спокойно их делаешь, т.к. книг по языкам, нужных тебе, навалом! Ты покупаешь книгу, читаешь и делаешь. Если что-то не получается - прибегаешь к помощи форума. И вдруг, на втором семестре ты узнаёшь, что тебе необходимо сделать курсовую на очередном языке программирования. Ты, облазив все книжные магазины города, узнаёшь, что такой книги нет! Есть только для более старшей версии (например, курсовую надо делать на том же FoxPro 2.6 DOS, а в магазинах только Visual FoxPro!) Ты ищешь книгу в инете. Находишь тебуемую и читаешь. Потом с ужасом узнаёшь, что там полно синтаксических ошибок! Т.к. ты ни хрена не шаришь в FoxPro 2.6 Dos (Я К ПРИМЕРУ ГОВОРЮ!!!), ты... Твои действия и "пожелания" преподу и языку? Redrik parenyokА ты кто? Школьник или студент?
Третьего не дано? :-)))Значит отмучился. ПОЗДРАВЛЯЮ!!!

Redrik parenyokЯ вот, например, учусь в АлтГТУ на специальность прикладная информатика в экономике. О как!
Та ты шо???!!! ;-) Ну, серьезная специальность... Но сильно нос не задирай! ОК?Ха... А я и не задираю! Если честно, то мне эта экономика до фени! Я туды пошёл из-за информатики, т.к. я (повторюсь) инвалид 1-0й группы 3-ей степени и работать мне только программистом! А экономист из меня всё равно что из Шуры народный артист! :-)

Redrik parenyok...До 18-го сделать надо...
А целый семестр чем занимался? :-(Хэ... "Чем"? Делал контрольные по математике, английскому, рефераты по истории, делопроизводству, экономике (причём не один!).
...
Рейтинг: 0 / 0
13.06.2006, 10:31
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33794175
Фотография Redrik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Redrik
Участник
parenyok
1 ...работать мне только программистом!
2 ...Делал контрольные по математике, английскому, рефераты по истории, делопроизводству, экономике...
Хм... Все же стОит больше внимания уделять основному!
...
Рейтинг: 0 / 0
15.06.2006, 20:42
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33801637
parenyok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
parenyok
Участник
Так. Ситуация изменилась! Препод мне разрешил сдать курсовую в сентябре! И дал курсовую, которую сделал мой одногрупник, чтобы я её переделал под свою. Но у меня там появились проблемки. Сперва приведу текст программы:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
parameters progr
clea
clea all
set prin off
set cons on
set talk off
set conf on
set safe off
set esca off
SET CENTURY ON
set date to german
set bell to  300 , 1 
set clock on && включение часов
*close all && зыкрытие всех баз данных
set cursor off && выключение курсора
set talk off && отмена выдачи протокола 
set deleted on
clear && очистка экрана
define window p1 from  10 , 39  to  12 , 41 
define window m from  16 , 14  to  18 , 67  doubl float  color scheme  7             
activate window p1
store  12  to i,i1
store  40  to j,j1
&& цикл разворачивания окна
do while i# 0 .or.j# 0 .or.i1# 24 .or.j1# 79  
f= 0 
i=iif(i> 0 ,i- 1 , 0 )
j=iif(j> 0 ,j- 2 , 0 )
i1=iif(i1< 24 ,i1+ 1 , 24 )
j1=iif(j1< 79 ,j1+ 2 , 79 )
zoom window p1 norm at i,j to i1,j1
enddo
text && вывод на экран заставки, начало text

   ЯЯЯЯЯ             
   Я     ЯЯЯЯЯ  ЯЯЯЯ  ЯЯЯЯЯ  Я     Я  Я    Я  Я     Я  Я    Я     ЯЯ
   Я     Я   Я  Я       Я    Я    ЯЯ  Я    Я  Я    ЯЯ  Я    Я   Я    Я
   Я     Я   Я  Я       Я    Я   Я Я  ЯЯЯЯЯЯ  Я   Я Я  Я    Я   ЯЯЯЯЯЯ
   Я     Я   Я  Я       Я    Я  Я  Я  Я    Я  Я  Я  Я  Я    Я   Я    Я
   Я     ЯЯЯЯЯ  ЯЯЯЯ    Я    ЯЯЯ   Я  Я    Я  ЯЯЯ   Я  ЯЯЯЯЯЯЯ  Я    Я
                                                             Я                        


                              Добро пожаловать!
endtext && завершение вывода, endtext

save screen to jonny && сохраняем экран в переменную jonny
activate wind m
@ 0 , 5  say'Для пpодолжения pаботы нажмите любую клавишу.'
read

clear windows && убирает из памяти все окна
set cursor on && включение курсора
SET COLOR TO gr


*set defa to c:\

do menugl 

proc menugl
*--- помощь, если есть файл помощи ---*
 if file('HELP.PRG').or.file('HELP.TXT')
 on key labe F1 do HELP.TXT
 endi
*set defa to KURS

set cloc on
set color to  w,w/b, r/w && установка цвета - белый на синем,	
set color to  1 / 2 ,b/g+,gr+/rb+ 
&& а для часов красный на белом
SET CLOCK TO  0 , 713 
defi wind EWIND from  0 , 0  to  4 , 79  color gr+/r,gr+/r,gr+/r 
set hours to  24  && установка  24  часового исчисления

k=td1( 20 ,date())
@  10 , 1  say'   ЯЯЯЯЯ                                                              '
@  11 , 1  say'   Я     ЯЯЯЯЯ  ЯЯЯЯ  ЯЯЯЯЯ  Я     Я   Я    Я  Я     Я  Я    Я        ЯЯ  ' 
@  12 , 1  say'   Я     Я   Я  Я          Я     Я    ЯЯ  Я    Я  Я    ЯЯ  Я    Я      Я    Я' 
@  13 , 1  say'   Я     Я   Я  Я          Я     Я   Я Я  ЯЯЯЯ   Я   Я Я  Я    Я     ЯЯЯЯЯ'
@  14 , 1  say'   Я     Я   Я  Я          Я     Я  Я  Я  Я    Я  Я  Я  Я  Я    Я      Я    Я'
@  15 , 1  say'   Я     ЯЯЯЯЯ  ЯЯЯЯ     Я     ЯЯЯ   Я  Я    Я  ЯЯЯ   Я  ЯЯЯЯЯЯ  Я    Я'
@  16 , 1  say'                                                                              Я         '               

define menu mainmenu in screen color gr/bg,r/bg,gr/bg,gr/bg,gr+/w,rb/w,gr+/bg
set defa to c:\kurs
define pad gosti of mainmenu prompt'\<Список гостей' at  5 , 7 ;
message 'Ввод, просмотр и редакторование данных по количеству гостей в гостинице.'
define pad etaji of mainmenu prompt'\<Этажи' at  5 , 25 ;
message 'Просмотр и ввод новых блюд в базу данных'
define pad pom of mainmenu prompt'\<Помощь' at  5 , 55 ;
message 'Помощь в работе с программой'
define pad vih of mainmenu prompt'\<Выход' at  5 , 64 ;
message 'Выход из программы'
on selection pad gosti of mainmenu do guests.prg
on selection pad etaji of mainmenu do floor.prg
on selection pad pom of mainmenu do help.txt 
on selection pad vih of mainmenu activate wind w5
 
acti wind EWIND
@ 0 , 15  say 'Курсовая работа студента 1 курса гр.9ПИЭ-51' 
@ 2 , 27  say'Сегодня: '+k               
acti menu mainmenu




************************************************
function td1
para m,k
dn=alltrim(STR(day(k)))
g=alltrim(STR(year(k)))
ms=month(k)
dime s( 12 )
s( 1 )='ЯHВАРЯ'
s( 2 )='ФЕВРАЛЯ'
s( 3 )='МАРТА'
s( 4 )='АПРЕЛЯ'
s( 5 )='МАЯ'
s( 6 )='ИЮHЯ'
s( 7 )='ИЮЛЯ'
s( 8 )='АВГУСТА'
s( 9 )='СЕHТЯБРЯ'
s( 10 )='ОКТЯБРЯ'
s( 11 )='HОЯБРЯ'
s( 12 )='ДЕКАБРЯ'
sd=padr((dn+s(ms)+' '+g),m)
**** Процедура выхода ****
         **** процедура выхода в FOXPRO *****
proc end
define window vf from  7 , 13  to  15 , 58   title '"ВНИМАНИЕ"';
shad doub color r+/b,n/n,rb/bg+ 
ACTI WIND vf in w5 
A= 0 
B= 0 
@  1 , 2  SAY 'ВЫ ДЕЙСТВИТЕЛЬНО ХОТИТЕ ВЫЙТИ В FOXPRO ?' 
@  4 , 11  GET A FUNC '*   ДА' 
@  4 , 29  GET B FUNC '*  НЕТ' 
READ
IF A= 1 
DEACTI WIND ALL
CANCEL
else
DEAC WIND vf
ENDIF
RETU

**** процедура выхода в Windows *****
proc quit
*para mpoup, mprompt, mbar
define window vnc from  7 , 13  to  15 , 58   title '"ВНИМАНИЕ"';
shad doub color r+/b,n/n,rb/bg+ 
ACTI WIND vnc
A= 0 
b= 0 
@  1 , 2  SAY 'ВЫ ДЕЙСТВИТЕЛЬНО ХОТИТЕ ВЫЙТИ В Windows ?' 
@  4 , 11  GET A FUNC '*   ДА' 
@  4 , 29  GET B FUNC '*  НЕТ' 
READ
IF A= 1 
deacti wind m1
quit
else
DEAC WIND vnc
ENDIF
RETU

return sd
Проблема в том, что не включаются часы (хотя раньше включались). После запуска программы высвечивается ошибка в строке
Код: plaintext
@ 2 , 27  say'Сегодня: '+k
Оператор / операнд типа несовпадения.
...
Рейтинг: 0 / 0
20.06.2006, 09:56
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33801670
Проходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проходящий
Участник
Вот поэтому:
Код: plaintext
k=td1( 20 ,date())
Т.е. в k у тебя значение, возвращаемое td1(). Так как возврат какого-либо результата в этой функции не прописан, то возвращается .t.
Добавь в эту функцию
Код: plaintext
return sd
и, если я правильно понял, получишь нужный результат.
...
Рейтинг: 0 / 0
20.06.2006, 10:08
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33802376
parenyok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
parenyok
Участник
Добавил. Теперь при первом запуске программы часы есть (в этом участке программы:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
text && вывод на экран заставки, начало text

   ЯЯЯЯЯ             
   Я     ЯЯЯЯЯ  ЯЯЯЯ  ЯЯЯЯЯ  Я     Я  Я    Я  Я     Я  Я    Я     ЯЯ
   Я     Я   Я  Я       Я    Я    ЯЯ  Я    Я  Я    ЯЯ  Я    Я   Я    Я
   Я     Я   Я  Я       Я    Я   Я Я  ЯЯЯЯЯЯ  Я   Я Я  Я    Я   ЯЯЯЯЯЯ
   Я     Я   Я  Я       Я    Я  Я  Я  Я    Я  Я  Я  Я  Я    Я   Я    Я
   Я     ЯЯЯЯЯ  ЯЯЯЯ    Я    ЯЯЯ   Я  Я    Я  ЯЯЯ   Я  ЯЯЯЯЯЯЯ  Я    Я
                                                             Я                        


                              Добро пожаловать!
endtext && завершение вывода, endtext
А дальше уже часов нет.
...
Рейтинг: 0 / 0
20.06.2006, 13:15
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33802678
Проходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проходящий
Участник
Как я понимаю, ты хочешь, чтобы за тебя тут оладили твою программу?
И еще. Так тебе часы или дату надо? В посте прошибку несовпадения типов речь вроде была про дату. Теперь про часы.

автор
Код: plaintext
SET CLOCK TO  0 , 713


Как ты думаешь где будут показываться твои часы?
...
Рейтинг: 0 / 0
20.06.2006, 14:31
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33803455
parenyok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
parenyok
Участник
Во! Всё. Убрал из этой строки 3-у и всё стало нормально, хотя почему-то меняется вид часов с 12-и часового на 24-х часовой и цвет. Но я думаю это не соовсем важно, хотя и очень непонятно. И ещё, если я запускаю программу несколько раз, то с каждым разом разный фон получается. И при выходе из программы не все её окна закрываются.
...
Рейтинг: 0 / 0
20.06.2006, 17:33
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33811246
parenyok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
parenyok
Участник
Помогите, пожалуйста исправить ошибку в программе. Вот программа, в которой открываются этажи в гостиннице:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
SET TALK OFF 
SET DATE GERMAN 
*ON KEY LABEL F10 ACTIVATE WINDOW F10 && Вызов окна баэы 
ON KEY LABEL F6 ACTIVATE WIND el && Выэов окна первого этажа 
ON KEY LABEL F7 ACTIVATE WIND e2 && Вызов окна второго этажа 
ON KEY LABEL F8 ACTIVATE WIND e3 && Вызов окна третьего этажа 

*USE floor.dbf INDEX floor 
r=RECNO() 
*DEFINE WINDOW floor FROM  0 , 0  TO  8 , 62 ; 
*      TITLE 'F10 Номера' && Окно-список номеров 
DEFINE WINDOW el FROM  8 , 16  TO  17 , 36 ; 
       TITLE 'F6 Этаж 1' COLOR n/gb && Окно первого этажа 
DEFINE WINDOW e2 FROM  9 , 40  TO  18 , 60 ; 
       TITLE 'F7 Этаж 2' COLOR n/gb && Окно второго этажа 
DEFINE WINDOW e3 FROM  12 , 30  TO  21 , 58 ; 
       TITLE 'F8 Этаж 3' COLOR n/gb && Окно третьего этажа 
*BROWSE TITLE 'F10      Номера    Сегодня:'+DTOC(DATE());
*FIEL d=IIF(DATE()>opl.AND.!EMPTY(fam),'Долг','') :h='Долг',;
*     r=IIF(r=RECNO(),'>',' ') :h='',;
*     mes :h='Место' :p='9999',;
*     fam :h='Фамилия' : 14 ,;
*     pol :h='Пол';
*         :V=(pol='М'.OR.pol='Ж').AND.pl(LEFT(mes, 3 ),pol);
*         :e='Только М или Ж',;
*     pri :h='Прибытие',;
*     otb :h='Отбытие',;
*     opl :h='Оплачено';
    COLOR SCHEME  10  WINDOW gost NOWAIT WHEN ttt()
ACTIVATE WINDOW e1                           && Открытие окна первого этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-101----102----103---104--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-105----106--      --107--|'
@  6 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('1011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('1012')
*@  1 , 4  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALID ms('1013')
ACTIVATE WINDOW e2   &&Открытие окна второго этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-201----202----203---204--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-205----206--      --207--|'
@  6 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('2011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('2012')
ACTIVATE WINDOW e3   && Открытие окна третьего этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-301----302----303---304--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-305----306--      --307--|'
@  6 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('3011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('3012')

READ CYCLE 
DEACTIVATE WINDOW el,e2,e3*,F10 
RELEASE WINDOWS el,e2,e3*,F10 
ON KEY 

FUNCTION ttt &&-----------ФУНКЦИЯ обновления курсора 
r=RECNO() 
SHOW WINDOW F10 REFRESH 
RETURN 
FUNCTION ms &&--0тслеживание в окне GOST записи с данными о 
&& человеке, занимающем место, где находится курсор в плане этажа 
PARAMETERS.m 
SEEK m && Поиск в BROWSE-окне выбранного на плане места 
r=RECNO() 
SHOW WINDOW F10 REFRESH 
RETURN 

FUNCTION pl &&-----Функция предупреждений (Мужчина/Женщина) 
PARAMETERS m,p 
nr=KECNO() && Запоминается номер текущей записи 
           && Поиск непустого места в той же комнате, где проживает 
           && человек с другим аначением поля POL 
LOCATE FOR mee=m.AND.!EMPTY(pol).AND.pol#p 
IF FOUND() && Если поиск удачный, выдается предупреждение 
   WAIT 'В комнате живет '+IIF(pol='M','Мужчина','Женщина'); 
         WINDOW NOWAIT 
   GO nr && Возврат к исходной записи 
ENDIF 
RETURN
Проблема в том, что окно первого этажа не открывается. После запуска программы выводится ошибка в строке
Код: plaintext
ACTIVATE WINDOW e1                           && Открытие окна первого этажа
о том, что Окно 'E1' не определено. Никак не пойму в чём дело. В размерах окна? Да вроде бы всё в порядке. Кстати, окно второго этажа почему-то уже окна третьего, хотя размеры аналогичные. :-\
...
Рейтинг: 0 / 0
23.06.2006, 13:13
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33811256
parenyok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
parenyok
Участник
Помогите, пожалуйста исправить ошибку в программе. Вот программа, в которой открываются этажи в гостиннице:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
SET TALK OFF 
SET DATE GERMAN 
*ON KEY LABEL F10 ACTIVATE WINDOW F10 && Вызов окна баэы 
ON KEY LABEL F6 ACTIVATE WIND el && Выэов окна первого этажа 
ON KEY LABEL F7 ACTIVATE WIND e2 && Вызов окна второго этажа 
ON KEY LABEL F8 ACTIVATE WIND e3 && Вызов окна третьего этажа 

*USE floor.dbf INDEX floor 
r=RECNO() 
*DEFINE WINDOW floor FROM  0 , 0  TO  8 , 62 ; 
*      TITLE 'F10 Номера' && Окно-список номеров 
DEFINE WINDOW el FROM  8 , 16  TO  17 , 36 ; 
       TITLE 'F6 Этаж 1' COLOR n/gb && Окно первого этажа 
DEFINE WINDOW e2 FROM  9 , 40  TO  18 , 60 ; 
       TITLE 'F7 Этаж 2' COLOR n/gb && Окно второго этажа 
DEFINE WINDOW e3 FROM  12 , 30  TO  21 , 58 ; 
       TITLE 'F8 Этаж 3' COLOR n/gb && Окно третьего этажа 
*BROWSE TITLE 'F10      Номера    Сегодня:'+DTOC(DATE());
*FIEL d=IIF(DATE()>opl.AND.!EMPTY(fam),'Долг','') :h='Долг',;
*     r=IIF(r=RECNO(),'>',' ') :h='',;
*     mes :h='Место' :p='9999',;
*     fam :h='Фамилия' : 14 ,;
*     pol :h='Пол';
*         :V=(pol='М'.OR.pol='Ж').AND.pl(LEFT(mes, 3 ),pol);
*         :e='Только М или Ж',;
*     pri :h='Прибытие',;
*     otb :h='Отбытие',;
*     opl :h='Оплачено';
    COLOR SCHEME  10  WINDOW gost NOWAIT WHEN ttt()
ACTIVATE WINDOW e1                           && Открытие окна первого этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-101----102----103---104--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-105----106--      --107--|'
@  6 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('1011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('1012')
*@  1 , 4  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALID ms('1013')
ACTIVATE WINDOW e2   &&Открытие окна второго этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-201----202----203---204--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-205----206--      --207--|'
@  6 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('2011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('2012')
ACTIVATE WINDOW e3   && Открытие окна третьего этажа
@  0 , 0  SAY '----------------------------'
@  1 , 0  SAY '|1   3|1     |1    2|1     |'
@  2 , 0  SAY '|2   4|2     |      |2     |'
@  3 , 0  SAY '|-301----302----303---304--|'
@  4 , 0  SAY '|                          |'
@  5 , 0  SAY '|-305----306--      --307--|'
@  6 , 0  SAY '|1    |1     |      |1     |'
@  7 , 0  SAY '----------------------------'
@  1 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('3011')
@  2 , 1  GET n FUNCTION '*I' SIZE  1 , 1  DEFAULT  1  VALI ms('3012')

READ CYCLE 
DEACTIVATE WINDOW el,e2,e3*,F10 
RELEASE WINDOWS el,e2,e3*,F10 
ON KEY 

FUNCTION ttt &&-----------ФУНКЦИЯ обновления курсора 
r=RECNO() 
SHOW WINDOW F10 REFRESH 
RETURN 
FUNCTION ms &&--0тслеживание в окне GOST записи с данными о 
&& человеке, занимающем место, где находится курсор в плане этажа 
PARAMETERS.m 
SEEK m && Поиск в BROWSE-окне выбранного на плане места 
r=RECNO() 
SHOW WINDOW F10 REFRESH 
RETURN 

FUNCTION pl &&-----Функция предупреждений (Мужчина/Женщина) 
PARAMETERS m,p 
nr=KECNO() && Запоминается номер текущей записи 
           && Поиск непустого места в той же комнате, где проживает 
           && человек с другим аначением поля POL 
LOCATE FOR mee=m.AND.!EMPTY(pol).AND.pol#p 
IF FOUND() && Если поиск удачный, выдается предупреждение 
   WAIT 'В комнате живет '+IIF(pol='M','Мужчина','Женщина'); 
         WINDOW NOWAIT 
   GO nr && Возврат к исходной записи 
ENDIF 
RETURN
Проблема в том, что окно первого этажа не открывается. После запуска программы выводится ошибка в строке
Код: plaintext
ACTIVATE WINDOW e1                           && Открытие окна первого этажа
о том, что Окно 'E1' не определено. Никак не пойму в чём дело. В размерах окна? Да вроде бы всё в порядке. Кстати, окно второго этажа почему-то уже окна третьего, хотя размеры аналогичные. :-\
...
Рейтинг: 0 / 0
23.06.2006, 13:15
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33811438
dmitryx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dmitryx
Участник
Так оно и не определено. А определено у тебя окно с именем el. Ошибки распознавания видимо ;)
...
Рейтинг: 0 / 0
23.06.2006, 14:04
| Ответить | Цитировать | Написать  
Помогите, пожалуйста, разобраться с примером из книги Попова
    #33811823
parenyok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
parenyok
Участник
Тьфу! Блин, точно! Спасибо! Как уже надоели эти ошибки сканера! Сразу-то и не разберёшь чё там i или 1. Теперь у меня почему-то не открывается файл помощи. Вот текст программы HELP.PRG, который я скопировал из курсовой моего одногрупника:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
set proc to menuden.prg
if file('help.txt')
close alte to 
do ModiDisp with 'help.TXT'
else
set alte to help.txt
set alte on
?'Файл помощи удален!!! Разбирайся сам.'
close alte to 
do ModiDisp with 'help.TXT'
endif
set proc to 
return
По идее эта программа, как я понял, должна открывать файл помощи - help.txt, если он существует, а если нет - выдавать сообщение: "Файл помощи удален!!! Разбирайся сам.". В курсовой моего одногрупника всё открывается, а у меня выскакивает ошибка в строке
Код: plaintext
do ModiDisp with 'help.TXT'
типа файл MODIDISP.PRG не существует. Хотя он там и не нужен. В чём дело?
...
Рейтинг: 0 / 0
23.06.2006, 15:47
| Ответить | Цитировать | Написать  
25 сообщений из 81, страница 1 из 4
  1  все
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите, пожалуйста, разобраться с примером из книги Попова
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=33802376&tid=1591266]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 50ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 239ms
get tp. blocked users:
 1ms
others: 215ms
total:  535ms
созд. / загр.: 535ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]