Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

 Try
        System.IO.File.Copy(CurDir() + "\bass.dll", "C:\Windows\System32\bass.dll")
    Catch
    End Try

    Bass.BASS_Init(-1, 44100, BASSInit.BASS_DEVICE_CPSPEAKERS, IntPtr.Zero, Nothing)

Visual Basic Quellcode

Dim length As Integer = Bass.BASS_ChannelBytes2Seconds(Stream, Bass.BASS_ChannelGetLength(Stream))
    	Dim pos As Integer = (length / 1000) * Set_pos.Value
    	Bass.BASS_ChannelSetPosition(Stream, pos)
    	Label4.Text = pos

Visual Basic Quellcode

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    	Dim pos As Integer = TextBox1.Text
    	Bass.BASS_ChannelSetPosition(Stream, pos)
    	
	End Sub

Visual Basic Quellcode

Public Function SecToTime(ByVal Seconds As Integer, Optional ByRef rHour As Integer = 0, Optional ByRef rMinute As Integer = 0, Optional ByRef rSecond As Integer = 0) As String
        rHour = (Seconds \ 3600)
        rMinute = (Seconds - (rHour * 3600)) \ 60
        rSecond = (Seconds - (rHour * 3600) - (rMinute * 60))
        SecToTime = Format(rMinute, "00") & ":" & Format(rSecond, "00")
    End Function

Visual Basic Quellcode

Bass.BASS_SetVolume(volume as single)

Visual Basic Quellcode

BASS_Init(-1, 44100, 1024, IntPtr.Zero, Nothing)
            stream = BASS_StreamCreateFile(False, OpenFileDialog1.FileName, 0, 0, 0, 0, BASS_STREAM_AUTOFREE Or BASS_STREAM_PRESCAN)

                Bass.BASS_ChannelSetAttribute(stream, BASSAttribute.BASS_ATTRIB_VOL, 0.0!)
                BASS_ChannelPlay(stream, True)
                Bass.BASS_ChannelSlideAttribute(stream, BASSAttribute.BASS_ATTRIB_VOL, 1.0!, 10000)
            Else

Quellcode

Spectrum.CreateSpectrum3DVoicePrint()