Таймер с расчетом

[Steel]

Захотел написать таймер который будет вести время и по окончании выводить скока клиент насидел времени и скока должен заплотить. И столкнулся с тем, что не знаю с чего начать.

Расскажу вам саму суть таймера:
Есть текстовое поле в котором отображается время, нач. время 00.00.00. При нажатии на кнопку СТАРТ идет время, и появляется кнопка СТОП. Если нажать кнопку СТОП, то выведет сумму которую должен заплатить клиент.

Как такое можно реализовать?

[Viper]

делов то.
При нажатии кнопки СТАРТ запоминай текущее время
При нажатии кнопки СТОП вычитай из текущего времени ранее запомненое. Остается умножить на тариф.

А чтобы отображалось время в текстовом поле, используй таймер с интервалом 1 секунда и в его событии изменяй время в текстовом поле

[Steel]

При нажатии кнопки СТАРТ запоминай текущее время

Как это сделать кодом?

А чтобы отображалось время в текстовом поле, используй таймер с интервалом 1 секунда и в его событии изменяй время в текстовом поле

Этого тоже не понял

[Viper]

Тогда вопрос, а что уже сделано для реализации этого кода?

З.Ы. Текущее время возвращает функция Now. Как ее пользовать смотри MSDN.

Таймер на форму положить думаю труда не составит, установить интервал в 1000 мс (что равно 1 с) тоже думаю сильно не напряжет

[Steel]

Все таки не могу понять как вывести время в текстовое поле и запустить его

[Viper]

Воспользоваться функцией Format например

[Steel]

Воспользоваться функцией Format например

Где можно посмотреть примеры функций?

[Viper]

Так MSDN то на что?

[Роман-вб]

Код: Выделить всё

Private Sub Timer1_Timer()
  Text1.Text = Time$
End Sub

[Роман-вб]

Steel
Не надо тебе Format

[Steel]

Спасибо, время нашли. А как теперь сделать таймер?
И у меня при нажатии на кнопку меняется на стоп, тоесть при втором нажатии должна быть другая команда. Как так сделать?

[hCORe]

Код: Выделить всё

Option Explicit

'api
Private Const SM_CXFRAME As Long = 32
Private Const SM_CYCAPTION As Long = 4
Private Const SM_CYFRAME As Long = 33
Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long

'private
Private TARIFF As Single
Private nSeconds As Long

'controls
Dim WithEvents lblTime As Label
Dim WithEvents timTimer As Timer
Dim WithEvents cmdStart As CommandButton
Dim WithEvents cmdStop As CommandButton

Private Sub Form_Load()
    'dynamically generate user interface
    Set lblTime = Me.Controls.Add("VB.Label", "lblTime")
    lblTime.Visible = True
    lblTime.Caption = "00:00:00"
    lblTime.AutoSize = True
    Set timTimer = Me.Controls.Add("VB.Timer", "timTimer")
    Set cmdStart = Me.Controls.Add("VB.CommandButton", "cmdStart")
    Set cmdStop = Me.Controls.Add("VB.CommandButton", "cmdStop")
    cmdStart.Visible = True
    cmdStop.Visible = False
    cmdStart.Top = lblTime.Top + lblTime.Height + 10
    cmdStop.Top = cmdStart.Top
    cmdStop.Left = cmdStart.Left
    cmdStop.Caption = "Stop"
    cmdStart.Caption = "Start"
    Me.Width = cmdStop.Left + cmdStop.Width + _
    2 * GetSystemMetrics(SM_CXFRAME) * Screen.TwipsPerPixelX
    Me.Height = cmdStop.Top + cmdStop.Height + _
    (GetSystemMetrics(SM_CYCAPTION) + 2 * _
    GetSystemMetrics(SM_CYFRAME)) * Screen.TwipsPerPixelY
    Me.Caption = "Demo"
    timTimer.Enabled = False
    timTimer.Interval = 1000
End Sub

'event handlers
Private Sub cmdStart_Click()
    TARIFF = InputBox("Enter tariff value:", _
    "Extremely Difficult Application", 2.5)
    cmdStart.Visible = False
    cmdStop.Visible = True
    timTimer.Enabled = True
    timTimer_Timer
End Sub

Private Sub cmdStop_Click()
    timTimer.Enabled = False
    cmdStart.Visible = True
    cmdStop.Visible = False
    MsgBox "You spent $" & Format(nSeconds * TARIFF, _
    "##.##") & " on answering stupid questions on VBStreets Forum."
    nSeconds = 0
End Sub

Private Sub timTimer_Timer()
    Dim pSeconds As Long, pMinutes As Long, pHours As Long
    nSeconds = nSeconds + 1
    If nSeconds < 60 Then
        pSeconds = nSeconds
    Else
        pMinutes = nSeconds \ 60
        If pMinutes < 60 Then
            pSeconds = nSeconds Mod 60
        Else
            pHours = nSeconds \ 3600
            pMinutes = pMinutes Mod 60
            pSeconds = nSeconds Mod 60
        End If
    End If
    lblTime.Caption = Format(pHours, "00") & ":" & _
    Format(pMinutes, "00") & ":" & Format(pSeconds, "00")
End Sub

Если разберешься в этом коде, создать и более сложные приложения для тебя не составит труда. Удачи!

[Роман-вб]

Steel
Логической переменной воспользуйся. И проверяй её в событии своей кнопки if...else

[Steel]

Код: Выделить всё

Option Explicit

'api
Private Const SM_CXFRAME As Long = 32
Private Const SM_CYCAPTION As Long = 4
Private Const SM_CYFRAME As Long = 33
Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long

'private
Private TARIFF As Single
Private nSeconds As Long

'controls
Dim WithEvents lblTime As Label
Dim WithEvents timTimer As Timer
Dim WithEvents cmdStart As CommandButton
Dim WithEvents cmdStop As CommandButton

Private Sub Form_Load()
    'dynamically generate user interface
    Set lblTime = Me.Controls.Add("VB.Label", "lblTime")
    lblTime.Visible = True
    lblTime.Caption = "00:00:00"
    lblTime.AutoSize = True
    Set timTimer = Me.Controls.Add("VB.Timer", "timTimer")
    Set cmdStart = Me.Controls.Add("VB.CommandButton", "cmdStart")
    Set cmdStop = Me.Controls.Add("VB.CommandButton", "cmdStop")
    cmdStart.Visible = True
    cmdStop.Visible = False
    cmdStart.Top = lblTime.Top + lblTime.Height + 10
    cmdStop.Top = cmdStart.Top
    cmdStop.Left = cmdStart.Left
    cmdStop.Caption = "Stop"
    cmdStart.Caption = "Start"
    Me.Width = cmdStop.Left + cmdStop.Width + _
    2 * GetSystemMetrics(SM_CXFRAME) * Screen.TwipsPerPixelX
    Me.Height = cmdStop.Top + cmdStop.Height + _
    (GetSystemMetrics(SM_CYCAPTION) + 2 * _
    GetSystemMetrics(SM_CYFRAME)) * Screen.TwipsPerPixelY
    Me.Caption = "Demo"
    timTimer.Enabled = False
    timTimer.Interval = 1000
End Sub

'event handlers
Private Sub cmdStart_Click()
    TARIFF = InputBox("Enter tariff value:", _
    "Extremely Difficult Application", 2.5)
    cmdStart.Visible = False
    cmdStop.Visible = True
    timTimer.Enabled = True
    timTimer_Timer
End Sub

Private Sub cmdStop_Click()
    timTimer.Enabled = False
    cmdStart.Visible = True
    cmdStop.Visible = False
    MsgBox "You spent $" & Format(nSeconds * TARIFF, _
    "##.##") & " on answering stupid questions on VBStreets Forum."
    nSeconds = 0
End Sub

Private Sub timTimer_Timer()
    Dim pSeconds As Long, pMinutes As Long, pHours As Long
    nSeconds = nSeconds + 1
    If nSeconds < 60 Then
        pSeconds = nSeconds
    Else
        pMinutes = nSeconds \ 60
        If pMinutes < 60 Then
            pSeconds = nSeconds Mod 60
        Else
            pHours = nSeconds \ 3600
            pMinutes = pMinutes Mod 60
            pSeconds = nSeconds Mod 60
        End If
    End If
    lblTime.Caption = Format(pHours, "00") & ":" & _
    Format(pMinutes, "00") & ":" & Format(pSeconds, "00")
End Sub

Если разберешься в этом коде, создать и более сложные приложения для тебя не составит труда. Удачи!

Спасибо за помощь. Многое понятно, но все же остались темные моменты.

[Роман-вб]

hCORe
Слишком сложно

[hCORe]

Никаких проблем. Спрашивай.

[Роман-вб]

Steel
Продолжи то, что начал.

[Ruslan Demidow]

Воспользоваться функцией Format например

Где можно посмотреть примеры функций?

В справке.
Format$(now, "(ddd) dd.mmm.yyyy hh.nn.ss")

[Steel]

Код: Выделить всё

Private Sub Start_Click()
    Start.Visible = False
    Stop.Visible = True
    Time.Text = Time$
End Sub

Private Sub Stop_Click()
    Start.Visible = True
    Stop.Visible = False
End Sub

Private Sub Timer1_Timer()
    Time.Text = Time$
End Sub

Почему этот код не пашет?

[Роман-вб]

Steel
Ну как можно писать Stop.Visible. Stop -- это команда, Time -- функция!

[Роман-вб]

Код: Выделить всё

Private Sub cmdStart_Click()
    cmdStart.Visible = False
    cmdStop.Visible = True
    txtTime.Text = Time$
End Sub

Private Sub cmdStop_Click()
    cmdStart.Visible = True
    cmdStop.Visible = False
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    txtTime.Text = Time$
End Sub

[keks-n]

Steel
Ну как можно писать Stop.Visible.

Не надо называть контролы Stop. Будут проблемы ибо Stop - отладочный оператор, который в IDE тормозит прогу, а в exe аналогичен End

[Роман-вб]

keks-n
В любом случай не стоит называть идентификаторы зарезервированными словами и именами встроенных функций.

[Steel]

Код: Выделить всё

Private Sub Form_Load()
    proStart.Enabled = True
    proStop.Enabled = False
End Sub

Private Sub proStart_Click()
    StartTime = Time
    PriceBegin = "Введите цену сеанса:"
    proPrice = InputBox(PriceBegin, "Цена сеанса")
    proTimer.Enabled = True
    proStart.Enabled = False
    proStop.Enabled = True
    UserTariff = Val(proTime.Caption)
End Sub

Private Sub proStop_Click()
    StopTime = Time
    proTimer.Enabled = False
    MsgBox "Клиент должен: (здесь должно показывать скока клиент должен) руб.", , "Kompas"
    proStart.Enabled = True
    proStop.Enabled = False
    proTime.Caption = "Сеанс окончен."
End Sub

Private Sub proTimer_Timer()
    proTime.Caption = Format$(proPrice - StartTime, "hh:nn:ss")
End Sub

Function GetMoney(ByVal UserTime As Date, ByVal UserTarif As Currency) As Currency
     GetMoney = ((Hour(UserTime) * 60) + Minute(UserTime)) + (Second(UserTime) / 60) * (UserTarif / 60)
End Function


Почему после нажатия на кнопку таймер не идет? И как вывести скока должен клиент?

[Роман-вб]

Steel

Почему после нажатия на кнопку таймер не идет? И как вывести скока должен клиент?

НА какую кнопку? Из твоего кода сложно понять где у тебя кнопка, а где нет. Имя "кнопки" принято начинать с cmd (или btn).
Скажи, что делает вот это:

Код: Выделить всё

Private Sub proTimer_Timer()
    proTime.Caption = Format$(proPrice - StartTime, "hh:nn:ss")
End Sub

[Viper]

жуткий код...

[Ruslan Demidow]

Код: Выделить всё

Private Sub Form_Load()
    proStart.Enabled = True
   =============================
Function GetMoney(ByVal UserTime As Date, ByVal UserTarif As Currency) As Currency
     GetMoney = ((Hour(UserTime) * 60) + Minute(UserTime)) + (Second(UserTime) / 60) * (UserTarif / 60)
End Function


Почему после нажатия на кнопку таймер не идет? И как вывести скока должен клиент?

Тебе с коммерариями расписать мой проект, который я тебе кидал?

[Viper]

где кнопки? где таймеры? где объявления переменных? Каша какая то в коде...

Выложили ведь рабочий пример...

[Роман-вб]

На, написано в твоём духе:

[Роман-вб]

только там в функции добавь в конце Abs преед скобками (где значение возвращается)