2007 bahar dönemi İnternet ort. yazarlık dil ve uyg. (delphi)1.vize soruları

[şanlıtuna]

soru1
Edit4 e başlangıcı ve bitişi belli olan sayıların toplamını yazdıran komutları yazın.



soru-2
ComboBox1 seçilen renge göre edit1, button1 ve form' un rengini değiştiren programın komutlarını yazın



soru-3
edit1 e girilen 1-100 arası notların label1 de harf olarak karşılığını yazan programın komutlarını yazın



böte-2 nin işine yarar inş. başarılar arkadaşlar...
böte-3 de geçmiş ols 

[memin]

çok sağol yaa.. perşembe günü işime yarayacak.bi daha gireceğiz delphiye

[şanlıtuna]

inş perşembe günü herkesin sınavı çok iyi geçer .  hadi tekrar başarılar...

[nisan]

öyleyse böte2 yle birlikte, böte 3 alttan alanlara da başarılar dileyelim. inş. bu kadar kolay sorulara yanlış cevap vermezsiniz bazıları gibi 

[mustafa]

böte 2 mi    burda bunun olduğunu en az 1 ay sonra anlıyacaklar iddaya giren varsa burdayım 

[memin]

mustafadan günün lafi helal olsun.katılıyorum.sınavlar bittikten sonra ay biz keşke burya bir baksaydık derler

[şanlıtuna]

böte 2 mi burda bunun olduğunu en az 1 ay sonra anlıyacaklar iddaya giren varsa burdayım 

ben kardeşlerime güveniyorum foruma bakacaklar. ben iddaya giriyorum 

yok yok gelecekler bilyorum

[memin]

böte 2 mi burda bunun olduğunu en az 1 ay sonra anlıyacaklar iddaya giren varsa burdayım 

ben kardeşlerime güveniyorum foruma bakacaklar. ben iddaya giriyorum 

yok yok gelecekler bilyorum

  sen kendini kandırmaya devam et...  inş. haklı çıkarsın da biz de yanılmış olmayı tercih ederiz.

[şanlıtuna]

2. sınıftan arkadaşlar foruma girdiklerinde bir zahmet bir mesaj yazar mısınız arkadaşlar mahçup ols 

[mustafa]

 

[memin]

sesim geliyomu  sesimmmm .. aaaa 2. sınıftan kimse yokmuşş daha yeni farkına vardım...

[nily]

keşke birisi de soruların çözümlerini yassa ne güsel olur ben hala çözemiyorum da

[nily]

baskı ve şiddet yoluyla iki böte 2 yi siteye yönlendiriyo ama üyelikleri bile yok sitenin linkini de yeni gösterdim vallla mustafa haklıymış

[nisan]

cevap 2:

Kod: [Seç]

procedure TForm1.ComboBox1Change(Sender: TObject);
begin

  case combobox1.ItemIndex  of
      0:form1.Color:=clRed;
      1:form1.Color:=clYellow;
      2:form1.Color:=clBlue;
      3:form1.Color:=clGreen;
  end;

   case combobox1.ItemIndex  of
      0:edit1.Color:=clRed;
      1:edit1.Color:=clYellow;
      2:edit1.Color:=clBlue;
      3:edit1.Color:=clGreen;
  end;

   case combobox1.ItemIndex  of
      0:button1.Font.Color:=clRed;
      1:button1.Font.Color:=clYellow;
      2:button1.Font.Color:=clBlue;
      3:button1.Font.Color:=clGreen;
  end;

end;

end.
yalnız 2. soruda butonun font rengi değişmiyor. kodlarda sorun da olduğunu sanmıyorum.
butonun rengini değiştiremiyormuşuz ama font rengini değiştirme özelliği var. neden olmadı anlamadım


cevap3:

Kod: [Seç]

procedure TForm1.Button1Click(Sender: TObject);
begin
case strtoint(edit1.Text) of
     0..34:label1.Caption:='F' ;
     35..50:label1.Caption:='E' ;
     51..69:label1.Caption:='D' ;
     70..79:label1.Caption:='C'  ;
     80..89:label1.Caption:='B';
     90..100:label1.Caption:='A' ;
   end;
end;

end.

arkadaşlar "label1, form1, edit1, button1" gibi komutlarda bu şekilde kullanmamızın sebebi isimlerinin böyle olması. Buna dikakt edin lütfen. örneğin hoca forumun adını "firatbote" vermiş olabilir "0:firatbote.Color:=clRed;" şek komutu yazmalıyız. küçük bir uyarıydı



1. sorunun cevabını da yapamadım
demekki yapamadığımız şeylere kolay demeyecekmişiz:D

bilen varsa yazabilir.....


not:1. sorunun cevabı 2. sayfada

[white_angel]

ahh ahh delphii yaktın beni