Lazarus Free Pascal Latihan 6

unit Latihanunit6;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }

    // Menyatakan bahwa type data bNum0, bNum1 adalah byte
    bNum0, bNum1:byte;

    // Menyatakan bahwa type data sJawaban adalah string
    sJawaban:String;

  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Menentukan nilai dari varibel bNum0
  bNum0 :=5;

  // Menentukan nilai dari variabel bNum1
  bNum1 :=2;


  // Membuat tulisan yang tampil di Label1
  Label1.Caption:= 'Berapakah hasil ' + IntToStr(bNum0) + ' + ' + IntToStr(bNum1) + ' ? ';

  // Membuat Rumus Penjumlahan antara variabel bNum0 dengan bNum1
  sJawaban := inttostr(bNum0+bNum1);

  // Edit1.Text := '';


  // Mengisi textbox Edit 1 dengan hasil penjumlahan sJawaban
    Edit1.Text:= sJawaban;


end;

end.