VB Code:
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
