Semoga berhasil... Jika ada masalah kirim email ke : putu_dalungcity@yahoo.co.id
Nama : Abryan Tata Pangarsa
Web : abryantp.blogspot.com
Sourcecode [ Membuat program menghitung nilai ] :
unit Abryan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, jpeg, ComCtrls, ActnList;

type
TForm1 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
ComboBox1: TComboBox;
Memo1: TMemo;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
Label6: TLabel;
BitBtn1: TBitBtn;
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn3Click(Sender: TObject);
var angka:integer;
nilai:string;
begin
Angka:=StrToInt(EDIT4.Text );
if angka>=85 then
begin
nilai:='A';
end
else
if angka>=75 then
begin
nilai:='B';
end
else
if angka>=65 then
begin
nilai:='C';
end
else
if angka>=55 then
begin
nilai:='D';
end
else
begin
nilai:='E';
end;
memo1.Color :=clgradientinactivecaption;
MEMO1.Lines .Clear ;
MEMO1.Lines .ADD('') ;
MEMO1.Lines .ADD(' STMIK STIKOM BALI') ;
MEMO1.Lines .ADD(' Jln.Teuku Umar 222 Dps') ;
MEMO1.Lines .ADD(' ---------------------------------------------------------------------') ;
MEMO1.Lines .ADD('') ;
MEMO1.Lines .ADD(' NIM : '+EDIT1.Text ) ;
MEMO1.Lines .ADD(' Nama : '+EDIT2.Text ) ;
MEMO1.Lines .ADD(' Jurusan : '+combobox1.text ) ;
MEMO1.Lines .ADD(' Mata Kuliah : '+EDIT3.Text ) ;
MEMO1.Lines .ADD(' Nilai Angka : '+EDIT4.Text );
MEMO1.Lines .ADD(' Nilai Huruf : '+String (nilai));
MEMO1.Lines .ADD('') ;
memo1.Lines .add(' Software by Abryan');
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
memo1.Clear ;
memo1.Color :=clwindow;
memo1.Lines .add(' Tugas1 Pemograman Visual 1');
memo1.Lines .add(' Software by Abryan');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear ;
memo1.Lines .add(' Tugas1 Pemograman Visual 1');
memo1.Lines .add(' Software by Abryan');
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close;
end;
end.