mh,

have someone the source? Link are broken.

thx.

Hello again ,

I would like to record my mixes (with a classic dj - setup, 2 turntables, one mixer) with my own program (only for education). BASSEnc are my friend!

I read some threads about AGC or Compressor (BASS_FX), but I find not a answer, if is possible to limit the record input.

I say my wish: I would like to send music over 0db (on my mixer, it display +14db [djm600]) to my program and this limit the sound to -2db. I know, I can gain on my DJ-Mixer, but in a Session, I can't gain so exactly.

Is it possible?

Thx

Michael

@Ian,

thank you, it will work fine!

The Solution

cboSoundkarte = Combobox to select Soundcard

Private Sub cboSoundkarte_Click()
Dim c As Integer

Device = CLng(cboSoundkarte.ItemData(cboSoundkarte.ListIndex))

'Bass - Bibliothek kurz inizialisieren, um weitere Daten zu erhalten
'...aber vorher ggf. alte Instanzen freigeben!

Call BASS_RecordFree
Call BASS_Free

If (BASS_RecordInit(Device) = 0) Or (BASS_Init(-1, 44100, 0, Me.hwnd, 0) = 0) Then
    Call MsgBox("Die ausgewählte Soundkarte kann nicht abgefragt werden." & vbCrLf & "Bitte installiere einen (wenn vorhanden) aktuellen Treiber oder prüfe die Systemeinstellungen.", vbCritical, "Fehler")
Else
        cboInput.Clear
        While BASS_RecordGetInputName(c)
            cboInput.AddItem VBStrFromAnsiPtr(BASS_RecordGetInputName(c))
            If (BASS_RecordGetInput(c) And BASS_INPUT_OFF) = 0 Then
                cboInput.ListIndex = c
                Device = c
            End If
            c = c + 1
        Wend
       
End If
End Sub

cboInput are the Inputs

Private Sub cboInput_Click()
    If (input_ > -1) Then
        input_ = cboInput.ListIndex

        Dim i As Integer
        For i = 0 To cboInput.ListCount - 1
            Call BASS_RecordSetInput(i, BASS_INPUT_OFF)
        Next i
       
        Call BASS_RecordSetInput(Device, BASS_INPUT_ON)
       
        'Mal hören, was gerade ankommt und ggf. Pegelanzeige aktualisieren
       
        If (chan) Then
            Call BASS_StreamFree(chan)
            chan = 0
        End If
       
        RChan = BASS_RecordStart(44100, 2, BASS_RECORD_PAUSE, AddressOf RecordingCallback, 0)
       
        If (RChan = 0) Then
          Call MsgBox("Kann den ausgewählten Aufnahmekanal nicht inizialisieren.", vbCritical, "Fehler")
          Exit Sub
        End If
       
        Call BASS_ChannelPlay(RChan, BASSTRUE) 'True = Abspielen; False = Stille
       
    End If
End Sub

Hello Community,

I think (maybe there is the problem  ) I have a simple problem.

I need two Comboboxes, one with all available soundcards that have a option to record anything.
The second Combo will display all record inputs (Line, Microphone, ...) from the first selection.

I build a Sub to show all Devices (from the multi example):

Public Sub SelectDevice()
    Dim c As Integer
    frmMain.cboSoundkarte.Clear

    c = 1      ' Device 1 = 1. verfügbare Device
    While BASS_GetDeviceDescription(c)
        frmMain.cboSoundkarte.AddItem VBStrFromAnsiPtr(BASS_GetDeviceDescription(c))
        c = c + 1
    Wend

End Sub

But, my internal soundcard will make two soundcards: one for output (soundmax 0) and one for input (soundmax 1). Soundmax 1 will not displayes in combo 1.

Whatever, is it possible to select only the name of device, they have a record input and select after all available inputs?

Maybe with a little source?

Thx.

Michael

-- sorry for my bad english ---

I'm still programing a tool to manage digital audio files (mp3, ogg, flac).     

I found a solution, to use my audio files faster in my virtuel turntable software (like finalsratch), when I use CBR.
The files loads faster, the waveform draws faster and its easier to handle.   

Back to my program, I will implement a optional feature to reconvert the files.

I hope, its a good reason...

Thx

Michael

mh,

is it a problem to convert to 320kbps (or the highest value @ vbr)?

Greets,

Michael

Hello,

is it possible, to convert a MP3-File from VBR to CBR?

I see only the way, to convert the vbr to wav and then convert (with lame) to cbr.

There are another way, too?

There are things, which I must consider?

Thank you.

Michael