Вверх ↑
Этот топик читают: Гость
Ответов: 195
Рейтинг: 1
#1: 2018-02-22 20:48:21 ЛС | профиль | цитата
задача что ms dj введенном коде символы были заменены согласно таблице.
0123456789ABCDEF
FEDCBA9876543210

если например А то заменяем на 0
если 5 заменяем на А и т д


Add(MainForm,2359776,224,70)
{
Width=899
Height=579
}
Add(Button,15343263,217,161)
{
Left=15
Top=10
TabOrder=-1
link(onClick,13466306:doMultiReplace,[(317,167)(317,174)])
}
Add(MultiReplace,13466306,385,168)
{
link(onResult,8892279:doText,[(454,174)(454,181)])
link(Text,3718651:Text,[(391,156)(370,156)])
link(ReplaceList,867259:Text,[(398,152)(419,152)])
}
Add(Memo,8892279,462,154)
{
Left=15
Top=45
Width=455
Height=425
ScrollBars=2
}
Add(Edit,3718651,364,77)
{
Left=510
Top=95
Width=255
Height=85
}
Add(StrList,867259,413,77)
{
Strings=#4:0=F;|4:1=E;|4:2=D;|4:3=C;|4:4=B;|4:5=A;|4:6=9;|4:7=8;|4:8=7;|4:9=6;|4:A=5;|4:B=4;|4:C=3;|4=2;|4:E=1;|0
}


Редактировалось 1 раз(а), последний 2018-02-22 20:49:14
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Разработчик
Ответов: 26061
Рейтинг: 2120
#2: 2018-02-22 21:21:48 ЛС | профиль | цитата
Так?

Схема

Add(MainForm,2359776,343,245)
{
Width=899
Height=579
}
Add(Button,15343263,343,294)
{
Left=15
Top=10
TabOrder=-1
link(onClick,13466306:doMultiReplace,[])
}
Add(MultiReplace,13466306,406,294)
{
ReplaceList="0=F;\r\n1=E;\r\n2=D;\r\n3=C;\r\n4=B;\r\n5=A;\r\n6=9;\r\n7=8;\r\n8=7;\r\n9=6;\r\nA=5;\r\nB=4;\r\nC=3;\r\nD=2;\r\nE=1;\r\nF=0;"
Mode=1
link(onResult,8892279:doText,[])
link(Text,3718651:Text,[])
}
Add(Memo,8892279,462,273)
{
Left=15
Top=45
Width=455
Height=425
Font=[MS Sans Serif,12,0,0,1]
ScrollBars=2
}
Add(Edit,3718651,406,245)
{
Left=510
Top=95
Width=255
Height=85
Font=[MS Sans Serif,12,0,0,1]
Text="0123456789ABCDEF"
}


Обрати внимание на свойство Mode

Редактировалось 2 раз(а), последний 2018-02-22 21:23:55
карма: 22

0
Ответов: 8887
Рейтинг: 823
#3: 2018-02-22 22:44:54 ЛС | профиль | цитата
z80, ох, и не нравится мне эта мультизамена
Вот так раз в 33 быстрее
Ну очень быстро


Add(Button,15343263,140,119)
{
Left=160
Top=210
TabOrder=-1
Caption=">>"
link(onClick,13018019:doEvent1,[])
}
Add(Memo,8892279,399,112)
{
Left=200
Top=5
Width=190
Height=195
ScrollBars=2
}
Add(Memo,5492968,252,49)
{
Left=5
Top=5
Width=190
Height=195
}
Add(MultiElement,13182460,203,56)
{
link(onEvent1,5492968:doText,[(242,62)(242,76)])
}
BEGIN_SDK
Add(EditMulti,8783771,21,21)
{
EventCount=1
WorkCount=1
link(doWork1,1402677:doEvent1,[(32,27)(32,55)])
}
Add(For,7775800,77,56)
{
End=9999
link(onEvent,1769732:doRandom,[])
link(onStop,12001000:doData,[(123,69)(123,118)])
}
Add(Random,1769732,133,56)
{
Max=15
link(onRandom,15570742:doConvert,[])
}
Add(Convertor,15570742,175,56)
{
Mode=6
Digits=1
link(onResult,3730498:doStrCat,[])
}
Add(Hub,1402677,42,49)
{
link(onEvent1,3730498:doClear,[(67,55)(67,48)(214,48)(214,69)])
link(onEvent2,7775800:doFor,[])
}
Add(StrCat,3730498,238,56)
{
Point(doClear)
link(Str1,6597403:Var1,[(244,47)(230,47)(230,96)])
}
Add(DoData,12001000,238,112)
{
link(onEventData,8783771:onEvent1,[(277,118)(277,27)])
link(Data,6597403:Var2,[])
}
Add(GetDataEx,6597403,238,91)
{
link(Data,3730498:Result,[])
}
END_SDK
Add(Button,3080924,140,84)
{
Left=20
Top=210
Caption="New"
link(onClick,1101684:doWork3,[(193,90)])
}
Add(HubEx,1101684,189,56)
{
link(onEvent,13182460:doWork1,[])
}
Add(MultiElementEx,162261,301,126)
{
link(onAntiHex,10333653:doEvent1,[])
}
BEGIN_SDK
Add(EditMultiEx,101265,21,21)
{
WorkCount=#5:doHex|
EventCount=#9:onAntiHex|
link(doHex,6977592:doEvent1,[(32,27)(32,55)])
}
Add(Str_Enum,670125,70,56)
{
Delimiter=""
link(onEnum,1964377:doOperation,[])
link(onEndEnum,14675773:doData,[(116,69)(116,118)])
}
Add(Math,1964377,126,56)
{
OpType=1
Op1=15
ResultType=0
link(onResult,5304112:doConvert,[])
}
Add(Convertor,5304112,168,56)
{
Mode=6
Digits=1
link(onResult,5101220:doStrCat,[])
}
Add(StrCat,5101220,217,56)
{
Point(doClear)
link(Str1,7969502:Var3,[(223,43)(238,43)(238,99)])
}
Add(DoData,14675773,217,112)
{
link(onEventData,101265:onAntiHex,[(298,118)(298,27)])
link(Data,7969502:Var2,[])
}
Add(GetDataEx,7969502,217,94)
{
link(Data,5101220:Result,[])
}
Add(Hub,6977592,42,49)
{
link(onEvent1,5101220:doClear,[(207,55)(207,69)])
link(onEvent2,670125:doEnum,[])
}
END_SDK
Add(DoData,1583869,252,126)
{
link(onEventData,162261:doHex,[])
link(Data,2053308:Var2,[])
}
Add(MainForm,8697964,140,42)
{
Width=411
Height=318
link(onCreate,1101684:doWork2,[])
}
Add(MultiReplace,13466306,238,217)
{
ReplaceList="0=F;\r\n1=E;\r\n2=D;\r\n3=C;\r\n4=B;\r\n5=A;\r\n6=9;\r\n7=8;\r\n8=7;\r\n9=6;\r\nA=5;\r\nB=4;\r\nC=3;\r\nD=2;\r\nE=1;\r\nF=0;"
Mode=1
link(onResult,682049:doEvent1,[])
link(Text,2053308:Var1,[(244,103)])
}
Add(Label,12671498,455,175)
{
Left=105
Top=235
}
Add(Label,3957712,455,210)
{
Left=105
Top=260
}
Add(Hub,13018019,196,119)
{
OutCount=4
link(onEvent1,8322436:doStart,[(383,125)(383,181)])
link(onEvent2,1583869:doData,[])
link(onEvent3,11058653:doStart,[(228,139)(228,216)])
link(onEvent4,13466306:doMultiReplace,[(221,146)(221,223)])
}
Add(TimeCounter,8322436,406,175)
{
link(onStop,12671498:doText,[(445,188)(445,181)])
}
Add(GetDataEx,2053308,252,98)
{
link(Data,5492968:Text,[])
}
Add(TimeCounter,11058653,406,210)
{
link(onStop,3957712:doText,[(445,223)(445,216)])
}
Add(Hub,10333653,343,126)
{
link(onEvent1,8322436:doStop,[(375,132)(375,188)])
link(onEvent2,9143992:doWork2,[])
}
Add(Hub,682049,287,217)
{
link(onEvent1,11058653:doStop,[])
link(onEvent2,9143992:doWork3,[(368,230)])
}
Add(HubEx,9143992,364,133)
{
link(onEvent,8892279:doText,[])
}

карма: 19

0
Ответов: 195
Рейтинг: 1
#4: 2018-02-22 22:55:28 ЛС | профиль | цитата
Спасибо всем. Да не внимателен на свойства Modуе не обратил внимание...

а воторой вариант может и бістрее но для моих целей хватит первого
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#5: 2018-02-23 09:40:11 ЛС | профиль | цитата
Леонид писал(а):
и не нравится мне
1. красный лишний
Leonid_2.jpg


Редактировалось 5 раз(а), последний 2018-02-24 13:22:28
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
5
Сообщение
...
Прикрепленные файлы
(файлы не залиты)