Valuater Posted June 9, 2005 Share Posted June 9, 2005 (edited) Thanks for the help everyone.. gafrost, i used your idea reversely, we were trying to put the button on top of the label.... but i didn't know you could get input from a label... you showed me that.... so, I put all sunken labels.... and it worked <<<<YES!>>>> (with hours of coaching of course) here it is.... check it out This may be the first Keyboard in autoit ?????????? expandcollapse popup#include <GUIConstants.au3> $Logo_icon = @HomeDrive & "\Temp\XPClean-Icon.ico" FileInstall("C:\XPClean-web\Settings\XPClean-pics\XPClean-Main-Pic-Icon.ico", $Logo_icon) $Ver= "Thank you - Test Example" Dim $QT_web = "www.XPCleanMenu.HostRocket.com" ;~;--------------above is in *XPClean Menu* ----------------- Dim $Rad="", $P_T="Short", $P_T_1="200" #region --- GuiBuilder code Start --->>>>>>>>>>>>>>>>>>>>>>>>>>> THANK YOU GUI-BUILDER $Organ=GuiCreate(" *XPClean Menu* + ORGANized Version " & $Ver, 897, 325,(@DesktopWidth-897)/2, (@DesktopHeight-325)/2 );, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) GUISetBkColor ("") GUISetFont(9, 400, -1, "MS Sans Serif") GUICtrlSetColor(-1,0xff0000) $Label_C1 = GuiCtrlCreateLabel(" This is a Test Example, yours to play with- I want to say Thank You to all whom Help - mostly gafrost ", 90, 10, 700, 20) GUICtrlSetFont(-1, 10, 10) GUICtrlSetColor(-1,0x00ff00) $Label_C2 = GuiCtrlCreateLabel(" *NOW... You can Help Too!! Just Write a *Good Song* and I will ad it to the *Play-List* ( PLEASE - Use Func Format *Joy to the World*, Thanks )", 90, 30, 710, 20) ;GUICtrlSetFont(-1, 10, 10) GUICtrlSetColor(-1,0x00ff00) ; left radio buttons GUIStartGroup() $Radio_L1 = GuiCtrlCreateRadio("Music", 10, 70, 15, 20) GUICtrlSetState(-1, $GUI_CHECKED); will set Music as default $Label_L1 = GuiCtrlCreateLabel("Music", 30, 75, 60, 20) GUICtrlSetFont(-1, 12, 10) GUICtrlSetColor(-1,0xff0000) $Radio_L2 = GuiCtrlCreateRadio("Clean*", 10, 110, 15, 20) GUICtrlSetState(-1, $GUI_DISABLE) $Label_L2 = GuiCtrlCreateLabel("Clean", 30, 115, 60, 20) GUICtrlSetFont(-1, 12, 10) GUICtrlSetColor(-1,0xff0000) ; right radio buttons GUIStartGroup() $Radio_R1 = GuiCtrlCreateRadio("Level 1",810, 70, 20, 20) GUICtrlSetState(-1, $GUI_CHECKED) $Label_R1 = GuiCtrlCreateLabel("Level 1", 830, 75, 60, 20) GUICtrlSetFont(-1, 12, 10) GUICtrlSetColor(-1,0x8080ff ) $Radio_R2 = GuiCtrlCreateRadio("Level 2", 810, 110, 20, 20) $Label_R2 = GuiCtrlCreateLabel("Level 2", 830, 115, 60, 20) GUICtrlSetFont(-1, 12, 10) GUICtrlSetColor(-1,0x8080ff ) ; play list $Playlist = GUICtrlcreatecombo( "Play List", 5, 190, 90) GUICtrlSetData(-1,"Joy to the World") GUICtrlSetData(-2,"Your song here") GUICtrlSetData(-3,"Your song here") GUICtrlSetData(-4,"Play List") GUICtrlSetData(-5,"Play List") $Button_P = GuiCtrlCreateButton("Play Song", 10, 230, 70, 20) ; sound duration $NotePlay = GUICtrlcreatecombo( "Note Play", 5, 270, 90) GUICtrlSetData(-1,"Short") GUICtrlSetData(-2,"Medium") GUICtrlSetData(-3,"Long") $Label_S1 = GuiCtrlCreateLabel("Duration", 20, 300, 80, 20) GUICtrlSetFont(-1, 10, 10) GUICtrlSetColor(-1, 0x8080ff ) ;Upper buttons $Button_1 = GUICtrlCreateLabel("Button26", 130, 50, 40, 170, $SS_BLACKRECT + $SS_SUNKEN + $SS_CENTER , $WS_EX_TOPMOST ) $Button_2 = GUICtrlCreateLabel("Button27", 180, 50, 40, 170, $SS_BLACKRECT + $SS_SUNKEN + $SS_CENTER , $WS_EX_TOPMOST ) $Button_3 = GUICtrlCreateLabel("Button28", 230, 50, 40, 170, $SS_BLACKRECT + $SS_SUNKEN + $SS_CENTER , $WS_EX_TOPMOST ) $Button_4 = GUICtrlCreateLabel("Button29", 330, 50, 40, 170, $SS_BLACKRECT + $SS_SUNKEN + $SS_CENTER , $WS_EX_TOPMOST ) $Button_5 = GUICtrlCreateLabel("Button30", 380, 50, 40, 170, $SS_BLACKRECT + $SS_SUNKEN + $SS_CENTER , $WS_EX_TOPMOST ) $Button_6 = GUICtrlCreateLabel("Button31", 480, 50, 40, 170, $SS_BLACKRECT + $SS_SUNKEN + $SS_CENTER , $WS_EX_TOPMOST ) $Button_7 = GUICtrlCreateLabel("Button32", 530, 50, 40, 170, $SS_BLACKRECT + $SS_SUNKEN + $SS_CENTER , $WS_EX_TOPMOST ) $Button_8 = GUICtrlCreateLabel("Button33", 580, 50, 40, 170, $SS_BLACKRECT + $SS_SUNKEN + $SS_CENTER , $WS_EX_TOPMOST ) $Button_9 = GUICtrlCreateLabel("Button34", 680, 50, 40, 170, $SS_BLACKRECT + $SS_SUNKEN + $SS_CENTER , $WS_EX_TOPMOST ) $Button_10 = GUICtrlCreateLabel("Button35", 730, 50, 40, 170, $SS_BLACKRECT + $SS_SUNKEN + $SS_CENTER , $WS_EX_TOPMOST ) ; Lower buttons $Button_11 = GUICtrlCreateLabel("Button11", 100, 50, 50, 270, $SS_WHITERECT + $SS_SUNKEN + $BS_BOTTOM) $Button_12 = GUICtrlCreateLabel("Button12", 150, 50, 50, 270, $SS_WHITERECT + $SS_SUNKEN + $BS_BOTTOM) $Button_13 = GUICtrlCreateLabel("Button13", 200, 50, 50, 270, $SS_WHITERECT + $SS_SUNKEN + $BS_BOTTOM) $Button_14 = GUICtrlCreateLabel("Button14", 250, 50, 50, 270, $SS_WHITERECT + $SS_SUNKEN + $BS_BOTTOM) $Button_15 = GUICtrlCreateLabel("Button15", 300, 50, 50, 270, $SS_WHITERECT + $SS_SUNKEN + $BS_BOTTOM) $Button_16 = GUICtrlCreateLabel("Button16", 350, 50, 50, 270, $SS_WHITERECT + $SS_SUNKEN + $BS_BOTTOM) $Button_17 = GUICtrlCreateLabel("Button17", 400, 50, 50, 270, $SS_WHITERECT + $SS_SUNKEN + $BS_BOTTOM) $Button_18 = GUICtrlCreateLabel("Button18", 450, 50, 50, 270, $SS_WHITERECT + $SS_SUNKEN + $BS_BOTTOM) $Button_19 = GUICtrlCreateLabel("Button19", 500, 50, 50, 270, $SS_WHITERECT + $SS_SUNKEN + $BS_BOTTOM) $Button_20 = GUICtrlCreateLabel("Button20", 550, 50, 50, 270, $SS_WHITERECT + $SS_SUNKEN + $BS_BOTTOM) $Button_21 = GUICtrlCreateLabel("Button21", 600, 50, 50, 270, $SS_WHITERECT + $SS_SUNKEN + $BS_BOTTOM) $Button_22 = GUICtrlCreateLabel("Button22", 650, 50, 50, 270, $SS_WHITERECT + $SS_SUNKEN + $BS_BOTTOM) $Button_23 = GUICtrlCreateLabel("Button23", 700, 50, 50, 270, $SS_WHITERECT + $SS_SUNKEN + $BS_BOTTOM) $Button_24 = GUICtrlCreateLabel("Button24", 750, 50, 50, 270, $SS_WHITERECT + $SS_SUNKEN + $BS_BOTTOM) ;Upper buttons $utton_1 = GUICtrlCreateLabel("Button26", 130, 50, 40, 170, $SS_SUNKEN + $SS_CENTER , $WS_EX_TOPMOST ) GUICtrlSetbkColor(-1,"") $utton_2 = GUICtrlCreateLabel("Button27", 180, 50, 40, 170, $SS_SUNKEN + $SS_CENTER , $WS_EX_TOPMOST ) GUICtrlSetbkColor(-1,"") $utton_3 = GUICtrlCreateLabel("Button28", 230, 50, 40, 170, $SS_SUNKEN + $SS_CENTER , $WS_EX_TOPMOST ) GUICtrlSetbkColor(-1,"") $utton_4 = GUICtrlCreateLabel("Button29", 330, 50, 40, 170, $SS_SUNKEN + $SS_CENTER , $WS_EX_TOPMOST ) GUICtrlSetbkColor(-1,"") $utton_5 = GUICtrlCreateLabel("Button30", 380, 50, 40, 170, $SS_SUNKEN + $SS_CENTER , $WS_EX_TOPMOST ) GUICtrlSetbkColor(-1,"") $utton_6 = GUICtrlCreateLabel("Button31", 480, 50, 40, 170, $SS_SUNKEN + $SS_CENTER , $WS_EX_TOPMOST ) GUICtrlSetbkColor(-1,"") $utton_7 = GUICtrlCreateLabel("Button32", 530, 50, 40, 170, $SS_SUNKEN + $SS_CENTER , $WS_EX_TOPMOST ) GUICtrlSetbkColor(-1,"") $utton_8 = GUICtrlCreateLabel("Button33", 580, 50, 40, 170, $SS_SUNKEN + $SS_CENTER , $WS_EX_TOPMOST ) GUICtrlSetbkColor(-1,"") $utton_9 = GUICtrlCreateLabel("Button34", 680, 50, 40, 170, $SS_SUNKEN + $SS_CENTER , $WS_EX_TOPMOST ) GUICtrlSetbkColor(-1,"") $utton_10 = GUICtrlCreateLabel("Button35", 730, 50, 40, 170, $SS_SUNKEN + $SS_CENTER , $WS_EX_TOPMOST ) GUICtrlSetbkColor(-1,"") $Button_L3 = GuiCtrlCreateButton("Main Menu", 10, 150, 70, 20) $Button_A3 = GuiCtrlCreateButton("Close Menu", 810, 150, 70, 20) $Button_A4 = GuiCtrlCreateButton("Share Menu", 810, 190, 70, 20) $Button_A5 = GuiCtrlCreateButton("QT Appraisal", 810, 230, 70, 20) $Button_QT = GUICtrlCreateButton("", 825, 265, 35, 35, $BS_ICON) GUICtrlSetImage(-1, $Logo_icon) GUICtrlSetTip(-1, "Check New Releases") GuiSetState() GUISetBkColor ("") While 1 $msg = GuiGetMsg() $P_timer= GUICtrlRead($NotePlay) If $P_timer <> $P_T Then $P_T=$P_timer If $P_T="Short" Then $P_T_1 = "200" If $P_T="Medium" Then $P_T_1 = "400" If $P_T="Long" Then $P_T_1 = "600" EndIf If $msg = $GUI_EVENT_CLOSE Or $msg= $Button_A3 Then ExitLoop If BitAND(GUICtrlRead($Radio_L1), $GUI_CHECKED) = $GUI_CHECKED Then Call("Set_music") EndIf If $msg = $Button_L3 Then Call("Set_Menu") EndIf If $msg = $Button_A4 Then Call("Set_Menu") EndIf If $msg = $Button_A5 Then Call("Set_QT") EndIf If $msg = $Button_QT Then Call("Set_Update") EndIf WEnd Exit #endregion --- GuiBuilder generated code End --- ;------------------------Functions ------------------- Func Set_Music() While 2 $P_timer= GUICtrlRead($NotePlay) If $P_timer <> $P_T Then $P_T=$P_timer If $P_T="Short" Then $P_T_1 = "200" If $P_T="Medium" Then $P_T_1 = "400" If $P_T="Long" Then $P_T_1 = "600" EndIf $M_ans = GuiGetMsg() Select Case $M_ans = $GUI_EVENT_CLOSE Or $M_ans= $Button_A3 ;GUICtrlSetState($radio_L1, $GUI_UNCHECKED) ;GUICtrlSetState($radio_L2, $GUI_CHECKED) Exit Case $M_ans = $Button_A5 Call("Set_QT") Case $M_ans = $Button_QT Call("Set_Update") Case $M_ans = $Button_L3 or $M_ans = $Button_A4 Call("Set_Menu") Case $M_ans = $Button_P Call("Play_Joy") Case $M_ans = $Button_11 Beep(100, $P_T_1) Case $M_ans = $Button_12 Beep(200, $P_T_1) Case $M_ans = $Button_13 Beep(300, $P_T_1) Case $M_ans = $Button_14 Beep(400, $P_T_1) Case $M_ans = $Button_15 Beep(500, $P_T_1) Case $M_ans = $Button_16 Beep(600, $P_T_1) Case $M_ans = $Button_17 Beep(700, $P_T_1) Case $M_ans = $Button_18 Beep(800, $P_T_1) Case $M_ans = $Button_19 Beep(900, $P_T_1) Case $M_ans = $Button_20 Beep(1000, $P_T_1) Case $M_ans = $Button_21 Beep(1100, $P_T_1) Case $M_ans = $Button_22 Beep(1200, $P_T_1) Case $M_ans = $Button_23 Beep(1300, $P_T_1) Case $M_ans = $Button_24 Beep(1400, $P_T_1) Case $M_ans = $Button_1 Beep(150, $P_T_1) Case $M_ans = $Button_2 Beep(250, $P_T_1) Case $M_ans = $Button_3 Beep(350, $P_T_1) Case $M_ans = $Button_4 Beep(550, $P_T_1) Case $M_ans = $Button_5 Beep(650, $P_T_1) Case $M_ans = $Button_6 Beep(850, $P_T_1) Case $M_ans = $Button_7 Beep(950, $P_T_1) Case $M_ans = $Button_8 Beep(1050, $P_T_1) Case $M_ans = $Button_9 Beep(1250, $P_T_1) Case $M_ans = $Button_10 Beep(1350, $P_T_1) EndSelect ;If BitAND(GUICtrlRead($Radio_L2), $GUI_CHECKED) = $GUI_CHECKED Then ExitLoop WEnd EndFunc Func Set_Menu() MsgBox(0,"Sorry","This is a Test Only Program ") Sleep(500) EndFunc Func Play_Joy() ; PLease use this format inside a Func for your Music to be included (or improve-it) , Thanks Beep(1200, 700) Beep(1100, 400) Beep(1000, 300) Beep(900, 700) Sleep(50) Beep(800, 400) Beep(700, 700) Beep(600, 600) Beep(500, 700) Sleep(100) Beep(600, 600) Beep(700, 600) Sleep(80) Beep(800, 400) Beep(900, 700) Sleep(80) Beep(1000, 400) Beep(1130, 800) EndFunc ; ----------------- Below included in *XPClean Menu* ------------------------------- Func Set_QT() $iMsgBoxAnswer = MsgBox(32, "*XPClean Menu* , by Q.T. APPRAISAL SERVICE", "WHO IS, QT APPRAISAL SERVICE ?" & @CRLF & "" & @CRLF & "We are a Real Estate Appraisal Company based in Riverside, California. We spend hours upon hours researching various internet sites, sending and receiving e-mails, downloading and uploading large appraisal files, digital maps; photos; signatures and more. For this, our network of computers are connected to the internet at all times and are vulnerable to many types of attacks. Our computers are cluttered with files, cookies, downloads, temporary files, recently old files, digitally compulated files, e-mails, etc combined with virus attacks, attached adware creating pop-up ads and spyware tracking our usage. " & @CRLF & "" & @CRLF & "Thus, I have spent hours cleaning and tuning-up our computer system and have finally designed a menu system to manage these great clean-up and tune-up programs" & @CRLF & "" & @CRLF & "... I just thought you might appreciate and benefit from all of my efforts." & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "", 60) Select Case $iMsgBoxAnswer = -1;Timeout EndSelect EndFunc Func Set_Update() Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe " & $QT_web) Sleep(2000) EndFunc the song i wrote is....na....na but anyone can help with that if they want thanks again 8) Enjoy! Edited June 9, 2005 by Valuater Link to comment Share on other sites More sharing options...
hlstriker Posted June 9, 2005 Share Posted June 9, 2005 I get an Error Line 185 (File "C:\Program Files\AutoIt3\MY SCRIPTS\New AutoIt v3 Script.au3"):Beep(100, $P_T_1)^ ERRORError: Unknown function name. The best Honda forums!RuneScape High Alching for Profit! Link to comment Share on other sites More sharing options...
GaryFrost Posted June 9, 2005 Share Posted June 9, 2005 you using the beta? SciTE for AutoItDirections for Submitting Standard UDFs Don't argue with an idiot; people watching may not be able to tell the difference. Link to comment Share on other sites More sharing options...
Valuater Posted June 9, 2005 Author Share Posted June 9, 2005 (edited) Autoit ver 3.1.1+++ required... but i still get that error also... until SCite is updated You can still reply with "stop" or continue" ************ Just push "Continue" *************** Edited June 9, 2005 by Valuater Link to comment Share on other sites More sharing options...
GaryFrost Posted June 9, 2005 Share Posted June 9, 2005 I'm using SciTe and I don't get that error. SciTE for AutoItDirections for Submitting Standard UDFs Don't argue with an idiot; people watching may not be able to tell the difference. Link to comment Share on other sites More sharing options...
hlstriker Posted June 9, 2005 Share Posted June 9, 2005 Am I supposed to use Beta? I'm not... and I use SciTe also! The best Honda forums!RuneScape High Alching for Profit! Link to comment Share on other sites More sharing options...
GaryFrost Posted June 9, 2005 Share Posted June 9, 2005 Yes beta, beep function is in the beta. SciTE for AutoItDirections for Submitting Standard UDFs Don't argue with an idiot; people watching may not be able to tell the difference. Link to comment Share on other sites More sharing options...
Valuater Posted June 9, 2005 Author Share Posted June 9, 2005 I'm using SciTe and I don't get that error.<{POST_SNAPBACK}>what version or date ??? Link to comment Share on other sites More sharing options...
GaryFrost Posted June 9, 2005 Share Posted June 9, 2005 (edited) last time it was updated 5/18/05#80379 Edited June 9, 2005 by gafrost SciTE for AutoItDirections for Submitting Standard UDFs Don't argue with an idiot; people watching may not be able to tell the difference. Link to comment Share on other sites More sharing options...
hlstriker Posted June 9, 2005 Share Posted June 9, 2005 How can I upgrade to Beta? Do I have to completely uninstall the one I have now, or is there an upgrade thing? Sorry i'm still a AutoIt noob The best Honda forums!RuneScape High Alching for Profit! Link to comment Share on other sites More sharing options...
GaryFrost Posted June 9, 2005 Share Posted June 9, 2005 you can have both, go to the developers section and 3.1.1++ SciTE for AutoItDirections for Submitting Standard UDFs Don't argue with an idiot; people watching may not be able to tell the difference. Link to comment Share on other sites More sharing options...
Valuater Posted June 9, 2005 Author Share Posted June 9, 2005 thanks... i followed the post to update sciTe i just installed sciTe "3" times and ... my sciTe.exe file date 4/4/05 and i still get that error ( note sciTe asked my if I want to update to 3.1.1+++ ... and i said yes ???? i still have the errors for new development stuff Link to comment Share on other sites More sharing options...
MHz Posted June 9, 2005 Share Posted June 9, 2005 thanks... i followed the post to update sciTei just installed sciTe "3" times and ...my sciTe.exe file date 4/4/05and i still get that error( note sciTe asked my if I want to update to 3.1.1+++ ... and i said yes????i still have the errors for new development stuff<{POST_SNAPBACK}>Yes, scite.exe is 4/4/05. And it will stay with that date, until build v1.64 of SciTe is released. SciTe4AutoIt3 is customized and updated, every so often, to try to keep up with the beta. Check also in Scipts and Scraps forum for update posts.Could you please create threads, with meaningful titles? Link to comment Share on other sites More sharing options...
Valuater Posted June 9, 2005 Author Share Posted June 9, 2005 Updates, thanks... got it the title was very meaningful when i found a way to make this "musical keyboard" actual work. it was TOUGH! doesn't look real intelegent right about now though..... 8) i will keep it in mind for the future thx Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now