Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > C++ Builder
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.03.2011, 01:26   #1
Deis
Пользователь
 
Регистрация: 15.01.2009
Сообщений: 37
Смех Таймер обратного отсчёта (отредактировать код)

Пользователь вводит Часы в Edit1, Минуты в Edit2, Секунды в Edit3. При нажатии на кнопку пуск время отсчитывается в обратную сторону. Время отображается в Label1(часы),Label2(мин.),Label3(се к.).
В TForm1::Button1Click компилятор орет на { -cкобку. Не могу понять в чём моя ошибка.

Код:
///---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 short h, m, s;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
   Timer1->Enabled = false;
   Timer1->Interval = 1000;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        h = StrToInt( Edit1 -> Text );
        m = StrToInt( Edit2 -> Text );
        s = StrToInt( Edit3 -> Text );
        Timer1 -> Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        if ( s >= 1 ) {
                s--;
        } else if ( s <= 0 ) {
                s = 59;
                s--;
                if ( m >= 1 ) {
                        m--;
                } else if ( m <= 0 ) {
                        m = 59;
                        if ( h >= 1 ) {
                                h--;
                        } else if ( h <= 0 ) {
                                h = 23;
                                m = 59;
                                s = 59;
                        }
                }
        }
        Label1 -> Caption = IntToStr( h );
        Label2 -> Caption = IntToStr( m );
        Label3 -> Caption = IntToStr( s );
}
//---------------------------------------------------------------------------
Deis вне форума Ответить с цитированием
Старый 05.03.2011, 02:01   #2
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Код:
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        if ( s >= 1 ) {
                s--;
        } else if ( s <= 0 ) {
                s = 59;
                s--;
                if ( m >= 1 ) {
                        m--;
                } else if ( m <= 0 ) {
                        m = 59;
                        if ( h >= 1 ) {
                                h--;
                        } else if ( h <= 0 ) {
                                h = 23;
                                m = 59;
                                s = 59;
                        }
                        }
                }
        }
        Label1 -> Caption = IntToStr( h );
        Label2 -> Caption = IntToStr( m );
        Label3 -> Caption = IntToStr( s );
}
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Таймер обратного отсчёта HellkilleR Microsoft Office Excel 21 18.03.2015 12:49
Таймер обратного отсчета kpachbiu JavaScript, Ajax 4 09.01.2011 15:32
Таймер обратного отсчета Bilargo Помощь студентам 6 30.09.2009 17:02
Функция обратного вызова и таймер на WinApi flug Win Api 4 17.09.2009 16:06
Таймер обратного отсчета на С Raptor Помощь студентам 6 08.01.2008 01:11