Maybe a little example will help, it's an extraction of my guitar licks practice program
which can slow down music to learn guitar solos's (this is already working ;-).
Click link below for picture of my program
Guitar Licks Program
No I want to implent tab notation, so if you want to learn a guitar solo then you can directly save it in
tab notation form.
The green line must be moved by the left and right arrow keys
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
$Form = GUICreate("Guitar Licks", 803, 585, 121, 52)
; ----------- Set Events
GUISetOnEvent($GUI_EVENT_CLOSE, "DoEventClose")
;------------ Set events
DrawTabLines()
GUISetState(@SW_SHOW)
; --------- idle loop
While 1
Sleep(1000)
WEnd
; --------- idle loop
;---------------------------------
; Close Form
;---------------------------------
Func DoEventClose()
if @GUI_Winhandle=$Form then
exit
endif
EndFunc
Func DrawTabLines()
; ----------------- draw tab lines ----------------------
$hTabBorder=GuiCtrlCreateGraphic(8, 10, 790,300)
GUICtrlSetBkColor($hTabBorder,0xffffff)
GUICtrlSetGraphic($hTabBorder,$GUI_GR_PENSIZE,1)
GUICtrlSetColor($hTabBorder,0)
for $tablines= 30 to 105 step 15
GUICtrlSetGraphic($hTabBorder,$GUI_GR_RECT, 10,$tablines,770,1)
next
for $tablines= 195 to 270 step 15
GUICtrlSetGraphic($hTabBorder,$GUI_GR_RECT, 10,$tablines,770,1)
next
; draw vertical lines
GUICtrlSetGraphic($hTabBorder,$GUI_GR_PENSIZE,2)
; draw left line
GUICtrlSetGraphic($hTabBorder,$GUI_GR_RECT, 10,30,1,240)
; draw right line
GUICtrlSetGraphic($hTabBorder,$GUI_GR_RECT, 780,30,1,240)
;$hLblDraw=GUICtrlCreateLabel("Ring",20,35,50,15)
;GUICtrlSetColor($hLblDraw,0xff)
;GUICtrlSetBKColor($hLblDraw,$GUI_BKCOLOR_TRANSPARENT )
; draw edit line
$line=GUICtrlCreateGraphic(40,30,1,240)
GUICtrlSetGraphic($line,$GUI_GR_PENSIZE,2)
GUICtrlSetGraphic($line,$GUI_GR_COLOR, 0x66cc99); green
$hLineCursor=GUICtrlSetGraphic($line,$GUI_GR_RECT, 40,10,1,240)
;GUICtrlSetGraphic($hLineCursor,$GUI_GR_COLOR, 0x66cc99); green
;GUICtrlSetBKColor($hLineCursor,$GUI_BKCOLOR_TRANSPARENT )
EndFunc