not hesapalama yazılımı

[çetin]

Slm arkadaşlar delphide bir not hesaplama projem var bu projede 3 tane edit var 1. edit 1.yzılı notu edit2. 2.yazılı notu 3.edit 3.yazılı notu şimdi kullanıcı buraya 3 yazılı notunu girdiği zaman bir tane de butonumuz var bu butona bastığımızda edit 4 e bu 3 yazılını n ortalamasını dit 5 ise sonucu yani öğrenci geçtimi kaldımı onu yazdıracak kod lazım yardımcı olursaznıs evinirm.

[Battosai]

Yani bunları yazdık kitaplarda ordan bulun cevabını. Tekrar sormayın bunları....

[çetin]

tamam abicim neden kzııyon neden sinirliyon gerek varmı tartışmaya kızmaya burası bir yardımlaşma platformudur ne olur sanki bir daha yazsan gerekli olmasa sormazdık herhalde gere varmı kızmaya bağırıp çağırmaya tartışmaya.....

[aslangeri]

gerekli olduğu zaman insanlar daha çabuk bulsunlar diye foruma arama linki koyulmuş.
soru sorup cevabını bekleyene kadar arama yapınca sonuca daha çabuk ulaşırsın.
ha aramaların fayda etmedi ise o zamanda güzelcene sorunu sorarsın bilen arkadaşlarda cevaplarını yazar.
evet burası yardımlaşma platformu ama herkeze balık vermiyoruz (balık tutmasını öğretmeye çalışıyoruz) balık tutmaya niyeti olanlara tabi.

[dabaddah]

arkadaşım aynı sorunu daha önce zaten yazmıştın ve bende cevabını vermiştim yazdığım kodlar full çalışıyor sanırım sen o kodları nereye yazacağını bilemedin.

Kod: Tümünü seç

procedure TForm1.Edit3Exit(Sender: TObject);
var a,b:integer;
begin
if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') then
showmessage('Lütfen Yazılı notlarınızı girin...!');
if (edit1.Text<>'') or (edit2.Text<>'') or (edit3.Text<>'') then
begin
a:=strtoint(edit1.Text)+strtoint(edit2.Text)+strtoint(edit3.Text);
edit4.Text:=inttostr(a div 3);
b:=strtoint(edit4.Text);
case b of
0..30:edit5.Text:=('kaldınız');
31..45:edit5.Text:=inttostr(b)+' ile geçtiniz';
46..55:edit5.Text:=inttostr(b)+' ile geçtiniz';
56..70:edit5.Text:=inttostr(b)+' ile geçtiniz';
71..85:edit5.Text:=inttostr(b)+' ile geçtiniz';
86..100:edit5.Text:=inttostr(b)+' ile geçtiniz';
else edit5.Text:='böyle bir not almış olamazsınız';
end;
end;
end;
procedure TForm1.Edit1Exit(Sender: TObject);
var a,b:integer;
begin
if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') then
if (edit1.Text<>'') and (edit2.Text<>'') and (edit3.Text<>'') then
begin
a:=strtoint(edit1.Text)+strtoint(edit2.Text)+strtoint(edit3.Text);
edit4.Text:=inttostr(a div 3);
b:=strtoint(edit4.Text);
case b of
0..30:edit5.Text:=('kaldınız');
31..45:edit5.Text:=inttostr(b)+' ile geçtiniz';
46..55:edit5.Text:=inttostr(b)+' ile geçtiniz';
56..70:edit5.Text:=inttostr(b)+' ile geçtiniz';
71..85:edit5.Text:=inttostr(b)+' ile geçtiniz';
86..100:edit5.Text:=inttostr(b)+' ile geçtiniz';
else edit5.Text:='böyle bir not almış olamazsınız';
end;
end;
end;
procedure TForm1.Edit2Exit(Sender: TObject);
var a,b:integer;
begin
if (edit1.Text='') or (edit2.Text='') or (edit3.Text='') then
if (edit1.Text<>'') and (edit2.Text<>'') and (edit3.Text<>'') then
begin
a:=strtoint(edit1.Text)+strtoint(edit2.Text)+strtoint(edit3.Text);
edit4.Text:=inttostr(a div 3);
b:=strtoint(edit4.Text);
case b of
0..30:edit5.Text:=('kaldınız');
31..45:edit5.Text:=inttostr(b)+' ile geçtiniz';
46..55:edit5.Text:=inttostr(b)+' ile geçtiniz';
56..70:edit5.Text:=inttostr(b)+' ile geçtiniz';
71..85:edit5.Text:=inttostr(b)+' ile geçtiniz';
86..100:edit5.Text:=inttostr(b)+' ile geçtiniz';
else edit5.Text:='böyle bir not almış olamazsınız';
end;
end;
end;    
end.

yazdığım bütün kodları 1. 2. ve 3. yazılı notlarını yazdığın editlerin exit olaylarına yazacaksın . zaten kodlarda hangi kodu hangi editin exit olayına yazacağın yazılı iyice incele işini hallet

birde kesinlikle bu işi öğrenmek istiyorsan bu şekilde öğrenemezsin ya sana öğretecek birisi olacak yada bir kitap yardımıyla olayın MANTIĞINI kavramaya çalışmalısın....