Contoh Coding Program Delphi tentang Pemesanan

 Contoh Gambarnya....

Source Codingnya ....


unit baru;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Bt_proses: TButton;
    Ed_pesan: TEdit;
    Bt_keluar: TButton;
    H_Makan: TLabel;
    H_minum: TLabel;
    GroupBox1: TGroupBox;
    Rb_pecel: TRadioButton;
    Rb_rawon: TRadioButton;
    RB_bakso: TRadioButton;
    GroupBox2: TGroupBox;
    Rb_teh: TRadioButton;
    Rb_jus: TRadioButton;
    Rb_campur: TRadioButton;
    Bt_batal: TButton;
    Label1: TLabel;
    lb_uang: TLabel;
    Label2: TLabel;
    Ed_total: TEdit;
    Ed_bayar: TEdit;
    Ed_kembalian: TEdit;
    Bt_proses2: TButton;
    procedure Bt_prosesClick(Sender: TObject);
    procedure Bt_keluarClick(Sender: TObject);
    procedure batal();
    procedure Bt_batalClick(Sender: TObject);
    procedure Bt_proses2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  makan:string;
  minum:string;
  baru,a,b,c:integer;
implementation

{$R *.dfm}
procedure TForm1.batal();
begin
 Rb_pecel.Checked:=False;
 Rb_rawon.Checked:=False;
 RB_bakso.Checked:=False;
 Rb_teh.Checked:=False;
 Rb_jus.Checked:=False;
 Rb_campur.Checked:=False;
 H_Makan.Caption:='';
 H_minum.Caption:='';
 Ed_pesan.Clear;
end;

procedure TForm1.Bt_prosesClick(Sender: TObject);
begin
  if Rb_pecel.Checked=True then
   begin
     makan:='Anda Pesan Pecel';
     H_Makan.Caption:='3000';
   end
    else if Rb_rawon.Checked=True then
     begin
      makan:='Anda Pesan Rawon';
      H_Makan.Caption:='5000';
     end
    else if RB_bakso.Checked=True then
     begin
      makan:='Anda Pesan Bakso Solo';
      H_Makan.Caption:='10000';
     end;
  if Rb_teh.Checked=True then
   begin
    minum:='Minum Es Teh';
    H_minum.Caption:='2000';
   end
    else if Rb_jus.Checked=True then
     begin
      minum:='Minum Es Jus';
      H_minum.Caption:='3000';
     end
    else if Rb_campur.Checked=true then
     begin
      minum:='Minum Es Campur';
      H_minum.Caption:='4000';
     end
    else
     begin
      Ed_pesan.Clear;
     end;

  a:=StrToInt(H_Makan.Caption);
  b:=StrToInt(H_minum.Caption);
  c:=a+b;

  if (makan<>'') and (minum<>'') then
   begin
    Ed_pesan.Text:= makan + ' dan ' + minum + ' seharga Rp. ' + IntToStr(c);
   end
  else if (makan<>'') or (minum<>'') then
   begin
   Ed_pesan.Text:='Anda Beli';
   end
  else
   begin
    Ed_pesan.Text:='Anda Tidak Beli';
   end;
  Ed_total.Text:=IntToStr(c);
end;

procedure TForm1.Bt_keluarClick(Sender: TObject);
begin
 Application.Terminate;
end;

procedure TForm1.Bt_batalClick(Sender: TObject);
begin
 batal;
end;

procedure TForm1.Bt_proses2Click(Sender: TObject);
begin
  baru:=StrToInt(Ed_bayar.Text);
  Ed_kembalian.Text:=IntToStr(baru-c);
end;

end.

Read more »

Ipang - Tentang Cinta

[intro] C D Em 4x

C       D           Em
Sekilas tentang dirimu Yang lama ku nanti
C  D        Em
memikat hatiku jumpamu pertama kali
C          D          Em
janji yang pernah terucap tuk satukan hati kita
C          D          Em
namun tak pernah terjadi

[chorus]
    D            C      D
Mungkinkah masih ada waktu
     G       D/F#   Em
yang tersisa untukku
                 C       D        Em
mungkinkah masih ada cinta di hatimu

              C     D
Andaikan saja aku tahu
          G     D/F#   Em
kau tak hadirkan cintamu
             C    D           Em
inginku melepasmu dengan pelukan

C     D               Em                  
Sesal yang datang selalu takkan membuatmu kembali
C          D                  Em
Maafkan aku yang tak pernah tahu 
                D                  C
hingga semuanya pun kini tlah berlalu
D        Em  C D        Em
Maafkan aku    Maafkan aku

[solo] C D Em Em-D 4x


[chorus]
    D            C      D
Mungkinkah masih ada waktu
     G       D/F#   Em
yang tersisa untukku
                 C       D        Em
mungkinkah masih ada cinta di hatimu

              C     D
Andaikan saja aku tahu
          G     D/F#   Em
kau tak hadirkan cintamu
             C    D           Em
inginku melepasmu dengan pelukan

    D            C      D
Mungkinkah masih ada waktu
     G       D/F#   Em
yang tersisa untukku
                 C       D        Em
mungkinkah masih ada cinta di hatimu

              C     D
Andaikan saja aku tahu
          G     D/F#   Em
kau tak hadirkan cintamu
             C    D           Em
inginku melepasmu dengan pelukan
   D         C    D           Em
inginku melepasmu dengan pelukan
   D         C    D           Em
inginku melepasmu dengan pelukan

Read more »

Dadali - Disaat Sendiri

Intro : F#m Bm E A D Bm C#

 F#m            C#m
Hari demi hari telah ku lewati
 D             A
Tak pernah aku bersamamu lagi
 Bm            F#m
Tak pernah aku menduga
       D           C#
Kau akan pergi tinggalkan aku

 F#m                  C#m
Jauh kau pergi tinggalkan diriku
 D              A
Sepi hati ini membunuhku
 Bm                 F#m
Ku coba untuk cari penggantimu
      D          C#
Namun tak ada yang sepertimu

 F#m                      Bm
Rindu aku, sangat rindu kamu
 E                              A
Terasa sejak kau masih ada di dekatku
 D                         Bm
Tak mudah aku melupakan dirimu
 C#                        F#m
Di saat aku terbangun dari tidurku

F#m                 Bm
Rindu aku, sangat rindu kamu
 E                   A
Terasa sejak kau masih ada di dekatku
 D               Bm
Tak mudah aku melupakan dirimu
 C#           F#m
Di saat aku sendiri

Int : F#m Bm E A D Bm C#

  F#m                    C#m
ooh Jauh kau pergi tinggalkan diriku
 D              A
Sepi hati ini membunuhku
 Bm                 F#m
Ku coba untuk cari penggantimu
      D          C#
Namun tak ada yang sepertimu

 F#m               Bm
Rindu aku, sangat rindu kamu
 E                   A
Terasa sejak kau masih ada di dekatku
 D                 Bm
Tak mudah aku melupakan dirimu
 C#               F#m
Di saat aku terbangun dari tidurku

#m                 Bm
Rindu aku, sangat rindu kamu
 E                   A
Terasa sejak kau masih ada di dekatku
 D               Bm
Tak mudah aku melupakan dirimu
 C#           F#m
Di saat aku sendiri

F#                C#m
rindu aku, sangat rindu kamu
F#                   B
Terasa sejak kau masih ada di dekatku
E                 C#m
Tak mudah aku melupakan dirimu
D#                    G#m
Di saat aku terbangun dari tidurku

                  C#m
Ooh rindu aku, sangat rindu kamu
F#                   B
Terasa sejak kau masih ada di dekatku
 E                C#m
Tak mudah aku melupakan dirimu
 D#                   G#m
Di saat aku terbangun dari tidurku
                   C#m
Rindu aku, sangat rindu kamu
F#               B
Terasa sejak kau masih ada di dekatku
E               C#m
Tak mudah aku melupakan dirimu
D#            G#m
Di saat aku sendiri

Read more »

Ungu - Kau Anggap Apa

Bm F#m G A 2x

Bm        F#m           G          A
Sulit tuk ku mengerti jalan pikiranmu
Bm              F#m        G           A
Setengah hatiku terluka, senangkah hatimu

Em         D       C#           F#
Ku akan pergi, kau tak menginginkanku
Em        D         C#         F#
Kau lukai kebanggaanku perasaanku

G                    
Dengan sadar menyakitiku

[chorus]
Em           A    D                 G
Ku takkan pergi bila kau anggap aku ada
Em          F#           Bm   A
Hanya mencintamu pun aku bisa
   Em         A      D              G
Takkan ku sesali, hidup tanpamu aku bisa
Em            F#              Bm
Akan hanya cinta yang ku bawa pulang

G# B

C#m          G#m        A            B
Sulitnya tuk pungkiri hati yang terbagi
C#m            G#m       A            B
Sepenuh hatiku memujamu, kau anggap apa
F#m        E       D#           G#
Ku akan pergi, kau tak menginginkanku
F#m        E         D#          G#
Ku tak ada di hatimu lagi, khianatiku

A
Dengan sadar menyakitiku

[chorus]
F#m          B    E                 A
Ku takkan pergi bila kau anggap aku ada
F#m         G#           C#m  B
Hanya mencintamu pun aku bisa
F#m           B     E               A
Takkan ku sesali, hidup tanpamu aku bisa
F#m           G#              C#m  
Akan hanya cinta yang ku bawa pulang

[int] C#m G#m
      C#m G#m A B 2x

F#m        E         D#          G#
Ku tak ada di hatimu lagi, khianatiku


[chorus]
F#m          B    E                 A
Ku takkan pergi bila kau anggap aku ada
F#m         G#           C#m  B
Hanya mencintamu pun aku bisa
F#m           B     E               A
Takkan ku sesali, hidup tanpamu aku bisa
F#m           G#              C#m  
Akan hanya cinta yang ku bawa pulang

F#m          B    E                 A
Ku takkan pergi bila kau anggap aku ada
F#m         G#           C#m  B
Hanya mencintamu pun aku bisa
F#m           B     E               A
Takkan ku sesali, hidup tanpamu aku bisa
F#m           G#              C#m  
Akan hanya cinta yang ku bawa pulang

[outro] C#m G#m 2x
        A B C#m 2x

Read more »