Pada kesempatan kali ini ane akan share tentang pemograman, kali ini ane menggunakan program delphi7,
Kali ini kita akan belajar tentang eliminasi data pada program delphi7,
langsung saja kita mulai belajarny ya,,,heheheh
1. Buka program delphy7 nya
2. Pilih file --> new --> aplicattion
3. Pilih edit.text dan tombol button pada toolbar
4. Masukkan scrib pada tombol button1 dengan klik 2kali
::::::::::::::::::::::nie scribc nya:::::::::::::::::::::::::
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.text:='tidak lulus';
if strtoint (edit1.Text)>= 60 then
edit2.Text:='lulus';
end;
end.
penjelasan: strtoint dari string ke integer
5. Kita jalankan dengan menekan tombol (F9) dan nie hasilnya seperti gambar dibawah
contoh program bisa download klik disini
0 komentar:
Posting Komentar