HiAsm - Конструктор программ

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » HiAsm - Конструктор программ » Готовые схемы » График для дашборда


График для дашборда

Сообщений 1 страница 2 из 2

1

https://forumupload.ru/uploads/001b/10/a7/53/t871971.jpg
Программка для отрисовывания графика по координатам, можно загрузить из 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)

0

2

И наконец то сам дашборд, просьба сильно не обсуждать а по советовать, могу купить красивый график правда код не уместился пришлось txt сохранить
https://kurfin.ru/files/Dachbord/Dashbord.txt

Отредактировано Phenix (2023-04-27 11:05:10)

0


Вы здесь » HiAsm - Конструктор программ » Готовые схемы » График для дашборда


Рейтинг форумов | Создать форум бесплатно