ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / FUNCTION
9 сообщений из 9, страница 1 из 1
FUNCTION
    #32557665
TF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TF
Гость
YEST TAKAYA FUNKSIYA

? fun(31)
FUNCTION fun(xx)
LOCAL a
a=xx*2
RETURN (a)

Mne nado chtobi eto funksiya (a=xx*2) polzovetel sam moq bi izmenyat , napirmer:
a=xx*yy (Ya nexochu kajdiy raz v proqramme izmenenie delat)
...
Рейтинг: 0 / 0
11.06.2004, 10:59
| Ответить | Цитировать | Написать  
FUNCTION
    #32557689
Фотография SAM-FoxPro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SAM-FoxPro
Участник
Ну, так передай в функцию два параметра.
...
Рейтинг: 0 / 0
11.06.2004, 11:08
| Ответить | Цитировать | Написать  
FUNCTION
    #32557697
Sergey Ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Ch
Участник
1. Пишите пожалуйста по русски или английски - транслит - это не уважение к участникам форума.

2. Можно поробовать так (но вариантов ответа очент много):

Код: plaintext
? fun( 31 , 34 ,'xx*yy')

Код: plaintext
1.
2.
3.
FUNCTION fun(xx,yy,ff) 
LOCAL a,yy,ff
a=&ff
RETURN (a)

Думаю Вы поняли, что речь здесь ведется о макроподстановке.

Have a nice weekend!
...
Рейтинг: 0 / 0
11.06.2004, 11:10
| Ответить | Цитировать | Написать  
FUNCTION
    #32557722
TF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TF
Гость
1. 'Problema' s klaviaturoy
2. Vi ne ponyali menya. Eti funksiu (a=xx*2) ochen raznie mojet bit. Ya neznayu polzovetel kakuyu funksiu budet tam pisat. Mne nado chtobi polzovotel sam moq bi vvodit lyubuy funksiu.
...
Рейтинг: 0 / 0
11.06.2004, 11:18
| Ответить | Цитировать | Написать  
FUNCTION
    #32557790
A
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A
Участник
Так создайте табличку, туда поместить выражение vfp
и вычисляйте

myfunctable.dbf
idfunc N(2)
func C(80)

1, "1+1"
2, "yyy*2"

use myfunctable
locate fo idfunc=1
? evaluate(myfunctable.func)
locate fo idfunc=2
yyy=3
? evaluate(myfunctable.func)

А пользователь может поменять табличку
...
Рейтинг: 0 / 0
11.06.2004, 11:40
| Ответить | Цитировать | Написать  
FUNCTION
    #32558184
TF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TF
Гость
Pomoqite pojalusta!
1-ya tablitsa (FUN.DBF) ispolzuetsa dlya polzovetelskiy funksiya. (Zdes: x1*5, no zdes ochen raznie funksiya mojet bit, napirmer:x1*x2+y/2-x3 )
rezultat funksieya doljen soxranitsa 2-m tablitse (gen.dbf) .(polya func1)
Poluchaetsa chto psevdonim "fun" ne nayden, qde maya oshibka neznayu.
...
Рейтинг: 0 / 0
11.06.2004, 14:13
| Ответить | Цитировать | Написать  
FUNCTION
    #32558498
A
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A
Участник
close data
use fun in 0
use gen in 0
select gen
scan all
a=FUNK(X1)
repl func1 with a
ENDscan
browse



FUNCTION funK
PARAMETER A
*LOCAL x1
A=evaluate(FUN.func)
RETURN (a)
...
Рейтинг: 0 / 0
11.06.2004, 16:00
| Ответить | Цитировать | Написать  
FUNCTION
    #32558552
TF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TF
Гость
Sposibo, a! poluchilos!
...
Рейтинг: 0 / 0
11.06.2004, 16:19
| Ответить | Цитировать | Написать  
FUNCTION
    #32558653
TF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TF
Гость
a, Vi menya izvenite , ya nedavno zanimayus s fox.
1. A yesli neskolko takix poley budet : X1, FUNC1, X2, FUNC2, X3, FUNC3...
2. A yesli v funksie neskolko peremenni budet: napirmer Z*2+Y+F ILI X+B+N/2
TOQDA KAK?
...
Рейтинг: 0 / 0
11.06.2004, 16:56
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / FUNCTION
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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