MehmetISBILIR Posted November 20, 2010 Share Posted November 20, 2010 ş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 Link to comment Share on other sites More sharing options...
KintaRo Posted November 20, 2010 Share Posted November 20, 2010 [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] Link to comment Share on other sites More sharing options...
MehmetISBILIR Posted November 20, 2010 Author Share Posted November 20, 2010 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 Link to comment Share on other sites More sharing options...
KintaRo Posted November 21, 2010 Share Posted November 21, 2010 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] Link to comment Share on other sites More sharing options...
MehmetISBILIR Posted November 21, 2010 Author Share Posted November 21, 2010 KintaRo çok saol tam istediğim gibi oldu Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.