ДОБРЫЙ ДЕНЬ ! ПОДСКАЖИТЕ , В ПОРТФЕЛИ НАПИСАН КОД ОН РАБОТАЕТ ВСЁ НОРМАЛЬНО НО Я ХОТЕЛ УЗНАТЬ ТАКУЮ ВЕЩЬ ,КОД ПОКАЖЫВАЕТ ТЕКУЩУЮ СВЕЧУ НАЗОВЁМ ЕЁ НУЛЕВОЙ ,А МНЕ НУЖНЫ ЗНАЧЕНИЯ ПРЕДЫДУЩЕЙ СВЕЧИ , КАК ЭТО СДЕЛАТЬ ПОЖАЛУЙСТА ПОДСКАЖИТЕ И НАПИШИТЕ КОД
PORTFOLIO_EX робокоп;
DESCRIPTION робокоп;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST FIRMID;
USE_CASE_SENSITIVE_CONSTANTS;
PROGRAM
'=== БЛОК ПОЛУЧЕНИЯ ДАТЫ И ВРЕМЕНИ ===
NEW_GLOBAL("DT", GET_DATETIME())
DTLINE = GET_VALUE(DT,"DATETIME")
DAY = SUBSTR(DTLINE, 0 , 2) 'ДЕНЬ
MONTH = SUBSTR(DTLINE, 3 , 2) 'МЕСЯЦ
YEAR = SUBSTR(DTLINE, 6 , 4) 'ГОД
DATE = YEAR & MONTH & DAY 'СКЛЕЙКА ДАТЫ
HOUR = SUBSTR(DTLINE, 11 , 2) 'ЧАСЫ
MINUTE = SUBSTR(DTLINE, 14 , 2) 'МИНУТЫ
SECOND = SUBSTR(DTLINE, 17 , 2) 'СЕКУНДЫ
TIME = HOUR & MINUTE & SECOND 'СКЛЕЙКА ВРЕМЕНИ
'=== КОНЕЦ ПОЛУЧЕНИЯ ДАТЫ И ВРЕМЕНИ ===
DT = GET_DATETIME() 'ОБНОВЛЕНИЕ ДАТЫ И ВРЕМЕНИ В СЛЕДУЩЕЙ ИТЕРАЦИИ
'=== БЛОК ПОЛУЧЕНИЕ ДАННЫХ С ГРАФИКА ===
FUNC GET_LINE(TAG)
CANDLE = GET_CANDLE_EX(TAG, DATE, TIME)
LINES = GET_VALUE(CANDLE,"LINES")
LINE = GET_COLLECTION_ITEM(LINES,0)
OPEN = GET_VALUE(LINE,"OPEN")+0
HIGH = GET_VALUE(LINE,"HIGH")+0
LOW = GET_VALUE(LINE,"LOW")+0
RESULT = GET_VALUE(LINE,"CLOSE")+0
END FUNC
'===КОНЕЦ ПОЛУЧЕНИЕ ДАННЫХ С ГРАФИКА ===
P = GET_LINE("PRICE_LINE") 'ИДЕНТИФИКАТОР ЦЕНЫ
LOG(P)
'=== БЛОК ВЫВОД ДАННЫХ В ТАБЛИЦУ ===
FUNC LOG(CLOSE,OPEN,HIGH,LOW)
OUTPUT = CREATE_MAP()
OUTPUT = SET_VALUE(OUTPUT,"DATE",DATE)
OUTPUT = SET_VALUE(OUTPUT,"TIME",TIME)
OUTPUT = SET_VALUE(OUTPUT,"OPEN",OPEN)
OUTPUT = SET_VALUE(OUTPUT,"HIGH",HIGH)
OUTPUT = SET_VALUE(OUTPUT,"LOW",LOW)
OUTPUT = SET_VALUE(OUTPUT,"CLOSE",CLOSE)
END FUNC
DELETE_ALL_ITEMS() 'ФУНКЦИЯ УДАЛЕНИЯ СТАРЫХ ДАННЫХ ИЗ ТАБЛИЦЫ
ADD_ITEM(1,OUTPUT)
'=== КОНЕЦ ВЫВОД ДАННЫХ В ТАБЛИЦУ ===
END_PROGRAM
PARAMETER DATE;
PARAMETER_TITLE ДАТА;
PARAMETER_DESCRIPTION ДАТА;
PARAMETER_TYPE STRING(30);
END
PARAMETER TIME;
PARAMETER_TITLE ВРЕМЯ;
PARAMETER_DESCRIPTION ВРЕМЯ;
PARAMETER_TYPE STRING(30);
END
PARAMETER OPEN;
PARAMETER_TITLE ЦЕНА ОТК.;
PARAMETER_DESCRIPTION ЦЕНА ;
PARAMETER_TYPE STRING(30);
END
PARAMETER HIGH;
PARAMETER_TITLE ЦЕНА МАКС.;
PARAMETER_DESCRIPTION ЦЕНА ;
PARAMETER_TYPE STRING(30);
END
PARAMETER LOW;
PARAMETER_TITLE ЦЕНА МИН.;
PARAMETER_DESCRIPTION ЦЕНА ;
PARAMETER_TYPE STRING(30);
END
PARAMETER CLOSE;
PARAMETER_TITLE ЗАКР.;
PARAMETER_DESCRIPTION CLOSE;
PARAMETER_TYPE STRING(30);
END
END_PORTFOLIO_EX
PORTFOLIO_EX робокоп;
DESCRIPTION робокоп;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST FIRMID;
USE_CASE_SENSITIVE_CONSTANTS;
PROGRAM
'=== БЛОК ПОЛУЧЕНИЯ ДАТЫ И ВРЕМЕНИ ===
NEW_GLOBAL("DT", GET_DATETIME())
DTLINE = GET_VALUE(DT,"DATETIME")
DAY = SUBSTR(DTLINE, 0 , 2) 'ДЕНЬ
MONTH = SUBSTR(DTLINE, 3 , 2) 'МЕСЯЦ
YEAR = SUBSTR(DTLINE, 6 , 4) 'ГОД
DATE = YEAR & MONTH & DAY 'СКЛЕЙКА ДАТЫ
HOUR = SUBSTR(DTLINE, 11 , 2) 'ЧАСЫ
MINUTE = SUBSTR(DTLINE, 14 , 2) 'МИНУТЫ
SECOND = SUBSTR(DTLINE, 17 , 2) 'СЕКУНДЫ
TIME = HOUR & MINUTE & SECOND 'СКЛЕЙКА ВРЕМЕНИ
'=== КОНЕЦ ПОЛУЧЕНИЯ ДАТЫ И ВРЕМЕНИ ===
DT = GET_DATETIME() 'ОБНОВЛЕНИЕ ДАТЫ И ВРЕМЕНИ В СЛЕДУЩЕЙ ИТЕРАЦИИ
'=== БЛОК ПОЛУЧЕНИЕ ДАННЫХ С ГРАФИКА ===
FUNC GET_LINE(TAG)
CANDLE = GET_CANDLE_EX(TAG, DATE, TIME)
LINES = GET_VALUE(CANDLE,"LINES")
LINE = GET_COLLECTION_ITEM(LINES,0)
OPEN = GET_VALUE(LINE,"OPEN")+0
HIGH = GET_VALUE(LINE,"HIGH")+0
LOW = GET_VALUE(LINE,"LOW")+0
RESULT = GET_VALUE(LINE,"CLOSE")+0
END FUNC
'===КОНЕЦ ПОЛУЧЕНИЕ ДАННЫХ С ГРАФИКА ===
P = GET_LINE("PRICE_LINE") 'ИДЕНТИФИКАТОР ЦЕНЫ
LOG(P)
'=== БЛОК ВЫВОД ДАННЫХ В ТАБЛИЦУ ===
FUNC LOG(CLOSE,OPEN,HIGH,LOW)
OUTPUT = CREATE_MAP()
OUTPUT = SET_VALUE(OUTPUT,"DATE",DATE)
OUTPUT = SET_VALUE(OUTPUT,"TIME",TIME)
OUTPUT = SET_VALUE(OUTPUT,"OPEN",OPEN)
OUTPUT = SET_VALUE(OUTPUT,"HIGH",HIGH)
OUTPUT = SET_VALUE(OUTPUT,"LOW",LOW)
OUTPUT = SET_VALUE(OUTPUT,"CLOSE",CLOSE)
END FUNC
DELETE_ALL_ITEMS() 'ФУНКЦИЯ УДАЛЕНИЯ СТАРЫХ ДАННЫХ ИЗ ТАБЛИЦЫ
ADD_ITEM(1,OUTPUT)
'=== КОНЕЦ ВЫВОД ДАННЫХ В ТАБЛИЦУ ===
END_PROGRAM
PARAMETER DATE;
PARAMETER_TITLE ДАТА;
PARAMETER_DESCRIPTION ДАТА;
PARAMETER_TYPE STRING(30);
END
PARAMETER TIME;
PARAMETER_TITLE ВРЕМЯ;
PARAMETER_DESCRIPTION ВРЕМЯ;
PARAMETER_TYPE STRING(30);
END
PARAMETER OPEN;
PARAMETER_TITLE ЦЕНА ОТК.;
PARAMETER_DESCRIPTION ЦЕНА ;
PARAMETER_TYPE STRING(30);
END
PARAMETER HIGH;
PARAMETER_TITLE ЦЕНА МАКС.;
PARAMETER_DESCRIPTION ЦЕНА ;
PARAMETER_TYPE STRING(30);
END
PARAMETER LOW;
PARAMETER_TITLE ЦЕНА МИН.;
PARAMETER_DESCRIPTION ЦЕНА ;
PARAMETER_TYPE STRING(30);
END
PARAMETER CLOSE;
PARAMETER_TITLE ЗАКР.;
PARAMETER_DESCRIPTION CLOSE;
PARAMETER_TYPE STRING(30);
END
END_PORTFOLIO_EX