program sederhana delphi

program sederhana delphi
program sederhan delphi

By rohmat 23 Nov 2017, 12:39:07 WIB - Kategori: Delphi


Cara Membuat Program Sederhana Menggunakan Delphi:

  1. Buka aplikasi Delphi
  2. Kemudian klik Run Program
  3. Kemudian buat form baru dengan cara klik file > New > Form
  4. Kemudian desain form tersebut yang digunakan sebagai form inputan seperti gambar dibawah ini:
    Cara Membuat Program Sederhana Menggunakan Delphi
  5. Setelah membuat form tersebut, buat lagi 1 form yang digunakan untuk menampilkan inputan dari form satu, seperti gambar dibawah ini:
    Cara Membuat Program Sederhana Menggunakan Delphi
  6. Masukkan kode dibawah ini ke dalam form pertama:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls;



type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
ComboBox1: TComboBox;
Panel1: TPanel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
DateTimePicker1: TDateTimePicker;
GroupBox1: TGroupBox;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
RadioButton9: TRadioButton;
RadioButton10: TRadioButton;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;



var
Form1: TForm1;



implementation



uses Unit2;



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);



begin



Form2.Show;
Form2.Edit1.Text:='Kirana';
Form2.Edit2.Text:='solo';
Form2.Edit3.Text:=Form1.ComboBox1.Text;
Form2.Edit4.Text:=FormatDateTime('d/m/y',DateTimePicker1.Time);
If RadioButton1.checked= True then
Form2.Edit5.Text:='Islam';
If RadioButton2.checked= True then
Form2.Edit5.Text:='Katholik';
If RadioButton3.checked= True then
Form2.Edit5.Text:='Kristen';
If RadioButton4.checked= True then
Form2.Edit5.Text:='Hindu';
If RadioButton5.checked= True then
Form2.Edit5.Text:='Islam';



If RadioButton6.checked= True then
Form2.Edit6.Text:='Mesin Otomotif';
If RadioButton7.checked= True then
Form2.Edit6.Text:='Manajemen Informatika';
If RadioButton8.checked= True then
Form2.Edit6.Text:='Komunikasi Massa';
If RadioButton9.checked= True then
Form2.Edit6.Text:='Perhotelan';
If RadioButton10.checked= True then
Form2.Edit6.Text:='Farmasi';






end;



procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;



end.
      7.  Kemudian jalankan program di form1 dan isi sesuai dengan informasi anda seperti gambar                 dibawah ini:
Cara Membuat Program Sederhana Menggunakan Delphi
      8. Setelah itu klik kirim data maka hasil inputan di form satu tadi tampil di form 2 seperti gambar          dibawah ini:
Cara Membuat Program Sederhana Menggunakan Delphi

Demikian Cara Membuat Program Sederhana Menggunakan Delphi.



ARTIKEL TERKAIT: