время нажатия на каждую клавишу

[fanmag]

Здравствуйте, нужна ваша помощь!
Есть фраза, которую пользователь вводит в текстовое поле, необходимо посчитать в секундах время нажатия на каждую клавишу и время ее удержания и записать результат в массив.

Подскажите, пожалуйста, каким образом это осуществить?

[zvygin1964]

При нажатии на любую клавишу запустить таймер и посчитать количество циклов его срабатывания до отпускания клавиши, записать (произведение из количества циклов на длительность цикла) в элемент массива. При новом нажатии перейти к следующему элементу массива.

[fanmag]

Может подскажите как это все организовать, такое чувство, что пол интернета уже облазил, но сам код или какой-нибудь пример на такую тему не нашел. Спасибо

Private Sub TextBox1_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.N Then
            t1 = TimeOfDay.Millisecond
        End If
    End Sub

Но выдает постоянно результат 0, как исправить ?

Public Class Form1
    Dim t1, t2, t3 As Date
    Dim i As Integer


    Private Sub TextBox1_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.N Then
            t1 = Now

        End If
    End Sub

    Private Sub TextBox1_KeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
        If e.KeyCode = Keys.N Then
            t2 = Now
            'e.Handled = True
        End If
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        i = 0
        If TextBox1.Text = "тестова фраза" Then i = i + 1
        Label1.Text = Str(i)


        Label2.Text = CStr(t2.Millisecond - t1.Millisecond)
    End Sub
End Class

этот код рабочий, но считает только конкретно милисекунды, как его можно офрмить чтобы брались для разницы милисекунды и секунды вместе?

[Stilet]

fanmag

А тебе это на Бейсике нужно сделать?

[fanmag]

Да, нужно на Бейсике

[ViktorR]

Вот одна из конструкций для определения разности времени в миллисекундах.

Dim ms As Long = DateDiff(DateInterval.Second, startDt, endDt) * 1000

Как-то так, ...

[fanmag]

Сообщение от ViktorR

Вот одна из конструкций для определения разности времени в миллисекундах.

Dim ms As Long = DateDiff(DateInterval.Second, startDt, endDt) * 1000

Как-то так, ...

Попробовал эту конструкцию и в результате всегда получаю 0..