Доброго времени суток! Господа, нужна ваша помощь!
Нужно сделать небольшой таймер обратного отсчёта:
Небольшое окно 120х120 (может чуть больше).
Отсчёт 30 сек.
Кнопка старт/сброс (она же)
Ребята, я вообще овощ в этой теме, что куда тыкать не знаю, если не сложно, можете файл мне отправить (да, я наглый), или всё расписать, как для маленького ребёнка.
Этот топик читают: Гость
Этот топик был перемещен из раздела "Прочее"
Ответов: 13
Рейтинг: 0
|
|||
карма: 0 |
|
Ответов: 16884
Рейтинг: 1239
|
|||
PrpstoYan писал(а): да, я наглыйPrpstoYan, Поиск -> Обратный таймер |
|||
карма: 25 |
|
Ответов: 13
Рейтинг: 0
|
|||
Tad писал(а): PrpstoYan писал(а):
да, я наглый PrpstoYan, Поиск -> Обратный таймер Очень полезный ответ, который, конечно же, не помог. |
|||
карма: 0 |
|
Ответов: 817
Рейтинг: 52
|
|||
PrpstoYan писал(а): (да, я наглый)Нашел чем гордиться
|
|||
карма: 1 |
|
Ответов: 13
Рейтинг: 0
|
|||
Спасибо за код, только куда его вставить?
|
|||
карма: 0 |
|
Ответов: 16884
Рейтинг: 1239
|
|||
В Hiasm F1 нажми
|
|||
карма: 25 |
|
Ответов: 13
Рейтинг: 0
|
|||
Tad писал(а): В Hiasm F1 нажмиВау! Обучение, которое я не просил. Спасибо! Поэтому я и создал тему, чтобы мне посоветовали обучиться в программе, в которой я обучаться не хочу! Хочу вызвать такси, пойду сдам на права! |
|||
карма: 0 |
|
Главный модератор
Ответов: 2999
Рейтинг: 396
|
|||
PrpstoYan писал(а): ...мне посоветовали обучиться в программе, в которой я обучаться не хочу!PrpstoYan, если ограничитесь только "остроумием", то вселенная это переживёт, но если продолжите в том же духе или хуже - придётся вмешаться в "поток Вашего сознания". Редактировалось 1 раз(а), последний 2018-09-23 17:34:45 |
|||
карма: 6 |
|
Ответов: 13
Рейтинг: 0
|
|||
Nic писал(а): PrpstoYan писал(а):
...мне посоветовали обучиться в программе, в которой я обучаться не хочу! PrpstoYan, если ограничитесь только "остроумием", то вселенная это переживёт, но если продолжите в том же духе или хуже - придётся вмешаться в "поток Вашего сознания". Редактировалось 1 раз(а), последний 2018-09-23 17:34:45 Я лишь попросил разжевать, как для ребёнка создание обычно секундомера в программе. Я не просил меня обучать. Ответ: "F1" - гениален. |
|||
карма: 0 |
|
Главный модератор
Ответов: 2999
Рейтинг: 396
|
|||
PrpstoYan, По обычным для форума меркам Вам дали ответ на вопрос темы. Вы пока не смогли им воспользоваться, так как ожидали ответа в другом, "идеальном" по-вашему представлению виде. И так как ожидаемое не совпало с действительностью решили, что отвечающие Вам не правы "мягко" говоря. Не буду оригинален, но всё таки скажу, что Вы заблуждаетесь, хотя и не осознанно, но такова психология многих, приходящих на этот форум с вопросами. Если бы Вы приложили чуть-чуть усилий для изучения основ работы с программой, то обнаружили бы, что пользователь -= DriveR =-, ответил Вам схемой с примером, которую можно копировать в буфер обмена и вставить прямо в поле редактора схемы нового проекта программы (Ctrl-C и Ctrl-V) или (Copy и Paste) или (Копировать и Вставить). Затем Вам осталось бы только запустить схему на выполнение по нажатию кнопки F9. Вот всё это можно было узнать, нажав кнопку F1 в программе и потратив несколько минут на изучение основ.
Редактировалось 2 раз(а), последний 2018-09-23 20:25:56 |
|||
карма: 6 |
|
Ответов: 13
Рейтинг: 0
|
|||
И вправду, прошу прощение. Просто вставить.
Теперь, на новом компьютере, не кампелируется Подготовка к сборке проекта... Генерация кода целевого языка Компоновка проекта... 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 |
|
Ответов: 13
Рейтинг: 0
|
|||
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,[]) } Редактировалось 1 раз(а), последний 2018-09-24 00:27:15 |
|||
карма: 0 |
|
Ответов: 16884
Рейтинг: 1239
|
|||
карма: 25 |
|
13