Delphi – Case of Yapısı ile Harf Notu Hesaplama

Merhaba arkadaşlar,

Delphi ile sizlere case of yapısını göstereceğim. Ve örnek olarak case of yapısı ile ortalamaya göre harf notu hesaplama yapacağız.

İşlemlerimiz için delphi ile açmış olduğumuz formumuza 1 adet button, 1 adet label ve 1 adet edit ekliyoruz. Eklemiş olduğumuz butonun içine ise aşağıdaki kodlarımızı yazarak case of yapısı ile harf notu hesaplatıyoruz.


procedure TForm1.Button1Click(Sender: TObject);
var
x:integer;
begin
x:=strtoint(edit1.Text);
case x of
0..49 : label1.Caption := 'FF';
50..59 : label1.Caption := 'CC';
60..69 : label1.Caption := 'CB';
70..79 : label1.Caption := 'BB';
80..89 : label1.Caption := 'BA';
90..100 : label1.Caption := 'AA';
end;

Yukarıdaki kodlarla ne yaptık?

İlk olarak sayısal(integer) bir değişken tanımladık. Tanımladığımız değişkene editten dönüşüm işlemi yaptırarak veri almasını sağladık. Daha sonra ise case of yapımızı kurarak hangi aralıktaki değerlerin hangi harf notuna karşılık geldiğini belirledik ve labelde göstererek işlemimizi bitirdik.

Ekran çıktılarımız ise oluşturduğumuz case of yapısına göre 43 ve 87 değerleri için aşağıdakileri gibi oldu.

 

Sosyal Medyada Paylaş Facebook Twitter Google+

Etiketler: , , , , , , ,
Eklenme Tarihi: 9 Şubat 2017

Konu hakkında yorumunuzu yazın