[Visual basic] Contare il numero di pressioni di un tasto

[MItaly]

Originariamente inviato da alessandronos
ovviamente l'idea sarà sbagliata giusto?

L'idea di fondo non è sbagliata, ma lo è la realizzazione. Dovrai fare qualcosa del genere (supponendo che il pulsante si chiami CmdTempo):

Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long 

Private TickPrecedenti As Long

Private Sub CmdTempo_Click()
    Dim TickCorrenti As Long
    TickCorrenti = GetTickCount()
    If TickPrecedenti <> 0 Then
        Dim BPM As Double
        BPM = 60 / ((TickCorrenti - TickPrecedenti) / 1000)
        ' Ora in BPM hai i BPM ricavati dalle pressioni sul tasto; qui puoi farne quel che ti pare
        ' ...
    End If
    TickPrecedenti = TickCorrenti
End Sub

Nota che sono diversi anni che non programmo in VB6 per cui ci potrebbe essere qualche svarione; inoltre questo codice non tiene conto delle due particolarità di GetTickCount, per cui andrebbe perfezionato.