It helps to check that the sin is generated correctly
How is it checked, is there a tuner by your side?
Forgot that you have a musician ear. I can't distinguish audio frequency by ear, only sometimes can recognize simple intervals.
Just for debugging... as the program is written by me then I definitely know what sampling rate it is and before playing I will save the generated wave samples in a binary file and open it on Windows by Matlab or Python and plot them, and check whether generate function is correct or not.
Yes, I also know some single note transcription apps, kind of like make music score by combining tunes detected by a tuner every 10ms. But multiple notes one is one of the hardest missions to achieve and has never been perfect. Some apps can recognize chords with very nice performance though.
Public Sub generateSinWav(Freq As Int, Dur As Double, MaxVal As Double, DegreePhaseShift As Int) As Short()
Dim Arr(Dur * SampleRateInHz) As Short
Dim SampleInterval As Double = SampleRateInHz / Freq
For i = 0 To Arr.Length - 1
Dim shift As Double = DegreePhaseShift / 180 * cPI
Dim Angle As Double = (2 * cPI * i + shift) / SampleInterval
Arr(i) = Sin(Angle) * MaxVal
Next
Return Arr
End Sub
Dim L() As Short = generateSinWav(Freq1,Dur,Level1 * 32767, 0)
Dim R() As Short = generateSinWav(Freq2,Dur,Level2 * 32767, 180)Public Sub generateSinWav(Freq As Int, Dur As Double, MaxVal As Double, DegreePhaseShift As Int) As Short()
Dim Arr(Dur * SampleRateInHz) As Short
Dim SampleInterval As Double = SampleRateInHz / Freq
Dim shift As Double = DegreePhaseShift / 180 * cPI
For i = 0 To Arr.Length - 1
Dim Angle As Double = (2 * cPI * i) / SampleInterval - shift '!
Arr(i) = Sin(Angle) * MaxVal
Next
Return Arr
End Sub
Dim L() As Short = generateSinWav(Freq1,Dur,Level1 * 32767, 0)
Dim R() As Short = generateSinWav(Freq2,Dur,Level2 * 32767, 180)
or for mouses, rats...
