Jump to content

Cor

Members
  • Posts

    13
  • Joined

  • Last visited

Cor's Achievements

Seeker

Seeker (1/7)

0

Reputation

  1. AUIT: TAutoItX3; AUIT := TAutoItX3.Create(nil); ; seconds parameter cannot be empty otherwise get error ; so it needs always text ; is there a way to skip the second parameter for use in delphi Access violation at address 1002A613 in module 'AutoItX3.dll'. Read of address 00000000. ; check notepad window auit.WinActivate('Untitled','');
  2. MyText := AutoItX31.WinGetText('server32','' second parameter cannot be empty grCor
  3. Keep up the good work.
  4. How to access the increase/decrease button of an TUpDown control in other program. Opt("WinTitleMatchMode",3) ; class match mode something like this does not work ControlClick("","","[CLASS:TUpDown;INSTANCE:1]") ; grCor
  5. Fmod library (playing audio files) Need some help to get this working Get error when compiling: Subscript used with non-Array variable Cannot find the error, help is needed? Fmod.dll can be download from www.fmod.org grCor Global Const $FSOUND_LOOP_NORMAL = 0x00000002 Dim $RetValue[7] $MusicHandle = FMUSIC_LoadSongEx("beispielmusik.it", 0, 0, $FSOUND_LOOP_NORMAL, 0, 0) If $MusicHandle Then FMUSIC_PlaySong($MusicHandle) FMUSIC_SetOrder($MusicHandle,0) EndIf ;~ Public Declare Function FMUSIC_LoadSongEx Lib "fmod.dll" Alias "_FMUSIC_LoadSongEx@24" (ByVal name As String, ByVal offset As Long, ByVal length As Long, ByVal mode As FSOUND_MODES, ByRef sentencelist As Long, ByVal numitems As Long) As Long Func FMUSIC_LoadSongEx ($name, $offset, $length, $mode, $sentencelist, $numitems) $RetValue = DllCall("fmod.dll", "long", "_FMUSIC_LoadSongEx@24" _ , "str", $name _ , "long", $offset _ , "long", $length _ , "long", $mode _ , "long", $sentencelist _ , "long", $numitems _ ) Return $RetValue[0] EndFunc ;~ Public Declare Function FMUSIC_PlaySong Lib "fmod.dll" Alias "_FMUSIC_PlaySong@4" (ByVal module As Long) As Byte Func FMUSIC_PlaySong ($module) $RetValue = DllCall("fmod.dll", "short", "_FMUSIC_PlaySong@4" _ , "long", $module _ ) Return $RetValue[0] EndFunc ;~ Public Declare Function FMUSIC_SetOrder Lib "fmod.dll" Alias "_FMUSIC_SetOrder@8" (ByVal module As Long, ByVal order As Long) As Byte Func FMUSIC_SetOrder ($module, $order) $RetValue = DllCall("fmod.dll", "short", "_FMUSIC_SetOrder@8" _ , "long", $module _ , "long", $order _ ) Return $RetValue[0] EndFunc
  6. I want a popup menu under the coordinates of $hTabBorder but it will not recognize the right mouse click any solution for this, or am I missing something? $hTabBorder = GUICtrlCreateGraphic(8, 10, 790, 300) $TabNotationcontext = GUICtrlCreateContextMenu($hTabBorder) $GuitarTuningitem = GUICtrlCreateMenuItem ("Set Guitar Tuning", $TabNotationcontext)
  7. sorry posted twice I want to run a function if only the numbers 1 to 24 are pressed on the keyboard. Tried Hotkey but could only accept single numbers I searched but cannot find a way to do this. Needed for guitar TAB Notation input thanks grCor
  8. I want to run a function if only the numbers 1 to 24 are pressed on the keyboard. Tried Hotkey but could only accept single numbers I searched but cannot find a way to do this. Needed for guitar TAB Notation input thanks grCor
  9. 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
  10. How to move the line $hLineCursor below to the right and erasing the previous line The $GUI_GR_MOVE will not draw only point to other cursor point. I can for sure delete the first line and draw it on other coordinate, but ,maybe there are other ways? edit: and how to delete this line: $hLineCursor=GUICtrlSetGraphic($hTabBorder,$GUI_GR_RECT, 40,30,1,240); vertical line Suggestions are welcome $hTabBorder=GuiCtrlCreateGraphic(8, 10, 790,300); white background ; draw edit line GUICtrlSetGraphic($hTabBorder,$GUI_GR_PENSIZE,1) GUICtrlSetGraphic($hTabBorder,$GUI_GR_COLOR, 0x66cc99); green $hLineCursor=GUICtrlSetGraphic($hTabBorder,$GUI_GR_RECT, 40,30,1,240); vertical line edit: GUICtrlDelete($hLineCursor) is not working grCor
  11. Very good, It works ok. Is there a way to change to a different speech language? e.g. German, Britsh English I already download the different speech engines. grCor
×
×
  • Create New...