Guitar Tabber

[ConsultingJoe]

This is not yet done due to the sounds. sounds that are recorded are string#1 fret 0-5

Mary had a little lamb is the demo.

Note: Please remember to extract the files

Let me know what you think

guitar_tabber.zip

Edited November 23, 2006 by www.CyberZeroCool.com

[Valuater]

Cool idea, not a bad start...

just improve it some

8)

[ConsultingJoe]

Cool idea, not a bad start...

just improve it some

8)

thanks. do you think there is a better way to add in the tabs??? instead of one big edit box?

Happy turkey day

Edited November 23, 2006 by www.CyberZeroCool.com

[NELyon]

The play button only works once. You have to restart it to get it to work again

[jvanegmond]

Very nice, this is inspiring material.

[theguy0000]

the red X close gui button only works sometimes...

[ConsultingJoe]

the red X close gui button only works sometimes...

oh yeah there are some glitches. but I wanted to see how well it would work

[Valuater]

this is one way to fix the stop

expandcollapse popup

#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
Dim $stopped = False
$Form1 = GUICreate("Guitar Tabber", 578, 137, 193, 115)
GUISetOnEvent($GUI_EVENT_CLOSE, "quit")
$tabedit = GUICtrlCreateEdit("", 8, 8, 563, 89, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, StringFormat("|--4-2-0-2-4-4-4--2-2-2|4-4-4--4-2-0-2-4-4-4--|4-2-2-4-2-0-------------|---------------------------|---------------------------|" & @CRLF & "|---------------------------|---------------------------|---------------------------|---------------------------|---------------------------|" & @CRLF & "|---------------------------|---------------------------|---------------------------|---------------------------|---------------------------|" & @CRLF & "|---------------------------|---------------------------|---------------------------|---------------------------|---------------------------|" & @CRLF & "|---------------------------|---------------------------|---------------------------|---------------------------|---------------------------|" & @CRLF & "|---------------------------|---------------------------|---------------------------|---------------------------|---------------------------|"))
GUICtrlSetFont(-1, 10, 400, 0, "Times New Roman")
$Play = GUICtrlCreateButton("Play", 8, 104, 75, 25, 0)
GUICtrlSetOnEvent(-1, "play")
$Stop = GUICtrlCreateButton("Stop", 88, 104, 75, 25, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetOnEvent(-1, "stop")
$Rate = GUICtrlCreateInput("200", 176, 104, 41, 21)
GUICtrlCreateUpdown(-1)
$Ratelabel = GUICtrlCreateLabel("Rate", 224, 107, 27, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    Sleep(10)
    If $stopped = True Then
        $tabs = StringSplit(GUICtrlRead($tabedit), @CRLF)
        ConsoleWrite(StringLen($tabs[1]))
        For $step = 1 To StringLen($tabs[1])
            For $i = 0 To 5
                If $stopped = False Then ExitLoop
                If StringIsInt(StringMid($tabs[$i], $step, 1)) Then SoundPlay(@ScriptDir & "\sounds\" & $i & "-" & StringMid($tabs[$i], $step, 1) & ".wav", 0)
            Next
            If $stopped = False Then ExitLoop
            Sleep(GUICtrlRead($Rate))
        Next
        $stopped = False
        GUICtrlSetState($Stop, $GUI_DISABLE)
        GUICtrlSetState($Play, $GUI_ENABLE)
    EndIf
WEnd

Func play()
    $stopped = True
    GUICtrlSetState($Play, $GUI_DISABLE)
    GUICtrlSetState($Stop, $GUI_ENABLE)
EndFunc   ;==>play

Func stop()
    $stopped = False
    GUICtrlSetState($Stop, $GUI_DISABLE)
    GUICtrlSetState($Play, $GUI_ENABLE)    
EndFunc   ;==>stop

Func quit()
    Exit
EndFunc   ;==>quit

8)

[theguy0000]

why the string format?

[Valuater]

why the string format?

I noticed that too... most of the time i help fix the "direct" problem, not re-write the entire script

8)

[ConsultingJoe]

I noticed that too... most of the time i help fix the "direct" problem, not re-write the entire script

8)

I'm not sure why its string format. thats just what koda gave me, im sure it dosent need it