Hello,
ez az eljárás kirajzolja a formra a .wav fájlodat
ha átméretezed újra rajzolja.
Csak wav, 16bit Stereo 
Üdv.
Private Sub Kirajzol()
Dim kod As String
Dim adat As Byte
Dim hossz As Long
Dim hangL As Integer
Dim hangR As Integer
Dim aranyW As Integer
Dim aranyH As Double
Cls
Open "c:\General Blues.wav" For Binary Access Read As #1
kod = " "
Get #1, 1, kod
If kod = "RIFF" Then
Get #1, 41, hossz
aranyW = hossz / ScaleWidth
aranyW = aranyW / 4
aranyW = aranyW * 4
aranyH = 0.9 * ScaleHeight / (2 * 65536)
Get #1, 44 + aranyW * 1, hangL
Line (i, ScaleHeight / 4 + hangL * aranyH)-(i, ScaleHeight / 4 + hangL * aranyH)
For i = 1 To ScaleWidth
Get #1, 44 + aranyW * i, hangL
Line -(i, ScaleHeight / 4 + hangL * aranyH)
Next i
Get #1, 46 + aranyW * 1, hangR
Line (i, 3 * ScaleHeight / 4 + hangR * aranyH)-(i, 3 * ScaleHeight / 4 + hangR * aranyH)
For i = 1 To ScaleWidth
Get #1, 46 + aranyW * i, hangR
Line -(i, 3 * ScaleHeight / 4 + hangR * aranyH)
Next i
End If
Close #1
End Sub
Private Sub Form_Paint()
Kirajzol
End Sub
|
