1. sayfa (Toplam 1 sayfa)
Autoit çözemediğim bir soru? - Çözüldü
Gönderilme zamanı: 27 Oca 2018, 04:53
gönderen anxious
Arkadaşlar,benim 6 arkadaşım var Bunlar : ahmet,mehmet,mustafa,şenay,şakir,yusuf
Arkadaşlarım sırayla meyvelerin tadına bakacak meyvelerin tadı manavdaki meyve ise ahmet Hangi meyve olduğunu yazacak ve sıra mehmete geçecek mehmet de sırayla bakacak sıra mustafaya...
Yapmaya çalıştım ama beceremedim
Kod: Tümünü seç
#include <array.au3>
$Manav = "Muz"
Local $Isimler[6] = ["Ahmet", "Mehmet", "Mustafa", "Şenay", "şakir", "Yusuf"]
Local $Meyveler[5] = ["Elma", "Armut", "Muz", "Cilek", "Uzum"]
For $i = 0 To UBound($Meyveler) - 1
ConsoleWrite($Isimler[$i] & "&" & $Meyveler[$i] & @CRLF)
ConsoleWrite("" & @CRLF)
If $Meyveler[$i] = $Manav Then
ConsoleWrite("Bulunan Meyve : " & $Meyveler[$i] & @CRLF)
ContinueLoop
Else
ContinueLoop
;~ ConsoleWrite($Isimler[$i] & "&" & $Meyveler[$i] & @CRLF)
EndIf
Next
Normalde console çıktısı şöyle olması gerekir
Ahmet&Elma
Ahmet&Armut
Ahmet&Muz
Ahmet --> Bulunan Meyve : Muz
Mehmet&Elma
Mehmet&Armut
Mehmet&Muz
Mehmet --> Bulunan Meyve : Muz
Re: Autoit çözemediğim bir soru?
Gönderilme zamanı: 27 Oca 2018, 11:17
gönderen BlueLife
@anxious
Yanlış anlamadıysam düzeltme aşağıda. İncelersin, kolay gelsin...
Kod: Tümünü seç
#include <array.au3>
$Manav = "Muz"
Local $Isimler[6] = ["Ahmet", "Mehmet", "Mustafa", "Şenay", "şakir", "Yusuf"]
Local $Meyveler[5] = ["Elma", "Armut", "Muz", "Cilek", "Uzum"]
For $X = 0 to UBound($Isimler) - 1
For $i = 0 To UBound($Meyveler) - 1
ConsoleWrite($Isimler[$X] & "&" & $Meyveler[$i] & @CRLF)
If $Meyveler[$i] = $Manav Then
ConsoleWrite("Bulunan Meyve : " & $Meyveler[$i] & @CRLF)
ExitLoop ;Bunu silersen diğer meyveleride console yazdırır
EndIf
Next
ConsoleWrite("-----------------" & @CRLF)
Next
Re: Autoit çözemediğim bir soru?
Gönderilme zamanı: 27 Oca 2018, 17:10
gönderen anxious
Evet doğru anlamışsınız teşekkür ederim.
Ufak bir soru daha sorabilirmiyim?
Eğer muzu bulan kişi hangisi ise hangi ilde bulmuş bulunduysa diğer ile geçmesi için nasıl bir kod olması gerekir?
Kod: Tümünü seç
#include <array.au3>
$Manav = "Muz"
Local $iller[4] = ["malatya", "adiyaman", "rize", "istanbul"]
Local $Isimler[6] = ["Ahmet", "Mehmet", "Mustafa", "Senay", "sakir", "Yusuf"]
Local $Meyveler[5] = ["Elma", "Armut", "Muz", "Cilek", "Uzum"]
For $m = 0 To UBound($iller) - 1
For $X = 0 To UBound($Isimler) - 1
For $i = 0 To UBound($Meyveler) - 1
ConsoleWrite($iller[$m] & " & " & $Isimler[$X] & " & " & $Meyveler[$i] & @CRLF)
If $Meyveler[$i] = $Manav And $iller[$i] Then
ConsoleWrite("Bulunan il : " & $iller[$m] & " Bulan Kişi : " & $Isimler[$X] & " Bulunan Meyve : " & $Meyveler[$i] & @CRLF)
ExitLoop
EndIf
Next
ConsoleWrite("-----------------" & @CRLF)
Next
ConsoleWrite("-----------------" & @CRLF)
Next
İstediğim çıktı şu olmalı
malatya & Ahmet & Elma
malatya & Ahmet & Armut
malatya & Ahmet & Muz
Bulunan il : malatya Bulan Kiþi : Ahmet Bulunan Meyve : Muz
-----------------
adiyaman & Ahmet & Elma
adiyaman & Ahmet & Armut
adiyaman & Ahmet & Muz
Bulunan il : adiyaman Bulan Kiþi : Ahmet Bulunan Meyve : Muz
-----------------
Re: Autoit çözemediğim bir soru?
Gönderilme zamanı: 28 Oca 2018, 02:12
gönderen darendeli
istedigin Söyle Birsey Ekledim Ama Cıkısta Sürekli Değiştirme işlemi Yaptıgı için Error Veriyor Sehir Bitince Durması Gerek :D
Kod: Tümünü seç
#include <array.au3>
$Manav = "Muz"
Local $iller[4] = ["malatya", "adiyaman", "rize", "istanbul"]
Local $Isimler[6] = ["Ahmet", "Mehmet", "Mustafa", "Senay", "sakir", "Yusuf"]
Local $Meyveler[5] = ["Elma", "Armut", "Muz", "Cilek", "Uzum"]
For $m = 0 To UBound($iller)- 1
For $X = 0 To UBound($Isimler) - 1
For $i = 0 To UBound($Meyveler) - 1
ConsoleWrite($iller[$m] & " & " & $Isimler[$X] & " & " & $Meyveler[$i] & @CRLF)
If $Meyveler[$i] = $Manav = $iller[$m] Then
ConsoleWrite("Bulunan il : " & $iller[$m] & " Bulan Kişi : " & $Isimler[$X] & " Bulunan Meyve : " & $Meyveler[$i] & @CRLF)
$m += 1
ExitLoop
EndIf
Next
ConsoleWrite("-----------------" & @CRLF)
Next
ConsoleWrite("-----------------" & @CRLF)
Next
Re: Autoit çözemediğim bir soru?
Gönderilme zamanı: 28 Oca 2018, 04:39
gönderen anxious
Seninkisi bu sefer $Isimler ExitLoop tan çıkıp başa dönmüyor,Aslında If IsArray($iller) Then ile hatanın önüne geçilebilir fakat ben beceremedim :)
Yeni demek istediğim şu örneğin ben $isim değişkenine = "Ahmet" Yazarsam senin döngü Ahmeti bulamaz ve döngü biter
Kod: Tümünü seç
#include <array.au3>
$Manav = "Muz"
$isim = "Ahmet"
Local $iller[4] = ["malatya", "adiyaman", "rize", "istanbul"]
Local $Isimler[6] = ["Ahmet", "Mehmet", "Mustafa", "Senay", "sakir", "Yusuf"]
Local $Meyveler[5] = ["Elma", "Armut", "Muz", "Cilek", "Uzum"]
Re: Autoit çözemediğim bir soru?
Gönderilme zamanı: 28 Oca 2018, 12:16
gönderen BlueLife
@anxious
Geç yanıt verdiysem kusura bakma. Foruma yeni girdim. Bu şekilde bir işlem yaparken çoklu dizler daha avantajlıdır.
Aşağıdaki örneği incelersin...
Kod: Tümünü seç
#include <array.au3>
$Manav = "Muz"
Local $Meyveler[6] = [5,"Elma", "Armut", "Muz", "Cilek", "Uzum"]
Local $Isimler[7][2] = [[6]] ; İsim Sayısı
$Isimler[1][0] = "Ahmet"
$Isimler[1][1] = "Malatya"
$Isimler[2][0] = "Mehmet"
$Isimler[2][1] = "Adiyaman"
$Isimler[3][0] = "Mustafa"
$Isimler[3][1] = "Rize"
$Isimler[4][0] = "Senay"
$Isimler[4][1] = "istanbul"
$Isimler[5][0] = "Sakir"
$Isimler[5][1] = "Giresun"
$Isimler[6][0] = "Yusuf"
$Isimler[6][1] = "Bolu"
;~ _ArrayDisplay($Isimler)
For $X = 1 to $Isimler[0][0]
For $i = 1 To $Meyveler[0]
ConsoleWrite($Isimler[$X][1] & " & " & $Isimler[$X][0] & " & " & $Meyveler[$i] & @CRLF)
If $Meyveler[$i] = $Manav Then
ConsoleWrite("Bulunan il : " &$Isimler[$X][1] & " Bulan Kisi : " & $Isimler[$X][0] & " Bulunan Meyve : " & $Meyveler[$i] & @CRLF)
ExitLoop ;Bunu silersen diğer meyveleride console yazdırır
EndIf
Next
ConsoleWrite("-----------------" & @CRLF)
Next
Re: Autoit çözemediğim bir soru?
Gönderilme zamanı: 28 Oca 2018, 14:01
gönderen anxious
Bluelife Yok bu değil benim istediğim
Aslında istediğim tam olarak şu fakat iller bitince hata veriyor
Kod: Tümünü seç
#include <array.au3>
$Manav = "Muz"
Local $iller[4] = ["malatya", "adiyaman", "rize", "istanbul"]
Local $Isimler[6] = ["Ahmet", "Mehmet", "Mustafa", "Senay", "sakir", "Yusuf"]
Local $Meyveler[5] = ["Elma", "Armut", "Muz", "Cilek", "Uzum"]
For $m = 0 To UBound($iller)- 1
For $X = 0 To UBound($Isimler) - 1
For $i = 0 To UBound($Meyveler) - 1
If $Meyveler[$i] = $Manav = $iller[$m] Then
ConsoleWrite($iller[$m] & " & " & $Isimler[$X] & " & " & $Meyveler[$i] & @CRLF)
ConsoleWrite("Bulunan il : " & $iller[$m] & " Bulan Kişi : " & $Isimler[$X] & " Bulunan Meyve : " & $Meyveler[$i] & @CRLF)
$m += 1
$X -= 1
ExitLoop
EndIf
Next
ConsoleWrite("-----------------" & @CRLF)
Next
ConsoleWrite("-----------------" & @CRLF)
Next
Re: Autoit çözemediğim bir soru?
Gönderilme zamanı: 28 Oca 2018, 15:32
gönderen BlueLife
@anxious
Nasıl bir şey yapmak isteğini malesef anlamadım. Illeri neye göre belirliyorsun? Yani bir isim farklı illerden olacak şekilde türetmemi yapacaksın.
Yoksa her isim bir şehirden mi olacak. Her isime karşılık bir il şeklinde çalışmak istersen iller ile isimler aynı sayıda olmalı.
Kod: Tümünü seç
#include <array.au3>
Local $Manav = "Muz"
Local $iller[6] = ["malatya", "adiyaman", "rize", "istanbul","Giresun","Antalya"]
Local $Isimler[6] = ["Ahmet", "Mehmet", "Mustafa", "Senay", "sakir", "Yusuf"]
Local $Meyveler[5] = ["Elma", "Armut", "Muz", "Cilek", "Uzum"]
For $X = 0 To UBound($Isimler) - 1
For $i = 0 To UBound($Meyveler) - 1
If $Meyveler[$i] = $Manav Then
ConsoleWrite($iller[$X] & " & " & $Isimler[$X] & " & " & $Meyveler[$i] & @CRLF)
ConsoleWrite("Bulunan il : " & $iller[$X] & " Bulan Kişi : " & $Isimler[$X] & " Bulunan Meyve : " & $Meyveler[$i] & @CRLF)
ExitLoop
EndIf
Next
ConsoleWrite("-----------------" & @CRLF)
Next
Re: Autoit çözemediğim bir soru?
Gönderilme zamanı: 28 Oca 2018, 17:39
gönderen anxious
Şu durumda
Kod: Tümünü seç
#include <array.au3>
Local $Manav = "Muz"
Local $isim = "Yusuf"
Local $iller[6] = ["malatya", "adiyaman", "rize", "istanbul","Giresun","Antalya"]
Local $Isimler[6] = ["Ahmet", "Mehmet", "Mustafa", "Senay", "sakir", "Yusuf"]
Local $Meyveler[5] = ["Elma", "Armut", "Muz", "Cilek", "Uzum"]
For $X = 0 To UBound($Isimler) - 1
For $i = 0 To UBound($Meyveler) - 1
If $Meyveler[$i] = $Manav Or $Isimler[$X] = $isim Then
ConsoleWrite($iller[$X] & " & " & $Isimler[$X] & " & " & $Meyveler[$i] & @CRLF)
ConsoleWrite("Bulunan il : " & $iller[$X] & " Bulan Kişi : " & $Isimler[$X] & " Bulunan Meyve : " & $Meyveler[$i] & @CRLF)
ExitLoop
EndIf
Next
ConsoleWrite("-----------------" & @CRLF)
Next
Console çıktı şöyle olmalı
malatya & Yusuf & Muz
Bulunan il : malatya Bulan Kiþi : Yusuf Bulunan Meyve : Muz
-----------------
adiyaman & Yusuf & Muz
Bulunan il : adiyaman Bulan Kiþi : Yusuf Bulunan Meyve : Muz
-----------------
rize & Yusuf & Muz
Bulunan il : rize Bulan Kiþi : Yusuf Bulunan Meyve : Muz
-----------------
istanbul & Yusuf & Muz
Bulunan il : istanbul Bulan Kiþi : Yusuf Bulunan Meyve : Muz
-----------------
Giresun & Yusuf & Muz
Bulunan il : Giresun Bulan Kiþi : Yusuf Bulunan Meyve : Muz
-----------------
Antalya & Yusuf & Elma
Bulunan il : Antalya Bulan Kiþi : Yusuf Bulunan Meyve : Elma
ve şunların sayısı belli değil değişebilir
Local $iller
Local $Isimler
Local $Meyveler
Re: Autoit çözemediğim bir soru?
Gönderilme zamanı: 28 Oca 2018, 20:32
gönderen BlueLife
@anxious
Incelersin, umarım bu sefer seni doğru anlamışımdır
Kod: Tümünü seç
#include <array.au3>
Local $Manav = "Muz"
Local $iller[5] = ["malatya", "adiyaman", "rize", "istanbul","Giresun"]
Local $Isimler[6] = ["Ahmet", "Mehmet", "Mustafa", "Senay", "sakir", "Yusuf"]
Local $Meyveler[5] = ["Elma", "Armut", "Muz", "Cilek", "Uzum"]
For $X = 0 To UBound($Isimler) - 1
For $i = 0 To UBound($Meyveler) - 1
If $Meyveler[$i] = $Manav Then
For $m = 0 To UBound($iller)- 1
ConsoleWrite($iller[$m] & " & " & $Isimler[$X] & " & " & $Meyveler[$i] & @CRLF)
ConsoleWrite("Bulunan il : " & $iller[$m] & " Bulan Kişi : " & $Isimler[$X] & " Bulunan Meyve : " & $Meyveler[$i] & @CRLF)
ConsoleWrite("-----------------" & @CRLF)
Next
ExitLoop
EndIf
Next
Next
Re: Autoit çözemediğim bir soru?
Gönderilme zamanı: 28 Oca 2018, 21:31
gönderen anxious
iller bitince isim döngüsü devam ediyor.
Benim istediğim iller bitince işlemin sonlanması
Re: Autoit çözemediğim bir soru?
Gönderilme zamanı: 28 Oca 2018, 22:54
gönderen BlueLife
@anxious
ExitLoop ile döngüden çık :)
Kod: Tümünü seç
#include <array.au3>
Local $Manav = "Muz"
Local $iller[5] = ["malatya", "adiyaman", "rize", "istanbul","Giresun"]
Local $Isimler[6] = ["Ahmet", "Mehmet", "Mustafa", "Senay", "sakir", "Yusuf"]
Local $Meyveler[5] = ["Elma", "Armut", "Muz", "Cilek", "Uzum"]
For $X = 0 To UBound($Isimler) - 1
For $i = 0 To UBound($Meyveler) - 1
If $Meyveler[$i] = $Manav Then
For $m = 0 To UBound($iller)- 1
ConsoleWrite($iller[$m] & " & " & $Isimler[$X] & " & " & $Meyveler[$i] & @CRLF)
ConsoleWrite("Bulunan il : " & $iller[$m] & " Bulan Kişi : " & $Isimler[$X] & " Bulunan Meyve : " & $Meyveler[$i] & @CRLF)
ConsoleWrite("-----------------" & @CRLF)
Next
ExitLoop
EndIf
Next
ExitLoop
Next
Tabi bir değişken ile kontrolde yapabilrisin.
Kod: Tümünü seç
#include <array.au3>
Local $Manav = "Muz"
Local $iller[5] = ["malatya", "adiyaman", "rize", "istanbul","Giresun"]
Local $Isimler[6] = ["Ahmet", "Mehmet", "Mustafa", "Senay", "sakir", "Yusuf"]
Local $Meyveler[5] = ["Elma", "Armut", "Muz", "Cilek", "Uzum"]
Local $Bulundu = 0
For $X = 0 To UBound($Isimler) - 1
For $i = 0 To UBound($Meyveler) - 1
If $Meyveler[$i] = $Manav Then
For $m = 0 To UBound($iller)- 1
ConsoleWrite($iller[$m] & " & " & $Isimler[$X] & " & " & $Meyveler[$i] & @CRLF)
ConsoleWrite("Bulunan il : " & $iller[$m] & " Bulan Kişi : " & $Isimler[$X] & " Bulunan Meyve : " & $Meyveler[$i] & @CRLF)
ConsoleWrite("-----------------" & @CRLF)
$Bulundu = 1
Next
ExitLoop
EndIf
Next
If $Bulundu = 1 Then ExitLoop
Next
Re: Autoit çözemediğim bir soru?
Gönderilme zamanı: 05 Şub 2018, 04:32
gönderen anxious
Teşekkürler
Peki hocam ben $isim diye bir değişken oluşturursam nasıl olacak böyle yaptım ama doğrumu yaptım bilmiyorum fakat istediğim sunuc doğru.
Birde aramayı durdurup tekrar başlattığımda aynı yerden devam ettirilebilirmi?
Kod: Tümünü seç
#include <array.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Local $Manav = "Elma"
Local $isim = "Mustafa"
Local $iller[5] = ["malatya", "adiyaman", "rize", "istanbul", "Giresun"]
Local $Isimler[6] = ["Ahmet", "Mehmet", "Mustafa", "Senay", "sakir", "Yusuf"]
Local $Meyveler[5] = ["Elma", "Armut", "Muz", "Cilek", "Uzum"]
$Form1 = GUICreate("Form1", 375, 145)
$ButtonSearchAndStop = GUICtrlCreateButton("Aramayı Başlat/ Veya Durdur", 32, 104, 299, 25)
$Label1 = GUICtrlCreateLabel("Label1", 8, 64, 332, 17)
GUISetState(@SW_SHOW)
Local $Bulundu = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ButtonSearchAndStop
For $X = 0 To UBound($Isimler) - 1
For $i = 0 To UBound($Meyveler) - 1
If $Meyveler[$i] = $Manav And $Isimler[$X] = $isim Then
For $m = 0 To UBound($iller) - 1
ConsoleWrite($iller[$m] & " & " & $Isimler[$X] & " & " & $Meyveler[$i] & @CRLF)
ConsoleWrite("Bulunan il : " & $iller[$m] & " Bulan Kişi : " & $Isimler[$X] & " Bulunan Meyve : " & $Meyveler[$i] & @CRLF)
ConsoleWrite("-----------------" & @CRLF)
$Bulundu = 1
Next
ExitLoop
EndIf
Next
If $Bulundu = 1 Then ExitLoop
Next
EndSwitch
WEnd
Re: Autoit çözemediğim bir soru?
Gönderilme zamanı: 05 Şub 2018, 11:46
gönderen BlueLife
@anxious
Evet doğru sayılır. Tabi programın gereksiz işlem yapmaması ve daha hızlı çalışması için bu kontrolü daha önce yapmalısın.
Diğer kısmı tam anlamadım ama aramayı tekrar başlatmak için $Bulundu değişkenini aramaya başlamadan tekrar 0 değerini verebilirsin.
İncelersin...
Kod: Tümünü seç
#include <array.au3>
Local $Manav = "Elma"
Local $isim = "Mustafa"
Local $iller[5] = ["malatya", "adiyaman", "rize", "istanbul", "Giresun"]
Local $Isimler[6] = ["Ahmet", "Mehmet", "Mustafa", "Senay", "sakir", "Yusuf"]
Local $Meyveler[5] = ["Elma", "Armut", "Muz", "Cilek", "Uzum"]
$Form1 = GUICreate("Form1", 375, 145)
$ButtonSearchAndStop = GUICtrlCreateButton("Aramayı Başlat/ Veya Durdur", 32, 104, 299, 25)
$Label1 = GUICtrlCreateLabel("Label1", 8, 64, 332, 17)
GUISetState(@SW_SHOW)
Local $Bulundu = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $ButtonSearchAndStop
$Bulundu = 0
For $X = 0 To UBound($Isimler) - 1
If $Isimler[$X] <> $isim Then ContinueLoop
For $i = 0 To UBound($Meyveler) - 1
If $Meyveler[$i] = $Manav Then ContinueLoop
For $m = 0 To UBound($iller) - 1
ConsoleWrite($iller[$m] & " & " & $Isimler[$X] & " & " & $Meyveler[$i] & @CRLF)
ConsoleWrite("Bulunan il : " & $iller[$m] & " Bulan Kişi : " & $Isimler[$X] & " Bulunan Meyve : " & $Meyveler[$i] & @CRLF)
ConsoleWrite("-----------------" & @CRLF)
$Bulundu = 1
Next
ExitLoop
Next
If $Bulundu = 1 Then ExitLoop
Next
EndSwitch
WEnd