Delphi Programlama 2 Sınavı

Sınıf ortalama 27,55 olarak gerçekleşmiştir. Bu ortalama sizin Programlama ve yazılıma duyduğunuz ilgiyi göstermektedir. Sınıfta en yüksek not 100 olarak gerçekleşmiştir. En düşük not ise yine 5 olup 5 öğrenci aynı notu almıştır. Cevap anahtarı aşağıda verilmektedir. Eksiklerinizi giderip derse daha iyi hazırlanmanız dileğiyle.

 1-      Metin kutusundan girilen değerden başlayıp her saniye değeri bir azalarak 0’a giden kronometre programını aşağıda gösterildiği gibi oluşturunuz. (Süre bittiğinde ilgili label’ e süre bitti yazacak) (15 Puan)

int süre;         private void button1_Click(object sender, EventArgs e)         {             süre = Convert.ToInt32(textBox1.Text);             label2.Text = süre.ToString();             timer1.Enabled = true;             timer1.Interval = 1000;             timer1.Start();         }  private void timer1_Tick(object sender, EventArgs e)         {             if (süre == 0)             { label2.Text = "süre bitti";}             else             { süre--; label2.Text = süre.ToString();}}

2-       Hesapla butonuna basıldığında datetimepicker’ dan girilen tarihi şimdiki tarihle çıkarıp gün olarak label’ e yazdıran programı yazınız.(10 Puan).

TimeSpan tt = DateTime.Now - dateTimePicker1.Value; label1.Text = tt.Days.ToString();

3-      Aşağıdaki şekilde görüldüğü gibi butona tıklandığında listbox1’ in elemanlarının 4’lü kombinasyonlarını listbox2’ ye atan programın kodlarını yazınız. (20 Puan)

for (int i = 0; i < listBox1.Items.Count; i++)             for (int j = i + 1; j < listBox1.Items.Count; j++)             for (int k = j + 1; k < listBox1.Items.Count; k++)             for (int t = k + 1; t < listBox1.Items.Count; t++)             listBox2.Items.Add(listBox1.Items[i].ToString() + listBox1.Items[j].ToString() + listBox1.Items[k].ToString() + listBox1.Items[t].ToString());

4-      Aşağıda gösterilen seçim programını adımlara uyarak kodlayınız

a)      + butonuna basıldığında metin kutusundaki elemanı liste kutusuna ekleyecek ve metin kutusu temizlenecek. (5 Puan)

b)      – butonuna basıldığında liste kutusundaki seçili eleman silinecek (5 Puan)

c)       Sıralı radyo butonu seçiliyken seç butonuna basıldığında liste kutusundaki elemanlar sırasıyla mesaj kutusunda görüntülenecek. (Örneğin butona 3. Kez basıldığında mesaj kutusu 3 yazdıracak 8 kez basıldığında 1 yazdıracak) (15 Puan)

d)      Rastgele radyo butonu seçiliyken seç butonuna basıldığında liste kutusundaki elemanlar rastgele mesaj kutusunda görüntülenecek. (10 Puan)

a)  listBox1.Items.Add(textBox1.Text);             textBox1.Text = ""; b)    listBox1.Items.Remove(listBox1.SelectedItem); c)  int sayac = 0;         private void button3_Click(object sender, EventArgs e)         {             if (radioButton1.Checked)             {                 sayac = sayac % listBox1.Items.Count;                 MessageBox.Show(listBox1.Items[sayac].ToString()); sayac++;  } d)    if (radioButton2.Checked)             { Random rnd = new Random();             int b = rnd.Next(0, listBox1.Items.Count);             MessageBox.Show(listBox1.Items[b].ToString());             }

5- Aşağıdaki program her bir yeteneğe 200 TL ekstra para vermektedir. Örneğin ham maaşı 1000 TL olan birinin 5 adet yeteneği varsa 1000 TL’de yeteneklerinden alacaktır ve toplam geliri 2000 TL olacaktır. Hesapla butonun altında gerçekleşen olayları yazınız. (Örnekte checkedListBox kullanılmıştır ama siz checkBox’ta kullanabilirsiniz) (20 Puan)

int maas = Convert.ToInt32(textBox1.Text);             int ekstra = checkedListBox1.CheckedItems.Count * 200;             textBox2.Text = ekstra.ToString();             textBox3.Text = (maas + ekstra).ToString();