Nah..Nh Program.. Sya Buat..Hnya skedar iseng Pngen Mperkirakan., Nilai Akhir Mata Kuliah... Sya..Heeeee,, Biarpun Mungkin jelek Banget..yah...Semoga Bermanfaat Bagi Anda..Yng Menyimak :D
Button BERSIH... > Berfungsi untuk Membersihkan Pada Halaman Edit Text...Liat gambar dibawah....Jika Nada Ga' Mau Ada Buton Bersih..nya..Ya Pada 'Caption Edit text' nya...di delet aja..beres... Ini hanya.. pemblajaran..bagi yang blum ngerti... aja..Heeee(emang sayanya ngerti apa)... hmmm langsung aja Ke TKP deh...
Button Bersih
procedure TForm1.BersihClick(Sender: TObject);
begin
EDU.Clear;
EDUT.Clear;
EDQ.Clear;
EDT.Clear;
EDTO.Clear;
end;
_____________________________________________________________
procedure TForm1.HitungClick(Sender: TObject);
var
Uas,Uts,Quis,Tugas,Total :Real;
begin
Uas :=StrToFloat(EDU.text);
Uts :=StrToFloat(EDUT.text);
Quis:=StrToFloat(EDQ.text);
Tugas:=StrToFloat(EDT.text);
Total := (Uas+Uts+Quis+Tugas)/4;
EDTO.Text:=FloatToStr(Total);
end;
_______________________________________________________________
Button Huruf Mutu
Berfungsi Buat...mngetahui Huruf Mutu yg Anda dapatkan Pada akhir smester...Heeee... Nih Dia Coding nya...
procedure TForm1.Button2Click(Sender: TObject);
var
Nilai :Real;
begin
Nilai := StrToFloat(EDTO.text);
if (Nilai>=90)and (Nilai<=100) then
Begin
label2.Caption := 'Nilai Anda A';
label3.Caption := 'Anda Lulus!!!';
end
else if (Nilai>=80) And (Nilai<=89) then
Begin
Label2.Caption := 'Nilai Anda B';
label3.Caption := 'Anda Lulus!!!';
end
else If (Nilai>=70) and (Nilai<=79) then
begin
label2.Caption := 'Nilai Anda C';
label3.Caption := 'Anda Lulus!!!';
end
else if (Nilai>=60) And (Nilai<=69) then
Begin
Label2.Caption := 'Nilai Anda D';
Label3.Caption := 'Anda Tidak Lulus!!!';
end
else
Begin
Label2.Caption := 'Nilai Anda E';
Label3.Caption := 'Anda Tidak Lulus!!!';
end;
end;
___________________________________________________________
Button Close;
yang ini pasti smua dh pda bisa lah.... Tinggal Ketik aja..
Close;
Beres dah.
___________________________________________________________