not hesaplama programı
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
çetin
not hesaplama programı
şimdide bir not hesaplama programım var burda 5 tane dbedit kontrolü var edit 1 1.yazılı notu edit2. 2yazılı notu edit3. 3.yazılı notu edit4 ortalma edit5.sonuç şimdi kullanınıcı 1.2.3. yazılı norunu edite girdiği zaman bu 3 yazılının ortalamasını edit 4 yazdıracaz ve öğrencini geçip kalmadığını ise edit 5 e yazdıracaz bunu hangi kodla yaparım acaba.
Re: not hesaplama programı
arkadaşım ben buraya tam kodu yazdım ama böyle başkasının yazdığı kodla programcılık olmaz
yeni başladığını düşünerek bu kodun sana ileriki devrelerinde başarılar getirmesi dileğiyle ....
yeni başladığını düşünerek bu kodun sana ileriki devrelerinde başarılar getirmesi dileğiyle ....
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.
insanın özü tanımasına engel olan perdeleri;
1.kendini beden sanma
2.vehmî benlik
3.beş duyu blokajları
4.toplumsal şartlanmalar ve şartlanmaların oluşturduğu değer yargıları ve değer yargılarından gelen duygular
kişi bu perdelerden arınmadıkça göresel kozasında yaşar ve bir ipek böceği gibi kaynar kazana atılır.
1.kendini beden sanma
2.vehmî benlik
3.beş duyu blokajları
4.toplumsal şartlanmalar ve şartlanmaların oluşturduğu değer yargıları ve değer yargılarından gelen duygular
kişi bu perdelerden arınmadıkça göresel kozasında yaşar ve bir ipek böceği gibi kaynar kazana atılır.
-
çetin
Re: not hesaplama programı
tşk ederim abicim evet doğru düşünmüşsün ben bu işe yeni başladım tşk ederim sağol.