Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2005-10-19 11:53:48 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 00:03:24
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#2: 2005-10-19 14:49:13 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 00:03:24
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2005-10-19 15:14:43 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 00:03:24
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#4: 2005-10-19 17:11:01 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 00:03:25
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#5: 2005-10-19 18:41:24 ЛС | профиль | цитата
А можно и так
[code:1]Add(MainForm,12721782,77,91) {
Left=20
Top=105
Width=288
Height=243
Font=[MS Sans Serif,8,3,65535,1]
Caption="ОДНОРУКИЙ БАНДИТ 2"
link(onCreate,5079856:doRandomize,[(124,132)(124,55)])
}
Add(ChildPanel,4125752,343,42)
{
}
BEGIN_SDK
Add(EditMulti,5300067,3,3)
{
WorkCount=1
Width=69
Height=109
link(doWork1,5861797:doText,[(15,9)(15,27)])
}
Add(Panel,16079166,14,70)
{
Left=15
Top=15
Width=120
Height=79
Color=-16777204
Point(doColor)
}
Add(Label,5861797,21,21)
{
Left=5
Top=5
Width=111
Height=66
Color=0
Font=[Verdana,36,1,16777215,204]
Caption="000"
AutoSize=1
Alignment=2
}
END_SDK
Add(Button,7334814,14,14)
{
Left=160
Top=40
Width=110
Height=50
Font=[MS Sans Serif,24,1,0,1]
Caption="ПУСК"
Data=Integer(0)
link(onClick,2059428:doEvent1,[(58,20)(58,20)])
}
Add(Random,5079856,140,42)
{
Max=999
link(onRandom,2201071:doOperation,[])
}
Add(Math,2201071,189,42)
{
Op2=1000
ResultType=0
link(onResult,1768765:doCopy,[])
}
Add(Copy,1768765,238,42)
{
Position=2
Count=3
link(onCopy,1694683:doEvent1,[(278,48)(278,48)])
}
Add(Label,7463393,392,175)
{
Left=5
Top=160
Width=265
Height=35
Font=[MS Sans Serif,18,1,255,1]
Visible=1
Caption="ВЫ ВЫИГРАЛИ !!!"
AutoSize=1
Alignment=2
Point(doVisible)
}
Add(Hub,1694683,287,42)
{
link(onEvent1,4125752:doWork1,[(324,48)(324,48)])
link(onEvent2,10948254:doCase,[(329,55)(329,96)(158,96)(158,125)])
}
Add(Label,14029749,392,112)
{
Left=10
Top=120
Width=255
Height=30
Font=[MS Sans Serif,18,1,16711680,1]
Visible=1
Caption="ВЫ ПРОИГРАЛИ..."
AutoSize=1
Alignment=2
Point(doVisible)
}
Add(Case,10948254,168,119)
{
Value=Integer(123)
link(onNextCase,1117698:doCase,[])
link(onTrue,14307652:doEvent3,[(209,132)(209,202)])
}
Add(Case,1117698,217,119)
{
Value=Integer(777)
link(onNextCase,3790618:doCase,[])
link(onTrue,14307652:doEvent2,[(263,132)(263,195)])
}
Add(Case,3790618,273,119)
{
Value=Integer(999)
link(onNextCase,2601641:doWork2,[])
link(onTrue,14307652:doEvent1,[(317,132)(317,188)])
}
Add(Hub,14307652,329,182)
{
InCount=3
OutCount=1
link(onEvent1,3884821:doWork2,[])
}
Add(HubEx,2601641,329,112)
{
link(onEvent,14029749:doVisible,[])
}
Add(Hub,2059428,70,14)
{
OutCount=4
link(onEvent1,2601641:doWork1,[(333,20)])
link(onEvent2,3884821:doWork1,[(382,27)])
link(onEvent3,5079856:doRandom,[(121,34)(121,48)])
link(onEvent4,10700299:doBeep,[(112,41)(112,65)(18,65)(18,90)])
}
Add(HubEx,3884821,378,175)
{
link(onEvent,7463393:doVisible,[])
}
Add(Beep,10700299,28,84)
{
Freq=600
Duration=500
}[/code:1]
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
5
Сообщение
...
Прикрепленные файлы
(файлы не залиты)