CODE
Public Class Form1
Private Sub btnCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreate.Click
Dim wave(0 To 255) As Byte
Dim i As Integer
For i = 0 To 127
wave(i) = i
Next i
For i = 128 To 255
wave(i) = 255 - i
Next
sfd1.ShowDialog()
My.Computer.FileSystem.WriteAllBytes(sfd1.FileName, wave, False)
End Sub
Private Sub btnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuit.Click
Me.Dispose()
End Sub
End Class
i am trying to create a sine wave can anyone help me
15 Oct, 2008 - 03:47 AM
| 
