graphing of results

[Andy_Hollywood]

I'm at a loss, as i don't know how to graph these results to get a useful view of them.

the data is for somebody typeing 'ionlyread':

KeyDOWN:,73, 00:22:31.288,i
KeyUP:,73, 00:22:31.368,i
KeyDOWN:,79, 00:22:31.568,o
KeyUP:,79, 00:22:31.668,o
KeyDOWN:,78, 00:22:31.688,n
KeyUP:,78, 00:22:31.768,n
KeyDOWN:,76, 00:22:31.859,l
KeyUP:,76, 00:22:31.899,l
KeyDOWN:,89, 00:22:32.19,y
KeyUP:,89, 00:22:32.89,y
KeyDOWN:,82, 00:22:32.359,r
KeyDOWN:,69, 00:22:32.419,enter
KeyUP:,69, 00:22:32.479,enter
KeyUP:,82, 00:22:32.499,r
KeyDOWN:,65, 00:22:32.519,a
KeyDOWN:,68, 00:22:32.580,d
KeyUP:,65, 00:22:32.590,a
KeyUP:,68, 00:22:32.670,d
KeyDOWN:,13, 00:22:32.830,enter
KeyUP:,13, 00:22:33.40,enter

this tells me when they pressed the key down and when it was released, also in which order the keys were pressed.

I need to be able to see the dwell times (amount of time a key is held down for) and alsothe latency (amount of time between sucessive key strokes.) they do not nessercerily have to be on the same graph, but for either how would i go about graphing them?!

Any ideas on how i should/could do this to get some meaniingful data!?

cheers in advance for any advice ro let me know if i need to explain further!


Andy

[beachbum]

hi andy
I am assuming that u are ok with getting the time differences etc. If not then pls post again and i will show u how to get the relevant data from ur list. here is some basic code that shows u how to graph using picture box. u can modify it as much as u like but this just gives u the basic idea.
Regards
Stuart

Option Explicit
 
'Dont worry about this. I have only used variants so that i could
'load dummy data using the Array() Function. U would use strings
'and doubles
Dim Letters()
Dim Dwell()
Dim Latency()
Private Const Scaling As Single = 1000
 
Private Sub Form_Load()
    'Load dummy data.. u would read from ur data and put into arrays
    ReDim Letters(8)
    ReDim Dwell(8)
    ReDim Latency(8)
    Letters = Array("i", "r", "e", "a", "d", "o", "n", "l", "y")
    Dwell = Array(0.12, 0.08, 0.22, 0.02, 0.01, 0.14, 0.15, 0.08, 0.13)
    Latency = Array(0.8, 0.4, 0.2, 0.6, 0.5, 0.09, 0.25, 0.8, 0.13)
 
    Picture1.Scale (0, Scaling)-(Scaling, 0) 'Scale pic box
    Picture1.AutoRedraw = True
End Sub
 
Private Sub Command1_Click()
    Dim lCounter As Long
    
    With Picture1
        .CurrentX = 0: .CurrentY = 0
        For lCounter = 0 To 8
            Picture1.Line -(lCounter * 100, Dwell(lCounter) * Scaling), vbRed
        Next
    
        .CurrentX = 0: .CurrentY = 0
        For lCounter = 0 To 8
            Picture1.Line -(lCounter * 100 + 50, Latency(lCounter) * Scaling), vbBlue
        Next
    
        .CurrentY = 1000
        For lCounter = 0 To 8
            .CurrentX = lCounter * 100
            Picture1.Print Letters(lCounter);
        Next
    
    End With
End Sub