isaavcı Posted June 12, 2010 Share Posted June 12, 2010 Arkadaşlar aşağıda verdiğim koddaki butonlara nasıl görev atayabiliriz yanı seç seçme kur gibi bütün bunlara nasıl görev atayabiliriz =========== Global $With = 700 Global $Height = 500 Global $Form1 = GUICreate("Form1", $With, $Height,-1,-1) GUISetState(@SW_SHOW) ;======================================= Global $Form2 = GUICreate("",$With, $Height,0,0,0x40000000,-1,$Form1) GUICtrlCreateLabel("Gui1", 10, 10, 50, 17) GUICtrlSetFont(-1,12, 800, 0, "MS Sans Serif") $Button1 = GUICtrlCreateButton("Ileri", 150, 130, 75, 25); GUISetState(@SW_SHOW,$Form2) ;======================================= Global $Form3 = GUICreate("",$With, $Height,0,0,0x40000000,-1,$Form1) GUICtrlCreateLabel("Gui2", 10, 10, 50, 17) GUICtrlSetFont(-1,12, 800, 0, "MS Sans Serif") $Program1 = GUICtrlCreateCheckbox("Program 1", 16, 32, 233, 25) $Program2 = GUICtrlCreateCheckbox("Program 2", 16, 72, 233, 25) $Kur = GUICtrlCreateButton("Kur", 10, 180, 185, 41, 0);10 sol- 180 aşağı-185 buton boy-41 en-0 buton demek $tumunusec = GUICtrlCreateRadio("tümünü sec", 272, 144, 209, 17) $hicbirinisecme = GUICtrlCreateRadio("hiçbirini seçme", 272, 168, 217, 17) $onerilen = GUICtrlCreateRadio("öenrilen seçim", 272, 198, 217, 17) $Button2 = GUICtrlCreateButton("Geri", 10, 150, 75, 25) $Button3 = GUICtrlCreateButton("Ileri", 100, 150, 75, 25) ;======================================= Global $Form4 = GUICreate("",$With, $Height,0,0,0x40000000,-1,$Form1) GUICtrlCreateLabel("Gui3", 10, 10, 50, 17) GUICtrlSetFont(-1,12, 800, 0, "MS Sans Serif") $Program1 = GUICtrlCreateCheckbox("Program 1", 16, 32, 233, 25) $Program2 = GUICtrlCreateCheckbox("Program 2", 16, 72, 233, 25) $Kur = GUICtrlCreateButton("Kur", 10, 180, 185, 41, 0) $tumunusec = GUICtrlCreateRadio("tümünü sec", 272, 144, 209, 17) $hicbirinisecme = GUICtrlCreateRadio("hiçbirini seçme", 272, 168, 217, 17) $onerilen = GUICtrlCreateRadio("öenrilen seçim", 272, 198, 217, 17) $Button4 = GUICtrlCreateButton("Geri", 10, 150, 75, 25) $Button5 = GUICtrlCreateButton("Ileri", 100, 150, 75, 25) ;======================================= Global $Form5 = GUICreate("",$With, $Height,0,0,0x40000000,-1,$Form1) GUICtrlCreateLabel("Gui4", 10, 10, 50, 17) GUICtrlSetFont(-1,12, 800, 0, "MS Sans Serif") $Program1 = GUICtrlCreateCheckbox("Program 1", 16, 32, 233, 25) $Program2 = GUICtrlCreateCheckbox("Program 2", 16, 72, 233, 25) $Kur = GUICtrlCreateButton("Kur", 10, 180, 185, 41, 0) $tumunusec = GUICtrlCreateRadio("tümünü sec", 272, 144, 209, 17) $hicbirinisecme = GUICtrlCreateRadio("hiçbirini seçme", 272, 168, 217, 17) $onerilen = GUICtrlCreateRadio("öenrilen seçim", 272, 198, 217, 17) $Button6 = GUICtrlCreateButton("Geri", 10, 150, 75, 25) GUISwitch($Form1) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 GUISetState(@SW_SHOW,$Form3) GUISetState(@SW_HIDE,$Form2) Case $Button2 GUISetState(@SW_HIDE,$Form3) GUISetState(@SW_SHOW,$Form2) Case $Button3 GUISetState(@SW_HIDE,$Form3) GUISetState(@SW_SHOW,$Form4) Case $Button4 GUISetState(@SW_SHOW,$Form3) GUISetState(@SW_HIDE,$Form4) Case $Button5 GUISetState(@SW_SHOW,$Form5) GUISetState(@SW_HIDE,$Form4) Case $Button6 GUISetState(@SW_SHOW,$Form4) GUISetState(@SW_HIDE,$Form5) EndSwitch WEnd ================= bir örnek çalışma var elimde fakat iki çalışmayı birbirine uygulayamadım yardımcı olan varsa sevinirim #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("Form1", 554, 264, 242, 241) $Program1 = GUICtrlCreateCheckbox("Program 1", 16, 32, 233, 25) $Program2 = GUICtrlCreateCheckbox("Program 2", 16, 72, 233, 25) $Kur = GUICtrlCreateButton("Kur", 24, 152, 185, 41, 0) $tumunusec = GUICtrlCreateRadio("tümünü sec", 272, 144, 209, 17) $hicbirinisecme = GUICtrlCreateRadio("hiçbirini seçme", 272, 168, 217, 17) $onerilen = GUICtrlCreateRadio("öenrilen seçim", 272, 198, 217, 17) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Kur _kurulum() Case $tumunusec _tumu() Case $hicbirinisecme _yok() Case $onerilen _oner() EndSwitch WEnd Func _kurulum() ;Program 1 Kodları If GUICtrlRead($Program1) = 1 Then ShellExecuteWait("program1.exe","/s",@ScriptDir) EndIf ;Program 2 Kodları If GUICtrlRead($Program1) = 1 Then ShellExecuteWait("program2.exe","/qn",@ScriptDir) EndIf EndFunc Func _tumu() ;Tümünü Seç kodları If GUICtrlRead($tumunusec) = $GUI_CHECKED Then GUICtrlSetState($Program1,$GUI_CHECKED) GUICtrlSetState($Program2,$GUI_CHECKED) EndIf EndFunc Func _yok() ;Hiçbirini Seçme kodları If GUICtrlRead($hicbirinisecme) = $GUI_CHECKED Then GUICtrlSetState($Program1,$GUI_UNCHECKED) GUICtrlSetState($Program2,$GUI_UNCHECKED) EndIf EndFunc Func _oner() ;Önerilen Seçim kodları If GUICtrlRead($onerilen) = $GUI_CHECKED Then GUICtrlSetState($Program1,$GUI_CHECKED) GUICtrlSetState($Program2,$GUI_UNCHECKED) EndIf EndFunc Link to comment Share on other sites More sharing options...
djonur007 Posted June 12, 2010 Share Posted June 12, 2010 bunun anlatımını videolu olarak yaptım. ilk önce araştırma yap!. Link to comment Share on other sites More sharing options...
isaavcı Posted June 12, 2010 Author Share Posted June 12, 2010 hocam teşekkür ederim hemen cevap verdiğinizden dolayı http://www.tnctr.com/index.php?showtopic=128105 dersi indirdim benim istediğim bu değilki ben sizin anlattığınız aio tarzı çalışmayla formları birleştirmek istiyorum. incelerseniz formlar tamam ama mesela form2 hepsini sec veya kur butonuna nasıl görev ekleriz bunu istiyorum yardımcıu olabilirseniz sevinirim Link to comment Share on other sites More sharing options...
Mytolocia Posted June 12, 2010 Share Posted June 12, 2010 Onlar da anlatıldı hepsini seç tümünü kaldır vs .. ! Link to comment Share on other sites More sharing options...
djonur007 Posted June 13, 2010 Share Posted June 13, 2010 #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("Form1", 554, 264, 242, 241) $Program1 = GUICtrlCreateCheckbox("Program 1", 16, 32, 233, 25) $Program2 = GUICtrlCreateCheckbox("Program 2", 16, 72, 233, 25) $Kur = GUICtrlCreateButton("Kur", 24, 152, 185, 41, 0) $tumunusec = GUICtrlCreateRadio("tümünü sec", 272, 144, 209, 17) $hicbirinisecme = GUICtrlCreateRadio("hiçbirini seçme", 272, 168, 217, 17) $onerilen = GUICtrlCreateRadio("öenrilen seçim", 272, 198, 217, 17) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Kur _kurulum() Case $tumunusec _tumu() Case $hicbirinisecme _yok() Case $onerilen _oner() EndSwitch WEnd Func _kurulum() ;Program 1 Kodları If GUICtrlRead($Program1) = 1 Then ShellExecuteWait("program1.exe","/s",@ScriptDir) EndIf ;Program 2 Kodları If GUICtrlRead($Program1) = 1 Then ShellExecuteWait("program2.exe","/qn",@ScriptDir) EndIf EndFunc Func _tumu() ;Tümünü Seç kodları If GUICtrlRead($tumunusec) = $GUI_CHECKED Then GUICtrlSetState($Program1,$GUI_CHECKED) GUICtrlSetState($Program2,$GUI_CHECKED) EndIf EndFunc Func _yok() ;Hiçbirini Seçme kodları If GUICtrlRead($hicbirinisecme) = $GUI_CHECKED Then GUICtrlSetState($Program1,$GUI_UNCHECKED) GUICtrlSetState($Program2,$GUI_UNCHECKED) EndIf EndFunc Func _oner() ;Önerilen Seçim kodları If GUICtrlRead($onerilen) = $GUI_CHECKED Then GUICtrlSetState($Program1,$GUI_CHECKED) GUICtrlSetState($Program2,$GUI_UNCHECKED) EndIf EndFunc[/CODE] burada form1 için kodlar verilmiş. form2 içinde aynısını uygulıyacaksın. yani form1'de tümünü seç için verdiği fonksiyon name'i _tumu() ise form2'de _tumu2() olacak. tabi burda yapman gereken program ID'lerini değiştirmek yani. $Program1 form1'de ise $Program2 form2'de olacak. Link to comment Share on other sites More sharing options...
isaavcı Posted June 17, 2010 Author Share Posted June 17, 2010 Yardımcı olacak birini bekliyorum lütfen anlamamak çok kötü yardım beklemek daha kötü basit görmeyin lütfen paylaşın. paylşamayla hiç bir şey tükenmez. Link to comment Share on other sites More sharing options...
isaavcı Posted June 18, 2010 Author Share Posted June 18, 2010 arkadaşlar formlar arası aio nasıl yapılır çözdüm ve sizlerle paylaşmak istedim. çünkü ben çok aradım bulamadım benim gibi arayanlara yardımcı olayım dedim buyrun ========================================================= #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("Form1", 554, 264, 242, 241);form1 $Program1 = GUICtrlCreateCheckbox("Program 1", 16, 32, 233, 25);form1 checkbox1 $Program2 = GUICtrlCreateCheckbox("Program 2", 16, 72, 233, 25);form1 checkbox2 $Kur = GUICtrlCreateButton("Kur", 24, 152, 185, 41, 0);form1 kur butonu $ileri = GUICtrlCreateButton("ileri", 24, 200, 185, 41, 0);form1 ileri butonu $tumunusec = GUICtrlCreateRadio("tümünü sec", 272, 144, 209, 17);form1 tümünü sec $hicbirinisecme = GUICtrlCreateRadio("hiçbirini seçme", 272, 168, 217, 17);form1 hiç birini seçme $onerilen = GUICtrlCreateRadio("onerilen seçim", 272, 198, 217, 17);form1 önerilen seçim GUISetState(@SW_SHOW) $Form2 = GUICreate("Form2", 554, 264, 242, 241);form2 $Program3 = GUICtrlCreateCheckbox("Program 3", 16, 32, 233, 25);form2 checkbox1 $Program4 = GUICtrlCreateCheckbox("Program 4", 16, 72, 233, 25);form2 checkbox2 $Kur2 = GUICtrlCreateButton("Kur2", 24, 152, 185, 41, 0);form2 kur butonu $ileri2 = GUICtrlCreateButton("ileri2", 24, 200, 185, 41, 0);form2 ileri butonu $tumunusec2 = GUICtrlCreateRadio("tümünü sec2", 272, 144, 209, 17);form2 tümünü sec $hicbirinisecme2 = GUICtrlCreateRadio("hiçbirini seçme2", 272, 168, 217, 17);form1 hiç birini seçme $onerilen2 = GUICtrlCreateRadio("onerilen seçim2", 272, 198, 217, 17);form2 önerilen seçim $Form3 = GUICreate("Form3", 554, 264, 242, 241);form3 $Program5 = GUICtrlCreateCheckbox("Program 5", 16, 32, 233, 25);form3 checkbox1 $Program6 = GUICtrlCreateCheckbox("Program 6", 16, 72, 233, 25);form3 checkbox2 $Kur3 = GUICtrlCreateButton("Kur3", 24, 152, 185, 41, 0);form3 kur butonu $ileri3 = GUICtrlCreateButton("ileri3", 24, 200, 185, 41, 0);form3 ileri butonu $tumunusec3 = GUICtrlCreateRadio("tümünü sec3", 272, 144, 209, 17);form3 tümünü sec $hicbirinisecme3 = GUICtrlCreateRadio("hiçbirini seçme3", 272, 168, 217, 17);form3 hiç birini seçme $onerilen3 = GUICtrlCreateRadio("onerilen seçim3", 272, 198, 217, 17);form3 önerilen seçim While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Kur _kurulum();burdaki değişkenlerin ismi önemli değil değiştirilebilir ama aşağıda aynı isimle kullanılmalı Case $ileri _sayfa() Case $tumunusec _tumu() Case $hicbirinisecme _yok() Case $onerilen _oner() ;----------------------------- form1 içeriği Case $Kur2 _kurulum2() Case $ileri2 _sayfa2() Case $tumunusec2 _tumu2() Case $hicbirinisecme2 _yok2() Case $onerilen2 _oner2() ;----------------------------- form2 içeriği Case $Kur3 _kurulum3() Case $ileri3 _sayfa3() Case $tumunusec3 _tumu3() Case $hicbirinisecme3 _yok3() Case $onerilen3 _oner3() EndSwitch WEnd ;----------------------------- form3 içeriği Func _kurulum();form1 checkbox1 seçildiği takdirde yapılacak işlem (Program1 seçili ise "1.exe çalıştır) ;Program 1 Kodları If GUICtrlRead($Program1) = 1 Then ShellExecuteWait("1.exe","/s",@ScriptDir) EndIf ;Program 2 Kodları If GUICtrlRead($Program2) = 1 Then;form1 checkbox2 seçildiği takdirde yapılacak işlem ("Program2" seçili ise "2.exe" çalıştır) ShellExecuteWait("2.exe","/qn",@ScriptDir) EndIf EndFunc Func _kurulum2() ;Program 1 Kodları If GUICtrlRead($Program3) = 1 Then;form2 checkbox3 seçildiği takdirde yapılacak işlem ("Program3" seçili ise "3.exe" çalıştır) ShellExecuteWait("3.exe","/s",@ScriptDir) EndIf ;Program 2 Kodları If GUICtrlRead($Program4) = 1 Then;form2 checkbox4 seçildiği takdirde yapılacak işlem ("Program4" seçili ise "4.exe" çalıştır) ShellExecuteWait("4.exe","/qn",@ScriptDir) EndIf EndFunc Func _kurulum3() ;Program 1 Kodları If GUICtrlRead($Program5) = 1 Then;form3 checkbox5 seçildiği takdirde yapılacak işlem ("Program5" seçili ise "1.exe" çalıştır) ShellExecuteWait("5.exe","/s",@ScriptDir) EndIf ;Program 2 Kodları If GUICtrlRead($Program6) = 1 Then;form3 checkbox6 seçildiği takdirde yapılacak işlem ("Program6" seçili ise "6.exe" çalıştır) ShellExecuteWait("6.exe","/qn",@ScriptDir) EndIf EndFunc Func _sayfa();form2 göster form1 gizle GUISetState(@SW_SHOW,$Form2) GUISetState(@SW_HIDE,$Form1) EndFunc Func _sayfa2();form3 göster form2 gizle GUISetState(@SW_SHOW,$Form3) GUISetState(@SW_HIDE,$Form2) EndFunc Func _sayfa3();form2 göster form3 gizle GUISetState(@SW_SHOW,$Form2) GUISetState(@SW_HIDE,$Form3) EndFunc Func _tumu() ;Tümünü Seç kodları form1 If GUICtrlRead($tumunusec) = $GUI_CHECKED Then GUICtrlSetState($Program1,$GUI_CHECKED) GUICtrlSetState($Program2,$GUI_CHECKED) EndIf EndFunc Func _tumu2() ;Tümünü Seç kodları form2 If GUICtrlRead($tumunusec2) = $GUI_CHECKED Then GUICtrlSetState($Program3,$GUI_CHECKED) GUICtrlSetState($Program4,$GUI_CHECKED) EndIf EndFunc Func _tumu3() ;Tümünü Seç kodları form3 If GUICtrlRead($tumunusec3) = $GUI_CHECKED Then GUICtrlSetState($Program5,$GUI_CHECKED) GUICtrlSetState($Program6,$GUI_CHECKED) EndIf EndFunc Func _yok() ;Hiçbirini Seçme kodları form1 If GUICtrlRead($hicbirinisecme) = $GUI_CHECKED Then GUICtrlSetState($Program1,$GUI_UNCHECKED) GUICtrlSetState($Program2,$GUI_UNCHECKED) EndIf EndFunc Func _yok2() ;Hiçbirini Seçme kodları form2 If GUICtrlRead($hicbirinisecme2) = $GUI_CHECKED Then GUICtrlSetState($Program3,$GUI_UNCHECKED) GUICtrlSetState($Program4,$GUI_UNCHECKED) EndIf EndFunc Func _yok3() ;Hiçbirini Seçme kodları form3 If GUICtrlRead($hicbirinisecme3) = $GUI_CHECKED Then GUICtrlSetState($Program5,$GUI_UNCHECKED) GUICtrlSetState($Program6,$GUI_UNCHECKED) EndIf EndFunc Func _oner() ;Önerilen Seçim kodları form1 If GUICtrlRead($onerilen) = $GUI_CHECKED Then GUICtrlSetState($Program1,$GUI_CHECKED) GUICtrlSetState($Program2,$GUI_UNCHECKED) EndIf EndFunc Func _oner2() ;Önerilen Seçim kodları form2 If GUICtrlRead($onerilen2) = $GUI_CHECKED Then GUICtrlSetState($Program3,$GUI_CHECKED) GUICtrlSetState($Program4,$GUI_UNCHECKED) EndIf EndFunc Func _oner3() ;Önerilen Seçim kodları form3 If GUICtrlRead($onerilen3) = $GUI_CHECKED Then GUICtrlSetState($Program5,$GUI_CHECKED) GUICtrlSetState($Program6,$GUI_UNCHECKED) EndIf EndFunc ================ Link to comment Share on other sites More sharing options...
djonur007 Posted June 18, 2010 Share Posted June 18, 2010 doğru yapmışsın evet. anlatmak istediğimde buydu... Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.