- Katılım
- 12 Eylül 2014
- Mesajlar
- 167
- Tepkime puanı
- 0
- Puanları
- 0
Linkleri sadece kayıtlı üyeler görebilir. Linkleri görebilmek için Üye Girişi yapın veya ücretsiz olarak Kayıt Olun
Başarı Notu Hesaplayan code
Kod:
procedure TForm1.Button1Click(Sender: TObject);
var
ara,odev,final:integer;
bn:real;
begin
edit5.clear;
ara:=strtoint(edit1.text);
odev:=strtoint(edit2.text);
final:=strtoint(edit3.text);
bn:=(ara*0.4)+(odev*0.1)+(final*0.5);
edit4.text:=floattostr(bn);
if ((bn>=50) and not(final<=30)) then
begin
edit5.text:='Başarılı';
end
else
begin
edit5.text:='Başarısız';
end;
end;
end.
__________________________________________________ ________
Linkleri sadece kayıtlı üyeler görebilir. Linkleri görebilmek için Üye Girişi yapın veya ücretsiz olarak Kayıt Olun
if else - 3 sayıyı karşılaştırma
Kod:
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z:real;
begin
x:=strtofloat(edit1.text);
y:=strtofloat(edit2.text);
z:=strtofloat(edit4.text);
if ((x>=y) and (x>=z)) then edit3.Text:=floattostr(x)
else if ((y>=x) and (y>=z)) then edit3.text:=floattostr(y)
else if ((z>=x) and (z>=y)) then edit3.text:=floattostr(z);
end;
end.
Burada dikkat edilmesi gereken husus else if'ten önce '' ; '' konulmaması.
__________________________________________________ ___
Linkleri sadece kayıtlı üyeler görebilir. Linkleri görebilmek için Üye Girişi yapın veya ücretsiz olarak Kayıt Olun
Listbox özelliklerini basit bir örnekle anlatım.
Kod:
procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.items.add(edit1.text);
end;
procedure TForm1.ListBox1Click(Sender: TObject);
var
i:integer;
begin
i:=listbox1.ItemIndex;
edit2.text:=listbox1.Items;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
listbox1.DeleteSelected;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to listbox1.Count-1 do
begin
if listbox1.Selected then
listbox2.items.add(listbox1.items);
end;
listbox1.DeleteSelected;
end;
end.
__________________________________________________ _________________
Linkleri sadece kayıtlı üyeler görebilir. Linkleri görebilmek için Üye Girişi yapın veya ücretsiz olarak Kayıt Olun
İki Sayıyı Karşılaştırma
Kod:
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
begin
if a>b then showmessage('1.sayı büyüktür');
if a if a=b then showmessage('sayılar eşittir');
end;
end;
end.
__________________________________________________ _________________
1'den 10'a ve 10'dan 1'e kadar sayı yazdıran program kodu
Kod:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 10 do
edit1.text:=edit1.text+' '+inttostr(i);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
for i:=10 downto 1 do
edit2.text:=edit2.text+' '+inttostr(i);
end;
end.
__________________________________________________ ___________
Form'un rengini değiştirmek (radiobutton'lar kullanarak)
Kod:
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
form1.Color:=clRed;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
form1.color:=clGreen;
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
form1.color:=clBlue;
end;
procedure TForm1.RadioButton4Click(Sender: TObject);
begin
form1.color:=clBtnFace;
end;
end.