RFTONE.AddTone

boolean AddTone(short nFrequency, short nDuration)

Function AddTone(nFrequency As Integer, nDuration As Integer) As Boolean

Adds a sound in the local Tone array.

Return value
True=successful, False=error, array size exceeded, RF link lost.

Parameters

nFrequency
    Tone frequency in Hertz.

nDuration
    Tone duration in milliseconds.

Remarks

Example
Public wsRfTone As New RFTONE

Public Sub Main()
   ' Storing an "error" tone
   wsRfTone.ClearTones ' Clear the current tone
   wsRfTone.AddTone 2800, 500 ' add tone frequency and duration
   wsRfTone.AddTone 1400, 500
   wsRfTone.AddTone 2800, 500
   wsRfTone.AddTone 1400, 500
   ' Warning, give a valid DOS file Name (8.3) W/O extension
   wsRfTone.StoreTone "DemoTone" ' Store tone as a file
End Sub

See also    RFTONE, ClearTones, RemoveTone