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 |
LISTINGPROGRAM
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
Print
PDF
Blogger
Google+
Facebook
Twitter