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