Гость
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Уроки Программированния FoxPro / 3 сообщений из 3, страница 1 из 1
02.12.2013, 14:54
    #38486030
pipos522
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уроки Программированния FoxPro
в книге обучения программированию на фоксе есть статейка прикольная
" Немного фантазии и лис выдаст нечто в стиле Математического сюрреализма делаем простейшую форму с двумя полями ввода и двумя кнопками к коде елик одной из кнопки пропишем след код"

DECIA X(400),Y(400)
FOR I = 1 TO 360
FOR K = 1 TO 200
Z = 6.6832*1/360
X(I) = 120+90*SIN(5*z)*cos(thisform.text1.value*Z)
Y(b) = 120+90*cos(5*z)*sin(thisform.text2.value*Z)
thisform.CurrentX=x(I)
thisform.CurrentY=Y(I)
thisform.Print ("((*))")
ENDFOR
ENDFOR

и фокс на DECIA ругается почти матом грешу на опечатку подскажите чем заменить можно
...
Рейтинг: 0 / 0
02.12.2013, 14:59
    #38486037
Reese
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уроки Программированния FoxPro
DECLA
...
Рейтинг: 0 / 0
02.12.2013, 14:59
    #38486039
PaulWist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Уроки Программированния FoxPro
pipos522в книге обучения программированию на фоксе есть статейка прикольная
" Немного фантазии и лис выдаст нечто в стиле Математического сюрреализма делаем простейшую форму с двумя полями ввода и двумя кнопками к коде елик одной из кнопки пропишем след код"

DECIA X(400),Y(400)
FOR I = 1 TO 360
FOR K = 1 TO 200
Z = 6.6832*1/360
X(I) = 120+90*SIN(5*z)*cos(thisform.text1.value*Z)
Y(b) = 120+90*cos(5*z)*sin(thisform.text2.value*Z)
thisform.CurrentX=x(I)
thisform.CurrentY=Y(I)
thisform.Print ("((*))")
ENDFOR
ENDFOR

и фокс на DECIA ругается почти матом грешу на опечатку подскажите чем заменить можно

Код: sql
1.
2.
DECLARE ArrayName1 (nRows1 [, nColumns1]) 
   [, ArrayName2 (nRows2 [, nColumns2])] ...
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Уроки Программированния FoxPro / 3 сообщений из 3, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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