Tugas Pemograman dasar

Hemmm,…lagi rajin” nya nulis blog lumayan dah dapat 10 materi untuk hari ini,..okeh pada kesempatan kali ini saya akan memposting program delphi yang berisi perhitungan nilai mahasiswa dan Program Input nilai X dan Y pada bidang kartesian. dulu ini merupakan tugas pada mata kuliah pemograman dasar.

oke monggo disimak,…kalau mau lebih jelasnya nanti bisa download di link dibawah.  

FORM 1
unit UTS;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Image2: TImage;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Image1: TImage;
Image3: TImage;
Image4: TImage;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses UTS2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
user,user_id,pswd,pswd_id:string;
begin
user:='saychun';
pswd:='12345';
user_id:=Edit1.Text;
pswd_id:=Edit2.Text;
if (user=user_id)and(pswd=pswd_id) then
form2.show
else
application.MessageBox('Password Salah..!!','Informasi',MB_ICONQUESTION or MB_OK);
edit1.Text:='';
Edit2.Text:='';
Edit1.SetFocus;
form1.hide
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit1.setfocus
end;
procedure TForm1.Button3Click(Sender: TObject);
var
keluar:integer;
begin
keluar:=Application.MessageBox('Anda Yakin Mau Keluar...?','Konfirmasi',MB_ICONQUESTION or MB_YESNO);
if keluar=idyes then
Application.Terminate
end;
end. 

Setelah login berhasil maka akan keluar tampilan menu utama

 Tampilan form menghitung nilai mahasiswa

Tampilan form input nilai x dan y pada bidang kartesian