<-- Previous || Up || Next -->

Television Frequency Sample Sub
Math Miscellaneous Class

Private Sub TelevisionFrequencySample()
    ' Print the picture and sound frequencies of all of the broadcast television channels.

    Dim IntChannel As Integer
    For IntChannel = 2 To 83
        Debug.Print "P " & TelevisionFrequency(IntChannel, False, "Picture") & " " & IntChannel
        Debug.Print "S " & TelevisionFrequency(IntChannel, False, "Sound")
    Next IntChannel
End Sub

Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.