Cara Membuat Program Sederhana Menggunakan Delphi

Hallo sahabat blogger, kali ini saya akan membagikan salah satu cotoh Cara Membuat Program Sederhana Menggunakan Delphi. Delphi merupakan salah satu aplikasi yang sangat menarik untuk membuat program aplikasi berbabasis dekstop. Delphi juga sering digunakan oleh mahasiswa untuk membuat Tugas Akhir. Berikut  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:
   
5. Setelah membuat form tersebut, buat lagi 1 form yang digunakan untuk menampilkan inputan dari form satu, seperti gambar dibawah ini:
   
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:

      8. Setelah itu klik kirim data maka hasil inputan di form satu tadi tampil di form 2 seperti gambar          dibawah ini:

Demikian Cara Membuat Program Sederhana Menggunakan Delphi. Semoga Bermanfaat!