Cara Menampilkan show message harus di isi dengan delphi 2010

Cara Menampilkan show message harus di isi  dengan delphi 2010

Oleh:

JOKO TURWANTO

NIM : 2011.15.458.0016

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNIK

UNIVERSITAS WAHIDIYAH

Dalam pembuatan program kita kali ini sangat sederhana dan mudah untuk di fahami selain itu jga untuk mempercantik tampilan yang saya harapkan bgi pembaca bisa mengembangkan sendiri program ini adapun Cara Menampilkan show message harus di isi  dengan delphi 2010 antara lain yang pertama buka delphi 2010 kemudianbuat form baru  dan masukan komponen kedalam form komponenya adalah antara lain:

Nama komponen	Caption	Nama
Tlabel1	Nama Peminjam	Label1
Tlabel2	Instansi	Label2
Tlabel3	Tanggal Peminjaman	Label3
Tlabel4	Tanggal Kembali	Label4
Tlabel5	Jenis Barang	Label5
Tlabel6	Jumlah Barang	Label6
Tlabel7	Keadaan Barang	Label7
Tedit1	-	Edit1
Tcombobox1	-	Combobox1
Tcombobox2	-	Combobox2
Tcombobox3	-	Combobox3
Tcombobox4	-	Combobox4
TDatetimepicker1	menyesuaikan	Datetimepicker1
Tdatetimepicker2	menyesuaikan	datetimepicker2

Dan pengkodeanya adalah sebagai berikut masukan kode seperti di bawah ini pilih kode yang terletak di bawah form kan ada tiga pilihan  yaitu kode,  design dan histori klik satu kali di kode  pastikan kode sama persis di bawah ini

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ComCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Edit1: TEdit;

    ComboBox1: TComboBox;

    DateTimePicker1: TDateTimePicker;

    DateTimePicker2: TDateTimePicker;

    ComboBox2: TComboBox;

    ComboBox3: TComboBox;

    ComboBox4: TComboBox;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

    Nama              :string;

    Instansi          :string;

    TanggalPeminjaman :string;

    TanggalKembali    :string;

    Jenisbarang       :string;

    Jumlahbarang      :string;

    keadaanbarang     :string;

begin

    if edit1.Text='' then

    begin

      showmessage('tolong nama di isi');

      exit;

    end;

    if combobox1.Text='' then

    begin

      showmessage('tolong instasi di isi');

      exit;

    end;

    if combobox2.Text='' then

    begin

      showmessage('tolong Jenis Barang di isi');

      exit;

    end;

    if combobox3.Text='' then

    begin

      showmessage('tolong Jumlah barang di isi');

      exit;

    end;

    if combobox4.Text='' then

    begin

      showmessage('tolong keadaan Barang di isi');

      exit;

    end;

    Nama             :=(edit1.Text);

    Instansi         :=(combobox1.Text);

    TanggalPeminjaman:=datetostr(DateTimePicker1.date);

    TanggalKembali   :=datetostr(DateTimePicker2.Date);

    Jenisbarang      :=(combobox2.Text);

    Jumlahbarang     :=(combobox3.Text);

    keadaanbarang    :=(combobox4.Text);

    showmessage(nama+''+instansi+''+tanggalpeminjaman+''+tanggalkembali+''+jenisbarang+''+jumlahbarang+''+keadaanbarang);

end;

end.

Selesai dech program kita kali ini

Selamat mencoba,,,,,,,,

g_mail   :dprwscout717@gmail.com

blok       :designprogram717.blokspot.com

no hp    : 082302577717

Cara menggunakan checkbok dengan delphi 2010

Cara menggunakan checkbok dengan delphi 2010

Oleh:

JOKO TURWANTO

NIM : 2011.15.458.0016

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNIK

UNIVERSITAS WAHIDIYAH

Dalam pembuatan program kita kali ini sangat sederhana dan mudah untuk di fahami selain itu jga untuk mempercantik tampilan yang saya harapkan bgi pembaca bisa mengembangkan sendiri program ini adapun cara penggunaan checkbok dengan delphi 2010 antara lain yang pertama buka delphi 2010 kemudianbuat form baru  dan masukan komponen kedalam form komponenya adalah antara lain:

Form1

Nama Komponen	Caption	Name
TCheckbox1	Rizal	Checkbox1
Tcheckbox2	Bakar	Checkbox2
Tbutton1	Show	Button1
Tbutton2	Next	Button2

Dan pengkodeanya adalah sebagai berikut masukan kode seperti di bawah ini pilih kode yang terletak di bawah form kan ada tiga pilihan  yaitu kode,  design dan histori klik satu kali di kode  pastikan kode sama persis di bawah ini ingat didalam button next masih ad form lgi yang kita panggil.

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    CheckBox1: TCheckBox;

    Button1: TButton;

    CheckBox2: TCheckBox;

    Button2: TButton;

    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

if checkbox1.Checked then

      begin

    showmessage('berarti rizal');

    end else

     begin

      showmessage('berarti bukan rizal');

    end;

    if checkbox2.Checked then

      begin

    showmessage('BERARTI BAKAR');

    end else

     begin

      showmessage('BUKAN BAKAR');

    end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form2.Show;

end;

end.

Lalu klik 2x di button next dan masukan kode

procedure TForm1.Button2Click(Sender: TObject);

begin

form2.Show;

end;

dan di dalam form 2 ini kta masukan komponen kedalam form adalah sebagai berikut

Nama Komponen	Caption	Name
Tcheckbox1	Rizal	checkbox1
Tcheckbox2	Bakar	Checkbox2
Tbutton1	Ok	Button1

Dan pengkodeanya adalah sebagai berikut masukan kode seperti di bawah ini pilih kode yang terletak di bawah form kan ada tiga pilihan  yaitu kode,  design dan histori klik satu kali di kode  pastikan kode sama persis di bawah ini

unit Unit2;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm2 = class(TForm)

    CheckBox1: TCheckBox;

    CheckBox2: TCheckBox;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

if checkbox1.Checked and checkbox2.Checked then

begin

  showmessage('berarti rizal dan bakar');

  end;

    if(not (checkbox1.Checked)and not(checkbox2.Checked))then

  begin

  showmessage('berarti bukan rizal dan bukan bakar');

  end;

        if(not (checkbox1.Checked)and (checkbox2.Checked))then

  begin

  showmessage('berarti bukan rizal berarti bakar');

  end;

    if( (checkbox1.Checked)and not(checkbox2.Checked))then

  begin

  showmessage('berarti rizal berarti bukan bakar');

  end;

end;

end.

Selesai deh program kita kali ini

Ingat cara memasukan form 1 dan form2

Form1 file new vcl form aplication delphi

Form2file new form-delphi lalu form2 di panggil dengan button yang ad di form1 .

Selamat mencoba,,,,,,,,

g_mail   :dprwscout717@gmail.com

blok       :designprogram717.blokspot.com

no hp    : 082302577717

Cara membuat showmessage banyak item menggunakan delphi 2010

Cara membuat showmessage banyak item  menggunakan delphi 2010

Oleh:

JOKO TURWANTO

NIM : 2011.15.458.0016

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNIK

UNIVERSITAS WAHIDIYAH

Dalam pembuatan program kita kali ini sangat sederhana dan mudah untuk di fahami selain itu jga untuk mempercantik tampilan yang saya harapkan bgi pembaca bisa mengembangkan sendiri program ini adapun cara penbuatan program showmessage banyak itemmenggunakan delphi 2010 antara lain yang pertama buka delphi 2010 kemudianbuat form baru  dan masukan komponen kedalam form komponenya adalah antara lain:

Nama komponen	caption	nama
Tlabel1	Nama	Label1
Tlabel2	Alamat	Label2
Tlabel3	Tanggal Lahir	Label3
Tlabel4	Jenis Kelamin	Label4
Tlabel5	Status	Label5
Tlabel6	Pendidikan	Label6
Tedit1	-	edit1
Tedit2	-	edit2
Tpanel1	-	Panel1
Tpanel2	-	Panel2
Tradiobutton1	Pria	radiobutton1
Tradiobutton2	Wanita	Radiobutton2
Tradiobutton3	Kawin	Radiobutton3
Tradiobutton4	Belum Kawin	Radiobutton4
Tceckbox1	Sd	ceckbox1
Tceckbox2	Smp	Ceckbox2
Tceckbox3	Sma	Ceckbox3
TdateTimePicker1		dateTimePicker1
Tbutton1	Proses	Button1
Tpanel3		Panel3
Ttimer1		Timer1
Ttimer2		Timer2
Tlabel	Designprogram717	Designprogram717

Dan pengkodeanya adalah sebagai berikut masukan kode seperti di bawah ini pilih kode yang terletak di bawah form kan ada tiga pilihan  yaitu kode,  design dan histori klik satu kali di kode  pastikan kode sama persis di bawah ini ingat radio button 1,2 letaknya di dalam panel1 dan radiobutton3,4 didalam panel2.

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, ComCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    DateTimePicker1: TDateTimePicker;

    Panel1: TPanel;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    Panel2: TPanel;

    RadioButton3: TRadioButton;

    RadioButton4: TRadioButton;

    CheckBox1: TCheckBox;

    CheckBox2: TCheckBox;

    CheckBox3: TCheckBox;

    Button1: TButton;

    waktu: TPanel;

    Timer1: TTimer;

    designprogram717: TLabel;

    Timer2: TTimer;

    procedure Button1Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

  sNama      : string;

  sAlamat    : string;

  sSD        : string;

  sSMP       : string;

  sSMA       : string;

  sStatus    : string;

  sKelamin    : String;

  sDate      :string;

begin

  sNama        := edit1.Text;

  sAlamat      := edit2.Text;

  sDate        := FormatDateTime('dd-mmmm-yyyy',DateTimePicker1.Date);

   if checkBox1.Checked then

   begin

     sSD := 'SD';

     end else

   begin

     sSD := 'bukan SD';

   end;

   if CheckBox2.Checked then

   begin

     sSMP := 'SMP';

     end else

   begin

     sSMP := 'bukan SMP';

   end;

   if checkbox3.Checked then

   begin

     sSMA := 'SMA';

     end else

   begin

     sSMA := 'bukan SMA';

   end;

   if RadioButton3.Checked then

  Begin

     sStatus := 'Kawin';

  End;

  if RadioButton4.Checked then

  begin

     sStatus := 'Belum Kawin';

  end;

  if RadioButton1.Checked then

  Begin

     sKelamin := 'Pria';

  End;

  if RadioButton2.Checked then

  begin

     sKelamin := 'Wanita';

   end;

   showmessage (snama + ',' + sAlamat +','+sDate+','+sKelamin+',' + sStatus + ',' + sSD + ',' + sSMP + ',' + sSMA);

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

waktu.Caption:=FormatDateTime('dddd, dd mmmm yyyy (hh:mm:ss)',Now);

end;

procedure TForm1.Timer2Timer(Sender: TObject);

begin

if designprogram717.Left<-designprogram717.Width then

designprogram717.Left:=Width

else

designprogram717.Left:=designprogram717.Left-1;

end;

end.

Selesai deh program kita kali ini

Selamat mencoba,,,,,,,,

g_mail   :dprwscout717@gmail.com

blok       :designprogram717.blokspot.com

no hp    : 082302577717