Программка для отрисовывания графика по координатам, можно загрузить из txt если подумать можно и из xls но тем не менее прикольно получилось. Во косяк есть 0 индекс не идёт в расчёт так как расчёт идёт с 1 и +1 пока мыслей как чтоб использовать индекс 0
Add(MainForm,2953706,49,168) { Left=200 Top=100 Width=1281 Height=831 Caption="График" TransparentManager="1" } Add(Button,14769202,189,427) { Left=10 Top=175 Width=70 Height=50 Caption="Начертить" link(onClick,2462089:doEvent1,[]) } Add(PlotLines,7461645,539,441) { Grapher="1" link(ValueY,16735571:Item,[]) link(ValueX,10530263:Var2,[(552,431)(440,431)]) } Add(Plotter,11537553,399,518) { Left=175 Top=65 Width=975 Height=680 Name="1" } Add(RichEdit,6908701,525,273) { Left=100 Top=35 Width=65 Height=710 ScrollBars=2 Point(doLoad) Point(FileName) link(onChange,12572246:doValue,[]) link(FileName,673039:Value,[(552,234)(517,234)]) } Add(ArrayRW,16735571,539,371) { link(Array,6908701:Array,[]) } Add(RichEdit,3351144,681,247) { Left=1160 Top=35 Width=80 Height=710 Enabled=1 ScrollBars=2 } Add(Hub,1843252,490,336) { InCount=2 OutCount=4 link(onEvent1,3351144:doAdd,[(592,342)(592,253)]) link(onEvent3,16735571:doRead,[(522,356)(522,377)]) } Add(Timer,13474102,322,434) { Interval=25 Enable=1 Point(doAutoStop) link(onTimer,319466:doEvent1,[]) } Add(Memory,12572246,609,273) { Point(Data) link(onData,13474102:doAutoStop,[(677,279)(677,490)(317,490)(317,454)]) link(Data,6908701:Count,[(615,317)(538,317)]) } Add(Hub,2462089,245,427) { link(onEvent2,13474102:doTimer,[]) } Add(Hub,319466,378,434) { link(onEvent1,7339589:doOperation,[(406,440)(406,377)]) link(onEvent2,7461645:doAdd,[]) } Add(Math,7339589,420,371) { Op1=1 Point(doClear) link(onResult,1843252:doEvent1,[(471,377)(471,342)]) link(Op2,10530263:Var3,[(433,359)(448,359)(448,417)]) } Add(Button,1862410,189,497) { Left=15 Top=305 Width=60 Height=55 Caption="Очистка" link(onClick,10386875:doEvent1,[(265,503)(265,510)]) } Add(Hub,10386875,308,504) { OutCount=5 link(onEvent1,11537553:doClear,[(343,510)(343,524)]) link(onEvent2,7339589:doClear,[(371,517)(371,384)]) link(onEvent3,13474102:doStop,[(334,524)(334,486)(310,486)(310,447)]) link(onEvent5,3351144:doClear,[(502,538)(502,260)]) } Add(GetDataEx,10530263,434,412) { Angle=3 link(Data,7339589:Result,[(426,417)]) } Add(ODialog,8530933,434,189) { Filter="Все|*.*" Title="Выбор файла" FileName="" Point(FileName) link(onExecute,673039:doValue,[]) } Add(Button,9437597,357,189) { Left=10 Top=65 Width=70 Height=40 Caption="Файл txt" link(onClick,8530933:doExecute,[]) } Add(Memory,673039,511,189) { link(onData,16361318:doData,[]) } Add(DoData,16361318,567,189) { Data=Integer(1) link(onEventData,6908701:doLoad,[(611,195)(611,247)(513,247)(513,300)]) }
Отредактировано Phenix (2022-10-07 13:09:28)