Вверх ↑
Этот топик читают: Гость
Этот топик был перемещен из раздела "Прочее"
Ответов: 13
Рейтинг: 0
#1: 2018-09-23 15:13:49 ЛС | профиль | цитата
Доброго времени суток! Господа, нужна ваша помощь!

Нужно сделать небольшой таймер обратного отсчёта:
Небольшое окно 120х120 (может чуть больше).
Отсчёт 30 сек.
Кнопка старт/сброс (она же)



Ребята, я вообще овощ в этой теме, что куда тыкать не знаю, если не сложно, можете файл мне отправить (да, я наглый), или всё расписать, как для маленького ребёнка.
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 16884
Рейтинг: 1239
#2: 2018-09-23 16:00:53 ЛС | профиль | цитата
PrpstoYan писал(а):
да, я наглый

PrpstoYan, Поиск -> Обратный таймер
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 13
Рейтинг: 0
#3: 2018-09-23 16:07:10 ЛС | профиль | цитата
Tad писал(а):
PrpstoYan писал(а):
да, я наглый

PrpstoYan, Поиск -> Обратный таймер

Очень полезный ответ, который, конечно же, не помог.
карма: 0

0
Ответов: 817
Рейтинг: 52
#4: 2018-09-23 16:13:33 ЛС | профиль | цитата
PrpstoYan писал(а):
(да, я наглый)

Нашел чем гордиться


Add(MainForm,2953706,154,119)
{
}
Add(Edit,14918306,399,119)
{
Left=120
Top=55
Text="30"
}
Add(Button,9281028,203,119)
{
Left=115
Top=130
Caption="Старт"
link(onClick,14022669:doEvent1,[(243,125)(243,132)])
}
Add(Timer,5554897,287,119)
{
Enable=1
AutoStop=30
link(onTimer,4512687:doNext,[])
}
Add(CounterEx,4512687,343,119)
{
Max=30
Direct=1
Default=30
Point(doReset)
link(onNext,14918306:doText,[])
}
Add(Hub,14022669,252,126)
{
link(onEvent1,4512687:doReset,[])
link(onEvent2,5554897:doTimer,[(276,139)(276,125)])
}

карма: 1

0
Ответов: 13
Рейтинг: 0
#5: 2018-09-23 16:49:42 ЛС | профиль | цитата
Спасибо за код, только куда его вставить?
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#6: 2018-09-23 17:12:34 ЛС | профиль | цитата
В Hiasm F1 нажми
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 13
Рейтинг: 0
#7: 2018-09-23 17:18:19 ЛС | профиль | цитата
Tad писал(а):
В Hiasm F1 нажми

Вау! Обучение, которое я не просил. Спасибо! Поэтому я и создал тему, чтобы мне посоветовали обучиться в программе, в которой я обучаться не хочу!
Хочу вызвать такси, пойду сдам на права!
карма: 0

0
Главный модератор
Ответов: 2997
Рейтинг: 395
#8: 2018-09-23 17:34:14 ЛС | профиль | цитата
PrpstoYan писал(а):
...мне посоветовали обучиться в программе, в которой я обучаться не хочу!

PrpstoYan, если ограничитесь только "остроумием", то вселенная это переживёт, но если продолжите в том же духе или хуже - придётся вмешаться в "поток Вашего сознания".

Редактировалось 1 раз(а), последний 2018-09-23 17:34:45
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 13
Рейтинг: 0
#9: 2018-09-23 17:40:16 ЛС | профиль | цитата
Nic писал(а):
PrpstoYan писал(а):
...мне посоветовали обучиться в программе, в которой я обучаться не хочу!

PrpstoYan, если ограничитесь только "остроумием", то вселенная это переживёт, но если продолжите в том же духе или хуже - придётся вмешаться в "поток Вашего сознания".

Редактировалось 1 раз(а), последний 2018-09-23 17:34:45


Я лишь попросил разжевать, как для ребёнка создание обычно секундомера в программе. Я не просил меня обучать. Ответ: "F1" - гениален.
карма: 0

0
Главный модератор
Ответов: 2997
Рейтинг: 395
#10: 2018-09-23 20:20:37 ЛС | профиль | цитата
PrpstoYan, По обычным для форума меркам Вам дали ответ на вопрос темы. Вы пока не смогли им воспользоваться, так как ожидали ответа в другом, "идеальном" по-вашему представлению виде. И так как ожидаемое не совпало с действительностью решили, что отвечающие Вам не правы "мягко" говоря. Не буду оригинален, но всё таки скажу, что Вы заблуждаетесь, хотя и не осознанно, но такова психология многих, приходящих на этот форум с вопросами. Если бы Вы приложили чуть-чуть усилий для изучения основ работы с программой, то обнаружили бы, что пользователь -= DriveR =-, ответил Вам схемой с примером, которую можно копировать в буфер обмена и вставить прямо в поле редактора схемы нового проекта программы (Ctrl-C и Ctrl-V) или (Copy и Paste) или (Копировать и Вставить). Затем Вам осталось бы только запустить схему на выполнение по нажатию кнопки F9. Вот всё это можно было узнать, нажав кнопку F1 в программе и потратив несколько минут на изучение основ.

Редактировалось 2 раз(а), последний 2018-09-23 20:25:56
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 13
Рейтинг: 0
#11: 2018-09-23 22:04:45 ЛС | профиль | цитата
И вправду, прошу прощение. Просто вставить.
Теперь, на новом компьютере, не кампелируется

Подготовка к сборке проекта...
Генерация кода целевого языка
Компоновка проекта...
Command line: fpc.exe '"C:\Users\Hope\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\Project1.pas"' -Sd -Mdelphi '"-FE\Users\Hope\Projects\"' '"-FUC:\Users\Hope\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\units"' -FDtools\ -CX -dF_P
Free Pascal Compiler version 1.9.6 [2004/12/31] for i386
Copyright (c) 1993-2004 by Florian Klaempfl
Target OS: Win32 for i386
Compiling C:\Users\Hope\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\Project1.pas
Compiling C:\Users\Hope\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\hiMainForm_2608E10.pas
Compiling resource C:\Users\Hope\AppData\Roaming\HiAsm_AltBuild\Elements\delphi\code\allres.res
Project1.pas(19,1) Error: Can't call the linker, switching to external linking
Project1.pas(19,1) Fatal: There were 1 errors compiling module, stopping
Closing script \Users\Hope\Projects\ppas.bat
Error: C:\Users\Hope\AppData\Roaming\HiAsm_AltBuild\compiler\fpc\ppc386.exe returned an error exitcode (normal if you did not specifiy a source file to be compiled)
Сборка завершена.

--- Добавлено в 2018-09-23 22:19:32

Поставил на другой диск - заработало. Только вот схема не работает. Таймер висит. Или я опять туплю?

Редактировалось 1 раз(а), последний 2018-09-23 22:19:32
карма: 0

0
Ответов: 13
Рейтинг: 0
#12: 2018-09-24 00:24:29 ЛС | профиль | цитата
Add(MainForm,9387641,616,329)
{
Width=188
Height=391
Color=-16777214
Caption="Квота 3.0b"
BorderStyle=5
TransparentColor=-16777214
}
Add(Edit,14918306,945,287)
{
Left=10
Top=150
Width=141
Height=96
Font=[Comic Sans MS,48,1,0,204]
Text="30"
Alignment=2
}
Add(Button,9281028,665,329)
{
Left=15
Top=250
Width=131
Height=80
Font=[Comic Sans MS,14,1,0,204]
Caption="Старт"
link(onClick,14022669:doEvent1,[(705,335)(705,405)])
}
Add(Timer,5554897,742,329)
{
Enable=1
AutoStop=31
Point(doInterval)
Point(doAutoStop)
link(onTimer,12539045:doPrev,[(793,335)(793,349)])
}
Add(Hub,14022669,728,399)
{
link(onEvent1,12539045:doValue,[(777,405)(777,363)])
link(onEvent2,5554897:doTimer,[(738,412)(738,335)])
}
Add(Counter,12539045,812,336)
{
Max=30
Default=30
Point(Min)
Point(Max)
Point(Step)
Point(doValue)
link(onNext,14918306:doText,[(894,342)(894,293)])
}
Add(Label,2324073,1022,595)
{
Left=65
Top=5
Width=43
Height=94
Color=-16777211
Font=[Comic Sans MS,48,1,0,0]
Caption="0"
Alignment=2
}
Add(Button,12965166,672,595)
{
Left=45
Top=110
Width=95
Height=35
Font=[Tempus Sans ITC,16,1,0,0]
Caption="КЛИК"
link(onClick,8490003:doEvent1,[])
}
Add(Math,10769889,896,595)
{
link(onResult,4693213:doEvent1,[])
link(Op1,16140265:Var3,[(902,579)(958,579)])
link(Op2,12057540:Value,[])
}
Add(Math,2425078,840,756)
{
OpType=1
Op2=1
link(onResult,4693213:doEvent2,[(944,762)(944,608)])
link(Op1,9787158:Var2,[])
}
Add(Hub,1310502,847,595)
{
InCount=2
OutCount=1
link(onEvent1,10769889:doOperation,[])
}
Add(GetDataEx,16140265,952,658)
{
Angle=1
link(Data,2324073:Caption,[(1028,663)])
}
Add(Hub,4693213,987,595)
{
InCount=3
OutCount=1
link(onEvent1,2324073:doText,[])
}
Add(If_else,14526507,840,812)
{
Op1=Integer(0)
Op2=Integer(350)
link(onTrue,10994213:doOperation,[])
link(onFalse,2682443:doOperation,[(884,825)(884,867)])
link(Op1,16140265:Var2,[(846,798)(958,798)])
}
Add(Hub,610746,721,644)
{
link(onEvent1,1310502:doEvent2,[(796,650)(796,608)])
link(onEvent2,4478487:doEvent2,[(770,657)(770,825)])
}
Add(Hub,8490003,721,595)
{
link(onEvent1,1310502:doEvent1,[])
link(onEvent2,4478487:doEvent1,[(781,608)(781,818)])
}
Add(Hub,4478487,805,812)
{
InCount=2
OutCount=1
link(onEvent1,14526507:doCompare,[])
}
Add(Memory,12057540,903,518)
{
Default=Integer(1)
}
Add(Math,10994213,896,812)
{
OpType=1
Op1=1
Op2=1
link(onResult,3364816:In,[])
}
Add(LineBreak,7190932,812,518)
{
Caption=""
Color=12639424
link(Out,2807951:doEvent1,[])
Primary=[3364816,133,294]
}
Add(Button,9855800,672,693)
{
Left=5
Top=55
Width=30
Font=[Tempus Sans ITC,16,1,0,0]
Caption="X"
link(onClick,3203974:doOperation,[])
}
Add(Math,3203974,798,693)
{
OpType=2
link(onResult,4693213:doEvent3,[(971,699)(971,615)])
}
Add(If_else,7101644,721,749)
{
Op1=Integer(0)
Op2=Integer(0)
link(onFalse,2425078:doOperation,[])
link(Op1,9787158:Var1,[(727,733)])
}
Add(GetDataEx,2802856,840,658)
{
Angle=1
link(Data,16140265:Var1,[])
}
Add(GetDataEx,9787158,840,728)
{
link(Data,2802856:Var2,[])
}
Add(Math,2682443,896,861)
{
Op2=1
link(onResult,13623468:In,[])
}
Add(LineBreak,7784103,812,539)
{
Caption=""
Color=15780518
link(Out,2807951:doEvent2,[(859,545)(859,531)])
Primary=[13623468,133,322]
}
Add(Hub,2807951,868,518)
{
InCount=2
OutCount=1
link(onEvent1,12057540:doValue,[])
}
Теперь помогите, пожалуйста, решить проблемы. Нужно, что таймер считал 30 сек (сейчас 31), и, чтобы считалось до 1 тысячи (сейчас 350).

Редактировалось 1 раз(а), последний 2018-09-24 00:27:15
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#13: 2018-09-24 06:42:06 ЛС | профиль | цитата
http://forum.hiasm.com/post/210696
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
13
Сообщение
...
Прикрепленные файлы
(файлы не залиты)