Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

    Private Declare Function BASS_Init Lib "bass.dll" (ByVal device As Integer, ByVal freq As UInteger, ByVal flags As UInteger, ByVal win As IntPtr, ByVal clsid As UInteger) As Boolean
    Private Declare Function BASS_ChannelGetLevel Lib "bass.dll" (ByVal handle As IntPtr, ByVal mode As Single()) As Integer
    Private Declare Function BASS_ChannelPlay Lib "bass.dll" (ByVal handle As IntPtr, ByVal restart As Boolean) As Boolean
    Private Declare Function BASS_StreamCreateFile Lib "bass.dll" Alias "BASS_StreamCreateFile" (ByVal mem As Boolean, ByVal file As String, ByVal offset As UInteger, ByVal offsethigh As UInteger, ByVal length As UInteger, ByVal lengthhigh As UInteger, ByVal flags As UInteger) As IntPtr
    Dim BASS_STREAM_PRESCAN As UInteger = &H20000
    Dim BASS_STREAM_AUTOFREE As UInteger = &H40000
    Public stream As IntPtr
    Public peak(2) As Single

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BASS_Init(-1, 44100, 1024, IntPtr.Zero, Nothing)
        stream = BASS_StreamCreateFile(False, "\\Home\trekstor (e)\Musik\Auto Auto3\01 - Crash (Album Version).mp3", 0, 0, 0, 0, BASS_STREAM_AUTOFREE Or BASS_STREAM_PRESCAN)
        BASS_ChannelPlay(stream, True)
    End Sub

Visual Basic Quellcode

Imports Un4seen.Bass

Public Class Form1
	Public stream As IntPtr
	Public peak(2) As Single

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    	If (Bass.BASS_Init(-1, 44100, BASSInit.BASS_DEVICE_DEFAULT, Me.Handle)) = False Then
        	MessageBox.Show("Fehler beim Laden der Library")
End if
	End Sub

	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    	Bass.BASS_ChannelGetLevel(stream, peak)

    	Dim rechts As Integer = (Math.Round(peak(1), 3) * 100).ToString
    	Dim links As Integer = (Math.Round(peak(2), 3) * 100).ToString

    	Try
        	ProgressBar1.Value = rechts
        	ProgressBar2.Value = links
    	Catch
    	End Try
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    	If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
        	stream = Bass.BASS_StreamCreateFile(OpenFileDialog1.FileName, 0, 0, BASSFlag.BASS_STREAM_AUTOFREE Or BASSFlag.BASS_STREAM_PRESCAN)
        	Bass.BASS_ChannelPlay(stream, True)
        	Timer1.Start()
    	End If
	End Sub
End Class

Visual Basic Quellcode

Imports Un4seen.Bass
Public Class Form1
	Public stream As Integer
	Private Declare Function BASS_Init Lib "bass.dll" (ByVal device As Integer, ByVal freq As UInteger, ByVal flags As UInteger, ByVal win As IntPtr, ByVal clsid As UInteger) As Boolean
	Private Declare Function BASS_ChannelGetLevel Lib "bass.dll" (ByVal handle As IntPtr, ByVal mode As Single()) As Integer
	Private Declare Function BASS_ChannelPlay Lib "bass.dll" (ByVal handle As IntPtr, ByVal restart As Boolean) As Boolean
	Private Declare Function BASS_StreamCreateFile Lib "bass.dll" Alias "BASS_StreamCreateFile" (ByVal mem As Boolean, ByVal file As String, ByVal offset As UInteger, ByVal offsethigh As UInteger, ByVal length As UInteger, ByVal lengthhigh As UInteger, ByVal flags As UInteger) As IntPtr
	Dim BASS_STREAM_PRESCAN As UInteger = &H20000
	Dim BASS_STREAM_AUTOFREE As UInteger = &H40000
	Public stream As IntPtr
	Public peak(2) As Single

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    	BASS_Init(-1, 44100, 1024, IntPtr.Zero, Nothing)
    	stream = BASS_StreamCreateFile(False, "My.Resources.techno.mp3", 0, 0, 0, 0, BASS_STREAM_AUTOFREE Or BASS_STREAM_PRESCAN)
    	BASS_ChannelPlay(stream, True)
	End Sub
End Class

Visual Basic Quellcode

Dim rechts As Integer = (Math.Round(peak(1), 3) * 100).ToString
Dim links As Integer = (Math.Round(peak(2), 3) * 100).ToString