Membuat Program sederhana "Penentuan Grade Nilai" dengan Delphi 7
1. Buka Aplikasi Delphi anda, tampilan awal akan muncul form 1
2. Isi dengan label untuk memberikan keterangan pada langkah langkahnya, pilih menu label pada icon " A" , kemudian sesuaikan dengan kebutuhan anda
3. Kemudian Buatlah tempat untuk penginputan data dengan memilih menu edit.text pada icon, seperti berikut
 |
| untuk membuat kolom inputan |
4. kemudian buatlah button untuk memproses program tersebut dengan memilih menu button click
 |
| button.click |
5. Kemudian klik 2x pada button click tersebut untuk mengisi script. isi script seperti contoh dibawah ini
procedure TForm1.Button1Click(Sender: TObject);
Var
N1, N2, N3, NA : real;
begin
N1 := strtofloat(edit1.Text);
N2 := strtofloat(edit2.Text);
N3 := strtofloat(edit3.Text);
NA := (N1+N2+N3)/3;
edit4.Text := floattostr(NA);
if (NA >= 90) AND (NA <= 100) then
edit5.Text := 'A'
else if (NA >= 75) AND (NA <= 89) then
edit5.Text := 'B'
else
edit5.Text := 'C';
end;
6. Setelah itu coba jalankan program tersebut dengan menekan F9,
Program sederhana penentuan grade nilai anda telah selesai.
0 Response to "Membuat Program sederhana "Penentuan Grade Nilai" dengan Delphi 7"
Post a Comment