Box Check Ile Işlem Yaptırmak

[byMaPa]

Şöyle bir şey yaptım ama devam ettiremiyorum. Mesela 1. seçilince a.exe 2. seçilince b.exe ikisi de seçili ise a.exe ve b.exe kurulsun gibi birşey yapmak istiyorum.

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 437, 195, 127)
GUISetCursor (0)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 32, 56, 217, 25)
GUICtrlSetOnEvent(-1, "Checkbox1Click")
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox1", 32, 80, 217, 25)
GUICtrlSetOnEvent(-1, "Checkbox2Click")
$Checkbox3 = GUICtrlCreateCheckbox("Checkbox1", 32, 104, 217, 25)
GUICtrlSetOnEvent(-1, "Checkbox3Click")
$Checkbox5 = GUICtrlCreateCheckbox("Checkbox1", 32, 128, 217, 25)
GUICtrlSetOnEvent(-1, "Checkbox5Click")
$Checkbox6 = GUICtrlCreateCheckbox("Checkbox1", 32, 152, 217, 25)
GUICtrlSetCursor (-1, 2)
GUICtrlSetOnEvent(-1, "Checkbox6Click")
$Checkbox7 = GUICtrlCreateCheckbox("Checkbox1", 32, 176, 217, 25)
GUICtrlSetOnEvent(-1, "Checkbox7Click")
$Checkbox8 = GUICtrlCreateCheckbox("Checkbox1", 32, 200, 217, 25)
GUICtrlSetOnEvent(-1, "Checkbox8Click")
$Checkbox9 = GUICtrlCreateCheckbox("Checkbox1", 32, 224, 217, 25)
GUICtrlSetOnEvent(-1, "Checkbox9Click")
$Button1 = GUICtrlCreateButton("Kurulumu Başlat (F2)", 280, 56, 249, 33, BitOR($BS_DEFPUSHBUTTON,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
GUICtrlSetOnEvent(-1, "Button1Click")
$Progress1 = GUICtrlCreateProgress(32, 320, 497, 41)
Dim $Form1_AccelTable[1][2] = [["{F2}", $Button1]]
GUISetAccelerators($Form1_AccelTable)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	Sleep(100)
WEnd

Func Button1Click()

EndFunc
Func Checkbox1Click()

EndFunc
Func Checkbox2Click()

EndFunc
Func Checkbox3Click()

EndFunc
Func Checkbox5Click()

EndFunc
Func Checkbox6Click()

EndFunc
Func Checkbox7Click()

EndFunc
Func Checkbox8Click()

EndFunc
Func Checkbox9Click()

EndFunc
Func Form1Close()

EndFunc
Func Form1Maximize()

EndFunc
Func Form1Minimize()

EndFunc
Func Form1Restore()

EndFunc

Edited August 8, 2013 by byMaPa

[Dj Demir]

Hazırlıyorum kardeşim. Bir iki dakikaya hazır olur.

[Dj Demir]

 

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

 

$nGui = GUICreate("Pencere", 200, 214, 192, 124)

$nKur = GUICtrlCreateButton("Kur", 90, 152, 91, 41, $WS_GROUP)

$nCheckbox1 = GUICtrlCreateCheckbox("Checkbox1", 48, 48, 105, 25)

$nCheckbox2 = GUICtrlCreateCheckbox("Checkbox2", 48, 88, 97, 17)

$nCheckbox3 = GUICtrlCreateCheckbox("Checkbox3", 48, 120, 97, 17)

GUISetState(@SW_SHOW)

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $nKur

_Kur()

EndSwitch

WEnd

 

Func _Kur()

if GUICtrlRead($nCheckBox1) = $GUI_CHECKED Then

;~ ShellExecuteWait("Dosya ismi.exe","istiyorsan parametreyi buraya ekle","Dosyanın Yeri","")

MsgBox(0,"","CheckBox 1 Seçildi","","")

EndIf

 

if GUICtrlRead($nCheckBox2) = $GUI_CHECKED Then

;~ ShellExecuteWait("Dosya ismi.exe","istiyorsan parametreyi buraya ekle","Dosyanın Yeri","")

MsgBox(0,"","CheckBox 2 Seçildi","","")

EndIf

 

 

if GUICtrlRead($nCheckBox3) = $GUI_CHECKED Then

;~ ShellExecuteWait("Dosya ismi.exe","istiyorsan parametreyi buraya ekle","Dosyanın Yeri","")

MsgBox(0,"","CheckBox 3 Seçildi","","")

EndIf

EndFunc

 

Buyur kardeşim.
Takıldığın yer veya ilgili bir sorun olursa buradayız.

Edited August 9, 2013 by Dj Demir

[byMaPa]

seçilenleri kaldırın kodu ne peki?

[Dj Demir]

Nerede olacak tabi ki yok :)
Öyle bir şey istediğini hatırlamıyorum :)

Al kardeş!

Tamamı

 

 

 

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

 

$nGui = GUICreate("Pencere", 200, 214, 192, 124)

$nKur = GUICtrlCreateButton("Kur", 110, 152, 91, 41)

$nIptal = GUICtrlCreateButton("Iptal", 10, 152, 91, 41)

$nCheckbox1 = GUICtrlCreateCheckbox("Checkbox1", 48, 20, 105, 25)

$nCheckbox2 = GUICtrlCreateCheckbox("Checkbox2", 48, 60, 97, 17)

$nCheckbox3 = GUICtrlCreateCheckbox("Checkbox3", 48, 100, 97, 17)

GUISetState(@SW_SHOW)

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $nKur

_Kur()

Case $nIptal

_Iptal()

EndSwitch

WEnd

 

Func _Kur()

if GUICtrlRead($nCheckBox1) = $GUI_CHECKED Then

;~ ShellExecuteWait("Dosya ismi.exe","istiyorsan parametreyi buraya ekle","Dosyanın Yeri","")

MsgBox(0,"","CheckBox 1 Seçildi","","")

EndIf

if GUICtrlRead($nCheckBox2) = $GUI_CHECKED Then

;~ ShellExecuteWait("Dosya ismi.exe","istiyorsan parametreyi buraya ekle","Dosyanın Yeri","")

MsgBox(0,"","CheckBox 2 Seçildi","","")

EndIf

if GUICtrlRead($nCheckBox3) = $GUI_CHECKED Then

;~ ShellExecuteWait("Dosya ismi.exe","istiyorsan parametreyi buraya ekle","Dosyanın Yeri","")

MsgBox(0,"","CheckBox 3 Seçildi","","")

EndIf

EndFunc

 

Func _Iptal()

GUICtrlSetState($nCheckbox1, $GUI_UNCHECKED)

GUICtrlSetState($nCheckbox2, $GUI_UNCHECKED)

GUICtrlSetState($nCheckbox3, $GUI_UNCHECKED)

MsgBox(0,"","Seçimler iptal Edildi","","")

EndFunc

 

Edited August 11, 2013 by Dj Demir

[byMaPa]

Nerede olacak tabi ki yok :)
Öyle bir şey istediğini hatırlamıyorum :)

Al kardeş!

Tamamı

 

bu da tamam :) peki pencere açılınca kapat a basınca kapanmıyor. bunu nasıl ayarlayabiliriz

[Dj Demir]

bu da tamam :) peki pencere açılınca kapat a basınca kapanmıyor. bunu nasıl ayarlayabiliriz

Bende öyle bir durum söz konusu değil ki

Sende de öyle bir şey olmaması lazım.
Çünkü şu satır;

 

Case $GUI_EVENT_CLOSE

Exit

kapanması içindir

Edited August 11, 2013 by Dj Demir

[reyiz]

Kapat tuşuna bastığınızda fonksiyonun içerisindeki komutlar işlendiğinden program kapanmaz. Programın kapanıp kapanmadığını döngü içerisinden kontrol etmeniz gerekiyor.