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

[Steel]

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

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


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

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

Если не затруднит, то распиши плз.

Спасибо всем за готовые коды, но я хочу сам понять как сделать такое

Вот сама прога:

[Роман-вб]

Steel
Здесь тебе что не нравится?

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

Option Explicit 'On

Private Tarif As Single, StartTime$, StopTime$

Private Sub cmdStart_Click()
    StartTime$ = Time$
    cmdStart.Visible = False
    cmdStop.Visible = True
    Tarif = Val(InputBox("Tarif za 1 sek"))
    Timer1.Enabled = True
End Sub

Private Sub cmdStop_Click()
    cmdStart.Visible = True
    cmdStop.Visible = False
    Timer1.Enabled = False
    StopTime$ = Time$
    MsgBox Str$(Zaplati@(StartTime$, StopTime$))
End Sub

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

Private Function Zaplati@(startT$, stopT$)
  Dim ChStartTime&, MinStartTime&, SekStartTime&
  Dim ChStopTime&, MinStopTime&, SekStopTime&
  Dim ChToSekStart&, MinToSekStart&, ChToSekStop&, MinToSekStop&
  ChStartTime& = Val(Mid$(startT$, 1, 2))
  MinStartTime& = Val(Mid$(startT$, 4, 2))
  SekStartTime& = Val(Mid$(startT$, 7, 2))
 
  ChStopTime& = Val(Mid$(stopT$, 1, 2))
  MinStopTime& = Val(Mid$(stopT$, 4, 2))
  SekStopTime& = Val(Mid$(stopT$, 7, 2))
 
  ChToSekStart& = ChStartTime * 3600
  MinToSekStart& = MinStartTime& * 60
 
  ChToSekStop& = ChStopTime * 3600
  MinToSekStop& = MinStopTime& * 60
 
  Zaplati@ = (Abs(ChToSekStop& - ChToSekStart&) + Abs(MinToSekStop& - MinToSekStart&) + _
  Abs(SekStopTime& - SekStartTime&)) * Tarif
End Function

[hCORe]

Поставь

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

proTimer.Interval = 1000

А то таймер с интервалом 0 не работает.

[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


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

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

Если не затруднит, то распиши плз.

Вот. Расписал - подробнее некуда.

Спасибо всем за готовые коды, но я хочу сам понять как сделать такое

Попробуй сначала сделать как тебе предлагают здесь, на форуме (HCore и др.). Проработай пошагово все примеры, которые тебе здесь привели. Имхо, тогда у тебя всё получится и самому сделать.

[Steel]

1. Как сделать чтобы один час стоил 3 рубля? Тоесть 1 минута 5 копеек.

2.

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

    MsgBox "Клиент должен: 70 рубиков", , "Kompas"
    MsgBox Format$(GetMoney(UserTime - StartTime, proPrice), "# ##0.00 руб.")

Как сделать чтобы писалось буквами строку "Клиент должен: 70 рублей"?

3.

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

proTime.Caption = Format$(UserTime - StartTime, "hh:nn:ss")

Как сделать чтобы выводило начальное время и текущее время клиента? Тоесть сел в 14:44:39 и писалось: 14:44:39 / 00:01:23

[Ruslan Demidow]

1. Как сделать чтобы один час стоил 3 рубля? Тоесть 1 минута 5 копеек.
=============================
Как сделать чтобы выводило начальное время и текущее время клиента? Тоесть сел в 14:44:39 и писалось: 14:44:39 / 00:01:23

Товарисч, ты хоть смотрел то что я тебе расписал?
Купи книжку по VB, в конце концов.

[Steel]

Есть у меня книжка. Я серовно не могу понять как это сделать
За 3 минуты берет 3 рубля...

[Роман-вб]

Steel

Private Function Zaplati@(startT$, stopT$)

Вот эту процедуру модернизируй.

[GB826]

:о) А все от того, что пытаетесь сделать все за человека, а не просто указать ему путь.

Зря помогаете. ИМХО, конечно.

[Роман-вб]

GB826
Да указывал я ему путь. (Кстати, с которого он начал). Но, видать, не хочет он по нему идти.

[Steel]

А второй и третий вопрос?:)

[Роман-вб]

Steel
Ну II и III вопросы должны быть без комментанриев
Ты сначала скажи, с первым разобрался?

[Steel]

Всем спасибо, решил я свою проблему Написал сам и по другому совсем. За расчет времени огромное спасибо.

[Steel]

Назрел такой вопрос, а как менять иконки программе?

[Amed]

Form.Icon

[Steel]

Пасиб. А как сделать чтобы нельзя было мушкой расширять програмку?

[Viper]

так и хочется процитировать:

Перечислите все вопросы, пжалуста!

поменяй свойство формы BorderStyle на например FixedSingle