Script Program
Identifikasi variable global
var
fMembuatSeleksiDanKondisi:
TfMembuatSeleksiDanKondisi;
nNilaiUTS,
nNIlaiUAS,
nNilaiTugas,
nNilaiAbsensi,
nNilaiNetUTS,
nNilaiNetUAS,
nNilaiNetTugas,
nNilaiNetAbsensi,
nNilaiAngka :Real;
Di Event : OnActive
Nama Component :
fMembuatSeleksidanKondisi
procedure TfMembuatSeleksiDanKondisi.FormActivate(Sender: TObject);
begin
eNamaMahasiswa.Text :='';
eNamaMataKuliah.Text :='';
cmbJurusan.Items.Clear;
cmbJurusan.Items.Add('STKIP');
cmbJurusan.Items.Add('STIBA');
cmbJurusan.Text :='';
eNilaiUTS.Text :='';
eNilaiUAS.Text :='';
eNilaiTugas.Text :='';
eNilaiAbsensi.Text :='';
eNilaiNetUTS.Text :='';
eNilaiNetUAS.Text :='';
eNilaiNetTugas.Text :='';
eNilaiNetAbsensi.Text :='';
eNilaiAngka.Text :='';
eNilaiHuruf.Text :='';
eNamaMahasiswa.SetFocus;
end;
Di Event : OnKeyPress
Nama Component : eNamaMahasiswa
procedure TfMembuatSeleksiDanKondisi.eNamaMahasiswaKeyPress(
Sender: TObject; var Key:
Char);
begin
if Key=#13 then
eNamaMataKuliah.SetFocus;
end;
Di Event : OnKeyPress
Nama Component : eMataKuliah
procedure TfMembuatSeleksiDanKondisi.eNamaMataKuliahKeyPress(
Sender: TObject; var Key:
Char);
begin
if Key=#13 then
cmbJurusan.SetFocus;
end;
Di Event : OnChange
Nama Component : cmbJurusan
procedure TfMembuatSeleksiDanKondisi.cmbJurusanChange(Sender: TObject);
begin
eNilaiUTS.SetFocus;
end;
Di Event : OnKeyPress
Nama Component : eNilaiUts
procedure TfMembuatSeleksiDanKondisi.eNilaiUTSKeyPress(Sender: TObject;
var Key: Char);
begin
if Key=#13 then
begin
nNilaiUTS:=StrToFloat(eNilaiUTS.Text);
nNilaiNetUTS:=(nNilaiUTS*25)/100;
eNilaiNetUTS.Text
:=FormatFloat('#,#0',nNilaiNetUTS);
eNilaiUAS.SetFocus;
end;
if not(Key
in[#8,'0'..'9',DecimalSeparator]) then
begin
Key :=#0;
end;
end;
Di Event : OnKeyPress
Nama Component : eNilaiUAS
procedure TfMembuatSeleksiDanKondisi.eNilaiUASKeyPress(Sender: TObject;
var Key: Char);
begin
if Key=#13 then
begin
nNilaiUAS:=StrToFloat(eNilaiUAS.Text);
nNilaiNetUAS:=(nNilaiUAS*50)/100;
eNilaiNetUAS.Text
:=FormatFloat('#,#0',nNilaiNetUAS);
eNilaiTUGAS.SetFocus;
end;
if not(Key
in[#8,'0'..'9',DecimalSeparator]) then
begin
Key :=#0;
end;
end;
Di Event : OnKeyPress
Nama Component : eNilaiTugas
procedure TfMembuatSeleksiDanKondisi.eNilaiTugasKeyPress(Sender:
TObject;
var Key: Char);
begin
if Key=#13 then
begin
nNilaiTugas:=StrToFloat(eNilaiTugas.Text);
nNilaiNetTugas:=(nNilaiTugas*20)/100;
eNilaiNetTugas.Text:=FormatFloat('#,#0',nNilaiNetTugas);
eNilaiAbsensi.SetFocus;
end;
if not (Key in[#8,'0'..'9',DecimalSeparator]) then
begin
key:=#0;
end
end;
Di Event : OnKeyPress
Nama Component : eNilaiAbsensi
procedure TfMembuatSeleksiDanKondisi.eNilaiAbsensiKeyPress(Sender:
TObject;
var Key: Char);
begin
if Key=#13 then
begin
if
StrToInt(eNilaiAbsensi.Text)<=14 then
begin
nNilaiAbsensi:=StrToInt(eNilaiAbsensi.Text);
nNilaiAbsensi:=(14/nNilaiAbsensi)*100;
nNilaiNetAbsensi:=(nNilaiAbsensi*5)/100;
eNilaiNetAbsensi.Text:=FormatFloat('#,#0',nNilaiNetAbsensi);
nNilaiAngka:=(nNilaiNetUAS+nNilaiNetTugas+nNilaiNetAbsensi);
eNilaiAngka.Text:=FormatFloat('#,#0',nNilaiAngka);
if nNilaiAngka<=40 then
begin
eNilaiHuruf.Text:='E';
end
else
begin
if nNilaiAngka<=55 then
begin
eNilaiHuruf.Text:='D';
end
else
begin
if nNilaiAngka<=60 then
begin
eNilaiHuruf.Text:='C';
end
else
begin
if nNilaiAngka<=68 then
begin
eNilaiHuruf.Text:='C+';
end
else
begin
if nNilaiAngka<=75
then
begin
eNilaiHuruf.Text:='B';
end
else
begin
if nNilaiAngka<=85
then
begin
eNilaiHuruf.Text:='B+';
end
else
begin
eNilaiHuruf.Text:='A';
end;
end;
end;
end;
end;
end;
end
else
begin
ShowMessage('Kehadiran tidak
boleh dari 14x');
eNilaiAbsensi.Text:='';
eNilaiAbsensi.SetFocus;
end;
end;
if not (Key in[#8,'0'..'9',DecimalSeparator]) then
begin
key:=#0;
end;
end;
Di Event : OnClick
Nama Component : cTutup
procedure TfMembuatSeleksiDanKondisi.cTutupClick(Sender: TObject);
begin
Close;
end;
Di Event : OnClick
Nama Component : cClear
procedure TfMembuatSeleksiDanKondisi.cClearClick(Sender: TObject);
begin
eNamaMahasiswa.Text:='';
eNamaMataKuliah.Text:='';
cmbJurusan.Items.Clear;
cmbJurusan.Items.Add('STKIP');
cmbJurusan.Items.Add('STIBA');
cmbJurusan.Text:='';
eNilaiUTS.Text:='';
eNilaiUAS.Text:='';
eNilaiTugas.Text:='';
eNilaiAbsensi.Text:='';
eNilaiNetUTS.Text:='';
eNilaiNetUAS.Text:='';
eNilaiNetTugas.Text:='';
eNilaiNetAbsensi.Text:='';
eNilaiAngka.Text:='';
eNilaiHuruf.Text:='';
eNamaMahasiswa.SetFocus;
end;
end.
