Вверх ↑
Ответов: 85
Рейтинг: 0
#1: 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 не стаивться, из-за этого ось времени начитается не с нуля.
карма: 0

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