Баловство продолжается...

Форумы СхемыБаловство продолжается... ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 875

Рейтинг: 322

#1: 2009-12-10 13:01:30 ЛС | профиль | цитата

Можно использовать в качестве хранителя экрана. Но если хочется убить время то можно и... При запуске разбирает экран на части и тусует их. Так будет продолжаться до тех пор пока не нажмете на Esc - что бы закрыть программу. Но если нажать - пробел, то перебор останавливается и у вас появляется возможность восстановить первоначальный вид экрана... Щелкаете ЛКМ по какой либо части, затем щелкаете ЛКМ по второй части, в результате они меняются местами. Нажатие любой другой клавиши на клавиатуре запускает перебор снова.
Размер экрана фиксирован. 1024х768.

карма: 1

файлы: 1

scr-game.rar [17.9KB] [223]

Голосовали:

Валерий, Assasin, sla8a, Genius, Maestroprog, Byuik, kacmem

Ответов: 2437

Рейтинг: 693

#2: 2009-12-10 16:25:23 ЛС | профиль | цитата

kamakama, содержимое ChildPanelEx

напомнила армию клонов из Звёздных Войн Эпизод II.

карма: 11

-1

Голосовали:

hitman249

Ответов: 875

Рейтинг: 322

#3: 2009-12-10 17:30:25 ЛС | профиль | цитата

sla8a, это точно. Должен признаться, три вечера угробил на динамическую панель и когда накрутил до того что сам перестал понимать что делаю, плюнул и перешел на картинки.

карма: 1

Ответов: 2437

Рейтинг: 693

#4: 2009-12-12 00:05:04 ЛС | профиль | цитата

Заменил твою армию клонов одним универсальным солдатом.

Add(ChildPanelEx,5470646,476,196)
{
 Mode=1
 link(onEventData,581450:doAdd,[])
 link(Data,5470646:##eventIndex,[(482,184)(516,184)(516,240)(482,240)])
 link(onEventData1,581450:doAdd1,[])
}
BEGIN_SDK
  Add(EditMultiEx,11230276,21,21)
  {
   WorkCount=#5:##add|8:##select|7:doValue|6:doLoad|
   EventCount=#11:onEventData|12:onEventData1|
   VarCount=#12:##eventIndex|
   DataCount=#4:Data|
   Point(##add)
   Point(##select)
   Point(##eventIndex)
   link(##add,3139859:doName,[])
   link(doValue,12977959:doEvent2,[(154,41)(154,97)])
   link(doLoad,14466167:doLoad,[(63,48)(63,90)])
  }
  Add(Panel,828310,231,175)
  {
   Width=102
   Height=76
   Layout="parent.grid"
   BevelInner=0
  }
  Add(GlobalVar,3139859,98,14)
  {
   Point(doName)
  }
  Add(DoData,11281702,196,84)
  {
   link(onEventData,11230276:onEventData,[(274,90)(274,27)])
   link(Data,14466167:ImageBitmap,[(202,70)(140,70)(140,124)(104,124)])
  }
  Add(DoData,16397091,231,126)
  {
   Data=Integer(0)
   link(onEventData,11230276:onEventData1,[(285,132)(285,34)])
   link(Data,11230276:Data,[(237,35)(27,35)])
  }
  Add(Hub,12977959,161,84)
  {
   InCount=2
   link(onEvent1,11281702:doData,[])
   link(onEvent2,16397091:doData,[(187,97)(187,132)])
  }
  Add(Image,14466167,98,84)
  {
   Width=102
   Height=76
   Color=12639424
   link(onClick,12977959:doEvent1,[])
   link(Bitmap,3139859:Var,[])
  }
END_SDK
Add(Timer,1168775,301,203)
{
 Interval=100
 link(onTimer,14095184:doFor,[])
}
Add(For,14095184,343,203)
{
 End=1
 link(onEvent,5944812:doRandom,[])
}
Add(Random,5944812,392,203)
{
 Max=99
 link(onRandom,16240007:doEvent1,[])
}
Add(MainForm,3784985,161,133)
{
 Width=291
 Height=306
 Color=0
 BorderStyle=0
 WindowsState=2
 Point(onKeyDown)
 link(onCreate,9521669:doEvent1,[])
 link(onKeyDown,8019507:doCase,[(201,160)(201,209)])
}
Add(Case,8019507,210,203)
{
 Value=Integer(27)
 link(onNextCase,4454152:doCase,[])
 link(onTrue,3784985:doClose,[(255,216)(255,242)(149,242)(149,160)])
}
Add(Hub,9521669,315,147)
{
 OutCount=3
 link(onEvent1,13392578:doEvent1,[])
 link(onEvent2,581450:doEnum,[(523,160)(523,195)])
 link(onEvent3,3138344:doFor,[])
}
Add(Case,4454152,259,203)
{
 Value=Integer(32)
 link(onNextCase,1168775:doTimer,[])
 link(onTrue,1168775:doStop,[])
}
Add(MultiElementEx,581450,532,189)
{
 link(Data,13392578:Array,[])
}
BEGIN_SDK
  Add(EditMultiEx,15168402,21,21)
  {
   WorkCount=#6:doEnum|5:doAdd|6:doAdd1|
   DataCount=#4:Data|
   Width=517
   Height=662
   link(doEnum,16529806:doEvent1,[(98,27)(98,153)])
   link(doAdd,8668434:doAdd,[(36,34)(36,510)])
   link(doAdd1,6292668:doAdd,[(26,41)(26,475)])
  }
  Add(ArrayEnum,12429953,112,616)
  {
   link(onItem,1358181:doEvent,[])
   link(onEndEnum,6484503:doEvent1,[])
   link(Array,6292668:Array,[])
  }
  Add(If_else,8086560,105,560)
  {
   Op2=Integer(2)
   link(onTrue,1812082:doEvent1,[])
   link(Op1,6292668:Count,[])
  }
  Add(BitmapArray,13050805,217,406)
  {
   Bitmaps=[]
  }
  Add(ArrayRW,8668434,217,490)
  {
   link(Array,5740895:Var2,[])
  }
  Add(GlobalVar,2907084,476,518)
  {
   Name="b1"
  }
  Add(IndexToChanel,593057,399,518)
  {
   Point(Data)
   Point(Index)
   link(onEvent1,2907084:doValue,[])
   link(onEvent2,3950505:doValue,[(453,531)(453,552)])
   link(Data,4975971:Item,[(405,493)(379,493)(379,576)(307,576)])
   link(Index,4975971:Index,[(412,475)(365,475)(365,561)(314,561)])
  }
  Add(GlobalVar,3950505,476,546)
  {
   Name="b2"
  }
  Add(IndexToChanel,1358181,217,616)
  {
   Point(Data)
   Point(Index)
   link(onEvent1,6023053:doValue,[])
   link(onEvent2,8130421:doValue,[(268,629)(268,650)])
   link(Data,12429953:Item,[(223,596)(203,596)(203,671)(118,671)])
   link(Index,12429953:Index,[(230,586)(193,586)(193,660)(125,660)])
  }
  Add(ArrayEnum,4975971,301,518)
  {
   link(onItem,593057:doEvent,[])
   link(Array,5740895:Var3,[(307,467)])
  }
  Add(GetDataEx,5740895,217,462)
  {
   link(Data,13050805:Array,[])
  }
  Add(ArrayEnum,4376697,175,147)
  {
   link(onItem,4064183:doEvent1,[])
   link(Array,7068532:Var2,[])
  }
  Add(Hub,1812082,154,560)
  {
   link(onEvent1,4975971:doEnum,[(270,566)(270,524)])
   link(onEvent2,12429953:doEnum,[(176,573)(176,607)(100,607)(100,622)])
  }
  Add(GlobalVar,6023053,287,616)
  {
   Name="in1"
  }
  Add(GlobalVar,8130421,287,644)
  {
   Name="in2"
  }
  Add(ArrayRW,884230,161,294)
  {
   link(Array,9529693:Var2,[])
   link(Index,14895069:Var,[])
   link(Value,9054158:Var,[])
  }
  Add(ArrayRW,6029057,119,364)
  {
   link(Array,9529693:Var1,[(125,236)])
   link(Index,12589133:Var,[])
   link(Value,806010:Var,[])
  }
  Add(GlobalVar,12589133,126,245)
  {
   Name="in1"
  }
  Add(GlobalVar,14895069,168,245)
  {
   Name="in2"
  }
  Add(GetDataEx,7068532,175,105)
  {
   link(Data,15168402:Data,[(181,24)(27,24)])
  }
  Add(GetDataEx,9529693,161,231)
  {
   link(Data,7068532:Var1,[(167,110)])
  }
  Add(GlobalVar,9054158,175,266)
  {
   Name="b1"
  }
  Add(GlobalVar,806010,133,336)
  {
   Name="b2"
  }
  Add(Hub,6484503,154,623)
  {
   link(onEvent1,6292668:doClear,[(181,629)(181,550)(83,550)(83,482)])
   link(onEvent2,714109:doEvent1,[(186,636)(186,440)(38,440)(38,307)])
  }
  Add(Hub,714109,49,301)
  {
   OutCount=4
   link(onEvent1,884230:doWrite,[])
   link(onEvent2,6029057:doWrite,[(91,314)(91,377)])
   link(onEvent3,13050805:doClear,[(101,321)(101,412)])
   link(onEvent4,16529806:doEvent2,[(76,328)(76,160)])
  }
  Add(StrList,6292668,98,469)
  {
   link(onChange,8086560:doCompare,[(143,475)(143,540)(93,540)(93,566)])
  }
  Add(GlobalVar,80685,329,154)
  {
   Name="noname"
   Point(doName)
  }
  Add(Hub,4064183,231,147)
  {
   link(onEvent1,73447:doStrCat,[])
   link(onEvent2,80685:doValue,[])
  }
  Add(StrCat,73447,266,147)
  {
   Str1="k"
   link(onStrCat,80685:doName,[(314,153)(314,167)])
   link(Str2,4376697:Index,[(279,133)(238,133)(238,190)(188,190)])
  }
  Add(Hub,16529806,126,147)
  {
   InCount=2
   OutCount=1
   link(onEvent1,4376697:doEnum,[])
  }
END_SDK
Add(MultiElementEx,13392578,532,147)
{
}
BEGIN_SDK
  Add(EditMultiEx,94377,21,21)
  {
   WorkCount=#8:doEvent1|
   VarCount=#5:Array|
   Width=405
   Height=452
   link(doEvent1,8122637:doEvent1,[(35,27)(35,272)])
   link(Array,2432063:Var1,[(27,341)])
  }
  Add(Img_Copy,13392706,91,266)
  {
   DrawSource=1
   Point(Width)
   Point(Height)
   link(onCopy,2274579:doLoad,[])
   link(Width,2267880:Var2,[])
   link(Height,4125827:Var2,[])
  }
  Add(Screen,8051643,112,28)
  {
  }
  Add(Bitmap,2274579,147,266)
  {
  }
  Add(Hub,8122637,49,266)
  {
   link(onEvent1,13392706:doCopy,[])
   link(onEvent2,16293173:doEvent1,[(80,279)(80,132)])
  }
  Add(Img_Copy,6325284,147,378)
  {
   Point(Width)
   Point(Height)
   link(onCopy,5330050:doAdd,[])
   link(Source,2274579:Bitmap,[])
   link(X,32168:Position,[(160,246)(288,246)])
   link(Y,69891:Position,[(167,256)(344,256)])
   link(Width,2592480:Result,[])
   link(Height,7117581:Result,[(181,223)(195,223)])
  }
  Add(Hub,16293173,133,126)
  {
   link(onEvent1,2592480:doCalc,[])
   link(onEvent2,7117581:doCalc,[(157,139)(157,181)])
  }
  Add(For,69891,338,203)
  {
   Step=0
   Point(doStep)
   link(onEvent,6325284:doCopy,[(382,209)(382,308)(135,308)(135,384)])
   link(End,1923895:Result,[])
  }
  Add(For,32168,282,203)
  {
   Step=0
   Point(doStep)
   link(onEvent,69891:doFor,[])
   link(End,11138163:Result,[])
  }
  Add(Hub,11378646,252,175)
  {
   OutCount=3
   link(onEvent1,1923895:doOperation,[(325,181)(325,162)])
   link(onEvent2,69891:doStep,[(325,188)(325,223)])
   link(onEvent3,32168:doFor,[(274,195)(274,209)])
  }
  Add(ArrayRW,5330050,217,364)
  {
   link(Array,2432063:Var2,[])
  }
  Add(MathParse,2592480,168,126)
  {
   MathStr="%1 div 10"
   link(onResult,5861427:doEvent1,[])
   link(X1,2923119:Var2,[])
  }
  Add(MathParse,7117581,189,175)
  {
   MathStr="%1 div 10"
   link(onResult,11378646:doEvent1,[])
   link(X1,4002063:Var2,[])
  }
  Add(GetDataEx,2923119,168,105)
  {
   link(Data,2267880:Var3,[(174,96)])
  }
  Add(GetDataEx,4002063,189,112)
  {
   link(Data,4125827:Var3,[(195,103)])
  }
  Add(GetDataEx,2267880,112,91)
  {
   link(Data,8051643:Width,[])
  }
  Add(GetDataEx,4125827,119,98)
  {
   link(Data,8051643:Height,[])
  }
  Add(Math,11138163,289,126)
  {
   OpType=1
   Op2=10
   link(Op1,2923119:Var3,[(295,110)])
  }
  Add(Hub,5861427,217,126)
  {
   link(onEvent1,11138163:doOperation,[])
   link(onEvent2,32168:doStep,[(242,139)(242,223)])
  }
  Add(Math,1923895,345,156)
  {
   OpType=1
   Op2=10
   link(Op1,4002063:Var3,[(351,117)])
  }
  Add(BitmapArray,14349299,217,294)
  {
   Bitmaps=[]
  }
  Add(GetDataEx,2432063,217,336)
  {
   link(Data,14349299:Array,[])
  }
END_SDK
Add(For,3138344,343,161)
{
 End=99
 link(onEvent,1929584:doStrCat,[])
 link(onStop,13399593:doResize,[(383,174)(383,125)])
}
Add(StrCat,1929584,392,161)
{
 Str1="k"
 link(onStrCat,5470646:##add,[(465,167)(465,202)])
}
Add(Hub,16240007,434,203)
{
 link(onEvent1,4353585:doWork2,[])
 link(onEvent2,5470646:doValue,[])
}
Add(Timer,16456298,343,245)
{
 Interval=15
 link(onTimer,11919163:doFor,[])
}
Add(For,11919163,392,245)
{
 End=99
 link(onEvent,16391846:doEvent1,[])
}
Add(Hub,16391846,434,245)
{
 link(onEvent1,4353585:doWork3,[(459,251)])
 link(onEvent2,5470646:doLoad,[(470,258)(470,223)])
}
Add(HubEx,4353585,455,203)
{
 link(onEvent,5470646:##select,[])
}
Add(GridLayout,13399593,392,119)
{
 Name="grid"
 Rows=10
 Cols=10
 AddMode=1
}

карма: 11

Голосовали: hitman249

Ответов: 875

Рейтинг: 322

#5: 2009-12-12 00:30:45 ЛС | профиль | цитата

sla8a, вот от этих черных полос я и не смог избавиться, потому и сделал клонов

карма: 1

Ответов: 2437

Рейтинг: 693

#6: 2009-12-12 00:43:02 ЛС | профиль | цитата

kamakama, в компоненте решетка замени space = 0.

карма: 11

Голосовали:

hitman249

Ответов: 875

Рейтинг: 322

#7: 2009-12-12 01:01:16 ЛС | профиль | цитата

sla8a, не влияет - остаются черные полосы примерно пикселей по 20. Что и должно быть так как решетка даете не 102х76 а 102х102 и видно только восемь строк.
------------ Дoбавленo в 01.12:
sla8a, хорошая мысля приходит опосля. Надо - Panel-HeightScale=10

карма: 1

Ответов: 2437

Рейтинг: 693

#8: 2009-12-12 01:14:27 ЛС | профиль | цитата

kamakama, дело было не в бабине

ChildPanelEx Height = 96, надо 76

вот тебе и 20 черных пикселей

карма: 11

Голосовали:

hitman249

Ответов: 875

Рейтинг: 322

#9: 2009-12-12 12:00:05 ЛС | профиль | цитата

sla8a, ну тогда ещё и на все разрешения экрана.code_15967.txt

карма: 1

файлы: 1

code_15967.txt [10.8KB] [390]

Голосовали:

Валерий

Форумы СхемыБаловство продолжается... ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)