Veri Taramak

[MehmetISBILIR]

şimdi aklıma birşeyler geldi

[img]http://img255.imageshack.us/img255/9509/akau.jpg[/img]

şöyle birşey ki
a)
isim kısmına [b]ali[/b] yazınca en aşağıda %100 kadar 1dk tarasın ve dialog açılsın [b]mühendis[/b] yazsın
isim kısmına [b]veli[/b] yazınca en aşağıda %100 kadar 1dk tarasın ve dialog açılsın [b]amele[/b] yazsın
isim kısmına [b]konya[/b] yazınca en aşağıda %100 kadar 1dk tarasın ve dialog açılsın [b]aşçı[/b] yazsın


isim razgele olunca sonuç kısmında 8 karakter (rakam+sayı) anlamsız birşeyler çıkması....

a = kısmını yaptım ama zamanlamayı yapamadım

[KintaRo]

[codebox]sMetin = Input.GetText("Input1")

if sMetin == "ali" then
for i=1,100 do
Label.SetText("Label2", "Taranıyor.. (%" .. i .. ")")
Application.Sleep(50)
end
Dialog.Message("Sonuç:", "Mühendis", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)
elseif sMetin == "veli" then
for i=1,100 do
Label.SetText("Label2", "Taranıyor.. (%" .. i .. ")")
Application.Sleep(50)
end
Dialog.Message("Sonuç:", "amele", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)
elseif sMetin == "konya" then
for i=1,100 do
Label.SetText("Label2", "Taranıyor.. (%" .. i .. ")")
Application.Sleep(50)
end
Dialog.Message("Sonuç:", "aşçı", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)
else
Dialog.Message("Sonuç:", Math.Random(321321, 987987).. "F^'GF^'" .. Math.Random(654654, 789987), MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)

end[/codebox]



[quote]http://www.mediafire.com/?wdek2zt25a3yk0q[/quote]

[MehmetISBILIR]

vay vay tam istediğm gibi az bir değişiklik yaptım ama olmadı

if sMetin == "" then
for i=1,100 do
Label.SetText("Label2", "Taranıyor.. (%" .. i .. ")")
Application.Sleep(50)
end
Dialog.Message("Sonuç:", Math.Random(321321, 987987) .. Math.Random(abcd, ABCD) .. Math.Random(654654, 789987), MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)
end

burdaki Math.Random(AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpRrSsTtUuVvYyZzQq1234567890) dan oluşturmanız mümkün mü

ve isim boş kalırsa yine çalıştı isim yazınız gibi bir diyalog olur mu yapamadım

[KintaRo]

Maalesef Math.Random sadece sayılar içindir ama kodları isteğine göre düzenledim. Artık harfleride karıştırıyor. Buttondaki kodları aşağıdakilerle değiştir:

[quote]sMetin = Input.GetText("Input1")

if sMetin == "ali" then
for i=1,100 do
Label.SetText("Label2", "Taranıyor.. (%" .. i .. ")")
Application.Sleep(50)
end
Dialog.Message("Sonuç:", "Mühendis", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)
Label.SetText("Label2", "İşlem Bekleniyor...")
elseif sMetin == "veli" then
for i=1,100 do
Label.SetText("Label2", "Taranıyor.. (%" .. i .. ")")
Application.Sleep(50)
end
Dialog.Message("Sonuç:", "amele", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)
Label.SetText("Label2", "İşlem Bekleniyor...")
elseif sMetin == "konya" then
for i=1,100 do
Label.SetText("Label2", "Taranıyor.. (%" .. i .. ")")
Application.Sleep(50)
end
Dialog.Message("Sonuç:", "aşçı", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)
Label.SetText("Label2", "İşlem Bekleniyor...")
elseif sMetin == "" then
Dialog.Message("Sonuç:", "isim yazınız", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)
else
tRastgele = {};
sRastgele = "";

tTablo = {"A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","R","S","T","U","V","Y","Z","X","W","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","r","s","t","u","v","y","z","x","w"};
nCount = Table.Count(tTablo)
for i=1,5 do
nSec = Math.Random(1, nCount)
sSec = tTablo[nSec]
Table.Insert(tRastgele, Table.Count(tRastgele)+1, sSec)
end
for i=1,5 do
sRastgele= sRastgele..tRastgele[i]
end

Dialog.Message("",Math.Random(321654, 987654)..sRastgele..Math.Random(23154, 45674))

end[/quote]

[MehmetISBILIR]

KintaRo çok saol tam istediğim gibi oldu