Hardware Reference
In-Depth Information
Private Sub Timer2_Timer()
OutData = Inp(Port1)
Out Port1, (OutData Or 2)
Shape2.FillColor = "&H000000FF"
End Sub
Private Sub Timer3_Timer()
OutData = Inp(Port1)
Out Port1, (OutData Or 4)
Shape3.FillColor = "&H000000FF"
End Sub
Private Sub Timer4_Timer()
OutData = Inp(Port1)
Out Port1, (OutData Or 8)
Shape4.FillColor = "&H000000FF"
End Sub
Private Sub Timer5_Timer()
OutData = Inp(Port1)
Out Port1, (OutData Or 16)
Shape5.FillColor = "&H000000FF"
End Sub
Private Sub Timer6_Timer()
OutData = Inp(Port1)
Out Port1, (OutData Or 32)
Shape6.FillColor = "&H000000FF"
End Sub
Private Sub Timer7_Timer()
OutData = Inp(Port1)
Out Port1, (OutData Or 64)
Shape7.FillColor = "&H000000FF"
End Sub
Private Sub Timer8_Timer()
OutData = Inp(Port1)
Out Port1, (OutData Or 128)
Shape8.FillColor = "&H000000FF"
End Sub
Private Sub MasterClock_Timer()
ETime = ETime + 1
Clock.Caption = ETime
End Sub
Environmental monitoring
The client is a company that specializes in heating and ventilation of commer-
cial buildings. The company wishes to have a means of regularly capturing
temperature data from different points in a building and of later analysing this
