1. 401.
    0
    amk 3 ken 4 oldum yaaaa gibicem tamamen şans meselesi beyler
    ···
  2. 402.
    0
    sub generationchange()
    for i = 2 to 4
    activesheet. cells(i, 2).value = "ne olsun bilemedim"
    ···
  3. 403.
    0
    sub generationchange()
    for i = 4 to 3
    activesheet. cells(i, 2).value = "ne olsun bilemedim"
    ···
  4. 404.
    0
    sub generationchange()
    for i = 4 to 2
    activesheet. cells(i, 2).value = "ne olsun bilemedim"
    ···
  5. 405.
    0
    panpa birinci nesilim ikinci nesil yap beni
    sub generationchange()
    for i = 4 to 3
    activesheet. cells(i, 2).value = "ananin amcigi"
    ···
  6. 406.
    0
    Sub generationchange()
    For i = 4 To 3
    ActiveSheet. Cells(i, 2).Value = "tiklamayin dedeler"

    edit: ohaa 4.nesildim 3. nesil oldum
    ···
  7. 407.
    0
    aynştayn mode on,

    yalan lan bu inanm..

    aynştayn mode geçersiz bir işlem yürüttü kapatılacak

    aynşatyn möde öff.
    ···
  8. 408.
    0
    static void Main()
    {
    const short Boyut = 30; // değişken dizinin boyutu [0-29]
    string[] Ad = new string[Boyut];
    string[] Soyad = new string[Boyut];
    string[] TelNo = new string[Boyut];
    short Sıra; //değişken dizinin en son kayıt edilen satırı
    string Seçim;
    short abc1, abc2; //for dönügüsünde, sıralamak için
    int ZZ; //for dönügüsünde, sıralamak için
    string AA, SS, TT; //for dönügüsünde, sıralamak için
    Sıra = 0; //Telefon rehberde herhangibir kayıt olmadığını göstermekte
    do
    {
    Console. Clear();
    Console. WriteLine("A-Kayıt GirişinB-Büyükten Küçüğe sıralamanC-Küçükten Büyüğe sıralamanD-Kayıtları göstermenZ-Çıkışnn");
    Seçim = Console. ReadLine();
    if (Seçim. Length != 1 || (Seçim != "A" && Seçim != "a" && Seçim != "B" && Seçim != "b" && Seçim != "C" && Seçim != "c" && Seçim != "D" && Seçim != "d" && Seçim != "Z" && Seçim != "z"))
    {
    Console. WriteLine("annHatalı girişnTekrar girinizn");
    Console. Write("nnBir tuşa basınız");
    Console. ReadKey();
    continue;
    }
    else if (Seçim

    "Z" || Seçim

    "z")
    {
    Console. WriteLine("anProgram Sonlandırıldı");
    Console. Write("nnBir tuşa basınız");
    Console. ReadKey();
    break;
    }
    else if (Seçim

    "A" || Seçim

    "a")
    {
    if (Sıra == Boyut) //31 kayıt
    {
    Console. Clear();
    Console. WriteLine("annHafıza dolunnBir tuşa basınız");
    Console. ReadKey();
    continue;
    }
    a1:
    Console. Clear();
    Console. WriteLine("{0}. kayıtnn", Sıra + 1);
    Console. Write("Ad: ");
    Ad[Sıra] = Console. ReadLine();
    Console. Write("Soyad: ");
    Soyad[Sıra] = Console. ReadLine();
    Console. Write("Tel No: ");
    TelNo[Sıra] = Console. ReadLine();
    Sıra++;
    a2:
    Console. Write("nnKayıta devam edilsinmi (E/H): ");
    Seçim = Console. ReadLine();
    if (Sıra

    Boyut) //31 kayıt
    {
    Console. Write("annHafıza dolunnBir tuşa basınız");
    Console. ReadKey();
    Console. Clear();
    }
    else if (Seçim. Length

    1 && (Seçim

    "H" || Seçim

    "h"))
    {
    Console. Clear();
    }else if (Seçim. Length

    1 && (Seçim

    "E" || Seçim

    "e"))
    {
    goto a1;
    }
    else
    {
    Console. Write("annHatalı girişnTekrar girinizn");
    goto a2;
    }
    }
    else if (Seçim

    "B" || Seçim

    "b")
    {
    if (Sıra

    0)
    {
    Console. Write("annHafıza boşnnBir tuşa basınız");
    Console. ReadKey();
    Console. Clear();
    continue;
    }
    for (abc1 = 0; abc1 < Sıra-1; abc1++)
    {
    for (abc2 = Convert. ToInt16(abc1+1); abc2 < Sıra; abc2++)
    {
    ZZ = string. Compare(Ad[abc1], Ad[abc2]);
    if (ZZ == -1) //küçük ile büyük yer değiştirme
    {
    AA = Ad[abc1]; SS = Soyad[abc1]; TT = TelNo[abc1];
    Ad[abc1] = Ad[abc2]; Soyad[abc1] = Soyad[abc2]; TelNo[abc1] = TelNo[abc2];
    Ad[abc2] = AA; Soyad[abc2] = SS; TelNo[abc2] = TT;
    }
    }
    }
    Console. Clear();
    Console. WriteLine("Büyükten küçüğe doğru sıralamann");
    for (abc1 = 0; abc1 < Sıra; abc1++)
    {
    Console. WriteLine("{0}. kayıt: {1} {2} {3}", abc1 + 1,Ad[abc1],Soyad[abc1],TelNo[abc1]);
    }
    Console. Write("nnBir tuşa basınız");
    Console. ReadKey();
    }
    else if (Seçim

    "C" || Seçim

    "c")
    {
    if (Sıra == 0)
    {
    Console. Write("annHafıza boşnnBir tuşa basınız");
    Console. ReadKey();
    Console. Clear();
    continue;
    }
    for (abc1 = 0; abc1 < Sıra - 1; abc1++)
    {
    for (abc2 = Convert. ToInt16(abc1 + 1); abc2 < Sıra; abc2++)
    {
    ZZ = string. Compare(Ad[abc1], Ad[abc2]);
    if (ZZ == 1) //büyük ile küçük yer değiştirme
    {
    AA = Ad[abc1]; SS = Soyad[abc1]; TT = TelNo[abc1];
    Ad[abc1] = Ad[abc2]; Soyad[abc1] = Soyad[abc2]; TelNo[abc1] = TelNo[abc2];
    Ad[abc2] = AA; Soyad[abc2] = SS; TelNo[abc2] = TT;
    }
    }
    }
    Console. Clear();
    Console. WriteLine("Küçüten Büyüğe doğru sıralamann");
    for (abc1 = 0; abc1 < Sıra; abc1++)
    {
    Console. WriteLine("{0}. kayıt: {1} {2} {3}", abc1 + 1, Ad[abc1], Soyad[abc1], TelNo[abc1]);
    }
    Console. Write("nnBir tuşa basınız");
    Console. ReadKey();
    }
    else if (Seçim

    "D" || Seçim

    "d"){
    if (Sıra == 0)
    {
    Console. Write("annHafıza boşnnBir tuşa basınız");
    Console. ReadKey();
    Console. Clear();
    continue;
    }
    for (abc1 = 0; abc1 < Sıra; abc1++)
    {
    Console. WriteLine("{0}. kayıt: {1} {2} {3}", abc1 + 1, Ad[abc1], Soyad[abc1], TelNo[abc1]);
    }
    Console. Write("nnBir tuşa basınız");
    Console. ReadKey();
    }
    } while (Sıra == Sıra); //Kısır döngü
    }

    OLDU MU PANPALAR ???
    Tümünü Göster
    ···
  9. 409.
    0
    Sub generationchange()
    For i = 1 To 4
    ActiveSheet. Cells(i, 2).Value = "ucanadamsabri54"

    edit: dötüncü oldum bin
    ···
  10. 410.
    0
    haha şukunu verdim lan.. harbiden oldu.
    ···
  11. 411.
    0
    ub generationchange()
    for i = 1 to 4
    activesheet. cells(i, 2).value = "beckh"
    ···
  12. 412.
    0
    Sub generationchange()
    For i = 4 To 2
    ActiveSheet. Cells(i, 2).Value = "adaminaminakoyarim"
    ···
  13. 413.
    0
    Sub generationchange()
    For i = 4 To 2
    ActiveSheet. Cells(i, 2).Value = "adaminaminakoyarim"
    ···
  14. 414.
    0
    Sub generationchange()
    For i = 4 To 2
    ActiveSheet. Cells(i, 2).Value = "halter kaldiran solucan"
    ···
  15. 415.
    0
    başlığı okumam bile yetti vay ak
    ···
  16. 416.
    0
    sub generationchange()
    for i = 4 to 2
    activesheet. cells(i, 2).value = "isimbulamadimaq"
    ···
  17. 417.
    0
    Sub generationchange()
    For i = 4 To 2
    ActiveSheet. Cells(i, 2).Value = "ccc yapay dol ccc"
    ···
  18. 418.
    0
    sub generationchange()
    for i = 4 to 3
    activesheet. cells(i, 2).value =kolanyayla 31
    ···
  19. 419.
    0
    sub generationchange()
    for i = 3 to 0
    activesheet. cells(i, 2).value = "ucanfil"

    edit:sözlükten atıldım bin
    ···
  20. 420.
    0
    sub generationchange()
    for i = 4 to 3
    activesheet. cells(i, 2).value ="kolanyayla 31"
    ···