CONTOH PROGRAM TUGAS PEMDAS II

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
ComboBox1: TComboBox;
Edit3: TEdit;
Edit4: TEdit;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Timer1: TTimer;
Label9: TLabel;
Label10: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var nama:string;
nim,angkatan,nilai:real;
begin
nilai:=StrToInt(Edit4.Text);
Memo1.Clear;
Memo1.Lines.Add('===========SELAMAT DATANG===========');
Memo1.Lines.Add(' NAMA = '+Edit1.Text);
Memo1.Lines.Add(' ') ;
Memo1.Lines.Add(' NIM = '+Edit2.Text);
Memo1.Lines.Add(' ') ;
Memo1.Lines.Add(' PRODI = '+ComboBox1.Text);
Memo1.Lines.Add(' ') ;
Memo1.Lines.Add(' ANGKATAN = '+Edit3.Text);
Memo1.Lines.Add(' ') ;
Memo1.Lines.Add(' NILAI = '+Edit4.Text);
Memo1.Lines.Add(' ');
if (nilai<0) then
Memo1.Lines.Add('MAAF NILAI YANG ANDA MASUKKAN SALAH')
else
if (nilai<20) then
Memo1.Lines.Add(' NILAI IPK ='+'E')
else
if (nilai<40) then
Memo1.Lines.Add(' NILAI IPK ='+'D')
else
if (nilai<60) then
Memo1.Lines.Add(' NILAI IPK ='+'C')
else
if (nilai<80) then
Memo1.Lines.Add(' NILAI IPK ='+'B')
else
if (nilai<=100) then
Memo1.Lines.Add(' NILAI IPK ='+'A');
Memo1.Lines.Add(' ');
if (nilai>100) then
Memo1.Lines.Add('MAAF NILAI YANG ANDA MASUKKAN SALAH');

Memo1.Lines.Add('========SEMOGA SUKSES SELALU========');


end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Clear;Edit2.Clear;Edit3.Clear;Edit4.Clear;Memo1.Clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage('apakah anda benar-benar ingin keluar');
Application.Terminate;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:DWORD;
begin
i:=GetWindowLong(self.Handle,GWL_STYLE);
i:=i and not (WS_MINIMIZEBOX);
i:=i and not (WS_MAXIMIZEBOX);
i:=SetWindowLong(Self.Handle,GWL_STYLE,i);
end;



procedure TForm1.Timer1Timer(Sender: TObject);
Var a,b:real;
begin
Label10.Caption:=TimeToStr(time);
Label9.Caption:=DateToStr(date);
end;

end.