HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуопределение города по ip! ← Ctrl12Ctrl →
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#16: 2013-02-27 14:02:14 ЛС | профиль | цитата
16.gprs.mts.ru, проще найти бесплатную или купить готовую прогу (любую), чем париться с программированием
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
2
Голосовали:foksov, Kazbek17
Ответов: 704
Рейтинг: 44
#17: 2013-02-27 14:32:38 ЛС | профиль | цитата
Tad писал(а):
16.gprs.mts.ru
Это я Что-то выкидывает.
Tad писал(а):
проще найти бесплатную или купить готовую прогу (любую), чем париться с программированием

Это точно.
карма: 0

0
Ответов: 12
Рейтинг: 1
#18: 2013-02-27 15:24:43 ЛС | профиль | цитата
ой молодцы мужики!!!! дай Бог вам здоровья!!!

------------ Дoбавленo в 15.24:
Если еще есть варианты ! скидывайте все приму!!! спасибо ребята
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#19: 2013-02-27 18:43:37 ЛС | профиль | цитата
megakill, на ещё вариант:
code_30448.txt

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_30448.txt [2.8KB] [176]
Ответов: 12
Рейтинг: 1
#20: 2013-02-27 20:55:04 ЛС | профиль | цитата
Tad, Во спасибо Это то что надо
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#21: 2013-02-28 11:48:45 ЛС | профиль | цитата
А вот так выглядит схема, если перед работой подумать над списком.
code_30452.txt
------------ Дoбавленo в 11.48:
И если подумать над схемой. Блин. 

Add(MainForm,8119953,133,140)
{
 Width=267
 Height=133
}
Add(StrList,4634320,301,126)
{
 Strings=#12:10 26 АЛМАТЫ|15:30 32 УСТЬКАМАН|11:35 36 СЕМЕЙ|14:40 42 ПАВЛОДАР|15:45 48 КАРАГАНДА|13:50 52 УРАЛЬСК|17:55 58 ПЕТРОПАВЛСК|12:60 62 АКТОБЕ|14:65 68 ТЕМИРТАУ|12:70 72 АТЫРАУ|11:75 77 АКТАУ|14:80 82 КОСТАНАЙ|12:85 88 АСТАНА|15:90 92 ЖЕЗКАЗГАН|11:95 98 ТАРАЗ|15:100 103 ШЫМКЕНТ|16:105 107 КОКШЕТАУ|17:110 112 ЭКИБАСТУЗ|19:115 117 ТАЛДЫКУРГАН|16:120 122 КАПЧЕГАЙ|16:125 126 КОСТАНАЙ|
}
Add(Edit,5939821,189,140)
{
 Left=25
 Top=10
 Width=95
 Text="10.67.255.255"
 ClearAfterEnter=1
}
Add(ArrayEnum,4006494,315,196)
{
 link(onItem,9758410:doSplit,[])
 link(onEndEnum,4156876:doText,[])
 link(Array,4634320:Array,[])
}
Add(If_else,3502805,490,196)
{
 Type=4
 link(onTrue,16168945:doCompare,[])
 link(Op1,11173463:Var2,[])
 link(Op2,9758410:Part1,[(503,163)(471,163)(471,263)(412,263)])
}
Add(If_else,16168945,539,196)
{
 Type=3
 link(onTrue,4006494:doStop,[(579,202)(579,117)(292,117)(292,209)])
 link(Op1,11173463:Var3,[(545,172)])
 link(Op2,9758410:Part2,[(552,154)(461,154)(461,255)(419,255)])
}
Add(MultiStrPart,14323556,189,196)
{
 Char="."
 Count=4
 link(onSplit,2703525:doConvert,[])
 link(Str,5939821:Text,[])
}
Add(ConvertorEx,2703525,245,196)
{
 Mode=1
 link(onResult,4006494:doEnum,[])
 link(Data,14323556:Part2,[(251,184)(234,184)(234,240)(202,240)])
}
Add(Button,11958491,133,196)
{
 Left=180
 Top=10
 link(onClick,14323556:doSplit,[])
}
Add(Label,4156876,364,203)
{
 Left=25
 Top=55
 Font=[Arial,12,1,0,204]
 Caption=""
 link(Text,9758410:Part3,[(370,179)(451,179)(451,247)(426,247)])
}
Add(MultiStrPart,9758410,406,196)
{
 Char=" "
 Count=3
 link(onSplit,3502805:doCompare,[])
}
Add(GetDataEx,11173463,490,167)
{
 Angle=3
 link(Data,2703525:Var,[(479,172)(479,273)(251,273)])
}
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
2
файлы: 1code_30452.txt [1.9KB] [189]
Голосовали:foksov, megakill
Разработчик
Ответов: 26305
Рейтинг: 2146
#22: 2013-02-28 12:17:09 ЛС | профиль | цитата
Tad писал(а):
И если подумать над схемой

Странно как-то -- как ты умудряешься сравнивать текст и целое в If_Else

И вот это меня сильно удивило
Почему так

303_001.png
а не вот так

303_002.png
------------ Дoбавленo в 12.17:
А вот так твоя схема разве работать не будет 

Add(MainForm,8119953,217,147)
{
 Width=267
 Height=133
}
Add(StrList,4634320,329,133)
{
 Strings=#12:10 26 АЛМАТЫ|15:30 32 УСТЬКАМАН|11:35 36 СЕМЕЙ|14:40 42 ПАВЛОДАР|15:45 48 КАРАГАНДА|13:50 52 УРАЛЬСК|17:55 58 ПЕТРОПАВЛСК|12:60 62 АКТОБЕ|14:65 68 ТЕМИРТАУ|12:70 72 АТЫРАУ|11:75 77 АКТАУ|14:80 82 КОСТАНАЙ|12:85 88 АСТАНА|15:90 92 ЖЕЗКАЗГАН|11:95 98 ТАРАЗ|15:100 103 ШЫМКЕНТ|16:105 107 КОКШЕТАУ|17:110 112 ЭКИБАСТУЗ|19:115 117 ТАЛДЫКУРГАН|16:120 122 КАПЧЕГАЙ|16:125 126 КОСТАНАЙ|
}
Add(Edit,5939821,273,147)
{
 Left=25
 Top=10
 Width=95
 Text="10.67.255.255"
 ClearAfterEnter=1
}
Add(ArrayEnum,4006494,343,203)
{
 link(onItem,9758410:doSplit,[])
 link(onEndEnum,4156876:doText,[(388,216)(388,258)])
 link(Array,4634320:Array,[])
}
Add(If_else,3502805,462,203)
{
 Type=4
 link(onTrue,16168945:doCompare,[])
 link(Op1,11173463:Var2,[])
}
Add(If_else,16168945,511,203)
{
 Type=3
 link(onTrue,4006494:doStop,[(557,209)(557,293)(333,293)(333,216)])
 link(Op1,11173463:Var3,[(517,193)])
 link(Op2,9758410:Part2,[(524,194)(552,194)(552,243)(419,243)])
}
Add(Button,11958491,217,203)
{
 Left=180
 Top=10
 link(onClick,4896:doSplit,[])
}
Add(Label,4156876,406,252)
{
 Left=25
 Top=55
 Font=[Arial,12,1,0,204]
 Caption=""
 link(Text,9758410:Part1,[])
}
Add(MultiStrPart,9758410,406,203)
{
 Char=" "
 Direct=1
 link(onSplit,3502805:doCompare,[])
}
Add(GetDataEx,11173463,462,188)
{
 Angle=3
 link(Data,4896:Part1,[(398,193)(398,243)(279,243)])
}
Add(MultiStrPart,4896,273,203)
{
 Char="."
 From=1
 Count=1
 link(onSplit,4006494:doEnum,[])
 link(Str,5939821:Text,[])
}
карма: 22

0
файлы: 2303_001.png [2.8KB] [349], 303_002.png [2.4KB] [314]
Ответов: 16884
Рейтинг: 1239
#23: 2013-02-28 14:25:59 ЛС | профиль | цитата
По поводу 303_001.png
megakill писал(а):
Ребята наглядно объяснить
Я решил, что так наглядней, хотя сначала сделал так как на 303_002.png
nesco писал(а):
как ты умудряешься сравнивать текст и целое
Ну не текст и целое, а целое и текст 
function Compare(Op1,Op2:TData; OpType:byte ):boolean;
var
  i:integer;
  r:real;
  s:string;
begin
    Result := false;
     case _IsType(op1) of
...............
На OP1 я подаю Integer, т.ч. всё правильно (op2 тоже считается числом)
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26305
Рейтинг: 2146
#24: 2013-02-28 15:05:32 ЛС | профиль | цитата
Tad писал(а):
Ну не текст и целое, а целое и текст

Мда. Очередная недокументированная фича
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#25: 2013-02-28 16:08:43 ЛС | профиль | цитата
nesco писал(а):
А вот так твоя схема разве работать не будет

Сравнивать строки - себе дороже.
code_30459.txt
Даже если ты во втором окне (вместо 101) наберёшь 9000000
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_30459.txt [1.1KB] [176]
Разработчик
Ответов: 26305
Рейтинг: 2146
#26: 2013-02-28 16:28:39 ЛС | профиль | цитата
Tad писал(а):
Сравнивать строки - себе дороже

Да, точно, это же строки, блин, совсем из головы выбило
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#27: 2013-02-28 16:50:01 ЛС | профиль | цитата
......
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 9906
Рейтинг: 351
#28: 2013-02-28 18:53:31 ЛС | профиль | цитата
nesco писал(а):
Мда. Очередная недокументированная фича

Ты чего , не знал
Этой бороде уже лет 10... Грубо говоря, другого я и не видел...
карма: 9

0
Разработчик
Ответов: 26305
Рейтинг: 2146
#29: 2013-02-28 18:56:56 ЛС | профиль | цитата
Galkov писал(а):
Ты чего , не знал

Вот честно скажу -- не знал Я в это If_Else вообще не лазил, работает, и хорошо. Хотя, что бы это применить, то это знать надо, а многие и не знают. Не все же в код заглядывают. Неплохо бы в справке отметит, что тип аргументов для сравнения выбирается по первому оператору.

Что ж, что-то для себя новое открыл через столько лет, все к лучшему
карма: 22

0
29
ФорумыПомощь по пакетуопределение города по ip! ← Ctrl12Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2025
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика