TUGAS PETRUK PERTEMUAN 2

Jadi pada pertemuan 2 bersama pak Pipin Sitio kemarin, kita diberikan tugas baru lagi guys..
yaitu disurug buat 5 design yang ada di handout, dari handout pertemuan 1 s.d. pertemuan 4.

Yok lah kita masuk ke design yang pertama

Design 1 Pertemuan 1

//source codenya :

unit UPertemuan1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label8: TLabel;
    Label9: TLabel;
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.Edit2Change(Sender: TObject);
begin

end;

procedure TForm1.Edit3Change(Sender: TObject);
begin

end;

procedure TForm1.Edit4Change(Sender: TObject);
begin

end;

procedure TForm1.Edit5Change(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

end;


end.



Nah sekarang kita masuk ke Design yang kedua

Design 2 Pertemuan 2

Source code nya :
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit6: TEdit;
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.Edit2Change(Sender: TObject);
begin

end;

procedure TForm1.Edit3Change(Sender: TObject);
begin

end;

procedure TForm1.Edit4Change(Sender: TObject);
begin

end;

procedure TForm1.Edit5Change(Sender: TObject);
begin

end;

procedure TForm1.Edit6Change(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

end;

end.





Sekarang kita masuk design yang kedua

Design 3 Pertemuan 2

Source Codenya :

unit UPertemuan2;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit6: TEdit;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Label8: TLabel;
    Label9: TLabel;
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.Edit2Change(Sender: TObject);
begin

end;

procedure TForm1.Edit3Change(Sender: TObject);
begin

end;

procedure TForm1.Edit4Change(Sender: TObject);
begin

end;

procedure TForm1.Edit5Change(Sender: TObject);
begin

end;

procedure TForm1.Edit6Change(Sender: TObject);
begin

end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin

end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin

end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin

end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

end;

end.




Nah sekarang ktia masuk ke pertemuan 3

Design 4 Pertemuan 3

Source code nya:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    RadioGroup1: TRadioGroup;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure GroupBox1Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.Edit2Change(Sender: TObject);
begin

end;

procedure TForm1.Edit3Change(Sender: TObject);
begin

end;

procedure TForm1.Edit4Change(Sender: TObject);
begin

end;

procedure TForm1.Edit5Change(Sender: TObject);
begin

end;

procedure TForm1.Edit6Change(Sender: TObject);
begin

end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin

end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin

end;

procedure TForm1.GroupBox1Click(Sender: TObject);
begin

end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin

end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin

end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin

end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin

end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

end;

end.










Naaahhh  sekarang kita masuk ke design yang terakhir!!

Design 5 Pertemuan 4

unit UPertemuan4;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label3: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.Edit2Change(Sender: TObject);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

end;

end.

Read More

PEMROGRAMAN TERSTRUKTUR (MODIFIED)

Jadi gini gan.. saya buat 2 camku disini.. Kalau yg ini saya buat ada modifikasinya sedikit..
langsung ajalah ya gan ke intinya..

unit Trans;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Tdisk: TEdit;
    Button1: TButton;
    Button2: TButton;
    TLama: TEdit;
    Tharga: TEdit;
    TJumlah: TEdit;
    TKet: TEdit;
    Label7: TLabel;
    TTotal: TEdit;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure TLamaKeyPress(Sender: TObject; var Key: Char);
    procedure ThargaKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  TLama.Text:='';
  Tdisk.Text:='';
  Tharga.Text:='';
  TJumlah.Text:='';
  TTotal.Text:='';
  TKet.Text:='';
  TLama.Enabled:=True;
  Tharga.Enabled:=True;
  TLama.SetFocus;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TJumlah.Enabled:=False;
TKet.Enabled:=False;
TTotal.Enabled:=False;
Tdisk.Enabled:=False;
TLama.Enabled:=False;
Tharga.Enabled:=False;
end;

procedure TForm1.Button3Click(Sender: TObject);
var Disk,Jumlah:real;
begin
  //Diskon
  Jumlah:=StrToInt(TLama.Text)*StrToInt(Tharga.Text);
  if Jumlah >= 1000000 then begin
     Disk:=Jumlah * 10 / 100;
     Tdisk.Text:=FloatToStr(Disk);
     end
  else begin
      Disk:=0;
      Tdisk.Text:=FloatToStr(Disk);
  end;
  TJumlah.Text:=FloatToStr(Jumlah);
  //Dapat Diskon atau Tidak
if Disk = 0 then begin
    TKet.Text:='Tidak Mendapatkan Diskon';
    end
else
    TKet.Text:='Dapat Diskon';
  //Total Bayar
  TTotal.Text:=FloatToStr(Jumlah - Disk);

end;
procedure TForm1.TLamaKeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9',#8]) then begin
    Key:=#0;
    beep
end;
end;

procedure TForm1.ThargaKeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in['0'..'9',#8]) then begin
    Key:=#0;
    beep
end;
end;

end.

Hasil program nya ada dibawah ini ya gan..

Tampilan Hasil Program

Jadi itu saja camku kita hari ini..
Semoga bermanfaat, kalau ada salah silakan komentar di bawah.
Thank you.

Read More

Pemrograman Terstruktur pertemuan pertama

Whatsuuuuuuuuuuuupppp... Masuk pertemuan pertama, langsung ada tugas camku gan.
Langsung aja keintinya..


Yang agan butuhkan
3 Buah textbox
2 Buah button
4 Buah Label

masuk ke source code:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    THK: TEdit;
    TJUMLAH: TEdit;
    CMULAI: TButton;
    CSELESAI: TButton;
    TLM: TEdit;
    procedure TLMChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CSELESAIClick(Sender: TObject);
    procedure THKChange(Sender: TObject);
    procedure CMULAIClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.TLMChange(Sender: TObject);
  var
   Sjml:string[30];
   Tsem:integer;
   Slm,Shk,Sjumlah:single;
   begin
   Val(Tlm.text,Slm,Tsem);
   Val(Thk.text,Shk,Tsem);
   Sjumlah:=Slm*Shk;
   str(Sjumlah:30:0,Sjml);
   Tjumlah.text:=Sjml;
   end;

procedure TForm2.FormCreate(Sender: TObject);
begin
 Tjumlah.enabled:=False;
 Tjumlah.color:=clbtnface;
end;

procedure TForm2.CSELESAIClick(Sender: TObject);
begin
   Application.Terminate;
end;

procedure TForm2.THKChange(Sender: TObject);
var
  sjml:string[30];
  Tsem:integer;
  Slm,Shk,Sjumlah:single;
begin
   Val(Tlm.text,Slm,Tsem);
   Val(Thk.text,Shk,Tsem);
   Sjumlah:=Slm*Shk;
   str(Sjumlah:30:0,Sjml);
end;

procedure TForm2.CMULAIClick(Sender: TObject);
begin
Tlm.text:='';
Thk.text:='';
Tjumlah.text:='';
Tlm.SetFocus;
end;

end.


Jadi hasilnya seperti ini gan

Tampilan Program

Oi gan, jangan lupa camku nya ada 2, pertama di blog dan yang kedua di catatan.
Jika ada kesalahan tolong dimaafkan karena kita disini semua belajar.
Peace Out!

Read More