Formlar

isaavcı · 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

djonur007 · June 12, 2010

bunun anlatımını videolu olarak yaptım. ilk önce araştırma yap!.

isaavcı · 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

Mytolocia · June 12, 2010

Onlar da anlatıldı hepsini seç tümünü kaldır vs .. !

djonur007 · 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.

isaavcı · 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.

isaavcı · 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

================

djonur007 · June 18, 2010

doğru yapmışsın evet. anlatmak istediğimde buydu...

Sign In

Formlar

Recommended Posts

isaavcı

Link to comment

Share on other sites

djonur007

Link to comment

Share on other sites

isaavcı

Link to comment

Share on other sites

Mytolocia

Link to comment

Share on other sites

djonur007

Link to comment

Share on other sites

isaavcı

Link to comment

Share on other sites

isaavcı

Link to comment

Share on other sites

djonur007

Link to comment

Share on other sites

Archived

Recently Browsing 0 members

Browse

Activity