HiAsm

Форумы Помощь по пакету Перебор строк StrList с помощью ArrayRW ← Ctrl12 3 4 5 6 7Ctrl →

Ответов: 167

Рейтинг: 7

#1: 2020-01-14 20:17:29 ЛС | профиль | цитата

ВОТ! СРАВНИ КАК У ТЕБЯ, И КАК ДОЛЖНО БЫТЬ БЕЗ БАГОВ!
P.S: красные - не обязательные элементы
зелёные - ЧТО ТЕБЕ НУЖНО ПОНЯТЬ!

Add(StrList,6050407,266,70)
{
 @Color=65280
 FileName=""
 AddType=0
 Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|20:---ВОТ И ВСЁ!!!!----|
 Point(String)
 Point(doReplace)
}
Add(Button,14269168,224,161)
{
 @Hint=#13:Кнопка расчет|
 @Color=65535
 Left=370
 Top=520
 Width=100
 Height=30
 Align=0
 Font=[Times New Roman,14,0,0,204]
 ParentFont=1
 Visible=0
 Enabled=0
 Cursor=0
 KeyPreview=0
 TabOrder=0
 Ctl3D=1
 WinStyle=0
 Name="Расчет"
 Hint=""
 HintManager="(empty)"
 Layout="(empty)"
 WidthScale=0
 HeightScale=0
 Caption="Расчет"
 Data=Null()
 Flat=1
 DefaultBtn=1
 RespondToEnter=1
 link(onClick,14596855:doEvent1,[])
 AddHint(-106,67,89,13,@Hint)
}
Add(Label,15141331,182,161)
{
 @Color=255
 Left=30
 Top=50
 Width=235
 Height=25
 Align=0
 Color=-16777201
 Font=[MS Sans Serif,8,0,0,1]
 ParentFont=1
 Visible=0
 Enabled=0
 Cursor=0
 KeyPreview=0
 TabOrder=0
 Ctl3D=1
 WinStyle=0
 Name=""
 Hint=""
 HintManager="(empty)"
 Layout="(empty)"
 WidthScale=0
 HeightScale=0
 ModeSp=0
 SizeSp=4
 ColorSp=-16777201
 MinOwn=0
 MinRest=0
 Transparent=1
 Caption="Label"
 AutoSize=0
 Alignment=0
 ColorHover=0
 Underline=1
 CaptionOnClick=1
 link(Text,10649860:Var1,[(188,127)])
}
Add(ArrayRW,16234823,371,161)
{
 @Hint=#15:Перебор массива|
 @Color=65280
 Index=Null()
 link(onRead,3177546:doNext,[])
 link(Array,6050407:Array,[(377,124)(286,124)])
 link(Index,14105776:Position,[(384,149)(335,149)(335,205)(300,205)])
 AddHint(32,84,106,13,@Hint)
}
Add(MainForm,8908701,77,147)
{
 @Color=65535
 Left=0
 Top=0
 Width=823
 Height=601
 Align=0
 Color=-16777201
 Font=[MS Sans Serif,8,0,0,1]
 ParentFont=1
 Visible=0
 Enabled=0
 Cursor=0
 KeyPreview=0
 TabOrder=0
 Ctl3D=1
 WinStyle=0
 Name=""
 Hint=""
 HintManager="(empty)"
 Layout="(empty)"
 WidthScale=0
 HeightScale=0
 AlphaBlendValue=255
 Caption="Form"
 BorderStyle=2
 WindowsState=0
 Icon=[]
 TaskBar=0
 DragForm=1
 TransparentColor=16777215
 Picture=[]
 SavePosName=""
 MouseCapture=1
 ClientSize=1
 Position=0
 ShiftLeft=0
 ShiftTop=0
 OffsetShift=1
 TransparentManager="(empty)"
 FormFastening="(empty)"
 link(onCreate,15141331:doText,[])
}
Add(For,14105776,294,161)
{
 @Hint=#4:Цикл|
 @Color=65280
 Start=0
 End=0
 Step=1
 IncludeEnd=0
 InData=1
 onBreakEnable=1
 link(onEvent,16234823:doRead,[])
 link(End,10649860:Var3,[(307,141)])
 AddHint(62,101,41,13,@Hint)
}
Add(GetDataEx,10649860,273,122)
{
 Angle=0
 link(Data,6050407:Count,[])
}
Add(Label,16414058,212,70)
{
 @Color=255
 Left=30
 Top=10
 Width=235
 Height=33
 Align=0
 Color=-16777201
 Font=[Comic Sans MS,16,0,0,204]
 ParentFont=1
 Visible=0
 Enabled=0
 Cursor=0
 KeyPreview=0
 TabOrder=0
 Ctl3D=1
 WinStyle=0
 Name=""
 Hint=""
 HintManager="(empty)"
 Layout="(empty)"
 WidthScale=0
 HeightScale=0
 ModeSp=0
 SizeSp=4
 ColorSp=-16777201
 MinOwn=0
 MinRest=0
 Transparent=1
 Caption="КОЛИЧЕСТВО СТРОК :"
 AutoSize=0
 Alignment=0
 ColorHover=0
 Underline=1
 CaptionOnClick=1
}
Add(Label,9266491,321,70)
{
 @Color=255
 Left=320
 Top=10
 Width=451
 Height=33
 Align=0
 Color=-16777201
 Font=[Comic Sans MS,16,0,0,204]
 ParentFont=1
 Visible=0
 Enabled=0
 Cursor=0
 KeyPreview=0
 TabOrder=0
 Ctl3D=1
 WinStyle=0
 Name=""
 Hint=""
 HintManager="(empty)"
 Layout="(empty)"
 WidthScale=0
 HeightScale=0
 ModeSp=0
 SizeSp=4
 ColorSp=-16777201
 MinOwn=0
 MinRest=0
 Transparent=1
 Caption="Результат подсчитанного количества строк :"
 AutoSize=0
 Alignment=0
 ColorHover=0
 Underline=1
 CaptionOnClick=1
}
Add(Label,15021429,484,161)
{
 @Color=255
 Left=395
 Top=55
 Width=235
 Height=25
 Align=0
 Color=-16777201
 Font=[MS Sans Serif,8,0,0,1]
 ParentFont=1
 Visible=0
 Enabled=0
 Cursor=0
 KeyPreview=0
 TabOrder=0
 Ctl3D=1
 WinStyle=0
 Name=""
 Hint=""
 HintManager="(empty)"
 Layout="(empty)"
 WidthScale=0
 HeightScale=0
 ModeSp=0
 SizeSp=4
 ColorSp=-16777201
 MinOwn=0
 MinRest=0
 Transparent=1
 Caption="Label"
 AutoSize=0
 Alignment=0
 ColorHover=0
 Underline=1
 CaptionOnClick=1
}
Add(CounterEx,3177546,434,161)
{
 @Hint=#17:подсчёт количетва|
 @Color=255
 Min=0
 Max=10000
 Step=1
 Direct=0
 Default=0
 Point(doReset)
 link(onNext,15021429:doText,[])
 AddHint(19,53,110,13,@Hint)
}
Add(Hub,14596855,261,161)
{
 InCount=1
 OutCount=2
 link(onEvent1,3177546:doReset,[(283,167)(283,214)(417,214)(417,174)])
 link(onEvent2,14105776:doFor,[(287,174)(287,167)])
}

Прользуйся на здоровье !

--- Добавлено в 2020-01-14 20:22:07

Igor08 писал(а):

Я просто спросил будет так программа работать или нет

пример выше смотри.

--- Добавлено в 2020-01-14 20:33:54

Так короче :


Add(StrList,2577132,210,378)
{
 @Color=65280
 FileName=""
 AddType=0
 Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|2:10|20:---ВОТ И ВСЁ!!!!----|
}
Add(Button,6124441,126,455)
{
 @Hint=#13:Кнопка расчет|
 @Color=65535
 Left=275
 Top=120
 Width=100
 Height=30
 Align=0
 Font=[Times New Roman,14,0,0,204]
 ParentFont=1
 Visible=0
 Enabled=0
 Cursor=0
 KeyPreview=0
 TabOrder=0
 Ctl3D=1
 WinStyle=0
 Name="Расчет"
 Hint=""
 HintManager="(empty)"
 Layout="(empty)"
 WidthScale=0
 HeightScale=0
 Caption="Расчет"
 Data=Null()
 Flat=1
 DefaultBtn=1
 RespondToEnter=1
 link(onClick,2106675:doEvent1,[])
 AddHint(-106,67,89,13,@Hint)
}
Add(Label,10056561,168,420)
{
 @Color=255
 Left=30
 Top=50
 Width=235
 Height=25
 Align=0
 Color=-16777201
 Font=[MS Sans Serif,8,0,0,1]
 ParentFont=1
 Visible=0
 Enabled=0
 Cursor=0
 KeyPreview=0
 TabOrder=0
 Ctl3D=1
 WinStyle=0
 Name=""
 Hint=""
 HintManager="(empty)"
 Layout="(empty)"
 WidthScale=0
 HeightScale=0
 ModeSp=0
 SizeSp=4
 ColorSp=-16777201
 MinOwn=0
 MinRest=0
 Transparent=1
 Caption="Label"
 AutoSize=0
 Alignment=0
 ColorHover=0
 Underline=1
 CaptionOnClick=1
 link(Text,2577132:Count,[(174,415)(223,415)])
}
Add(Label,771199,121,378)
{
 @Color=255
 Left=30
 Top=10
 Width=235
 Height=33
 Align=0
 Color=-16777201
 Font=[Comic Sans MS,16,0,0,204]
 ParentFont=1
 Visible=0
 Enabled=0
 Cursor=0
 KeyPreview=0
 TabOrder=0
 Ctl3D=1
 WinStyle=0
 Name=""
 Hint=""
 HintManager="(empty)"
 Layout="(empty)"
 WidthScale=0
 HeightScale=0
 ModeSp=0
 SizeSp=4
 ColorSp=-16777201
 MinOwn=0
 MinRest=0
 Transparent=1
 Caption="КОЛИЧЕСТВО СТРОК :"
 AutoSize=0
 Alignment=0
 ColorHover=0
 Underline=1
 CaptionOnClick=1
}
Add(Label,16302455,167,378)
{
 @Color=255
 Left=320
 Top=10
 Width=451
 Height=33
 Align=0
 Color=-16777201
 Font=[Comic Sans MS,16,0,0,204]
 ParentFont=1
 Visible=0
 Enabled=0
 Cursor=0
 KeyPreview=0
 TabOrder=0
 Ctl3D=1
 WinStyle=0
 Name=""
 Hint=""
 HintManager="(empty)"
 Layout="(empty)"
 WidthScale=0
 HeightScale=0
 ModeSp=0
 SizeSp=4
 ColorSp=-16777201
 MinOwn=0
 MinRest=0
 Transparent=1
 Caption="Результат подсчитанного количества строк :"
 AutoSize=0
 Alignment=0
 ColorHover=0
 Underline=1
 CaptionOnClick=1
}
Add(Label,9524915,295,462)
{
 @Color=255
 Left=395
 Top=55
 Width=235
 Height=25
 Align=0
 Color=-16777201
 Font=[MS Sans Serif,8,0,0,1]
 ParentFont=1
 Visible=0
 Enabled=0
 Cursor=0
 KeyPreview=0
 TabOrder=0
 Ctl3D=1
 WinStyle=0
 Name=""
 Hint=""
 HintManager="(empty)"
 Layout="(empty)"
 WidthScale=0
 HeightScale=0
 ModeSp=0
 SizeSp=4
 ColorSp=-16777201
 MinOwn=0
 MinRest=0
 Transparent=1
 Caption="Label"
 AutoSize=0
 Alignment=0
 ColorHover=0
 Underline=1
 CaptionOnClick=1
}
Add(CounterEx,4589267,252,462)
{
 @Hint=#17:подсчёт количетва|
 @Color=255
 Min=0
 Max=10000
 Step=1
 Direct=0
 Default=0
 Point(doReset)
 link(onNext,9524915:doText,[])
 AddHint(19,53,110,13,@Hint)
}
Add(Hub,2106675,177,455)
{
 InCount=1
 OutCount=2
 link(onEvent1,4589267:doReset,[(199,461)(199,534)(242,534)(242,475)])
 link(onEvent2,810789:doEnum,[])
}
Add(MainForm,7631360,126,420)
{
 Left=0
 Top=0
 Width=794
 Height=203
 Align=0
 Color=-16777201
 Font=[MS Sans Serif,8,0,0,1]
 ParentFont=1
 Visible=0
 Enabled=0
 Cursor=0
 KeyPreview=0
 TabOrder=0
 Ctl3D=1
 WinStyle=0
 Name=""
 Hint=""
 HintManager="(empty)"
 Layout="(empty)"
 WidthScale=0
 HeightScale=0
 AlphaBlendValue=255
 Caption="Form"
 BorderStyle=2
 WindowsState=0
 Icon=[]
 TaskBar=0
 DragForm=1
 TransparentColor=16777215
 Picture=[]
 SavePosName=""
 MouseCapture=1
 ClientSize=1
 Position=0
 ShiftLeft=0
 ShiftTop=0
 OffsetShift=1
 TransparentManager="(empty)"
 FormFastening="(empty)"
 link(onCreate,10056561:doText,[(163,440)(163,426)])
}
Add(ArrayEnum,810789,206,462)
{
 @Color=65280
 Type=0
 onBreakEnable=1
 link(onItem,4589267:doNext,[])
 link(Array,2577132:Array,[(212,425)(230,425)])
}

--- Добавлено в 2020-01-14 20:35:43

А теперь разъясните хоть что-нибудь про второй вариант схемы, которую вы выложили ( я ничего не понял в той схеме

)

карма: 0

c, c++, lua

Редактировалось 5 раз(а), последний 2020-01-14 20:35:43

Форумы Помощь по пакету Перебор строк StrList с помощью ArrayRW ← Ctrl12 3 4 5 6 7Ctrl →