Delphi – Harf Notu Hesaplama

Merhaba arkadaşlar,

Bugün delphi ile harf not hesaplamayı göstereceğim.

Başlangıç olarak delphide açtığımız formumuza 2 adet edit, 1 adet buton ve 1 adet label ekliyoruz.

Eklediğimiz butona çift tıklayarak aşağıdaki kodları yazıyoruz.


procedure TForm1.Button1Click(Sender: TObject);
var
v,f:integer;
ort:double;
begin
v:=strtoint(Edit1.Text);
f:=StrToInt(Edit2.Text);
ort:=(v*0.4)+(f*0.6);

label1.Caption:=floattostr(ort);
if ort<50 then showmessage('FF')
else if (ort>49) and (ort<=60) then showmessage('CC')
else if (ort>=60) and (ort<=70) then showmessage('CB')
else if (ort>=70) and (ort<=80) then showmessage('BB')
else if (ort>=80) and (ort<=90) then showmessage('BA')
else if (ort>=90) and (ort<=100) then showmessage('AA')
else if (ort>=100) then showmessage('Yanlış not veya notlar girdiniz.');

end;

Evet kodlarımızı uyguladıktan sonra artık harf notu hesaplatabiliriz.

Şimdi yukarıda kodlar ile yaptırdığımız  işlemler ise sırasıyla şöyle:

İlk olarak 3 tane, vize için v, final için f ve ortalama için ort olarak değişkenlerimizi tanımladık. Daha sonra ise vize ve final notumuzu hangi editten alacağını gösterdik ve  gelen bilgiyi karakterselden sayısala çevirerek ort değişkeninde işlemimizi yaptırdık.

Verilerimizi aldıktan sonra ortaya çıkan ortalama ile if döngüsü içinde harf notunu hesaplatarak ekranda mesaj olarak gösterilmesini sağladık ve en son ortalamayı labelde gösterdik.

Ekran çıktımız ise aşağıdaki gibi oldu.

 

 

Sosyal Medyada Paylaş Facebook Twitter Google+

Etiketler: , , , , , , , , , ,
Eklenme Tarihi: 18 Ocak 2017

Konu hakkında yorumunuzu yazın