Tampilan pada Form1
Form
seperti diatas dibuat dengan mengatur
komponen-komponen :
|
Form/Control
|
Properties
|
Setting
|
|
Group Box
|
Caption
|
Case_Of_Box
|
|
|
Name
|
GroupBox1
|
|
Label1
|
Caption
|
GOPS Cell
|
|
Label2
|
Caption
|
Pilihan 1
Indosat
|
|
Label3
|
Caption
|
Pilihan 2
Telkomsel
|
|
Label4
|
Caption
|
Pilihan 3
Smart
|
|
Label5
|
Caption
|
Pilihan 4
Fren
|
|
Label6
|
Caption
|
Pilihan 5
Xl
|
|
Label7
|
Caption
|
Pilihan 6
dengan Elektrik
|
|
Label8
|
Caption
|
Pilihan 7
dengan Voucher
|
|
Label9
|
Caption
|
Merk :
|
|
Label10
|
Caption
|
Jenis :
|
|
Label11
|
Caption
|
Pilihan
Anda adalah
|
|
Edit1
|
Caption
|
(Kosongkan)
|
|
Edit2
|
Caption
|
(Kosongkan)
|
|
pilihan_case
|
Name
|
Pilihan_case
|
|
Button1
|
Caption
|
Hasilnya
|
|
|
Name
|
Button1
|
LISTING
PROGRAM
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
pilihan_case: TEdit;
procedure Button1Click(Sender: TObject);
private
{
Private declarations }
public
{
Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender:
TObject);
var
B, C
: Integer;
begin
B :=
StrToInt(Edit1.Text);
C :=
StrToInt(Edit2.Text);
begin
case B of
1: pilihan_case.Text := 'Indosat dengan cara ';
2: pilihan_case.Text := 'Telkomsel dengan cara ';
3: pilihan_case.Text := 'Smart dengan cara ';
4: pilihan_case.Text := 'Fren dengan cara ';
5: pilihan_case.Text := 'Xl dengan cara ';
end;
case C of
6: pilihan_case.Text := pilihan_case.Text + 'elektrik';
7: pilihan_case.Text := pilihan_case.Text + 'voucher';
end;
end;
end;
end.
LOGIKA PROGRAM
procedure TForm1.Button1Click(Sender:
TObject);
var
B, C : Integer;
begin
B := StrToInt(Edit1.Text);
C := StrToInt(Edit2.Text);
Procedure
TForm1.Button1Click (Sender: TObject), merupakan prosedur yang kita inginkan
akan dijalankan oleh program tersebut. Jadi prosedur tersebut berfungsi untuk
Button Hasilnya saat di klik.
Kata
var menunjukan istilah variabel.
B,C
di deklarasikan dalam bentuk tipe data integer atau bilangan bulat
positif/negatif.
Kata
Begin untuk memulai program.
B:=
StrToInt(input_merk_case.text) dan C:= StrToInt(input_jenis_case.Text),
digunakan untuk mengkonversi dari tipe data String menjadi tipe data Integer
dimana berfungsi untuk menginput pada pilihan Merk dan Jenis.
begin
case B of
1: pilihan_case.Text := 'Indosat dengan
cara ';
2: pilihan_case.Text := 'Telkomsel
dengan cara ';
3: pilihan_case.Text := 'Smart dengan
cara ';
4: pilihan_case.Text := 'Fren dengan
cara ';
5: pilihan_case.Text := 'Xl dengan cara
';
end;
Kata
begin digunakan untuk memulai program.
Case
B of, digunakan untuk menentukan pilihan pada Merk tetapi hanya untuk pilihan 1
sampai 5.
1:
pilihan_case.Text := 'Indosat dengan cara ',2: pilihan_case.Text := 'Telkomsel
dengan cara ', 3: pilihan_case.Text := 'Smart dengan cara ', 4:
pilihan_case.Text := 'Fren dengan cara '; 5: pilihan_case.Text := 'Xl dengan
cara ', digunakan untuk hasil outputnya, jadi jika kita memilih angka yang
diinginkan maka hasilnya berupa Merk (misal Indosat) diikuti dengan kata “dengan
cara ....” .
Kata
end; digunakan untuk mengakhiri blok program (pilihan Merk).
case C of
6: pilihan_case.Text :=
pilihan_case.Text + 'elektrik';
7: pilihan_case.Text :=
pilihan_case.Text + 'voucher';
end;
end;
end;
end.
Kata
case C of digunakan untuk menentukan pilihan Jenis (jenis pembelian pulsa).
6:
pilihan_case.Text := pilihan_case.Text + 'elektrik', 7: pilihan_case.Text :=
pilihan_case.Text + 'voucher', digunakan untuk penggabungan output case B of
dan case C of, yaitu penggabungan hasil dari pilihan Merk dengan hasil Jenis
(jenis pembelian), misal memilih 1 dan 6, maka hasilnya “Indosat dengan cara
elektrik” .
Kata
end; digunakan untuk mengakhiri blok program pilihan Jenis.
Sedangkan
kata end. Digunakan untuk mengakhiri keseluruhan program.
Tampilan output saat di Running
Tampilan pada Form1
Form
seperti diatas dibuat dengan mengatur
komponen-komponen :
|
Form/Control
|
Properties
|
Setting
|
|
Group Box
|
Caption
|
Case_Of_Box
|
|
|
Name
|
GroupBox1
|
|
Label1
|
Caption
|
GOPS Cell
|
|
Label2
|
Caption
|
Pilihan 1
Indosat
|
|
Label3
|
Caption
|
Pilihan 2
Telkomsel
|
|
Label4
|
Caption
|
Pilihan 3
Smart
|
|
Label5
|
Caption
|
Pilihan 4
Fren
|
|
Label6
|
Caption
|
Pilihan 5
Xl
|
|
Label7
|
Caption
|
Pilihan 6
dengan Elektrik
|
|
Label8
|
Caption
|
Pilihan 7
dengan Voucher
|
|
Label9
|
Caption
|
Merk :
|
|
Label10
|
Caption
|
Jenis :
|
|
Label11
|
Caption
|
Pilihan
Anda adalah
|
|
Edit1
|
Caption
|
(Kosongkan)
|
|
Edit2
|
Caption
|
(Kosongkan)
|
|
pilihan_case
|
Name
|
Pilihan_case
|
|
Button1
|
Caption
|
Hasilnya
|
|
|
Name
|
Button1
|
LISTING
PROGRAM
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
pilihan_case: TEdit;
procedure Button1Click(Sender: TObject);
private
{
Private declarations }
public
{
Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender:
TObject);
var
B, C
: Integer;
begin
B :=
StrToInt(Edit1.Text);
C :=
StrToInt(Edit2.Text);
begin
case B of
1: pilihan_case.Text := 'Indosat dengan cara ';
2: pilihan_case.Text := 'Telkomsel dengan cara ';
3: pilihan_case.Text := 'Smart dengan cara ';
4: pilihan_case.Text := 'Fren dengan cara ';
5: pilihan_case.Text := 'Xl dengan cara ';
end;
case C of
6: pilihan_case.Text := pilihan_case.Text + 'elektrik';
7: pilihan_case.Text := pilihan_case.Text + 'voucher';
end;
end;
end;
end.
LOGIKA PROGRAM
procedure TForm1.Button1Click(Sender:
TObject);
var
B, C : Integer;
begin
B := StrToInt(Edit1.Text);
C := StrToInt(Edit2.Text);
Procedure
TForm1.Button1Click (Sender: TObject), merupakan prosedur yang kita inginkan
akan dijalankan oleh program tersebut. Jadi prosedur tersebut berfungsi untuk
Button Hasilnya saat di klik.
Kata
var menunjukan istilah variabel.
B,C
di deklarasikan dalam bentuk tipe data integer atau bilangan bulat
positif/negatif.
Kata
Begin untuk memulai program.
B:=
StrToInt(input_merk_case.text) dan C:= StrToInt(input_jenis_case.Text),
digunakan untuk mengkonversi dari tipe data String menjadi tipe data Integer
dimana berfungsi untuk menginput pada pilihan Merk dan Jenis.
begin
case B of
1: pilihan_case.Text := 'Indosat dengan
cara ';
2: pilihan_case.Text := 'Telkomsel
dengan cara ';
3: pilihan_case.Text := 'Smart dengan
cara ';
4: pilihan_case.Text := 'Fren dengan
cara ';
5: pilihan_case.Text := 'Xl dengan cara
';
end;
Kata
begin digunakan untuk memulai program.
Case
B of, digunakan untuk menentukan pilihan pada Merk tetapi hanya untuk pilihan 1
sampai 5.
1:
pilihan_case.Text := 'Indosat dengan cara ',2: pilihan_case.Text := 'Telkomsel
dengan cara ', 3: pilihan_case.Text := 'Smart dengan cara ', 4:
pilihan_case.Text := 'Fren dengan cara '; 5: pilihan_case.Text := 'Xl dengan
cara ', digunakan untuk hasil outputnya, jadi jika kita memilih angka yang
diinginkan maka hasilnya berupa Merk (misal Indosat) diikuti dengan kata “dengan
cara ....” .
Kata
end; digunakan untuk mengakhiri blok program (pilihan Merk).
case C of
6: pilihan_case.Text :=
pilihan_case.Text + 'elektrik';
7: pilihan_case.Text :=
pilihan_case.Text + 'voucher';
end;
end;
end;
end.
Kata
case C of digunakan untuk menentukan pilihan Jenis (jenis pembelian pulsa).
6:
pilihan_case.Text := pilihan_case.Text + 'elektrik', 7: pilihan_case.Text :=
pilihan_case.Text + 'voucher', digunakan untuk penggabungan output case B of
dan case C of, yaitu penggabungan hasil dari pilihan Merk dengan hasil Jenis
(jenis pembelian), misal memilih 1 dan 6, maka hasilnya “Indosat dengan cara
elektrik” .
Kata
end; digunakan untuk mengakhiri blok program pilihan Jenis.
Sedangkan
kata end. Digunakan untuk mengakhiri keseluruhan program.
Tampilan output saat di Running
Comments (0)
Post a Comment