powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
20 сообщений из 20, страница 1 из 1
Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
    #39290713
dmr55
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Имеется файл 2 файла формата prg
DSTAT1prg – файл отвечащие за меню

F14OPER.prg – файл который выбирает данные из базы данных по конкретным условиям
Выходит графическое меню в виде списка выбора, в списке выбирается конкретный пункт, в пункте едет ссылка на prg файл. Т.е. все меню и конкретно это меню записано в файле DSTAT1.prg и в этом файле есть ссылка на F14OPER.


Вместо F14OPER, нужно F14OPER55, когда я меняю его, то выходит ошибка, т.е. нужно сделать путь не к F14OPER, а к F14OPER55(это уже созданный новый файл) и как его (их) откомпилировать чтобы в файле DSTAT1.prg был виден файл F14OPER55


Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
DSTAT1.PRG (несколько строк кода)
…
@ 20, 11 PROMPT ' 123             ;
 14 '
…


…
CASE MEN21=14
            DO F14OPER
            CLOSE ALL
…
...
Рейтинг: 0 / 0
Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
    #39290714
dmr55
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Имеется 2 файла файла формата prg
...
Рейтинг: 0 / 0
Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
    #39290743
Дед Евгений
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Весь код у вас не виден, но соманда CLOSE ALL закрывает все, в этом и может быть причина.
...
Рейтинг: 0 / 0
Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
    #39290792
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
dmr55Вместо F14OPER, нужно F14OPER55, когда я меняю его, то выходит ошибка, т.е. нужно сделать путь не к F14OPER, а к F14OPER55(это уже созданный новый файл) и как его (их) откомпилировать чтобы в файле DSTAT1.prg был виден файл F14OPER55
Код: sql
1.
2.
3.
4.
DSTAT1.PRG (несколько строк кода)
…
            DO F14OPER
…


замени DO F14OPER на
Код: sql
1.
DO F14OPER55


и озвучь какая ошибка выходит.
...
Рейтинг: 0 / 0
Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
    #39290896
dmr55
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
в файле DSTAT1.PRG

DO F14OPER заменил на DO F14OPER55

Файл F14OPER55.PRG находится там же в директории программы

Ошибка
File 'F1OPER55.PRG' does not exist.
...
Рейтинг: 0 / 0
Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
    #39290908
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Попробуй откомпилировать
Открой F14OPER55 и нажми меню Program - Compile
в итоге появится файл F14OPER55.FXP
Если F14OPER и F14OPER55 в одной папке, то должно работать.


"Программа" это что именно у тебя? Набор PRG или один EXE или APP?
...
Рейтинг: 0 / 0
Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
    #39290986
asdor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
dmr55в файле DSTAT1.PRG

DO F14OPER заменил на DO F14OPER55

Файл F14OPER55.PRG находится там же в директории программы

Ошибка
File 'F1OPER55.PRG' does not exist.
На всякий случай.

F14OPER55.PRG!=F1OPER55.PRG
Похоже не то написано в вызове
...
Рейтинг: 0 / 0
Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
    #39291047
dmr55
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
modify command f14oper5.prg (изменил вместо f14oper55.prg, не открывался)
Program - Compile

Изменил файле в DSTAT1.PRG строчку f14oper.prg на f14oper5.prg
Работает, делает выборку из f14oper5.prg

В файле DSTAT1.PRG заложены менюшки со списками выбора, нужно чтобы в файле DSTAT1.PRG выбирались из f14oper.prg и f14oper5.prg,
а сейчас я просто его переименовал в f14oper5.prg, вообще файлы f14oper.prg и f14oper5.prg это дубликаты, просто в f14oper5.prg есть другая выборка нежели у f14oper.prg
Конечно дублировать и переименовывать(в случае изменения кода нужно и не забыть в его дубликате изменить) файл f14oper.prg

Программа большая там много всяких фалов
...
Рейтинг: 0 / 0
Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
    #39291058
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
dmr55Изменил файле в DSTAT1.PRG строчку f14oper.prg на f14oper5.prg
Работает, делает выборку из f14oper5.prg

...
dmr55, опять многа букав. В итоге работает или еще нерешенные проблемы остались?
...
Рейтинг: 0 / 0
Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
    #39291067
dmr55
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
при замене и компиляции работает, но я просто заменил f14oper.prg на f14oper5.prg

Код: sql
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.
SET COLOR TO R/W,W+/RB,N/N
      @ 19, 23 SAY ' 123 '
      SET COLOR TO N/W,W+/RB,N/N
      CLOSE ALL
      RETURN
   CASE MEN1=1
      DO MTKART1
      CLOSE ALL
      LOOP
   CASE MEN1=2
      DO PERIOD
      DO WHILE .T.
         SAVE SCREEN TO SCR1
         SET COLOR TO N/W,W+/RB,N/N
         @ 1, 0 CLEAR TO 24, 79
         SET COLOR TO R/W,W+/RB,N/N
         @ 2, 11 SAY '              455             ;
   '
         @ 3, 11 SAY '            4454           ;
   '
         @ 5, 11 SAY ' 323      ;
   '
         SET COLOR TO N/BG,W+/RB,N/N
         @ 6, 9 CLEAR TO 25, 64 DOUBLE
         @ 6, 10 TO 25, 63 DOUBLE
         @ 7, 11 PROMPT ' 1;
 1  '
         @ 8, 11 PROMPT ' 2;
 2  '
         @ 9, 11 PROMPT ' 3;
 3  '
         @ 10, 11 PROMPT ' 4;
 4  '
         @ 11, 11 PROMPT ' 5;
 5  '
         @ 12, 11 PROMPT ' 6;
 6  '
         @ 13, 11 PROMPT ' 7;
 7  '
         @ 14, 11 PROMPT ' 8;
 8  '
         @ 15, 11 PROMPT '9;
 9  '
         @ 16, 11 PROMPT ' 10;
 10 '
         @ 17, 11 PROMPT ' 11;
 11 '
         @ 18, 11 PROMPT ' 12;
 12 '
         @ 19, 11 PROMPT '13;
 13 '
         @ 20, 11 PROMPT ' 14;
 14 '
         @ 21, 11 PROMPT ' 15'
         @ 22, 11 prompt ' 16'
         @ 23, 11 PROMPT ' 17' 
         @ 24, 11 prompt ' 18



Мне нужно добавить еще один пункт в списке например
@ 25, 11 prompt ' 19
Который будет ссылать к файлу f14oper5.prg
...
Рейтинг: 0 / 0
Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
    #39291089
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Конец цикла покажи, что после этого до ENDDO. Текст надписей можешь звездочками "запикать".

PS И как понимаю это FoxPro 2.6 под DOS. Ты это не забывай упоминать когда новый топик заводишь. В VFP меню совсем по другому делаются. Как в досе было я уже забыл, надо код видеть.

PPS Большие портянки под спойлер прячь, выделяешь, "дополнит." там "spoiler"
...
Рейтинг: 0 / 0
Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
    #39291104
dmr55
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: sql
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.
   MENU TO MEN100
               DO CASE
               CASE MEN100=0
                  CLEAR
                  EXIT
               CASE MEN100=1
                  SAVE SCREEN TO SCRVV
                  DO WHILE .T.
                     RESTORE SCREEN FROM SCRVV
                     DO ZAPRDMKB
                     CLOSE ALL
                     EXIT
                  ENDDO
                  LOOP
               CASE MEN100=2
                  DO WHILE .T.
                     DO ZAPRDMES
                     CLOSE ALL
                     SET COLOR TO N/W,W+/RB,N/N
                     EXIT
                  ENDDO
                  LOOP
               CASE MEN100=3
                  SAVE SCREEN TO SCRVV
                  DO WHILE .T.
                     RESTORE SCREEN FROM SCRVV
                     DO ZAPROPER
                     CLOSE ALL
                     EXIT
                  ENDDO
                  LOOP
               CASE MEN100=4
                  DO WHILE .T.
                     DO ZAPRKONT
                     CLOSE ALL
                     SET COLOR TO N/W,W+/RB,N/N
                     EXIT
                  ENDDO
                  LOOP
               CASE MEN100=5
                  DO WHILE .T.
                     DO ZAPRDAT
                     CLOSE ALL
                     SET COLOR TO N/W,W+/RB,N/N
                     EXIT
                  ENDDO
                  LOOP
               CASE MEN100=6
                  DO WHILE .T.
                     DO ZSOPUT12
                     CLOSE ALL
                     SET COLOR TO N/W,W+/RB,N/N
                     EXIT
                  ENDDO
                  LOOP
               CASE MEN100=7
                  DO WHILE .T.
                     DO ZAPRPLAN
                     CLOSE ALL
                     SET COLOR TO N/W,W+/RB,N/N
                     EXIT
                  ENDDO
                  LOOP
               CASE MEN100=8
                  DO WHILE .T.
                     DO ZAPRPRF1
                     CLOSE ALL
                     SET COLOR TO N/W,W+/RB,N/N
                     EXIT
                  ENDDO
                  LOOP
               CASE MEN100=9
                  DO WHILE .T.
                     DO ZAPRPUST
                     CLOSE ALL
                     SET COLOR TO N/W,W+/RB,N/N
                     EXIT
                  ENDDO
                  LOOP
               CASE MEN100=10
                  DO WHILE .T.
                     DO ZAPTRAVM
                     CLOSE ALL
                     SET COLOR TO N/W,W+/RB,N/N
                     EXIT
                  ENDDO
                  LOOP
               CASE MEN100=11
                  DO WHILE .T.
                     DO ZAPOBEZB
                     CLOSE ALL
                     SET COLOR TO N/W,W+/RB,N/N
                     EXIT
                  ENDDO
                  LOOP
               CASE MEN100=12
                  DO WHILE .T.
                     DO ZZWRACH
                     CLOSE ALL
                     SET COLOR TO N/W,W+/RB,N/N
                     EXIT
                  ENDDO
                  LOOP
               CASE MEN100=13
                  DO WHILE .T.
                     DO ZAPRBOMG
                     CLOSE ALL
                     SET COLOR TO N/W,W+/RB,N/N
                     EXIT
                  ENDDO
                  LOOP
               CASE MEN100=14
                  DO WHILE .T.
                     DO ZPEREW
                     CLOSE ALL
                     SET COLOR TO N/W,W+/RB,N/N
                     EXIT
                  ENDDO
                  LOOP
               CASE MEN100=15
                  DO WHILE .T.
                     DO ZPROLBOL
                     CLOSE ALL
                     SET COLOR TO N/W,W+/RB,N/N
                     EXIT
                  ENDDO
                  LOOP
               CASE MEN100=16
                  DO WHILE .T.
                     DO ZAPRKDNI
                     CLOSE ALL
                     SET COLOR TO N/W,W+/RB,N/N
                     EXIT
                  ENDDO
                  LOOP
               CASE MEN100=17
                  DO WHILE .T.
                     DO ZAPDOSL
                     CLOSE ALL
                     SET COLOR TO N/W,W+/RB,N/N
                     EXIT
                  ENDDO
                  LOOP
               CASE MEN100=18
                  DO WHILE .T.
                     DO ZAPRUKL1
                     CLOSE ALL
                     SET COLOR TO N/W,W+/RB,N/N
                     EXIT
                  ENDDO
                  LOOP
                  CLOSE ALL
               ENDCASE
            ENDDO
            LOOP
CASE MEN10=8
            SAVE SCREEN TO SCRVV
            DO WHILE .T.
               RESTORE SCREEN FROM SCRVV
               DO BAZAREZ2
               CLOSE ALL
               EXIT
            ENDDO
            LOOP
         
            CLOSE ALL

...
Рейтинг: 0 / 0
Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
    #39291583
SoftwareBoy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Естественно, FPD не видит F14OPER55.PRG, т.к. в имени больше 8 символов - короткое имя файла будет типа F14OPE~1.PRG. И @25,11 в DOS-окне по умолчанию нет, т.к. строк всего 25, а нумерация с 0. Для меню с большим количеством пунктов в FPD есть DEFINE POPUP, DEFINE BAR и т.д. - количество пунктов не ограничено размером экрана, не нужны бесконечные SAVE SCREEN / RESTORE SCREEN.
...
Рейтинг: 0 / 0
Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
    #39291693
dmr55
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Когда добавляю
Код: sql
1.
@ 25, 11 prompt ' 18



Выдает ошибку
position is off the screen
...
Рейтинг: 0 / 0
Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
    #39291694
alextashk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
dmr55,
В dos 24 строки, если не включен особый режим.
Делай список многоколончатый или со скроллингом.
...
Рейтинг: 0 / 0
Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
    #39291701
dmr55
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как особый режим включить
...
Рейтинг: 0 / 0
Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
    #39291841
alextashk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
dmr55,

SET DISPLAY TO VGA5
...
Рейтинг: 0 / 0
Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
    #39291842
alextashk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
dmr55,

Но что Вы будете делать, когда меню превысит 50 пунктов?
...
Рейтинг: 0 / 0
Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
    #39291846
dmr55
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мне пока нужно было добавить 25 строчку, но пока я обошелся без исключения, вместо строчки-пробела поставил нужный текст, ну а SET DISPLAY TO VGA5 нужно иметь ввиду, его получается в код нужно вставить
...
Рейтинг: 0 / 0
Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
    #39292191
alextashk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
dmr55,

SET DISPLAY TO VGA50

ошибся при вводе
...
Рейтинг: 0 / 0
20 сообщений из 20, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Изменить и откомпилировать prg файл, который отвечает за меню после его изменения
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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