Выручайте

[Antonio]

К сожалению я не являюсь прошщареным програмистом но мне нужна ваша помощ.У меня 17 числа сдача квалифы и мне надо разработать тестирующую систему в ВБ , ее я с горем пополам разработал а вот сделать так чтобы таймер считал время за которое пользователь прошол тест я сделать немогу.Я обшарил весь нет и везде есть пример создания часов но нигде нету примера создания обычного таймера.Я хочу чтобы при входе в програму он вырублся и начинал считать о 0 и до того момента когда пользователь ответит на последний вопрос .Помогите плз.

[Хакер]

Есть форумы где помогают студентам перед сессиями, непроshareware-енным программистам при сдачи квалифы.

Этот форум не из их числа.

[Antonio]

Я не прошу склепать мне прогу я прошу только подсазки , там какая функция нужна или чтонить в этом роде

[Хакер]

Не надо никаких функций. Нужна идея. Запомнить время в начале теста. Сравнить его с текущим временем в конце теста.

[Antonio]

Та это я понимаю:).Мне надо чтобы во время теста в углув лабеле или еще там в чем бежало время:)А хоть можно попробывать сравнить время спс те

[tyomitch]

Текущее время возвращается функцией Time.
А отображать его в лейбле можно, например, в ежесекундном таймере.

[Antonio]

Насчет тайма знаю уже пробывал.только для меня осталось непонятным как это в ежесекундном таймере??

[Хакер]

Создаёшь на форуме таймер с интервалом 1000 ms.

[VB-constructor]

Создаёшь на форуме таймер с интервалом 1000 ms.

на форуме? Это как?

Antonio
ставишь таймер, как сказал Хакер, с интервалом 1, точнее будет, и смотри:

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

Dim i As Integer
Private Sub Timer1_Timer()
    i = i + 1
    Label1.Caption = i
End Sub

остальное дело матчасти: разбиваешь все на интервалы по 60 ...
дело техники

[GSerg]

VB-constructor, иногда лучше жевать, чем говорить.

[VB-constructor]

VB-constructor, иногда лучше жевать, чем говорить.

А что я такого сказал? Так это и делается

[GSerg]

А что я такого сказал? Так это и делается

Про интервал 1 - бред.
Второй код, который ты удалил - гораздо больший бред.
Объяснения вокруг кода - не меньший бред, чем код. Попробуй подержи его работающим секунд 30-40.
Поэтому лучше иногда жевать, чем говорить.

[VB-constructor]

ну ладно, пусть i будет As Long
в этом чтоль проблема?

[GSerg]

Про интервал 1 - бред.
Второй код, который ты удалил - гораздо больший бред.

[VB-constructor]

не понял, в чем бред!
Аргументируй!

ИМХО прямой ответ на поставленный вопрос

[DirectXManiac]

VB-constructor
Интервал таймера задаеться в миллисекундах! Т.е. 1000, как сказал Хакер и будет 1 секунда!

[Antonio]

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

[Antonio]

Вб конструктор спс те проверил работает , остаеться малехо модифицировать но работает

[Хакер]

VB-constructor
Интервал таймера задаеться в миллисекундах! Т.е. 1000, как сказал Хакер и будет 1 секунда!

А дело не в том, что надо ставить интервал 1000, а не 1 потому что нужна задержка в одну секунду, а не в 1/1000 секунды. Дело в том что ставить VBшному таймеру интервал в 1 мс - бред.

[VB-constructor]

Дело в том что ставить VBшному таймеру интервал в 1 мс - бред.

а... блин, понял...
тормозть он сильно будет...

[Денис Победря]

Да нибудет он тормозить. Ну у него есть точность. Срабатыватькаждую милисекунду он не будет

[VB-constructor]

А какая у него точность? Я его поставил интервал 100, и другой - 1000, так через 30сек. на одном, на другом было 33сек. (((

[schalexey]

VB-constructor в фунциях которые выполняются одновременно с таймером поставь:

DoEvents
Чтоб при событии таймера управление ему передовалось. Может поможет.

[Денис]

Antonio, R.T.F.M! please

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
PauseTime = 5 ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
Finish = Timer ' Set end time.
TotalTime = Finish - Start ' Calculate total time.
MsgBox "Paused for " & TotalTime & " seconds"
Else
End
End If

[Хакер]

За такой РТФМ надо сказал бы что...

VB_D3D_Денис
видимо следует знать, что его код будет вызывать 100% загрузку CPU

[VB-constructor]

Тогда уж лучше GetTickCount использовать

[Arcanoid]

А чтобы не было 100%-й загрузки проца лучше вместо DoEvents использовать Sleep(X), где X представляет собой число миллисекунд, которое вы альтруистически отдаёте другим потокам в системе, и равно от нуля до N.

[dr.MIG]

Какой GetTickCount, какая 100% загрузка...
tyomitch же сказал уже всё, просто не привёл код...

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


Private Sub Timer1_Timer()
    If Label1.Caption <> CStr(Time) Then
        Label1.Caption = Time
    End If
End Sub


[tyomitch]

Даже можно без If.