2 Listeden işlem Yapıp 3. Listeye Aktarmak

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
darendeli
Byte3
Byte3
Mesajlar: 142
Kayıt: 06 Haz 2016, 16:55

2 Listeden işlem Yapıp 3. Listeye Aktarmak

Mesaj gönderen darendeli » 13 Eyl 2018, 00:19

1. ve 2. listelerde Rakamlar olacak Bu rakamları Butona Bastıgımda Sırayla Toplayıp 3. Listview e Aktarmak istiyorum 3. listview Olacak Bolumleri olsun diye 3 bolumu olan 1. sayı 2. sayı ve Sonuc gibi Alt Alta Kac rakam Varsa sonuclarıyla Yapmaya Calısıyorum...

Kod: Tümünü seç

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 538, 438, 192, 124)
$List1 = GUICtrlCreateList("", 32, 32, 121, 253)
$List2 = GUICtrlCreateList("", 176, 32, 121, 253)
$Button1 = GUICtrlCreateButton("Sonuçları aktar", 32, 344, 265, 33)
$List3 = GUICtrlCreateList("", 328, 32, 193, 253)
$Input1 = GUICtrlCreateInput("Input1", 32, 312, 121, 21)
$Input2 = GUICtrlCreateInput("Input2", 176, 312, 121, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd
Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..



Kullanıcı avatarı
BlueLife
Byte3
Byte3
Mesajlar: 143
Kayıt: 29 Ağu 2014, 20:42

Re: 2 Listeden işlem Yapıp 3. Listeye Aktarmak

Mesaj gönderen BlueLife » 13 Eyl 2018, 10:22

@darendeli
Anlatmak istediğini tam olarak anlamadım malesef. Aşağıdakini mi demek istiyorsun?
- Birinci ve ikinci listede sayılar olsun
- Listelerden seçim yapınca inputa yazılsın
- Butona basınca inputlardaki sayılar toplanıp üçüncü listeye yazılsın


Eğer öyleyse aşağıdaki ufak bir ek yaptım. Incelersin...

Kod: Tümünü seç

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 538, 438, 192, 124)
$List1 = GUICtrlCreateList("", 32, 32, 121, 253)
$List2 = GUICtrlCreateList("", 176, 32, 121, 253)
$Button1 = GUICtrlCreateButton("Sonuçları aktar", 32, 344, 265, 33)
$List3 = GUICtrlCreateList("", 328, 32, 193, 253)
$Input1 = GUICtrlCreateInput("55", 32, 312, 121, 21)
$Input2 = GUICtrlCreateInput("84", 176, 312, 121, 21)
GUISetState(@SW_SHOW)

GUICtrlSetData($List1, "55|95|125|") ; ....
GUICtrlSetData($List2, "84|11|65|") ; ....

#EndRegion ### END Koda GUI section ###
Local $Number1, $Number2
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $List1
			GUICtrlSetData($Input1,GUICtrlRead($List1))
		Case $List2
			GUICtrlSetData($Input2,GUICtrlRead($List2))

		Case $Button1
			$Number1 = Number(GUICtrlRead($Input1))
			$Number2 = Number(GUICtrlRead($Input2))
			GUICtrlSetData($List3,$Number1 & " + " & $Number2 & " = " & ($Number1 + $Number2) & "|")
	EndSwitch
WEnd

darendeli
Byte3
Byte3
Mesajlar: 142
Kayıt: 06 Haz 2016, 16:55

Re: 2 Listeden işlem Yapıp 3. Listeye Aktarmak

Mesaj gönderen darendeli » 13 Eyl 2018, 19:24

BlueLife Öncelikle Cevap Verdiginiz icin TeşekkurlerEvet Boyle Ama mesela hepsi icin Tıklamak istemiyorum tek tıkla sırayla hepsini toplayıp Listeye Aktarmak istiyorum İnputa Yazdırmak sartt degil oluyorsa sadece sonucları tek tıkla Aktarsın Yeter
Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..

Kullanıcı avatarı
BlueLife
Byte3
Byte3
Mesajlar: 143
Kayıt: 29 Ağu 2014, 20:42

Re: 2 Listeden işlem Yapıp 3. Listeye Aktarmak

Mesaj gönderen BlueLife » 14 Eyl 2018, 10:25

@darendeli
Numaraları listeye yazdırmadan önce bir arrayda sıralatırsan daha verimli olacaktır. Aşağıdaki örneği incelersin...

Kod: Tümünü seç

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=

;Elimizdeki sayıları arrayda sıralatalım.
Local $MY_NUMBERS[4][3] = [[3]] ;Toplam sıramız 3 olsun.

;Birinci listenin sayıları
$MY_NUMBERS[1][0] = 195
$MY_NUMBERS[2][0] = 175
$MY_NUMBERS[3][0] = 25

;Ikinci listenin sayıları
$MY_NUMBERS[1][1] = 132
$MY_NUMBERS[2][1] = 141
$MY_NUMBERS[3][1] = 348

Local $Form1 = GUICreate("Form1", 538, 438, 192, 124)
Local $List1 = GUICtrlCreateList("", 32, 32, 121, 253,10485760)
Local $List2 = GUICtrlCreateList("", 176, 32, 121, 253,10485760)
Local $Button1 = GUICtrlCreateButton("Yeni Numara Ekle", 32, 344, 265, 33)
Local $Button2 = GUICtrlCreateButton("Sonuçları aktar", 305, 344, 220, 33,1)
Local $List3 = GUICtrlCreateList("", 328, 32, 193, 253,10485760)
Local $Input1 = GUICtrlCreateInput("55", 32, 312, 121, 21)
Local $Input2 = GUICtrlCreateInput("84", 176, 312, 121, 21)
GUISetState(@SW_SHOW)

For $I = 1 to $MY_NUMBERS[0][0]
	GUICtrlSetData($List1, $MY_NUMBERS[$I][0] & "|")
	GUICtrlSetData($List2, $MY_NUMBERS[$I][1] & "|")
Next

#EndRegion ### END Koda GUI section ###
Local $Number1, $Number2
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$Number1 = Number(GUICtrlRead($Input1))
			$Number2 = Number(GUICtrlRead($Input2))
			If $Number1 = 0 Then
				GUICtrlSetState($Input1,256)
				ContinueLoop
			EndIf

			If $Number2 = 0 Then
				GUICtrlSetState($Input2,256)
				ContinueLoop
			EndIf

			$MY_NUMBERS[0][0] += 1
			Redim $MY_NUMBERS[$MY_NUMBERS[0][0] + 1][3]
			$MY_NUMBERS[$MY_NUMBERS[0][0]][0] = $Number1
			$MY_NUMBERS[$MY_NUMBERS[0][0]][1] = $Number2

			GUICtrlSetData($List1, $Number1 & "|")
			GUICtrlSetData($List2, $Number2 & "|")

		Case $Button2
			GUICtrlSetData($List3,"") ;Clear List
			For $I = 1 to $MY_NUMBERS[0][0]
				$MY_NUMBERS[$I][2] = $MY_NUMBERS[$I][0] + $MY_NUMBERS[$I][1]
				GUICtrlSetData($List3,$MY_NUMBERS[$I][0] & " + " & $MY_NUMBERS[$I][1] & " = " & $MY_NUMBERS[$I][2] & "|")
			Next
	EndSwitch
WEnd

darendeli
Byte3
Byte3
Mesajlar: 142
Kayıt: 06 Haz 2016, 16:55

Re: 2 Listeden işlem Yapıp 3. Listeye Aktarmak

Mesaj gönderen darendeli » 14 Eyl 2018, 11:35

BlueLife Yardımların icin Tesekkurler Sonuclar Olumlu

Bluelife Size Özel Mesaj Atamıyorum İletisim Kurabilecegim Bi Adress Verebilirmisiniz Bir Program Yazıyorum Yarıda Kaldı Birlikte Tamamlayabiliriz Belki Bu Liste isleminin Asıl Amacı olan Programdır...Kendime Özel Program o yüzden Burdan Vermedim Kodlarını
Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..

Kullanıcı avatarı
velociraptor
Yottabyte3
Yottabyte3
Mesajlar: 28441
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

Re: 2 Listeden işlem Yapıp 3. Listeye Aktarmak

Mesaj gönderen velociraptor » 14 Eyl 2018, 17:55

Değerli üyemiz Darendeli , BlueLife artkadaşımız Sordum.org un coderidir. kendisine sizin gibi birçok arkadaşımız kod veya program yazma teklifleri veya yardım talebinde bulunduğu için Prensip gereği özel mesajlarını kapalı tutuyor diye biliyorum ilaveten Forumu da vakti olduğu zamanlarda ziyaret edebiliyor. Şöyle düşünün eğer bu tarz istekleri olumlu yanıtlayıp herkesle Program kodlasa ozaman bizler sordum.org u kapatıp (işimizi bozup) sadece üyelere yardım etmek durumunda kalırız , Lütfen bazı isteklerde bulunurken Enpati kurunuz , Teşekürler
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free

darendeli
Byte3
Byte3
Mesajlar: 142
Kayıt: 06 Haz 2016, 16:55

Re: 2 Listeden işlem Yapıp 3. Listeye Aktarmak

Mesaj gönderen darendeli » 14 Eyl 2018, 18:35

Benim Program Dedigim Buyuk bir Sey degildi ama Verdigim Liste Orneginin Farklı Bir Hali Bir Siteden Veri Cekiyorum Bu veriler Listeleniyor Bunları Baska Bir Siteden Analiz Ettirip Sonuclarını 3. Listeye Aktarma yapmak Nasıl Yapıldıgını ogrenmek istiyorum Ama Neyse Kolay Gelsin Tesekkurler İlginiz icin.....
En son darendeli tarafından 15 Eyl 2018, 00:10 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..

Kullanıcı avatarı
velociraptor
Yottabyte3
Yottabyte3
Mesajlar: 28441
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

Re: 2 Listeden işlem Yapıp 3. Listeye Aktarmak

Mesaj gönderen velociraptor » 14 Eyl 2018, 19:07

Bu arada umarım BlueLife arkadaşımız forumu ziyaret ettiğinde size yardımcı olur , üsttekiler benim görüşümdür , Sakın yazdığımı yanlış anlamayın. sorularınız forumu renklendiriyor . lakin bir projenin veya kodlamanın tamamı konusundaki istekler işin rengini değiştiriyor.
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free

Kullanıcı avatarı
BlueLife
Byte3
Byte3
Mesajlar: 143
Kayıt: 29 Ağu 2014, 20:42

Re: 2 Listeden işlem Yapıp 3. Listeye Aktarmak

Mesaj gönderen BlueLife » 14 Eyl 2018, 20:23

@darendeli

velociraptor-ün belirttği üzere ortak program için malesef yeterli zaman ayıramam. Sordum.org daki bir çok programında güncellenmesi gerekiyor lakin malesef beklemede :(
Çalışmanda takıldığın/çözüm üretemediğin kısımlarda forumdan sorarsan elimizden geldiği kadar yardımcı olmaya çalışırız. Geçenlerde sorduğun autoitteki ie udfleri ile alakalı kısıma gelirsek, daha önceden yazdığım üzere ie udf leriyle gelen komutlar malesef her sistemde düzgün çalışmıyor. Yani sorunlu sayılır. Geçenelerde açtığın konuya bu nedenle yanıt yazmamıştım.

Neyse çok fazla yardımcı olamadım, kusura bakma. Çalışmalarında başarılar dilerim.
İyi forumlar...

darendeli
Byte3
Byte3
Mesajlar: 142
Kayıt: 06 Haz 2016, 16:55

Re: 2 Listeden işlem Yapıp 3. Listeye Aktarmak

Mesaj gönderen darendeli » 15 Eyl 2018, 00:07

Estagfrullah Yanlıs anlamadım... Blue Life Sizede Cok tesekkur Ederim Saat 10 gibi Hep yazmısmı acaba Diye Kontrol Ediyorum Yanıtlarınızı.. Cok dakiksiniz.. O civarlarda Yanıtladınız Her sorumu Sagolun....
Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..

Kullanıcı avatarı
BlueLife
Byte3
Byte3
Mesajlar: 143
Kayıt: 29 Ağu 2014, 20:42

Re: 2 Listeden işlem Yapıp 3. Listeye Aktarmak

Mesaj gönderen BlueLife » 15 Eyl 2018, 10:08

Rica ederim. Genelde sabahları forumdaki bu bölüme göz atıyorum. Fazla uzun sürmeyecek veyahut ilgimi çekecek bir konu varsa bir şeyler karalamaya çalışıyorum. Her konuda başarılar dilerim. Kolay gelsin...

Cevapla