The Test done on VB in my PC:

My PC Has a Hard Disk of 20GB, partitioned into 4 partitions.
One partition has Windows98, the second partition has WindowsXP. (with Dual Boot option at power On).
Visual Basic is installed on both the Operating Systems through the same installation CD.
So both the operating systems have the same version (and subversions) of VB.
In the Win98 partition(C:), I have my development programs, C-Compiler for 8051, PCB design
programs, Simulators, etc..please note that all these tools are DOS based tools, Using DOS based programs might not work well on WindowsXP, so I had to use the dual booting system.

In Windows XP partition (D:), I have CorelDraw, Photoshop, MSOffice, Office XP, and loads
of Games. My 2 children (8 year daughter and 3 year son) play lots of games in Windows XP.

The point here is that I have many programs loaded in Windows XP than on Windows98.


The program:

;***************

Dim arTxBuff(256) As Byte
Dim arV1(255) As Variant


Private Sub btnExit_Click()
Unload Me
End Sub

Private Sub append_datafile(str_file1 As String, str_data As String)
Dim itemp1 As Integer
itemp1 = FreeFile()
Open Trim(str_file1) For Append Access Write As itemp1
Print #itemp1, str_data
Close #itemp1

End Sub

Private Sub LogTimeValues()
Dim i2, i3 As Integer

For i2 = 0 To 200
Call append_datafile("Log.Txt", Trim(Str(arV1(i2))))
Next i2


End Sub

Private Sub btnSend_Click()
Dim db(0) As Byte
Dim i1, i2 As Integer

If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
MSComm1.Settings = "9600,N,8,1"
MSComm1.RTSEnable = True
i2 = 0
For i1 = 0 To 100
db(0) = arTxBuff(i1)
Me.MSComm1.Output = db
arV1(i2) = Timer ; Time Values is logged before the sleep
i2 = i2 + 1
Sleep (100)
arV1(i2) = Timer ; Time value is logged after the sleep
i2 = i2 + 1
Next i1
MSComm1.RTSEnable = False
Call LogTimeValues
End Sub

Private Sub Form_Load()
Dim i1 As Integer


For i1 = 1 To 250
arTxBuff(i1 - 1) = i1
Next i1

End Sub

Private Sub Form_Unload(Cancel As Integer)
If Me.MSComm1.PortOpen = True Then Me.MSComm1.PortOpen = False
End Sub

; ******************


Please note the instructions where I have written that the Time Values are logged into a buffer.
So I believe that the array will contain just the delay time interval of sleep(100).

Continued in Post... 3