Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#16: 2016-10-16 16:34:16 ЛС | профиль | цитата
RAWY_EX писал(а):
вот формула расчета
Это ты про этот кусок ?
Vadimluk1_10.png
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1535
Рейтинг: 176
#17: 2016-10-16 16:50:01 ЛС | профиль | цитата
Нет, про этот.

2016-10-16_16-48-20.png
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 16884
Рейтинг: 1239
#18: 2016-10-16 18:38:22 ЛС | профиль | цитата
Несчастливое число

Add(MultiElement,12447734,385,357)
{
link(Data1,930766:Var,[])
link(Data2,11631626:Var,[])
link(Data3,8256418:Var,[])
}
BEGIN_SDK
Add(EditMulti,14094528,21,21)
{
EventCount=1
WorkCount=1
DataCount=3
Width=314
Height=137
VOffset=7
HOffset=70
link(doWork1,14167678:doEvent1,[])
}
Add(Str_Enum,8294356,196,56)
{
Delimiter=""
link(onEnum,4593384:doOperation,[])
link(onEndEnum,3924309:doString,[(244,69)(244,125)])
}
Add(Math,4593384,259,56)
{
Point(doClear)
link(Op2,14459779:Var3,[(272,44)(297,44)(297,96)])
}
Add(Hub,14167678,42,28)
{
link(onEvent1,4593384:doClear,[(250,34)(250,69)])
link(onEvent2,9763327:doString,[(73,41)(73,62)])
}
Add(FormatStr,3924309,259,119)
{
DataCount=1
Mask="Несчастливое число %1."
link(onFString,14094528:onEvent1,[(315,125)(315,34)])
link(Str1,14459779:Var2,[])
}
Add(GetDataEx,14459779,259,91)
{
link(Data,4593384:Result,[])
}
Add(FormatStr,9763327,91,56)
{
DataCount=3
Mask="%1+%2+%3"
link(onFString,7181583:doMultiReplace,[])
link(Str1,14094528:Data1,[])
link(Str2,14094528:Data2,[])
link(Str3,14094528:Data3,[])
}
Add(MultiReplace,7181583,140,56)
{
ReplaceList="а=1;б=2;в=2;г=2;д=2;е=1;ё=1;ж=2;з=2;и=1;й=1;к=2;л=2;м=2;н=2;о=1;п=2;р=2;с=2;т=2;у=1;ф=2;х=2;ц=2;ч=2;ш=2;щ=2;ъ=2;ы=1;ь=2;э=1;ю=1;я=1"
link(onResult,8294356:doEnum,[])
}
END_SDK
Add(LineBreak,4873708,371,294)
{
Type=1
Primary=[11631626,21,35]
}
Add(LineBreak,272575,315,294)
{
Type=1
Primary=[930766,70,35]
}
Add(LineBreak,14353379,420,294)
{
Type=1
Primary=[8256418,-21,35]
}

8 компонент вполне хватит.

Редактировалось 1 раз(а), последний 2016-10-16 18:39:47
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 632
Рейтинг: 4
#19: 2016-10-16 19:10:31 ЛС | профиль | цитата
ser_davkin, мог, конечно, и ошибку допустить, но когда водил данные я букву ч и х не использовал!
Tad, благодарю за помощь, очень помогло!

Редактировалось 1 раз(а), последний 2016-10-16 19:12:25
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#20: 2016-10-16 22:17:59 ЛС | профиль | цитата
Vadimluk1, а вот так обрабатываются Ф.И.О.
http://forum.hiasm.com/getfile/37877
Если применишь MultiReplace, то уложишься в 24 компонента.

ser_davkin, я кажется у тебя украл идею. Блин, заметил только после того, как выложил свою схему.

Редактировалось 3 раз(а), последний 2016-10-16 22:25:34
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1FamOt.rar [4.2KB] [521]
Ответов: 16884
Рейтинг: 1239
#21: 2016-10-17 09:35:46 ЛС | профиль | цитата
ser_davkin, а как тебе такой вариант ?


Add(MainForm,2953706,91,182)
{
Width=536
Height=134
}
Add(Edit,15108714,154,77)
{
Left=70
Top=35
Width=155
Text="Лукашенко"
}
Add(Button,2697809,91,133)
{
Left=270
Top=35
link(onClick,1140567:doModify,[])
}
Add(Edit,469831,483,196)
{
Left=345
Top=35
}
Add(MultiReplace,12229033,203,133)
{
ReplaceList="а=1;\r\nи=1;\r\nс=1;\r\nъ=1;\r\nб=2;\r\nй=2;\r\nт=2;\r\nы=2;\r\nв=3;\r\nк=3;\r\nу=3;\r\nь=3;\r\nг=4;\r\nл=4;\r\nф=4;\r\nэ=4;\r\nд=5;\r\nм=5;\r\nх=5;\r\nю=5;\r\nе=6;\r\nн=6;\r\nц=6;\r\nя=6;\r\nё=7;\r\nо=7;\r\nч=7;\r\nж=8;\r\nп=8;\r\nш=8;\r\nз=9;\r\nр=9;\r\nщ=9;"
link(onResult,8881502:doEvent2,[])
}
Add(StrCase,1140567,154,133)
{
link(onModify,12229033:doMultiReplace,[])
link(Str,15108714:Text,[])
}
Add(Str_Enum,6862845,315,133)
{
Delimiter=""
link(onEnum,7434692:doOperation,[])
link(onEndEnum,6093190:doData,[(369,146)(369,195)])
}
Add(ChangeMon,6093190,392,189)
{
Point(onNoData)
link(onData,8881502:doEvent1,[(448,195)(448,109)(277,109)(277,132)])
link(Data,15514636:Var2,[])
link(onNoData,469831:doText,[])
}
Add(Math,7434692,392,133)
{
Point(doClear)
link(Op2,15514636:Var3,[(405,121)(435,121)(435,176)])
}
Add(GetDataEx,15514636,392,171)
{
link(Data,7434692:Result,[])
}
Add(Hub,8881502,287,126)
{
InCount=2
link(onEvent1,7434692:doClear,[(378,132)(378,146)])
link(onEvent2,6862845:doEnum,[])
}
Add(InfoTip,2934529,252,84)
{
Info=#11:Сумма цифр.|
Width=211
Height=144
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 632
Рейтинг: 4
#22: 2016-10-17 15:35:20 ЛС | профиль | цитата
Tad,благодарю, программа занимает 52 кбайт меньше памяти!
карма: 0

0
Ответов: 632
Рейтинг: 4
#23: 2016-10-22 18:59:16 ЛС | профиль | цитата
Tad, благодарю, открылось, но описание не со всем с действительностью совпадает! Нужно ещё и имя, фамилию и отчество брать в расчёт и описание немного поменять!http://forum.hiasm.com/topic/66161. Здесь есть эта таблица с описанием!
карма: 0

0
Ответов: 1
Рейтинг: 0
#24: 2017-04-19 18:30:24 ЛС | профиль | цитата
Ребята прошу вашей помощи, как выдать N в ComboBox, данные хочу брать из MySQL Server
Если кто-то что то не понял пишите сразу, я мониторю эту страницу.
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#25: 2017-04-19 20:33:00 ЛС | профиль | цитата
vlad_effect писал(а):
как выдать N в ComboBox,
Это про что?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 12
Рейтинг: 2
#26: 2017-04-22 12:18:03 ЛС | профиль | цитата
Интресная программа, вроде все совпадает.
карма: 0

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