Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#31: 2018-12-12 13:05:17 ЛС | профиль | цитата
Если при пустом поле сначала пройтись по иконкам этих тэгов, то работает , а если что-то уже напечатал, то чёрта с два.

Вот отправил и решил редактировать. Всё. Тэги не работают.

Редактировалось 3 раз(а), последний 2018-12-12 13:08:02
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 85
Рейтинг: 0
#32: 2018-12-13 05:39:59 ЛС | профиль | цитата
Ох, и фиговая эта штука юлианский формат С помощью database4 ввел 2458465.5 потом 19.5 . только после этого встало всё на свои места. График стал писаться правильно. Я конечно понимаю, что БД маленькая будет,т.к. формат у этой даты маленький. Но для пользователя это - кошмар
Сейчас БД наберет данные буду пробовать писать запросы.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#33: 2018-12-13 09:53:56 ЛС | профиль | цитата
RT9U писал(а):
Но для пользователя это - кошмар

Никакого кошмара для пользователя. Ты имел ввиду себя ?

Add(DSC_Query,3796992,539,350)
{
@Color=16755455
DSManager="rt"
link(onQuery,1484771:doEvent,[])
}
Add(FormatStr,10699427,497,350)
{
@Color=16755455
DataCount=1
Mask="SELECT count() FROM data\r\n WHERE data = cast(julianday('now') AS INTEGER)+0.5; "
link(onFString,3796992:doQuery,[])
}
Add(IndexToChanel,1484771,581,350)
{
@Color=16755455
link(onEvent1,3483672:doString,[])
}
Add(FormatStr,3483672,630,350)
{
@Color=16755455
DataCount=1
Mask="INSERT INTO data values(cast(julianday('now', 'localtime') AS INTEGER)+0.5,%1);"
}

RT9U_4.JPG

Редактировалось 2 раз(а), последний 2018-12-13 09:57:18
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 85
Рейтинг: 0
#34: 2018-12-13 11:04:25 ЛС | профиль | цитата

Ты имел ввиду себя ?

Конечно себя
Я вообще этим занимаюсь, чтоб мозги не засохли.
По образованию не программист я, а радиоинженер.
Поэтому и много вопросов и не поняток.
Хочу разобраться и немнго научиться работать в HIASM. Я думаю, что это неплохо ....
Я говорил, что структура запросов к БД, сложна пока для меня, я многое понимаю. Вот объясните, что это за запрос и как он работает
select t,strftime('%H',data)+cast(strftime('%M',data) as Real)/60 AS tm from data ORDER BY tm;

не понятны выражения strftime cast tm Real. Tad, Я просто хочу разобраться, а не получать готовые решения..
карма: 0

0
Ответов: 85
Рейтинг: 0
#35: 2018-12-13 12:29:38 ЛС | профиль | цитата
Так как понимаю сам , может неправильно, подправите..
Выбор t, далее вызывается фунция времени ( далее сложное вычисление данной функции. Вызывается время в минутах и дате, как реальное. Для перевода в часы делится на 60 Далее эта часть складывается с вызовом функции времени по часам и дате. и из всего этого аргумента вычисляется функция времени из data и сортируется по tm

Что такое cast и tm ???

Короче взрыв мозга !!!
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#36: 2018-12-13 13:40:31 ЛС | профиль | цитата
RT9U писал(а):
SELECT t,strftime('%H',data)+cast(strftime('%M',data) as Real)/60 AS tm from data ORDER BY tm;

SELECT -- Выбрать
t, -- температуру
strftime('%H',data)--получаем часы из колонки data например 19 часов
-- получить минуты strftime('%M',data) например 30 минут
-- т.к. 30/60 в SQLite = 0 (div), то cast(strftime('%M',data) as Real) преобразовываем минуты в Real
-- т.е. минуты станут 30.0
+ cast(strftime('%M',data) as Real)/60
-- можно без CAST - strftime('%M',data)/60.0
-- и результат 19+0.5=19.5 назвал tm (можно было Вася или Петя)
from data
ORDER BY tm;
-- Чтобы не писать
-- ORDER BY strftime('%H',data)+cast(strftime('%M',data) as Real)/60

RT9U писал(а):
вычисляется функция времени из data
вычисляется точка времени для графика.

Редактировалось 5 раз(а), последний 2018-12-13 13:52:14
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 85
Рейтинг: 0
#37: 2018-12-14 07:01:48 ЛС | профиль | цитата
сегодня утром пришел. Понял, что на график предыдущего дня накладывается новый. Пока некогда заниматься сегодня на работе -завал!!!. может на выходных посмотрю. Я так думаю что это нечитаемо


--- Добавлено в 2018-12-14 07:07:12

сегодня утром пришел. Понял, что на график предыдущего дня накладывается новый. Пока некогда заниматься сегодня на работе -завал!!!. может на выходных посмотрю. Я так думаю что это нечитаемо
график.JPG

Редактировалось 2 раз(а), последний 2018-12-14 07:07:12
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#38: 2018-12-14 07:38:35 ЛС | профиль | цитата
А так ?


Add(Label,6604675,287,259)
{
Left=55
Top=15
Width=479
Height=20
Color=15780518
Font=[Courier New,10,5,16711680,204]
Transparent=0
Caption="Температура в помещении на: год месяц день "
AutoSize=1
}
Add(MainForm,15663453,77,140)
{
Width=685
Height=581
Color=15780518
Font=[MS Sans Serif,8,0,16711680,1]
Caption="Температура в помещении"
BorderStyle=1
Position=1
Point(onClose)
Point(Close)
link(onCreate,7935657:doOpen,[])
}
Add(Plotter,6761042,329,259)
{
Left=20
Top=50
Width=670
Height=485
Color=16777215
Enabled=1
Name="tp"
GridX=24
GridY=25
MinH=-10
MaxH=40
MaxW=24
}
Add(Label,7506625,77,259)
{
Left=50
Top=195
Width=165
Color=12639424
Transparent=0
Caption="Верхняя температурная норма"
}
Add(Label,5273543,119,259)
{
Left=50
Top=260
Width=160
Color=12639424
Transparent=0
Caption="Нижняя температурная норма"
}
Add(PlotAxis,16137541,245,259)
{
Grapher="tp"
Name="ноль"
Color=0
Size=2
}
Add(PlotAxis,4916857,203,259)
{
Grapher="tp"
Name="19"
Color=65280
Style=1
Y=19
}
Add(PlotAxis,5954945,161,259)
{
Grapher="tp"
Name="24"
Color=8421631
Style=1
Y=24
}
Add(DS_SQLite,7935657,140,154)
{
Name="chrt"
FileName="C:\\Room_temperature.db"
link(onOpen,14820311:doEvent1,[])
}
Add(PlotLines,14221590,399,259)
{
Grapher="tp"
Size=2
link(ValueY,8253175:Var2,[])
link(ValueX,12918382:Value2,[])
}
Add(DSC_Query,2261516,329,175)
{
DSManager="chrt"
link(onQuery,12918382:doValue,[])
link(onColumns,14221590:doClear,[(380,188)(380,272)])
}
Add(MT_MultiMem,12918382,399,175)
{
link(onData,14555005:doEvent1,[])
}
Add(DSC_Query,2330491,217,14)
{
SQL="SELECT DISTINCT strftime('%Y', data) FROM data;"
DSManager="chrt"
link(onQuery,6143896:doAdd,[])
link(onColumns,6143896:doClear,[])
}
Add(Hub,14820311,182,154)
{
OutCount=4
link(onEvent1,2330491:doQuery,[(206,160)(206,20)])
link(onEvent2,8415418:doWork2,[(224,167)(224,69)])
link(onEvent3,2998482:doWork2,[(248,174)(248,125)])
link(onEvent4,7251156:doWork2,[])
}
Add(ComboBox,6143896,266,14)
{
Left=307
Top=15
Height=21
Color=16777215
Font=[Courier New,9,1,255,204]
Text="9999"
ReadOnly=0
Point(EditText)
link(onClick,8415418:doWork1,[(310,27)(310,47)(256,47)])
}
Add(ComboBox,3791527,378,63)
{
Left=420
Top=15
Width=40
Height=21
Color=16777215
Font=[Courier New,9,1,255,204]
Text="99"
ReadOnly=0
Point(EditText)
link(onClick,2998482:doWork1,[(422,76)(422,99)(319,99)])
}
Add(ComboBox,6004007,427,119)
{
Left=508
Top=15
Width=40
Height=21
Color=16777215
Font=[Courier New,9,1,255,204]
Text="99"
ReadOnly=0
Point(EditText)
link(onClick,7251156:doWork1,[(470,132)(470,156)(256,156)])
}
Add(FormatStr,10998629,280,63)
{
DataCount=1
Mask="SELECT DISTINCT strftime('%m', data) FROM data WHERE strftime('%Y', data)='%1';"
link(onFString,9057737:doQuery,[])
link(Str1,6002894:Var2,[])
}
Add(DSC_Query,9057737,329,63)
{
DSManager="chrt"
link(onQuery,3791527:doAdd,[])
link(onColumns,3791527:doClear,[])
}
Add(FormatStr,10501672,329,119)
{
Mask="SELECT DISTINCT strftime('%d', data) FROM data WHERE (strftime('%Y', data)='%1') and (strftime('%m', data)='%2');"
link(onFString,1775200:doQuery,[])
link(Str1,6002894:Var3,[(335,54)])
link(Str2,3794592:Var2,[])
}
Add(DSC_Query,1775200,378,119)
{
DSManager="chrt"
link(onQuery,6004007:doAdd,[])
link(onColumns,6004007:doClear,[])
}
Add(GetDataEx,6002894,280,49)
{
link(Data,6143896:EditText,[])
}
Add(HubEx,8415418,252,63)
{
link(onEvent,10998629:doString,[])
}
Add(HubEx,2998482,315,119)
{
link(onEvent,10501672:doString,[])
}
Add(FormatStr,2233980,266,175)
{
DataCount=3
Mask="SELECT t,strftime('%H',data)+strftime('%M',data)/60.0 AS tm from data \r\n WHERE date(data)='%1-%2-%3'\r\n ORDER BY tm;"
link(onFString,2261516:doQuery,[])
link(Str1,6002894:Var1,[(272,54)])
link(Str2,3794592:Var1,[(279,107)])
link(Str3,6004007:EditText,[(286,164)(447,164)])
}
Add(HubEx,7251156,252,175)
{
link(onEvent,2233980:doString,[])
}
Add(GetDataEx,3794592,336,102)
{
Angle=1
link(Data,3791527:EditText,[(398,107)])
}
Add(PlotAxis,14603972,469,259)
{
Grapher="tp"
Color=16711680
Angle=90
link(Y,8253175:Var3,[(482,250)])
}
Add(Hub,14555005,441,175)
{
link(onEvent1,14221590:doAdd,[(507,181)(507,301)(388,301)(388,265)])
link(onEvent2,14603972:doAxis,[(462,188)(462,265)])
}
Add(GetDataEx,8253175,399,245)
{
link(Data,12918382:Value1,[])
}
Add(Timer,12080299,182,189)
{
link(onTimer,7251156:doWork3,[(256,195)])
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 85
Рейтинг: 0
#39: 2018-12-17 07:14:18 ЛС | профиль | цитата
не работает как надо. Вертикальная линия, как я понял должна перемещаться при каждом запросе из базы. Она стоит как вкопанная в районе 19 часов.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#40: 2018-12-17 08:58:49 ЛС | профиль | цитата
RT9U писал(а):
стоит как вкопанная в районе 19 часов.
Картинку покажи.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 85
Рейтинг: 0
#41: 2018-12-17 09:00:05 ЛС | профиль | цитата
подсоединилл точку X в PlotAxis Вроде заработала. Понаблюдаю еще.

Add(Label,5273543,476,385)
{
Left=50
Top=260
Width=160
Color=12639424
Transparent=0
Caption="Нижняя температурная норма"
}
Add(Label,7506625,434,385)
{
Left=50
Top=195
Width=165
Color=12639424
Transparent=0
Caption="Верхняя температурная норма"
}
Add(Label,6604675,644,385)
{
Left=55
Top=15
Width=479
Height=20
Color=15780518
Font=[Courier New,10,1,16711680,204]
Transparent=0
Caption="Температура в помещении на: год месяц день "
AutoSize=1
}
Add(MainForm,15663453,434,266)
{
Width=1317
Height=570
Color=15780518
Font=[MS Sans Serif,8,0,16711680,1]
Caption="Температура в помещении"
BorderStyle=1
Position=1
Point(onClose)
Point(Close)
link(onCreate,7935657:doOpen,[])
}
Add(Plotter,6761042,686,385)
{
Left=12
Top=50
Width=1290
Height=485
Color=16777215
Enabled=1
Name="tp"
GridX=24
GridY=25
MinH=-10
MaxH=40
MaxW=24
}
Add(PlotAxis,16137541,602,385)
{
Grapher="tp"
Name="ноль"
Color=0
Size=2
}
Add(PlotAxis,4916857,560,385)
{
Grapher="tp"
Name="19"
Color=65280
Style=1
Y=19
}
Add(PlotAxis,5954945,518,385)
{
Grapher="tp"
Name="24"
Color=8421631
Style=1
Y=24
}
Add(DS_SQLite,7935657,497,280)
{
Name="rt"
FileName="C:\\Room_temperature.db"
link(onOpen,14820311:doEvent1,[])
}
Add(PlotLines,14221590,756,385)
{
Grapher="tp"
Size=2
link(ValueY,8253175:Var2,[])
link(ValueX,1978545:Var2,[])
}
Add(DSC_Query,2261516,686,301)
{
DSManager="rt"
link(onQuery,12918382:doValue,[])
link(onColumns,14221590:doClear,[(737,314)(737,398)])
}
Add(MT_MultiMem,12918382,756,301)
{
link(onData,14555005:doEvent1,[])
}
Add(DSC_Query,2330491,574,112)
{
SQL="SELECT DISTINCT strftime('%Y', data) FROM data;"
DSManager="rt"
link(onQuery,6143896:doAdd,[])
link(onColumns,6143896:doClear,[])
}
Add(Hub,14820311,539,280)
{
OutCount=4
link(onEvent1,2330491:doQuery,[(563,286)(563,118)])
link(onEvent2,8415418:doWork2,[(581,293)(581,195)])
link(onEvent3,2998482:doWork2,[(605,300)(605,251)])
link(onEvent4,7251156:doWork2,[])
}
Add(ComboBox,6143896,623,112)
{
Left=307
Top=15
Height=21
Color=16777215
Font=[Courier New,9,1,255,204]
Text="9999"
ReadOnly=0
Point(EditText)
link(onClick,8415418:doWork1,[(667,125)(667,173)(613,173)])
}
Add(ComboBox,3791527,735,189)
{
Left=420
Top=15
Width=40
Height=21
Color=16777215
Font=[Courier New,9,1,255,204]
Text="99"
ReadOnly=0
Point(EditText)
link(onClick,2998482:doWork1,[(779,202)(779,225)(676,225)])
}
Add(ComboBox,6004007,812,245)
{
Left=508
Top=15
Width=40
Height=21
Color=16777215
Font=[Courier New,9,1,255,204]
Text="99"
ReadOnly=0
Point(EditText)
link(onClick,7251156:doWork1,[(856,258)(856,281)(613,281)])
}
Add(FormatStr,10998629,637,189)
{
DataCount=1
Mask="SELECT DISTINCT strftime('%m', data) FROM data WHERE strftime('%Y', data)='%1';"
link(onFString,9057737:doQuery,[])
link(Str1,6002894:Var2,[])
}
Add(DSC_Query,9057737,686,189)
{
DSManager="rt"
link(onQuery,3791527:doAdd,[])
link(onColumns,3791527:doClear,[])
}
Add(FormatStr,10501672,686,245)
{
Mask="SELECT DISTINCT strftime('%d', data) FROM data WHERE (strftime('%Y', data)='%1') and (strftime('%m', data)='%2');"
link(onFString,1775200:doQuery,[])
link(Str1,6002894:Var3,[(692,180)])
link(Str2,3794592:Var2,[])
}
Add(DSC_Query,1775200,735,245)
{
DSManager="rt"
link(onQuery,6004007:doAdd,[])
link(onColumns,6004007:doClear,[])
}
Add(GetDataEx,6002894,637,175)
{
link(Data,6143896:EditText,[])
}
Add(HubEx,8415418,609,189)
{
link(onEvent,10998629:doString,[])
}
Add(HubEx,2998482,672,245)
{
link(onEvent,10501672:doString,[])
}
Add(FormatStr,2233980,623,301)
{
DataCount=3
Mask="SELECT t,strftime('%H',data)+strftime('%M',data)/60.0 AS tm from data \r\n WHERE date(data)='%1-%2-%3'\r\n ORDER BY tm;"
link(onFString,2261516:doQuery,[])
link(Str1,6002894:Var1,[(629,180)])
link(Str2,3794592:Var1,[(636,233)])
link(Str3,6004007:EditText,[(643,290)])
}
Add(HubEx,7251156,609,301)
{
link(onEvent,2233980:doString,[])
}
Add(GetDataEx,3794592,693,228)
{
Angle=1
link(Data,3791527:EditText,[(755,233)])
}
Add(PlotAxis,14603972,826,385)
{
Grapher="tp"
Name="kl"
Color=16711680
Angle=90
link(X,1978545:Var3,[(832,348)])
link(Y,8253175:Var1,[(839,363)(753,363)(753,355)])
}
Add(Hub,14555005,798,301)
{
link(onEvent1,14221590:doAdd,[(864,307)(864,427)(745,427)(745,391)])
link(onEvent2,14603972:doAxis,[(819,314)(819,391)])
}
Add(GetDataEx,8253175,756,350)
{
link(Data,12918382:Value1,[])
}
Add(Timer,12080299,539,315)
{
link(onTimer,7251156:doWork3,[(613,321)])
}
Add(GetDataEx,1978545,763,343)
{
link(Data,12918382:Value2,[])
}

карма: 0

0
Ответов: 16884
Рейтинг: 1239
#42: 2018-12-17 09:11:34 ЛС | профиль | цитата
Замени строку в FormatStr ComboBox-а дней на

SELECT DISTINCT strftime('%d', data) AS de FROM data WHERE (strftime('%Y%m', data)='%1%2') ORDER BY de DESC;
так вроде удобней.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 85
Рейтинг: 0
#43: 2018-12-17 09:17:58 ЛС | профиль | цитата
до подключения точки
до1.JPG
после подключения точки
после2.JPG
карма: 0

0
Ответов: 85
Рейтинг: 0
#44: 2018-12-17 10:35:14 ЛС | профиль | цитата
Tad, в 33 мессаге Вы дали цепочку элементов,для определения начало суток юлиановского календаря..
Не хочет работать эта цепочка

Может там ошибка? Сам посмотрел изъяна не нашел...

Add(MainForm,6229021,539,329)
{
Width=451
Height=128
Color=15780518
Caption="Температура в помещении"
BorderStyle=1
Position=1
Point(onClose)
Point(Close)
link(onCreate,7098561:doEvent1,[])
link(Close,11914673:Left,[(545,317)(523,317)(523,459)(545,459)])
}
Add(Hub,7098561,588,343)
{
OutCount=4
link(onEvent1,7935657:doOpen,[])
link(onEvent2,4937493:doEnumPorts,[(616,356)(616,363)])
link(onEvent3,4404277:doTimer,[(614,363)(614,447)(548,447)(548,531)])
link(onEvent4,3233130:doString,[(690,370)(690,608)])
}
Add(DS_SQLite,7935657,833,343)
{
Name="rt"
FileName="C:\\Room_temperature.db"
link(onOpen,1699441:doExec,[])
}
Add(DSC_Exec,1699441,875,343)
{
SQL="CREATE TABLE IF NOT EXISTS data(\r\n data REAL,\r\n t REAL);\r\n "
DSManager="rt"
}
Add(Label,7480715,791,357)
{
Left=60
Top=14
Width=83
Height=42
Color=15780518
Font=[MS Sans Serif,8,1,16711680,1]
WinStyle=4
Caption="COM-порт №°\r\n\r\nСкорость"
AutoSize=1
}
Add(If_else,2513173,763,434)
{
Type=5
Op2=String()
link(onTrue,8651886:doEvent1,[])
}
Add(ComboBox,7690426,749,357)
{
Left=125
Top=39
Width=75
Height=21
Color=15780518
Font=[MS Sans Serif,8,1,0,1]
WinStyle=4
Strings=#3:300|3:600|4:1200|4:2400|4:4800|4:9600|5:14400|5:19200|5:28800|5:38400|5:57600|6:115200|
Text="19200"
Point(EditText)
}
Add(ComboBox,8658105,686,357)
{
Left=150
Top=13
Width=50
Height=21
Color=15780518
Font=[MS Sans Serif,8,1,0,1]
WinStyle=4
Text=""
DataType=1
ReadOnly=0
DropDownCount=15
Point(EditText)
}
Add(Switch,7986566,630,413)
{
DataOn=String(255,СТОП)
DataOff=String(0,ПУСК)
Point(State)
Point(onOff)
Point(onOn)
link(onSwitch,11914673:doSplit,[(670,419)(670,407)(533,407)(533,412)])
link(onOff,6263210:doClose,[(681,426)(681,440)])
link(onOn,6263210:doOpen,[])
}
Add(COM,6263210,700,427)
{
BaudRate=15
link(onRead,2513173:doCompare,[])
link(Port,8658105:EditText,[])
link(BaudRate,7690426:EditText,[(713,415)(769,415)])
}
Add(EnumCOM,4937493,630,357)
{
OutType=0
link(onEnumPorts,8658105:doAdd,[])
}
Add(BlockFind,1696897,882,434)
{
IncludeBlock=1
StartBlock="T="
EndBlock="C"
link(onSearch,8017792:doValue,[])
}
Add(BitBtn,12852987,581,406)
{
Left=70
Top=66
Width=125
Color=0
Font=[MS Sans Serif,8,1,16777215,1]
Caption="Пуск"
Point(doColor)
link(onClick,7986566:doSwitch,[(621,412)(621,419)])
}
Add(StrPart,11914673,539,406)
{
Char=","
Point(Left)
link(onSplit,12852987:doCaption,[])
link(onPart,12852987:doColor,[])
}
Add(ChangeMon,9240330,980,434)
{
link(onData,3396857:doString,[])
}
Add(DSC_Exec,6082265,1120,434)
{
DSManager="rt"
link(onExec,6263210:doRXClear,[(1168,440)(1168,595)(688,595)(688,447)])
link(onError,6229021:doCaption,[(1179,447)(1179,708)(527,708)(527,335)])
}
Add(FormatStr,3396857,1036,434)
{
DataCount=1
Mask="INSERT INTO data values(julianday('now', 'localtime'), %1);"
link(onFString,12623585:doWork2,[])
link(Str1,8179809:Var3,[(1042,422)(994,422)(994,551)])
}
Add(Timer,4404277,560,525)
{
Interval=32
link(onTimer,13091773:doData,[])
}
Add(DoData,13091773,609,525)
{
Data=Integer(30)
link(onEventData,6263210:doRead,[(671,531)(671,461)])
}
Add(Memo,15265814,840,462)
{
Left=225
Top=15
Width=210
AddType=1
ScrollBars=2
}
Add(Hub,8651886,812,434)
{
link(onEvent1,1696897:doSearch,[])
link(onEvent2,15265814:doAdd,[(836,447)(836,468)])
}
Add(Memory,8017792,938,434)
{
link(onData,9240330:doData,[])
}
Add(HubEx,12623585,1092,434)
{
link(onEvent,6082265:doExec,[])
}
Add(FormatStr,3233130,777,602)
{
Mask="SELECT count() FROM data WHERE data = cast(julianday('now') AS INTEGER)+0.5; \r\n"
link(onFString,10812135:doQuery,[])
}
Add(DSC_Query,10812135,819,602)
{
DSManager="rt"
link(onQuery,10911024:doEvent,[])
}
Add(IndexToChanel,10911024,861,602)
{
link(onEvent1,9251794:doString,[])
}
Add(FormatStr,9251794,917,602)
{
DataCount=1
Mask="INSERT INTO data values(cast(julianday('now', 'localtime') AS INTEGER)+0.5,%1);\r\n"
link(onFString,12623585:doWork3,[(1096,608)])
link(Str1,8179809:Var2,[(923,578)(944,578)])
}
Add(GetDataEx,8179809,938,546)
{
link(Data,8017792:Value,[])
}


--- Добавлено в 2018-12-17 10:36:25

Точка в 00:00 не стаивться, из-за этого ось времени начитается не с нуля.

Редактировалось 1 раз(а), последний 2018-12-17 10:36:25
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#45: 2018-12-17 11:01:35 ЛС | профиль | цитата
Add(MainForm,6229021,287,119)
{
Width=451
Height=128
Color=15780518
Caption="Температура в помещении"
BorderStyle=1
Position=1
Point(onClose)
Point(Close)
link(onCreate,7098561:doEvent1,[])
link(Close,11914673:Left,[(293,107)(271,107)(271,249)(293,249)])
}
Add(Hub,7098561,336,133)
{
OutCount=4
link(onEvent1,7935657:doOpen,[])
link(onEvent2,4937493:doEnumPorts,[(364,146)(364,153)])
link(onEvent3,2606397:doTimer,[(362,153)(362,269)(289,269)(289,342)])
link(onEvent4,10812135:doQuery,[(373,160)(373,398)])
}
Add(DS_SQLite,7935657,581,133)
{
Name="rt"
FileName="C:\\Room_temperature.db"
link(onOpen,1699441:doExec,[])
}
Add(DSC_Exec,1699441,623,133)
{
SQL="CREATE TABLE IF NOT EXISTS data(\r\n data REAL,\r\n t REAL);\r\n "
DSManager="rt"
}
Add(Label,7480715,539,147)
{
Left=60
Top=14
Width=83
Height=42
Color=15780518
Font=[MS Sans Serif,8,1,16711680,1]
WinStyle=4
Caption="COM-порт №°\r\n\r\nСкорость"
AutoSize=1
}
Add(If_else,2513173,511,224)
{
Type=5
Op2=String()
link(onTrue,8651886:doEvent1,[])
}
Add(ComboBox,7690426,497,147)
{
Left=125
Top=39
Width=75
Height=21
Color=15780518
Font=[MS Sans Serif,8,1,0,1]
WinStyle=4
Strings=#3:300|3:600|4:1200|4:2400|4:4800|4:9600|5:14400|5:19200|5:28800|5:38400|5:57600|6:115200|
Text="19200"
Point(EditText)
}
Add(ComboBox,8658105,434,147)
{
Left=150
Top=13
Width=50
Height=21
Color=15780518
Font=[MS Sans Serif,8,1,0,1]
WinStyle=4
Text=""
DataType=1
ReadOnly=0
DropDownCount=15
Point(EditText)
}
Add(Switch,7986566,378,203)
{
DataOn=String(255,СТОП)
DataOff=String(0,ПУСК)
Point(State)
Point(onOff)
Point(onOn)
link(onSwitch,11914673:doSplit,[(418,209)(418,197)(281,197)(281,202)])
link(onOff,6263210:doClose,[(429,216)(429,230)])
link(onOn,6263210:doOpen,[])
}
Add(COM,6263210,448,217)
{
BaudRate=15
link(onRead,2513173:doCompare,[])
link(Port,8658105:EditText,[])
link(BaudRate,7690426:EditText,[(461,205)(517,205)])
}
Add(EnumCOM,4937493,378,147)
{
OutType=0
link(onEnumPorts,8658105:doAdd,[])
}
Add(BlockFind,1696897,630,224)
{
IncludeBlock=1
StartBlock="T="
EndBlock="C"
link(onSearch,8017792:doValue,[])
}
Add(BitBtn,12852987,329,196)
{
Left=70
Top=66
Width=125
Color=0
Font=[MS Sans Serif,8,1,16777215,1]
Caption="Пуск"
Point(doColor)
link(onClick,7986566:doSwitch,[(369,202)(369,209)])
}
Add(StrPart,11914673,287,196)
{
Char=","
Point(Left)
link(onSplit,12852987:doCaption,[])
link(onPart,12852987:doColor,[])
}
Add(ChangeMon,9240330,728,224)
{
link(onData,3396857:doString,[])
}
Add(DSC_Exec,6082265,868,224)
{
DSManager="rt"
link(onExec,6263210:doRXClear,[(916,230)(916,385)(436,385)(436,237)])
link(onError,6229021:doCaption,[(927,237)(927,498)(275,498)(275,125)])
}
Add(FormatStr,3396857,784,224)
{
DataCount=1
Mask="INSERT INTO data values(julianday('now', 'localtime'), %1);"
link(onFString,12623585:doWork2,[])
}
Add(DoData,13091773,399,294)
{
Data=Integer(30)
link(onEventData,6263210:doRead,[(440,300)(440,251)])
}
Add(Memo,15265814,588,252)
{
Left=225
Top=15
Width=210
AddType=1
ScrollBars=2
}
Add(Hub,8651886,560,224)
{
link(onEvent1,1696897:doSearch,[])
link(onEvent2,15265814:doAdd,[(584,237)(584,258)])
}
Add(Memory,8017792,686,224)
{
link(onData,9240330:doData,[])
}
Add(HubEx,12623585,840,224)
{
link(onEvent,6082265:doExec,[])
}
Add(DSC_Query,10812135,602,392)
{
SQL="SELECT count() FROM data WHERE julianday(date('now','localtime')||' 00:00:00')=data;"
DSManager="rt"
link(onQuery,10911024:doEvent,[])
}
Add(IndexToChanel,10911024,644,392)
{
link(onEvent1,9251794:doString,[])
}
Add(FormatStr,9251794,686,392)
{
DataCount=1
Mask="INSERT INTO data values(cast(julianday('now', 'localtime') AS INTEGER)+0.5,%1);\r\n"
link(onFString,12623585:doWork3,[(844,398)])
link(Str1,8017792:Value,[])
}
Add(Timer,2606397,315,336)
{
Enable=1
link(onTimer,12753096:doQuery,[])
}
Add(DSC_Query,12753096,357,336)
{
SQL="SELECT (strftime('%M','now','localtime')*60 + strftime('%S', 'now','localtime')) % (15*60);"
DSManager="rt"
link(onQuery,11179669:doEvent,[])
}
Add(IndexToChanel,11179669,399,336)
{
Count=1
link(onEvent1,13091773:doData,[(443,342)(443,321)(387,321)(387,300)])
}

Часа на два я пропал.

Редактировалось 1 раз(а), последний 2018-12-17 11:05:06
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)