Contoh Coding If Ganda Program Delphi 7

 Teknologi dan Komputer

Contoh Coding If Ganda Program Delphi 7If Ganda hanya dengan dua statement, dalam postingan saya kali ini akan membahas If ganda dengan menggunakan Delphi 7 materi ini saya dapatkan di mata kuliah saya Algoritma dan Pemrograman II Di Semester 2.  Langsung aja deh nih mungkin contoh Contoh Coding If Ganda Program Delphi 7  yang sederhana :

Sampel Form :IF GANDA A1 300x267 Contoh Coding If Ganda Program Delphi 7

 

IF GANDA E 300x263 Contoh Coding If Ganda Program Delphi 7

Contoh Coding If Ganda Program Delphi 7

Double Klik Button If Ganda

procedure TForm1.Button1Click(Sender: TObject);

var

nilai : INTEGER;

Keterangan,Huruf_Mutu : String;

 

begin

nilai := StrToInt(Edit1.Text);

 

if (nilai >= 60) Then

begin

  Keterangan :=’LULUS’;

  Huruf_Mutu :=’A’

 end

 else

  begin

   Keterangan:=’TIDAK LULUS’;

   Huruf_Mutu:=’E’;

  end;

Edit2.Text:=Keterangan;

 Edit3.Text:=Huruf_Mutu;

 

 end;

 

 Double Klik Button Exit

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

 

end.

 

Nb: Perhatikan Tulisan Yang berwarna merah yang di atas else nah di situ tidak boleh diberi titik koma (;)

*/site Contoh Coding If Ganda Program Delphi 7

Semoga Bermanfaat icon biggrin Contoh Coding If Ganda Program Delphi 7



Author: 

Perkenalkan nama saya Rizky Febri Saputra | Hanya Seorang Mahasiswa Biasa Saja, Namun ingin memberikan informasi yang berguna untuk semua orang, Terima Kasih :)

Related Posts

Comments are closed.