Вверх ↑
Ответов: 3349
Рейтинг: 233
#1: 2011-05-15 18:09:49 ЛС | профиль | цитата
code_23961.txt
------------ Дoбавленo в 18.06:
Просто так
------------ Дoбавленo в 18.09:
Add(MainForm,2953706,336,364)
{
 BorderStyle=3
 Position=1
 link(onCreate,15053634:doRandomize,[(380,384)(380,342)])
}
Add(Button,12889080,245,322)
{
 Left=5
 Top=10
 Width=115
 Caption="Заполнить массив"
 link(onClick,8973692:doEvent1,[])
}
Add(ListBox,14809461,469,329)
{
 Left=130
 Top=10
 Width=260
 Height=260
}
Add(Button,990649,413,434)
{
 Left=5
 Top=35
 Width=115
 Height=55
 Caption="Сортировать и найти минимум и максимум"
 link(onClick,8163180:doSort,[])
}
Add(Random,15053634,392,329)
{
 Min=-100
 Max=500
 link(onRandom,14806759:doWork2,[])
}
Add(For,3168423,336,329)
{
 End=9
 link(onEvent,15053634:doRandom,[])
}
Add(Label,13541956,602,490)
{
 Left=10
 Top=100
 Width=58
 Height=17
 Caption="Минимум: "
}
Add(Label,13820053,693,448)
{
 Left=10
 Top=125
 Width=64
 Height=17
 Caption="Максимум: "
}
Add(Hub,8973692,287,322)
{
 link(onEvent1,2716009:doWork2,[(323,328)(323,315)(235,315)(235,420)(428,420)(428,342)])
 link(onEvent2,3168423:doFor,[])
}
Add(ArraySort,8163180,483,434)
{
 ArrayType=2
 link(onEndSort,6222988:doEvent1,[])
 link(Array,10540688:Var2,[])
}
Add(ArrayEnum,4620704,567,441)
{
 link(onItem,4960085:doEvent1,[])
 link(onEndEnum,13010695:doRead,[(605,454)(605,485)(457,485)(457,496)])
 link(Array,8163180:ArraySort,[(573,422)(558,422)(558,479)(489,479)])
}
Add(HubEx,14806759,448,329)
{
 link(onEvent,14809461:doAdd,[])
}
Add(Hub,6222988,525,434)
{
 link(onEvent1,2716009:doWork3,[(551,440)(551,392)(452,392)])
 link(onEvent2,4620704:doEnum,[])
}
Add(HubEx,2716009,448,336)
{
 link(onEvent,14809461:doClear,[])
}
Add(GetDataEx,10540688,483,406)
{
 link(Data,14809461:Array,[])
}
Add(FormatStr,8780165,546,490)
{
 Mask="Минимум: %1"
 link(onFString,13541956:doText,[])
}
Add(ArrayRW,13010695,469,490)
{
 Index=Integer(0)
 link(onRead,8780165:doString,[])
 link(Array,10540688:Var1,[(475,411)])
}
Add(FormatStr,2937173,637,448)
{
 Mask="Максимум: %1"
 link(onFString,13820053:doText,[])
}
Add(Hub,4960085,609,441)
{
 link(onEvent1,14806759:doWork3,[(636,447)(636,317)(452,317)])
 link(onEvent2,2937173:doString,[])
}


------------ Дoбавленo в 18.09:
Так лучше
карма: 1

0
файлы: 1code_23961.txt [2.5KB] [837]