Delphi de Girilen sayı haftanın hangi günü ise onu ekrana yazdıran program

delphi

delphi

Delphide Hesap Makinesi

delphi

unit Unit5;

interface

.....
....

.....
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
  degisken:string;
  sayibir:Integer;
  sayiiki:Integer;

implementation

{$R *.dfm}

procedure TForm5.Button10Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+FloatToStr(0);
end;

procedure TForm5.Button11Click(Sender: TObject);
begin
degisken:='+';
if sayibir<=0 then
begin
sayibir:=StrToInt(Edit1.Text);
Edit1.Text:='';
end
else
begin
sayiiki:=StrToInt(Edit1.Text);
Button11.Visible:=False;
Button12.Visible:=False;
Button13.Visible:=False;
Button14.Visible:=False;
Button15.Visible:=True;
Edit1.Text:='';
end;
end;

procedure TForm5.Button12Click(Sender: TObject);
begin
degisken:='-';
if sayibir<=0 then
begin
sayibir:=StrToInt(Edit1.Text);
Edit1.Text:='';
end
else
begin
sayiiki:=StrToInt(Edit1.Text);
Button11.Visible:=False;
Button12.Visible:=False;
Button13.Visible:=False;
Button14.Visible:=False;
Button15.Visible:=True;
Edit1.Text:='';
end;
end;

procedure TForm5.Button13Click(Sender: TObject);
begin
degisken:='*';
if sayibir<=0 then
begin
sayibir:=StrToInt(Edit1.Text);
Edit1.Text:='';
end
else
begin
sayiiki:=StrToInt(Edit1.Text);
Button11.Visible:=False;
Button12.Visible:=False;
Button13.Visible:=False;
Button14.Visible:=False;
Button15.Visible:=True;
Edit1.Text:='';
end;
end;

procedure TForm5.Button14Click(Sender: TObject);
begin
degisken:='/';
if sayibir<=0 then
begin
sayibir:=StrToInt(Edit1.Text);
Edit1.Text:='';
end
else
begin
sayiiki:=StrToInt(Edit1.Text);
Button11.Visible:=False;
Button12.Visible:=False;
Button13.Visible:=False;
Button14.Visible:=False;
Button15.Visible:=True;
Edit1.Text:='';
end;
end;

procedure TForm5.Button15Click(Sender: TObject);
var
sonuc,num:Integer;
begin
if degisken='+' then
   begin
        Edit1.Text:=FloatToStr(sayibir+sayiiki);
   end;
 if degisken='-' then
     begin
          Edit1.Text:=FloatToStr(sayibir-sayiiki);
     end;
if degisken='*' then
begin
  Edit1.Text:=FloatToStr(sayibir*sayiiki);
end;
 if degisken='/' then
 begin  Edit1.Text:=FloatToStr(sayibir/sayiiki);
 end;
     num:=MessageDlg('Tekrar İşlem Yapmak İstermisiniz ?',mtInformation,[mbYes,mbNo],0);
        case num of
        6:
        begin
          Button11.Visible:=True;
          Button12.Visible:=True;
          Button13.Visible:=True;
          Button14.Visible:=True;
          Button15.Visible:=False;
          Edit1.Text:='';
        end;
        7:Form5.Free;
        else
        ShowMessage('Tanımlanmayan değer !');
        end;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+FloatToStr(1);
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+FloatToStr(2);
end;

procedure TForm5.Button3Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+FloatToStr(3);
end;

procedure TForm5.Button4Click(Sender: TObject);
begin
     Edit1.Text:=Edit1.Text+FloatToStr(4);
end;

procedure TForm5.Button5Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+FloatToStr(5);
end;

procedure TForm5.Button6Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+FloatToStr(6);
end;

procedure TForm5.Button7Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+FloatToStr(7);
end;

procedure TForm5.Button8Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+FloatToStr(8);
end;

procedure TForm5.Button9Click(Sender: TObject);
begin
Edit1.Text:=Edit1.Text+FloatToStr(9);
end;

end.

delphi

Delphi Mesaj Kutusu 3

delphi

procedure TForm3.Button1Click(Sender: TObject);
var
num : Integer;
begin
        num:=MessageDlg('Mesaj',mtInformation,[mbYes,mbNo,mbRetry,mbCancel],0);
        case num of
        6:ShowMessage('Yes Tıklandı');
        7:ShowMessage('No Tıklandı');
        4:ShowMessage('Tekrar Tıklandı');
        2:ShowMessage('Çıkış Tıklandı');
        else
        ShowMessage('Tanımlanmayan değer ! ');
        end;
        end;

end.

Delphi Mesaj Kutusu 2

delphi

procedure TForm3.Button1Click(Sender: TObject);
var
num : Integer;
begin
        num:=MessageDlg('Mesaj',mtInformation,[mbYes,mbNo,mbCancel],0);
end;

Delphi Mesaj Kutusu

delphi

procedure TForm2.Button1Click(Sender: TObject);
var
sayi:Integer;
begin
        sayi:=StrToInt(Edit1.Text);
          case sayi of
              1:ShowMessage('Bir');
              2:ShowMessage('İkin');
              3:ShowMessage('Üç');
              4:ShowMessage('Dört');
              5:ShowMessage('Beş');
              6:ShowMessage('Altı');
              7:ShowMessage('Yedi');
              8:ShowMessage('Sekiz');
              9:ShowMessage('Dokuz');
              10:ShowMessage('On');
              else
              ShowMessage('Girdiğiniz değer 1-9 aralığında değildir.');
          end;
end;

Delphi İç İçe 3 lü For Döngüsü

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
i,k,l,j:Integer;
begin
            l:=20;
            for j := 3 to 4 do
              begin
                  for k := 6 Downto 4 do
                  begin
                    for i := 2 to 3 do
                     begin
                     Self.Canvas.TextOut(100,10+l,IntToStr(j));
                     Self.Canvas.TextOut(120,10+l,IntToStr(i));
                     Self.Canvas.TextOut(140,10+l,IntToStr(k));
                     l:=l+20
                   end;
               end;
           end;
 end;

Delphi İç İçe For Döngüsü

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
i,k,l:Integer;
begin
        l:=20;
             for i := 3 Downto 1 do
               begin
                 for k := 2 to 4 do
                   begin
                     Self.Canvas.TextOut(100,10+l,IntToStr(k));
                     Self.Canvas.TextOut(120,10+l,IntToStr(i));
                     l:=l+20
                   end;
               end;
end;