Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#61: 2013-04-05 20:04:33 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2021-05-21 08:40:58
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#62: 2013-04-05 20:06:34 ЛС | профиль | цитата
г. ость, спасибо. Правда у меня семёрка.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 80
Рейтинг: 4
#63: 2013-04-05 20:09:08 ЛС | профиль | цитата
http://citizen.byethost7.com/viridas.php
Это то, что должно получиться в левой части.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#64: 2013-04-05 20:23:01 ЛС | профиль | цитата
R2D2 писал(а):
Это то, что должно получиться в левой части.

xxxxx.png
Может у меня "Гранаты не той системы"(с)
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1xxxxx.png [85.5KB] [328]
Ответов: 8888
Рейтинг: 823
#65: 2013-04-05 20:27:09 ЛС | профиль | цитата
Tad, у меня тоже 7, но компилируется и Delphi и FPC
R2D2, нечто похожее у себя нашёл, смысл: заполнить плоскость соприкасающимися окружностями со случайным радиусом, но где-то просчитался и ошибочка накапливается bubblesinbasket2.rar
карма: 19

0
файлы: 1bubblesinbasket2.rar [7.4KB] [203]
Гость
Ответов: 17029
Рейтинг: 0
#66: 2013-04-05 20:27:44 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2021-05-21 08:41:02
карма: 0

0
Ответов: 8888
Рейтинг: 823
#67: 2013-04-05 20:30:50 ЛС | профиль | цитата
37.45.8.209 писал(а):
сегодня не ваш день
таки пятница же
карма: 19

0
Ответов: 80
Рейтинг: 4
#68: 2013-04-05 20:33:10 ЛС | профиль | цитата
Вот:
А еще я не увидел такую замечательную вещь, как XY.
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#69: 2013-04-05 20:49:22 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2021-05-21 08:41:02
карма: 0

0
Ответов: 80
Рейтинг: 4
#70: 2013-04-05 20:53:34 ЛС | профиль | цитата
Эту видел)
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#71: 2013-04-05 20:59:26 ЛС | профиль | цитата
Леонид писал(а):
у меня тоже 7, но компилируется и Delphi и FPC
А kol-ы какие ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 8888
Рейтинг: 823
#72: 2013-04-05 21:15:18 ЛС | профиль | цитата
Tad, от 16.10.2004 612 кб. Раньше, когда версии выходили, как пирожки, папку компиляторов я копировал целиком из старой версии в новую, а вот делал-ли так на последней не помню (хотя этой болезни, ну как её там, ну когда всё забываешь, у меня нет!)
карма: 19

0
Гость
Ответов: 17029
Рейтинг: 0
#73: 2013-04-05 21:22:47 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2021-05-21 08:41:02
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#74: 2013-04-05 21:28:39 правка | ЛС | профиль | цитата


Редактировалось 4 раз(а), последний 2021-05-21 08:41:02
карма: 0

0
Ответов: 80
Рейтинг: 4
#75: 2013-04-05 22:25:03 ЛС | профиль | цитата
Новая версия (2):

Add(ChildScrollBox,12794136,560,294)
{
}
BEGIN_SDK
Add(EditMulti,14850086,49,14)
{
EventCount=1
WorkCount=2
DataCount=1
Width=979
Height=571
link(doWork1,15264964:doRefresh,[(143,20)(143,300)])
}
Add(PointHint,14615261,287,126)
{
Info=#11:Вычислитель|
Transparent=0
VAlign=0
Width=540
Height=403
}
Add(PointHint,16771857,301,154)
{
Info=#6:Кольца|
Transparent=0
VAlign=0
Width=71
Height=74
}
Add(ScrollBox,12331734,203,56)
{
Width=475
Height=460
Color=-16777210
}
Add(Img_Polygon,9946245,763,343)
{
PointsArray=[]
Color=15793151
BgColor=-16777214
Style=1
Point(BgColor)
link(onDraw,11110144:doClear,[(821,349)(821,224)(758,224)(758,251)])
link(Bitmap,15264964:Bitmap,[(769,334)(755,334)(755,385)(850,385)(850,554)(216,554)])
link(PointsArray,533546:Var2,[])
}
Add(PaintBox,15264964,210,294)
{
Width=470
Height=455
Color=-16777215
link(onBeforeDraw,2861903:doFor,[(272,300)(272,489)])
}
Add(MathParse,4860275,315,273)
{
DataCount=1
MathStr="34*(1+1.5*%1)"
ResultType=0
link(onResult,4205715:doCalc,[(358,279)(358,318)(303,318)(303,384)])
link(X1,3511678:Var2,[])
}
Add(MathParse,2126812,448,273)
{
DataCount=1
MathStr="22*(1+%1)"
ResultType=0
link(onResult,2266312:doCalc,[(485,279)(485,317)(436,317)(436,384)])
link(X1,3511678:Var3,[(454,236)])
}
Add(MathParse,14067007,315,175)
{
DataCount=1
MathStr="(-0.5)+0.5*sqrt((1+(%1/3)*4))"
ResultType=0
Default=6
link(onResult,808268:doEvent1,[])
}
Add(PointHint,3654229,301,252)
{
Info=#14:Максимальный X|
Transparent=0
VAlign=0
Width=120
Height=60
}
Add(PointHint,5352218,434,252)
{
Info=#14:Максимальный Y|
Transparent=0
VAlign=0
Width=127
Height=60
}
Add(GetDataEx,3511678,315,231)
{
link(Data,14067007:Result,[])
}
Add(PointHint,970221,301,364)
{
Info=#9:X вершины|
Transparent=0
VAlign=0
Width=120
Height=53
}
Add(PointHint,1583871,434,364)
{
Info=#9:Y вершины|
Transparent=0
VAlign=0
Width=127
Height=53
}
Add(MathParse,4205715,315,378)
{
MathStr="round((%1*0.5+%2*(sqrt(3)/2)))+15"
ResultType=0
link(onResult,7148350:doWork3,[(430,384)])
link(X1,15831179:Var2,[(321,362)(419,362)])
link(X2,8616436:Var2,[(328,362)(426,362)])
}
Add(MathParse,2266312,448,378)
{
MathStr="round(((-1)*%1*(sqrt(3)/2))+%2*0.5)"
ResultType=0
link(onResult,7148350:doWork1,[(492,384)(492,356)])
link(X1,15831179:Var3,[(454,341)])
link(X2,8616436:Var3,[(461,341)])
}
Add(IntegerArray,11110144,770,231)
{
IntArray=[]
}
Add(ArrayRW,10228762,784,280)
{
Index=Real(0)
link(Array,533546:Var3,[(790,272)])
link(Value,234763:Point,[(804,268)(752,268)(752,323)(720,323)])
}
Add(IntegerArray,6467292,406,56)
{
IntArray=['0'=17,'1'=35,'2'=18,'3'=-17,'4'=-35,'5'=-18]
}
Add(IntegerArray,170987,357,56)
{
IntArray=['0'=35,'1'=18,'2'=-17,'3'=-35,'4'=-18,'5'=17]
}
Add(For,2861903,301,483)
{
End=5
link(onEvent,14067007:doCalc,[(416,489)(416,452)(293,452)(293,181)])
}
Add(PointHint,5139616,294,469)
{
Info=#16:Генератор Систем|
Transparent=0
VAlign=0
Width=113
Height=53
}
Add(GetDataEx,15831179,413,336)
{
link(Data,170987:Array,[(419,333)(423,333)(423,140)])
}
Add(PointHint,10078547,693,196)
{
Info=#6:Массив|
Transparent=0
VAlign=0
Width=120
Height=123
}
Add(GetDataEx,8616436,420,336)
{
link(Data,6467292:Array,[(426,108)(412,108)])
}
Add(HubEx,7148350,426,350)
{
Angle=3
link(onEvent,1422994:doFor,[(430,321)])
}
Add(Hub,808268,357,175)
{
link(onEvent1,2126812:doCalc,[(428,181)(428,279)])
link(onEvent2,4860275:doCalc,[(383,188)(383,231)(307,231)(307,279)])
}
Add(StrList,203896,602,154)
{
Strings=#5:%1+%2|8:%1+%2-13|8:%1+%2-13|5:%1+%2|8:%1+%2+14|8:%1+%2+14|
Point(doGetString)
link(onChange,4968258:doEvent1,[])
}
Add(For,1422994,518,315)
{
End=5
link(onEvent,12667245:doEvent1,[(555,321)(555,307)])
link(onStop,9946245:doDraw,[(656,328)(656,349)])
}
Add(Hub,12667245,567,301)
{
OutCount=3
link(onEvent1,203896:doGetString,[(591,307)(591,202)])
link(onEvent2,3347830:doGetString,[(595,314)(595,482)])
link(onEvent3,10228762:doAdd,[(683,321)(683,300)])
}
Add(PointXY,234763,714,287)
{
link(X,10303427:Result,[(720,240)(692,240)])
link(Y,1417223:Result,[(727,275)(713,275)(713,485)(699,485)])
}
Add(StrList,3347830,609,434)
{
Strings=#5:%1+%3|7:%1+%3+7|8:%1+%3+23|8:%1+%3+30|8:%1+%3+23|7:%1+%3+7|
Point(doGetString)
link(onChange,9768539:doEvent1,[])
}
Add(MathParse,1417223,693,441)
{
MathStr=""
Point(doMathStr)
link(X1,2266312:Result,[(699,425)(454,425)])
link(X2,2126812:Result,[(706,373)(454,373)])
}
Add(Hub,9768539,651,434)
{
link(onEvent1,1417223:doMathStr,[(679,440)(679,454)])
link(onEvent2,1417223:doCalc,[])
}
Add(MathParse,10303427,686,161)
{
MathStr=""
Point(doMathStr)
link(X1,4205715:Result,[(692,149)(506,149)(506,422)(321,422)])
link(X2,4860275:Result,[(699,149)(510,149)(510,317)(321,317)])
}
Add(Hub,4968258,644,154)
{
link(onEvent1,10303427:doMathStr,[(672,160)(672,174)])
link(onEvent2,10303427:doCalc,[])
}
Add(GetDataEx,533546,770,267)
{
link(Data,11110144:Array,[])
}
END_SDK

вновь не работает
карма: 0

0
файлы: 1code_30762.txt [5.3KB] [287]
Сообщение
...
Прикрепленные файлы
(файлы не залиты)