Aplikasi Kelipatan 3 Dengan Delphi 7

Gambar ini adalah hasil dari tutorial dibawah ini

Tutorial pada saat ini saya akan membagikan sedikit logika dalam pemograman untuk itu perhatikan gambar dibawah ini :

pada gambar diatas saya menggunakan 3 LABEL , 1 EDIT dan 1 BUTTON , silakan design dulu ya .. :D

LABEL 1 = KELIPATAN 3

LABEL 2 = HASIL

LABEL 3= KOSONGKAN 

nah pada BUTTON silakan klik 2 kali dan ketik koding dibawah ini : 

procedure TForm1.Button1Click(Sender: TObject);

var

    n1:integer;

   hasil:boolean;

begin

     if TryStrToInt(Edit1.Text,n1) then

       hasil:=kelipatan3(n1);

     if hasil = true then

       Label3.Caption:='Benar atau Salah..? : Benar'

     else

         Label3.Caption:='Benar atau Salah..? : Salah';

end;

apabila sudah diketik koding nya silakan pencet F9 untuk menjalankan aplikasinya

Create : Abednego,S.T