BELAJAR MEMBUAT PROGRAM DELPHI

CODING PROGRAM

procedure TForm1.FormCreate(Sender: TObject);

begin

  Combobox1.Items.Add('MI');

  Combobox1.Items.Add('KA');

  Combobox1.Items.Add('TK');

  edit3.Text:='';

  edit4.Text:='';

  edit5.Text:='';

  edit6.Text:='';

  edit7.Text:='0';

 

shortdateformat:='dd-mmmm-yyyy';

edit2.Text:=datetostr(date);

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

edit1.Text:=timetostr(time);

end;

procedure TForm1.ComboBox1Click(Sender: TObject);

begin

  if combobox1.Text='MI'then

  edit5.Text:='Management Informatika'

  else

  if combobox1.Text='KA'then

  edit5.Text:='Komputer Akutansi'

  else

  edit5.Text:='Tehnik Komputer'

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

  if radiobutton1.checked=true then

  radiobutton2.checked:=false;

  edit7.Text:='1180000'; 

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

  if radiobutton2.checked=true then

  radiobutton1.Checked:=false;

  edit7.Text:='980000';

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  edit3.Text:='';

  edit4.Text:='';

  edit5.Text:='';

  edit6.Text:='';

  edit7.Text:='0';

  edit3.SetFocus;

  COMBOBOX1.Text:='';

Radiobutton1.checked:=false;

  Radiobutton2.checked:=false;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  if(application.MessageBox('Anda Yakin Ingin Keluar???','Informasi',

  MB_Yesno+MB_iconwarning)=idyes)then

  close

end;

end