Вверх ↑
Этот топик читают: Гость
Ответов: 784
Рейтинг: 168
#16: 2022-05-20 13:22:16 ЛС | профиль | цитата
Serascer писал(а):
Можете мне пожалуйста сделать схему, со сравнением, когда при превышении 13240 скажем один светодиод загорался, а если файл меньше размером, то другой.

У меня файла такого размера нет, но подобрал два очень одинаковых по размеру.
Сначала выбери один потом другой.

Add(MainForm,16294866,273,119)
{
Width=292
Height=154
}
Add(HTTP_Get,7735954,385,105)
{
Wait=0
link(onURLSize,13464908:doCompare,[])
link(URL,11603122:String,[])
}
Add(Button,6274293,322,119)
{
Left=5
Top=50
Width=125
Height=50
Caption="Прайс"
Data=String()
link(onClick,7735954:GetURLSize,[])
}
Add(LED,13752158,588,105)
{
Left=150
Top=55
}
Add(LED,6418750,588,161)
{
Left=190
Top=55
}
Add(ComboBox,11603122,378,42)
{
Left=10
Top=10
Width=210
Height=21
Strings=#37:https://forum.hiasm.com/getfile/39294|37:https://forum.hiasm.com/getfile/39292|
Text=""
}
Add(Hub,13101143,497,126)
{
link(onEvent1,13752158:doOff,[(522,132)(522,118)])
link(onEvent2,6418750:doOn,[(529,139)(529,181)])
}
Add(Hub,9330310,539,119)
{
link(onEvent1,13752158:doOn,[])
link(onEvent2,6418750:doOff,[(564,132)(564,174)])
}
Add(If_else,13464908,441,119)
{
Type=1
Op2=Integer(26286)
link(onTrue,9330310:doEvent1,[])
link(onFalse,13101143:doEvent1,[])
}

карма: 15

0
Ответов: 133
Рейтинг: 0
#17: 2022-05-20 13:49:26 ЛС | профиль | цитата
Объясните мне идиоту пожалуйста, ПОЧЕМУ это не работает? ) Если убрать сравнение то все отлично. Проблема именно на этапе сравнения, загрузка файла не происходит после сравнения.
Add(MainForm,2603728,105,42)
{
Width=1609
Height=967
Caption="Пример использования if_else"
}
Add(If_else,4729388,273,266)
{
Type=1
Op1=Integer(0)
Op2=Integer(13240)
link(onTrue,10823916:doDownload,[])
}
Add(HTTP_Get,10823916,378,266)
{
URL=""
Wait=0
link(onDownload,16033274:doConvert,[])
}
Add(Convertor,16033274,455,273)
{
Mode=11
link(onResult,14443421:doSearch,[])
}
Add(BlockFind,14443421,525,273)
{
IncludeBlock=1
StartBlock="<loc>"
EndBlock="</loc>"
link(onSearch,3219978:doReplace,[])
}
Add(Replace,3219978,588,273)
{
SubStr="&amp;"
DestStr="&"
link(onReplace,13127934:doEvent2,[(699,279)(699,412)])
}
Add(HTTP_Get,7735954,161,252)
{
URL=""
Wait=0
link(onURLSize,4729388:doCompare,[])
}
Add(CheckBox,10547583,763,448)
{
Left=10
Top=140
Width=140
Checked=0
Caption="Случайный порядок"
}
Add(Edit,7065250,651,406)
{
Left=65
Top=105
Width=45
Text="7"
DataType=2
ClearAfterEnter=1
link(onChange,5122062:doEvent1,[(695,412)(695,436)(583,436)(583,461)])
}
Add(Label,10823011,693,350)
{
Left=10
Top=110
Width=53
Height=17
Caption="Интервал"
}
Add(Label,5324941,742,350)
{
Left=120
Top=110
Width=25
Height=17
Caption="сек."
}
Add(Button,15230804,546,462)
{
Left=10
Top=165
Width=125
Caption="Старт"
link(onClick,5122062:doEvent2,[])
}
Add(ListBox,9901049,889,371)
{
Left=10
Top=340
Width=130
Height=60
DataType=1
Point(doLoad)
Point(doSelect)
Point(onSelect)
Point(EndIdx)
Point(String)
link(onChange,10626358:doEvent1,[(933,377)(933,426)])
link(onSelect,15129342:doEvent1,[])
}
Add(Hub,13127934,812,399)
{
InCount=3
link(onEvent1,9901049:doAdd,[(858,405)(858,377)])
link(onEvent2,2134394:doData,[(837,412)(837,468)])
}
Add(DoData,2134394,910,462)
{
link(onEventData,542141:doMax,[])
link(Data,9901049:EndIdx,[])
}
Add(Button,11849292,546,504)
{
Left=10
Top=190
Width=125
Caption="Стоп"
link(onClick,9881410:doEvent1,[])
}
Add(WebBrowser,1507637,973,385)
{
Left=293
Width=1300
Height=928
Align=3
URL=""
Silent=0
}
Add(Timer,15352547,707,497)
{
Interval=0
Enable=1
Point(doInterval)
link(onTimer,1620092:doEvent,[])
}
Add(Hub,5122062,595,455)
{
InCount=2
link(onEvent1,8356632:doOperation,[])
link(onEvent2,15352547:doTimer,[(634,468)(634,503)])
}
Add(CounterEx,542141,980,455)
{
Max=2
Default=-1
Point(doMax)
Point(doReset)
Point(onThroughMax)
link(onNext,5028031:doEvent1,[])
link(onThroughMax,542141:doReset,[(1019,468)(1019,496)(970,496)(970,475)])
}
Add(IndexToChanel,1620092,763,497)
{
Point(Index)
link(onEvent1,542141:doNext,[(961,503)(961,461)])
link(onEvent2,12809008:doRandom,[])
link(Index,10547583:Checked,[])
}
Add(Math,8356632,644,455)
{
OpType=2
Op1=1000
ResultType=0
link(onResult,15352547:doInterval,[(683,461)(683,517)])
link(Op2,7065250:Text,[])
}
Add(Random,12809008,819,504)
{
Max=0
Point(Max)
Point(doMax)
link(onRandom,5028031:doEvent2,[(943,510)(943,468)])
}
Add(Label,2531889,1120,504)
{
Left=10
Top=305
Width=74
Height=19
Caption=""
link(Text,13653503:Value,[])
}
Add(Label,5024744,1120,413)
{
Left=10
Top=280
Width=79
Height=17
Caption="Номер ссылки"
}
Add(Memory,13653503,1120,455)
{
link(onData,2531889:doText,[(1164,461)(1164,485)(1108,485)(1108,510)])
}
Add(Hub,5028031,1036,455)
{
InCount=2
link(onEvent1,13653503:doValue,[])
link(onEvent2,9901049:doSelect,[(1062,468)(1062,440)(877,440)(877,412)])
}
Add(Label,2595530,896,525)
{
Left=10
Top=245
Width=104
Height=24
Caption=""
link(Text,9901049:Count,[])
}
Add(Label,10952148,1120,553)
{
Left=10
Top=220
Width=104
Height=17
Caption="Количество ссылок"
}
Add(Button,6274293,98,266)
{
Left=10
Top=10
Width=125
Height=50
Caption="Прайс"
Data=String()
link(onClick,7735954:GetURLSize,[])
}
Add(Button,15086556,266,378)
{
Left=10
Top=70
Width=125
Caption="Очистить список"
Data=String()
link(onClick,9901049:doClear,[])
}
Add(StatusBar,16535691,784,574)
{
link(Text,9901049:String,[(790,495)(923,495)])
}
Add(Hub,15129342,945,385)
{
OutCount=3
link(onEvent1,1507637:doNavigate,[])
link(onEvent2,16535691:doText,[(971,398)(971,542)(772,542)(772,580)])
link(onEvent3,9901049:doDelete,[(971,405)(971,398)(877,398)(877,391)])
}
Add(Memory,1165103,896,574)
{
Point(Data)
link(onData,14871643:doEvent1,[])
link(Data,2595530:Caption,[])
}
Add(Hub,10626358,938,420)
{
InCount=2
link(onEvent1,2595530:doText,[(964,426)(964,478)(870,478)(870,531)])
link(onEvent2,1165103:doValue,[(964,433)(964,507)(870,507)(870,580)])
}
Add(Hub,14871643,952,574)
{
link(onEvent2,12809008:doMax,[(971,587)(971,559)(807,559)(807,531)])
}
Add(Hub,9881410,609,504)
{
InCount=2
link(onEvent1,15352547:doStop,[])
}


Редактировалось 2 раз(а), последний 2022-05-20 18:03:30
карма: 1

0
Ответов: 784
Рейтинг: 168
#18: 2022-05-20 14:20:21 ЛС | профиль | цитата
Serascer писал(а):
Если убрать сравнение то все отлично. Проблема именно на этапе сравнения, загрузка файла не происходит после сравнения.

Вроде всё работает

Add(Memo,142394,567,126)
{
Width=864
Height=560
Align=5
ScrollBars=3
}
Add(HTTP_Get,7735954,266,126)
{
URL="https://www.compass.com.ru/sitemap.xml"
Wait=0
link(onDownload,16033274:doConvert,[(305,139)(305,132)])
link(onURLSize,7486826:doCompare,[])
}
Add(Button,6274293,203,140)
{
Left=10
Top=10
Width=125
Height=50
Caption="Прайс"
Data=String()
link(onClick,7735954:GetURLSize,[])
}
Add(If_else,7486826,322,140)
{
Type=2
Op2=Integer(13241)
link(onTrue,12481391:doData,[])
}
Add(Convertor,16033274,504,126)
{
Mode=11
link(onResult,142394:doAdd,[])
}
Add(DoData,12481391,385,140)
{
link(onEventData,7735954:doDownload,[(424,146)(424,118)(256,118)(256,132)])
}

карма: 15

0
Ответов: 133
Рейтинг: 0
#19: 2022-05-20 14:46:17 ЛС | профиль | цитата
Gunta писал(а):
Serascer писал(а):
Если убрать сравнение то все отлично. Проблема именно на этапе сравнения, загрузка файла не происходит после сравнения.

Вроде всё работает

Вот после добавления DoData заработало. А почему без него не работало?

--- Добавлено в 2022-05-20 15:38:54

Кстати вопрос. А есть возможность сделать ini файл с настройками программы? Чтобы там менять адрес, время и все такое?

Редактировалось 1 раз(а), последний 2022-05-20 15:38:54
карма: 1

0
Ответов: 784
Рейтинг: 168
#20: 2022-05-20 16:16:51 ЛС | профиль | цитата
Serascer писал(а):
Вот после добавления DoData заработало. А почему без него не работало?

Посмотри внимательно на свою схему и подумай куда данные о размере файла передаются после If_else...
и нет ли у тебя файлов на компьютере с названиями типа "13240", "9501043" и им подобные..

Serascer писал(а):
А есть возможность сделать ini файл с настройками программы? Чтобы там менять адрес, время и все такое?

А кто мешает? Конечно можно. Примеров полно.
карма: 15

0
Ответов: 133
Рейтинг: 0
#21: 2022-05-20 16:21:32 ЛС | профиль | цитата
Gunta писал(а):
Serascer писал(а):
Вот после добавления DoData заработало. А почему без него не работало?

Посмотри внимательно на свою схему и подумай куда данные о размере файла передаются после If_else...
и нет ли у тебя файлов на компьютере с названиями типа "13240", "9501043" и им подобные..

Serascer писал(а):
А есть возможность сделать ini файл с настройками программы? Чтобы там менять адрес, время и все такое?

А кто мешает? Конечно можно. Примеров полно.

А подскажите пожалуйста ссылки на темы с такими примерами. Я пробовал искать по слову ini, но много слишком всего находит
карма: 1

0
Ответов: 784
Рейтинг: 168
#22: 2022-05-20 16:49:11 ЛС | профиль | цитата
Serascer писал(а):
А подскажите пожалуйста ссылки на темы с такими примерами.

Положи на поле компонент Ini, выдели его и нажми F1. Откроется справка по данному компоненту в ней два примера.
Также в папке, где установлен Hiasm - \Elements\delphi\Example\Files\IniFiles.sha
карма: 15

0
Ответов: 133
Рейтинг: 0
#23: 2022-05-20 16:59:49 ЛС | профиль | цитата
Gunta писал(а):
Serascer писал(а):
А подскажите пожалуйста ссылки на темы с такими примерами.

Положи на поле компонент Ini, выдели его и нажми F1. Откроется справка по данному компоненту в ней два примера.
Также в папке, где установлен Hiasm - \Elements\delphi\Example\Files\IniFiles.sha

Спасибо большое
карма: 1

0
Ответов: 133
Рейтинг: 0
#24: 2022-05-23 12:41:00 ЛС | профиль | цитата
Подскажите пожалуйста, а как сделать так, чтобы в воскресенье с 24.00 до 05.00 программа останавливалась и потом снова запускалась?
карма: 1

0
Ответов: 784
Рейтинг: 168
#25: 2022-05-23 12:58:11 ЛС | профиль | цитата
Serascer писал(а):
как сделать так, чтобы в воскресенье с 24.00 до 05.00 программа останавливалась и потом снова запускалась?

Наверное, проще всего использовать планировщик задач.
https://ab57.ru/cmdlist/schtasks.html
карма: 15

0
Ответов: 133
Рейтинг: 0
#26: 2022-05-23 13:54:33 ЛС | профиль | цитата
Gunta писал(а):
Serascer писал(а):
как сделать так, чтобы в воскресенье с 24.00 до 05.00 программа останавливалась и потом снова запускалась?

Наверное, проще всего использовать планировщик задач.
https://ab57.ru/cmdlist/schtasks.html

А способа получить текущие время и дату нет? Просто сделать проверку на день недели и время.
карма: 1

0
Ответов: 784
Рейтинг: 168
#27: 2022-05-23 15:23:51 ЛС | профиль | цитата
Serascer писал(а):
А способа получить текущие время и дату нет?


Add(MainForm,149145,490,133)
{
Caption="Пример использования Time"
}
Add(Timer,13535085,490,182)
{
link(onTimer,12199420:doText,[])
}
Add(Time,13872396,546,133)
{
Format="W h:m:s"
}
Add(Label,12199420,546,182)
{
Left=50
Top=105
Width=72
Height=36
Font=[MS Sans Serif,20,0,0,1]
link(Text,13872396:FormatTime,[])
}

карма: 15

0
Ответов: 133
Рейтинг: 0
#28: 2022-05-23 15:35:48 ЛС | профиль | цитата
Спасибо большое! ) Теперь только прикрутить проверку выдаваемых значений и все )
карма: 1

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