Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2011-02-03 05:09:21 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-04 06:38:22
карма: 0

0
Ответов: 1841
Рейтинг: 369
#2: 2011-02-03 07:39:43 ЛС | профиль | цитата
Да
карма: 1
0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2011-02-03 13:17:16 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-04 06:38:22
карма: 0

0
Ответов: 301
Рейтинг: 11
#4: 2011-02-03 15:40:40 ЛС | профиль | цитата
Для начала уменьшаем путаницу связей:
code_22410.txt
карма: 0

0
файлы: 1code_22410.txt [3.7KB] [223]
Гость
Ответов: 17029
Рейтинг: 0
#5: 2011-02-03 17:21:32 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-04 06:38:22
карма: 0

0
Ответов: 1058
Рейтинг: 76
#6: 2011-02-03 17:30:21 ЛС | профиль | цитата
Чтобы заработало надо предварительно установить значение счетчика.
Я ето тоже заметил, и даже написал об етом в одной из тем. здесь Подождем ответа.

карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#7: 2011-02-03 17:43:57 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-04 06:38:23
карма: 0

0
Ответов: 1058
Рейтинг: 76
#8: 2011-02-03 18:57:04 ЛС | профиль | цитата
95.58.82.86 писал(а):
цикл со счетчиком

Кажется мне, что в етом нет необходимости.
Вот, для тренировки сгодится:

Add(MainForm,7322100,357,231)
{
Width=717
Height=277
Caption="Ping"
Position=1
}
Add(Edit,4084053,427,140)
{
Left=10
Top=25
Width=225
Text="93.81.240.87"
}
Add(Button,5351235,350,182)
{
Left=10
Top=205
Width=90
Caption="GO"
link(onClick,13309255:doSplit,[])
}
Add(FormatStr,16188978,602,448)
{
DataCount=4
Mask="%1;%2;%3;%4"
PColor(Str3,255)
link(onFString,12844150:doEvent1,[])
link(Str1,1093238:Value,[])
link(Str2,8777206:Value,[])
link(Str3,11679863:Time,[(622,434)(433,434)])
}
Add(Edit,4038681,525,140)
{
Left=10
Top=70
Width=225
Text=""
}
Add(Label,2573198,378,140)
{
Left=10
Top=5
Width=14
Height=17
Caption="IP"
}
Add(MultiStrPart,13309255,427,182)
{
Char="."
Count=4
link(onSplit,14978915:doEvent1,[])
link(Str,4084053:Text,[])
}
Add(FormatStr,16273281,427,259)
{
DataCount=4
Mask="%1.%2.%3.%4"
Point(FString)
link(onFString,6652420:doEvent1,[])
link(Str1,13309255:Part1,[])
link(Str2,13309255:Part2,[])
link(Str3,13309255:Part3,[])
link(Str4,2665077:Count,[(454,246)(512,246)(512,286)(629,286)])
}
Add(HubEx,7983060,518,215)
{
Angle=2
link(onEvent,16273281:doString,[(415,221)(415,265)])
}
Add(Hub,6652420,469,259)
{
link(onEvent1,4038681:doText,[(518,265)(518,146)])
link(onEvent2,8615643:doStart,[(496,272)(496,298)(366,298)(366,328)])
}
Add(Button,9803945,357,441)
{
Left=145
Top=205
Width=90
Caption="Stop"
link(onClick,8615643:doStop,[(398,447)(398,430)(366,430)(366,335)])
}
Add(Thread,8615643,378,322)
{
link(onExec,11679863:doPing,[])
}
Add(Counter,2665077,623,245)
{
Max=255
Point(doValue)
link(onNext,7983060:doWork2,[(663,251)(663,221)])
}
Add(Hub,14978915,469,182)
{
link(onEvent1,14127503:doData,[(550,188)(550,251)])
link(onEvent2,7983060:doWork1,[(522,195)])
}
Add(DoData,14127503,560,245)
{
link(onEventData,2665077:doValue,[(599,251)(599,272)])
link(Data,13309255:Part4,[(566,229)(454,229)])
}
Add(StringTable,16583536,672,448)
{
Left=245
Top=10
Width=455
Height=225
Columns=#6:IP=200|8:Host=200|7:Time=50|0:|
}
Add(Ping,11679863,427,322)
{
Point(Time)
link(onFind,16310864:doWork2,[])
link(onFailed,4673271:doEvent,[])
link(Name,11305601:Var2,[])
}
Add(Host,9079159,413,392)
{
link(onHostByIP,11176942:doEvent1,[])
link(IP,11305601:Var1,[(419,306)])
}
Add(Memory,1093238,602,322)
{
link(onData,15936360:doEvent1,[])
}
Add(Hub,12844150,644,448)
{
PColor(onEvent2,65280)
link(onEvent1,16583536:doAdd,[])
link(onEvent2,2665077:doNext,[(680,461)(680,314)(612,314)(612,251)])
}
Add(Memory,8777206,609,392)
{
}
Add(DoData,10096269,525,336)
{
Data=String(Ошибка инициализации пакета для работы с сокетами)
PColor(onEventData,16755200)
link(onEventData,10582217:doWork2,[])
}
Add(DoData,7414342,532,343)
{
Data=String(Указанный адрес не найден)
PColor(onEventData,16755455)
link(onEventData,7403780:doWork2,[])
}
Add(DoData,12587895,539,350)
{
Data=String(Ошибка при попытке доступа к удаленному узлу)
PColor(onEventData,5636010)
link(onEventData,7403780:doWork3,[(592,356)])
}
Add(HubEx,16310864,588,322)
{
PColor(onEvent,5636010)
link(onEvent,1093238:doValue,[])
}
Add(HubEx,7403780,588,343)
{
Angle=3
PColor(onEvent,5636010)
link(onEvent,10582217:doWork3,[])
}
Add(HubEx,10582217,588,336)
{
Angle=3
PColor(onEvent,5636010)
link(onEvent,16310864:doWork3,[])
}
Add(IndexToChanel,4673271,469,329)
{
Count=4
PColor(onEvent2,16755200)
PColor(onEvent3,16755455)
PColor(onEvent4,5636010)
link(onEvent2,10096269:doData,[])
link(onEvent3,7414342:doData,[])
link(onEvent4,12587895:doData,[])
}
Add(GetDataEx,11305601,427,301)
{
link(Data,16273281:FString,[])
}
Add(Hub,15936360,644,322)
{
link(onEvent1,8777206:doClear,[(675,328)(675,429)(597,429)(597,405)])
link(onEvent2,9079159:doHostByIP,[(669,335)(669,384)(401,384)(401,398)])
}
Add(Hub,11176942,469,392)
{
link(onEvent1,8777206:doValue,[])
link(onEvent2,16188978:doString,[(535,405)(535,454)])
}
Add(Label,6283938,476,140)
{
Left=10
Top=50
Caption="Current IP"
}


карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#9: 2011-02-03 19:22:41 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-04 06:38:23
карма: 0

0
Ответов: 1058
Рейтинг: 76
#10: 2011-02-03 19:37:31 ЛС | профиль | цитата
Не забывайте, что ето токо пример, а не полностью законченная программа, только "фундамент" для размышления.
К примеру после достижения счета 255, счет начинается сначала, также надо добавить проверку числа и продумать дальнейшее поведение программы: остановка, пинг другого адреса,запуск следующего счетчика и т.п. В общем ето Вам решать, а пример так сказать шаг к дальнейшему изучению среды HiAsm.
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#11: 2011-02-03 19:50:34 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-04 06:38:23
карма: 0

0
Ответов: 373
Рейтинг: 108
#12: 2011-02-04 15:01:40 ЛС | профиль | цитата
В разделе схемы посмотри whoise, ping, traceroute, time.Если ping будет подвисать увеличь задержку в PageControl на вкладке ping в последнем MultiElementEx.
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#13: 2011-02-05 19:07:12 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-04 06:38:23
карма: 0

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