Randomize

We added the Randomize function to nitialize the random-number generator.


Private Function GetRandomNumber(ByVal lLowerBound As Long, ByVal lUpperBound As Long) As Long
Dim RandomValue As Long
' Initialize the random-number generator.
Randomize()

RandomValue = CInt(Int((lUpperBound - lLowerBound + 1) * Rnd() + lLowerBound))

Return RandomValue
End Function

Duplicate Problem

We tried to fix the duplicate problem
but still not suceeded

Every day before starting...

Before you copy the "Team" folder from the server,

1. Archive your project
(right click on your folder, and click send to -> compressed(zipped) folder,
then rename it to "Q3App1-2007-03-06.zip")

2. Copy the "Team" folder from the server and
paste it into your vb.net folder (on your own computer)



from
period 9

Changes to Q3App1

[Delimeter Change]
All "" should be replaced to "" including Q3App1\bin\Debug\Data1.txt

We've made these change because of organization and problems reading in vb.net

e.g.)
<-error
<%$%><%$%> <-ok, also easy to organize

Thank you

period 7