Вверх ↑
Ответов: 198
Рейтинг: 2
#1: 2017-01-23 11:26:42 ЛС | профиль | цитата
Access_Violation писал(а):
Конечно, таких результатов я не ожидал...


Первое. Тебе не кажется, что для того, что бы назвать это схемой - она должна хотя бы выглядеть как схема?
Второе. Даже в детстве на Delphi мои первые программы выглядели как-то по солиднее что ли.

Третье. Найди три отличия:

Add(SimpleForm,2953706,42,105)
{
 Left=320
 Top=240
 Width=608
 Height=554
 Caption="Intellegent 1.3 Web Randromer"
 BorderStyle=1
 Icon=[ZIP5E07000078DA636060044209090610C9E0C1CEC020C6C0C0A001C4402106030688380828B0338C824109B816091BACB0A28A39D29B4D44D6A8BBAD0BA2D01CC393892667D28124D040B24D039A0334C4FC7C96CD957CBB6B85D697B32437EAF8AE8DC4A5BEB1B131121B009A637BB5C0F1660932B2BC98A6B2C53262632AA639DEDEDE3797D79EEE7141434073801A9D6F97793DACF57BDA0844BE4F1A3C1FD6189D8A505E6D80694E7D34C3FFFF678046A121A0394043807A812604BE680622D73B450AEBF592371762F5171E73BC1FD5010D097FDFE9FFBC466FAF13D03B40C7E30A1F3CE6000D71BF5FA2B4CB0C6802C4EFE499A3B1DFD16343085C846C73D044089AC3D0D080690E2622C61C2002BA0A3F021A85DF9CC565C422FCE6AC9A0F721250D9DC952004E442184004148448414882E61089F09803B40568143108680830330EFE92F33F36701E880F03F10110B6FF7F80811F8AE581D89E280C030009CB9E3A]
 link(onCreate,6407064:doSendToBack,[])
}
Add(ChildPanelRush,6407064,91,105)
{
 link(onClick,11227189:doWork1,[])
}
BEGIN_SDK
  Add(EditMultiEx,829930,21,21)
  {
   WorkCount=#12:doSendToBack|
   EventCount=#7:onClick|
   Width=370
   Height=263
   link(doSendToBack,15192938:In,[])
  }
  Add(PanelRush,8444798,35,63)
  {
   Width=602
   Height=220
   ColorFrom=-16777201
   GradientStyle=0
   BorderWidth=0
   Glyphs=[]
   Point(doSendToBack)
  }
  Add(Label,2552614,35,175)
  {
   Left=10
   Top=105
   Width=137
   Height=19
   Font=[Segoe UI,9,0,0,204]
   Transparent=0
   Caption="Необходимое значение:"
  }
  Add(Label,2009318,35,212)
  {
   Left=10
   Top=125
   Width=301
   Height=19
   Font=[Segoe UI,9,0,0,204]
   Transparent=0
   Caption="Открытие веб-страницы при необходимом значении:"
  }
  Add(Edit,14810711,238,140)
  {
   Left=160
   Top=105
   Width=440
   Font=[Segoe UI,9,0,0,204]
   Text="88"
   MaxLenField=3
  }
  Add(Edit,15925963,315,140)
  {
   Left=10
   Top=140
   Width=590
   Font=[Segoe UI,9,0,0,204]
   Text="http://www.yandex.ru/"
  }
  Add(ButtonRush,8985006,140,91)
  {
   Left=120
   Top=165
   Width=185
   Font=[Segoe UI,9,0,0,204]
   BorderColor=12632256
   GradientStyle=0
   ColorFromOver=15780518
   ShadowOffsetOver=0
   GradientStyleOver=0
   ColorFromDown=-16777203
   BorderColorDown=12517376
   ShadowOffsetDown=0
   GradientStyleDown=0
   ShadowOffsetDis=0
   GradientStyleDis=0
   UpdateSpeed=0
   Caption="Начать рендромирование"
   Glyphs=[]
   link(onClick,11450072:doRandom,[])
  }
  Add(ButtonRush,15296111,314,21)
  {
   Left=310
   Top=165
   Width=185
   Font=[Segoe UI,9,0,0,204]
   BorderColor=12632256
   GradientStyle=0
   ColorFromOver=15780518
   ShadowOffsetOver=0
   GradientStyleOver=0
   ColorFromDown=-16777203
   BorderColorDown=12517376
   ShadowOffsetDown=0
   GradientStyleDown=0
   ShadowOffsetDis=0
   GradientStyleDis=0
   UpdateSpeed=0
   Caption="О программе..."
   Glyphs=[]
   link(onClick,829930:onClick,[])
  }
  Add(Random,11450072,231,91)
  {
   Point(Min)
   Point(Max)
   link(onRandom,14609250:doEvent1,[])
  }
  Add(If_else,11594778,231,196)
  {
   link(onTrue,13545189:doShellExec,[])
   link(Op1,11450072:Random,[])
   link(Op2,14810711:Text,[])
  }
  Add(WinExec,13545189,315,189)
  {
   link(FileName,15925963:Text,[])
  }
  Add(Hub,14609250,280,91)
  {
   link(onEvent1,15740367:doText,[])
   link(onEvent2,11594778:doCompare,[(305,104)(305,182)(219,182)(219,202)])
  }
  Add(StyleXP,13828145,35,98)
  {
  }
  Add(GLabel,15740367,315,91)
  {
   Left=1
   Top=1
   Width=600
   Height=77
   Align=2
   Color=0
   Font=[Times New Roman,48,0,255,204]
   ColorShadow=0
   Caption="0"
   AutoSize=1
   Alignment=2
   VAlignment=0
   FonGradient=0
   InvFonGrad=0
   HorizFonGrad=0
   ContrastFon=0
   TextGradient=0
   Horizontal=0
   HSymbolGrad=0
   Contrast=100
   Antialiased=0
  }
  Add(Label,2788089,35,138)
  {
   Left=10
   Top=85
   Width=252
   Height=19
   Font=[Segoe UI,9,6,0,204]
   Transparent=0
   Caption="Введите необходимое значение от 0 до 100. "
  }
  Add(LineBreak,1022319,182,98)
  {
   link(Out,11450072:doRandomize,[])
   Primary=[15192938,-147,-77]
  }
END_SDK
Add(Version,5033247,42,147)
{
 Version="1.2"
 Description="Intellegent 1.3 Web randromer"
 E-mail="support@hiasm.com"
}
Add(StyleXP,2789844,42,189)
{
}
Add(ChildScrollBox,11227189,140,105)
{
}
BEGIN_SDK
  Add(EditMulti,1084426,0,0)
  {
   WorkCount=1
   Width=566
   Height=312
   link(doWork1,15781785:doWork1,[(21,6)])
  }
  Add(ScrollBox,14338934,35,105)
  {
   Top=220
   Width=602
   Height=306
   Visible=1
   Point(doVisible)
   Point(doBringToFront)
  }
  Add(Label,14900754,98,28)
  {
   Top=-1
   Width=242
   Height=19
   Font=[Segoe UI,9,6,0,204]
   Transparent=0
   Caption="О программе Intellegent 1.2 Web Randromer"
   AutoSize=1
  }
  Add(Label,11597491,193,221)
  {
   Top=24
   Width=242
   Height=39
   Font=[Segoe UI,9,0,0,204]
   Transparent=0
   Caption="(C) HiAsm Studio, 2017\r\nПрограмма пакета Intellgent (Интеллегент)."
   AutoSize=1
  }
  Add(Label,3861438,116,249)
  {
   Top=59
   Width=242
   Height=19
   Font=[Segoe UI,9,6,0,204]
   Transparent=0
   Caption="Мини-справочная"
   AutoSize=1
  }
  Add(Label,8660584,103,201)
  {
   Top=79
   Width=367
   Height=120
   Font=[Segoe UI,9,0,0,204]
   Transparent=0
   Caption="Первым делом введите необходимое вам значение от 0 до 100. \r\nЗатем, введите адрес URL, который откроется при введённом вами необходимом значении.\r\nСледом жмите на кнопку "Начать рендромирование". Каждый раз при нажатии на эту кнопку будет попадаться случайное число от 0 до 100. Если попадётся число, которое вы ввели в поле "Необходимое значение", то откроется сайт, который вы посчитали нужным.\r\n"
   AutoSize=1
  }
  Add(Label,479996,96,138)
  {
   Top=204
   Width=239
   Height=19
   Font=[Segoe UI,9,6,0,204]
   Transparent=0
   Caption="Важные правила"
   AutoSize=1
  }
  Add(Label,14640694,96,89)
  {
   Top=224
   Width=367
   Height=80
   Font=[Segoe UI,9,0,0,204]
   Transparent=0
   Caption="Старайтесь нажимать кнопку "Начать рендромирование" медленно, чтобы вы хорошо видели число, которое появляется.\r\nВводите существующий сайт.\r\nИ самое главное: не нервничайте! Число, которое вы ввели в поле "Необходимое значение", обязательно появится."
   AutoSize=1
  }
  Add(ButtonRush,1842174,228,116)
  {
   Left=550
   Top=5
   Width=25
   Font=[Segoe UI,9,0,0,204]
   ColorFrom=255
   BorderColor=128
   GradientStyle=0
   ColorFromOver=15780518
   ShadowOffsetOver=0
   GradientStyleOver=0
   ColorFromDown=-16777203
   BorderColorDown=12517376
   ShadowOffsetDown=0
   GradientStyleDown=0
   ShadowOffsetDis=0
   GradientStyleDis=0
   UpdateSpeed=0
   Caption="Х"
   Glyphs=[]
   link(onClick,15781785:doWork3,[(272,122)(272,41)])
  }
  Add(Switch,11134231,42,42)
  {
   DataOn=Integer(0)
   DataOff=Integer(1)
   Point(doOn)
   link(onSwitch,7562549:doEvent1,[(86,48)(86,62)(-5,62)(-5,76)])
  }
  Add(HubEx,15781785,17,35)
  {
   Angle=1
   link(onEvent,11134231:doSwitch,[(21,48)])
  }
  Add(Hub,7562549,7,70)
  {
   link(onEvent1,14338934:doVisible,[(28,76)(28,125)])
  }
END_SDK
карма: 0

0