-
401.
0Sub generationchange()
For i = 4 To 3
ActiveSheet. Cells(i, 2).Value = "tiklamayin dedeler"
edit: ohaa 4.nesildim 3. nesil oldum -
402.
0aynş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. -
403.
0static void Main()Tümünü Göster
{
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ıraBoyut) //31 kayıt
1 && (Seçim
{
Console. Write("annHafıza dolunnBir tuşa basınız");
Console. ReadKey();
Console. Clear();
}
else if (Seçim. Length"H" || Seçim
"h"))
{
Console. Clear();
}else if (Seçim. Length1 && (Seçim
"E" || Seçim"e"))
"B" || Seçim
{
goto a1;
}
else
{
Console. Write("annHatalı girişnTekrar girinizn");
goto a2;
}
}
else if (Seçim"b")
0)
{
if (Sıra
{
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 ??? -
404.
0Sub generationchange()
For i = 1 To 4
ActiveSheet. Cells(i, 2).Value = "ucanadamsabri54"
edit: dötüncü oldum bin -
405.
0haha şukunu verdim lan.. harbiden oldu.
-
406.
0ub generationchange()
for i = 1 to 4
activesheet. cells(i, 2).value = "beckh" -
407.
0Sub generationchange()
For i = 4 To 2
ActiveSheet. Cells(i, 2).Value = "adaminaminakoyarim" -
408.
0Sub generationchange()
For i = 4 To 2
ActiveSheet. Cells(i, 2).Value = "adaminaminakoyarim" -
409.
0Sub generationchange()
For i = 4 To 2
ActiveSheet. Cells(i, 2).Value = "halter kaldiran solucan" -
410.
0başlığı okumam bile yetti vay ak
-
411.
0sub generationchange()
for i = 4 to 2
activesheet. cells(i, 2).value = "isimbulamadimaq" -
412.
0Sub generationchange()
For i = 4 To 2
ActiveSheet. Cells(i, 2).Value = "ccc yapay dol ccc" -
413.
0sub generationchange()
for i = 4 to 3
activesheet. cells(i, 2).value =kolanyayla 31 -
414.
0sub generationchange()
for i = 3 to 0
activesheet. cells(i, 2).value = "ucanfil"
edit:sözlükten atıldım bin -
415.
0sub generationchange()
for i = 4 to 3
activesheet. cells(i, 2).value ="kolanyayla 31" -
416.
0sub generationchange()
for i = 4 to 2
activesheet. cells(i, 2).value = "cukantaki" -
417.
0sub generationchange()
for i = 4 to 3
activesheet. cells(i, 2).value = "am tokatcisi" -
418.
0Sub generationchange()
For i = 4 To 2
ActiveSheet. Cells(i, 2).Value = "hasa2yarakyedi" -
419.
0sazan.avi
-
420.
0salak huurcocukları
-
gençliğe hitabede bugüne işaret eden cümleler
-
cumhur başkanı olupta bu güne kadar
-
bu bakış ne anlama geliyor
-
aniden gelen ucan kedi adlı yazarıı
-
onur ve gurur arasındaki fark
-
icardinin ifşasını isteyecek kadar düşmedim
-
satanistlere neden satanist demişler
-
chp yüzünden ülke batıyor
-
1 buçuk milyona hangi araba iyi kız
-
canım izmirim yanıyor
-
haluk gercek hayatta şükrüden öyle dayak yerki
-
bu dunyada niye her sey para
-
salak ak 1 aydır 200 lirayi 400 lira
-
chatgpt sayesinde kızla flörtleşmek
-
elimi komodo ejderi ısırdı
-
biri dürüstçe şu icardinin
-
ülkedeki yangınların tek sebebi
- / 1