Форум гитаристов

Хоть это немного и не по теме, но лучше всего тебе обратить внимание на DirectMusic. Если не ошибась, то он поставляется с DirectX 6.0.  Просто открываешь MSDN  и обчитываешься до посинения.  Обрати внимание на выделенное.

Но на самом деле не совтую заморачиваться. Чтобы выпустить реальную программулину. тебе придется забросить гитару на  продолжительный срок. Как мне...

DirectMusic is the musical component of the Microsoft® DirectX® API. Unlike the Microsoft® DirectSound® API, which is for the capture and playback of digital sound samples, DirectMusic works with message-based musical data, which is converted into wave samples, either in hardware or in a software synthesizer. The default software implementation uses the Microsoft® Software Synthesizer to create wave samples that are then streamed to DirectSound. Instrument voices are synthesized from samples according to the downloadable sounds (DLS) standard.

As well as supporting input in Musical Instrument Digital Interface (MIDI) format, DirectMusic can compose music at run time. This music is not algorithmically generated, but is based on elements authored by a human composer. The music is performed with variations and can respond dynamically to program events.

The authoring tool for DirectMusic content is a desktop application called Microsoft® DirectMusic® Producer. This tool is not part of DirectMusic for Microsoft® Windows® CE .NET. DirectMusic Producer is included in the DirectX SDK for the desktop.

Like other components of DirectX, DirectMusic is based on the Component Object Model (COM).

Эт точно! Выучить-то надо всего 60 нот, а все-равно с задержкой всплывает..... пока отложишь, отсчитаешь....

если кто-то решит дописать эту программу, могу прислать часть кода типа:
Private Function detectPitch(bString As Byte, _
                            bBar As Byte) As String
Dim i As Byte
Dim bOctave As Integer
Dim bPitch As Byte
Dim strNotes(1 To 12) As String
Dim strPitch As String * 5

'detect octave
Select Case bString
Case 1
    If bBar < 8 And bBar >= 0 Then
    bOctave = 1
    ElseIf bBar >= 8 And bBar < 16 Then
    bOctave = 2
    ElseIf bBar >= 20 And bBar <= 24 Then
    bOctave = 3
    Else
    MsgBox "error"
    Exit Function
    End If
Case 2
    If bBar < 1 And bBar >= 0 Then
    bOctave = 0
    ElseIf bBar >= 1 And bBar < 13 Then
    bOctave = 1
    ElseIf bBar >= 13 And bBar <= 24 Then
    bOctave = 2
    Else
    MsgBox "error"
    Exit Function
    End If
Case 3
    If bBar < 5 And bBar >= 0 Then
    bOctave = 0
    ElseIf bBar >= 5 And bBar < 17 Then
    bOctave = 1
    ElseIf bBar >= 17 And bBar <= 24 Then
    bOctave = 2
    Else
    MsgBox "error"
    Exit Function
    End If
Case 4
    If bBar < 10 And bBar >= 0 Then
    bOctave = 0
    ElseIf bBar >= 10 And bBar < 22 Then
    bOctave = 1
    ElseIf bBar >= 22 And bBar <= 24 Then
    bOctave = 2
    Else
    MsgBox "error"
    Exit Function
    End If
Case 5
    If bBar < 3 And bBar >= 0 Then
    bOctave = -1
    ElseIf bBar >= 3 And bBar < 15 Then
    bOctave = 0
    ElseIf bBar >= 15 And bBar <= 24 Then
    bOctave = 1
    Else
    MsgBox "error"
    Exit Function
    End If
Case 6
    If bBar < 8 And bBar >= 0 Then
    bOctave = -1
    ElseIf bBar >= 8 And bBar < 20 Then
    bOctave = 0
    ElseIf bBar >= 20 And bBar <= 24 Then
    bOctave = 1
    Else
    MsgBox "error"
    Exit Function
    End If
End Select

'detect pitch
Select Case bString
Case 1: i = 8
Case 2: i = 3
Case 3: i = 11
Case 4: i = 6
Case 5: i = 1
Case 6: i = 8
Case Else
MsgBox "error": Exit Function
End Select

strNotes(1) = "A": strNotes(2) = "A#Bb": strNotes(3) = "B"
strNotes(4) = "C": strNotes(5) = "C#Db": strNotes(6) = "D"
strNotes(7) = "D#Eb": strNotes( = "E": strNotes(9) = "F"
strNotes(10) = "F#Gb": strNotes(11) = "G": strNotes(12) = "G#Ab"

bPitch = i + bBar
Do Until bPitch <= 12
    bPitch = bPitch - 12
Loop

detectPitch = strNotes(bPitch) & bOctave
End Function

2W.M.: ты эту книгу хоть читал? :smokin:

Hmm vesma Kovarnqi vopros Kak IMET~ midi....

Fuck Basic! Hail C++! Кстати в аннотации книжки я не нашел намека на то что она для программеров...
Щас поищу "документация directmusic"...

А чего ты хочешь такого в своем табредакторе замутить, чего в других нету?