Пытаюсь сделать программу для счета времени в интернете

[Theba]

Пытаюсь сделать программу для счета времени в интернете.
Получается программа вроде сикундомера, но я не могу задать начальное время в формате "hh:mm:ss" , чтобы из него вычитать текущее.... Как автом. запускать приложение при подключении.

[Amed]

Попробуй так:
При загрузке программы указываешь начальное время (tTime=Time), а по секундомеру указываешь новое время: (nTime=Time)...
Потом по секундомеру же пишешь label1.caption=CDate(nTime-tTime)...
Пиши, если что
P.S. Лучше не запускать приложение при подключении, а мониторить подключение... Сходи на http://www.vbnet.ru, там емть примеры проверки подключения.

[Theba]

Я не знаю как указать начальное время так чтобы с ним можно было производить арифметические действия типа t1-t2 где t1-время после пополнения счета а t2- время таймера

[new_programmer]

Процедуру Connect вызываешь при подключении,
а Disconnect при отключении

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

Dim DateStart As Date
Dim DateDiv   As Date

Private Sub Connect()
DateStart = Now
Timer1.Enabled = True
End Sub


Private Sub Form_Load()
  With Timer1
      .Interval = 300
      .Enabled = False
  End With
End Sub

Private Sub Timer1_Timer()

DateDiv = Now - DateStart

Text1.Text = Format(DateDiv, "hh:mm:ss")

End Sub

Private Sub Disconnect()
   Timer1.Enabled = False
End Sub


[/code]

[Theba]

Не знаю что такое Sub Connect() И SubDisconect() запустил программу ни чего не работает ,кроме того в этой программе я не могу сам ввести
значение времени ,так как в программе есть время начальное и текущее ,а времени заданного нет. Спасибо за помощь.

[new_programmer]

Не знаю что такое Sub Connect() И SubDisconect() запустил программу ни чего не работает

Чтобы заработало необходимо, например, на форму добавить две кнопки. В процедуре обработки нажатия на Command1 вызвать
Connect()

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

Private Sub Command1_Click()
Connect()'подключились
End Sub


А в процедуре обработки нажатия на Command2 вызвать
Disconnect()

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

Private Sub Command2_Click()
Disconect()'отключились
End Sub


Должно заработать.

[Theba]

С кнопками все понятно ,такую программу я делал . И надеялся что Connect и Disconnect это события подключения и отключения соединения увы, очень жаль.А кнопки я забываю нажимать,и все теряет смысл. И все-же, если событие подключения невозможно определить,подскажите хотя-бы как например сложитть или вычесть 07:20:35 и 21:30:20 ( это время) , но перед этим ввести их в поля текстовые или другие. И еще. что такое "мониторить", очень хочется что-нибудь отмониторить.

[Amed]

Нууу... Имеется два текстовых поля и кнопка со стандартными именами...

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

Private Sub Command1_Click()
Dim Time1 as Date
Dim Time2 as Date

Time1=CDate(Text1.Text)
Time2=CDate(Text2.Text)

MsgBox "Разница во времени: " & CDate(Time2-Time1)
End Sub

Только если неправильно указать время в полях, программа сразу глюкнет, поэтому сделай ещё ограничение на ввод символов, кроме цифр и ":" (поиск в форуме )

[Theba]

За последний ответ Merci bien! Все получается.
Еще-бы отследить подключение было-бы совсем хорошо.

[goro]

За последний ответ Merci bien! Все получается.
Еще-бы отследить подключение было-бы совсем хорошо.

Попробуй в таймере каждую секунду проверять подключение к интернету.
Кстати вот тебе и примерчик...

[Theba]

Goro!!! Можно считать ваш ответ исчерпывающим , если знать, что в прекрасном городе Запорiжжя означает "гммм".

[Theba]

Goro я понял что такое "гммм", все скачал ,буду разбиратся. Пока сложновато , особенно убирать лишнее.Спасибо.