Membuat Program Percabangan Sederhana Pada VB 6.0

Sebenernya sih ini tugas LA semester kemaren, daripada dibuang mending taro di sini dah, hhe :D

Di tutorial ini kita akan membuat program percabangan sederhana pada visual basic. Langsung aja dah

1. Buat susunan form seperti ini, bisa juga design lain terserah Anda

Tampilan Form Output

Tampilan Object Inspector dan TreeView

2. Lalu ketikkan code program berikut

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    inilai: TEdit;

    onilai: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Label3: TLabel;

    Label4: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

a:real;

begin

a:=strtofloat(inilai.Text);

if a>=100 then onilai.Text:='input salah'

else if (a >= 80) then begin onilai.Text:='A' end

else if (a >=65) then begin onilai.Text:='B' end

else if a >=50 then begin onilai.Text:='C' end

else if a >=40 then begin onilai.Text:='D' end

else if a >=10 then begin onilai.Text:='E' end

else if a<10 then begin onilai.Text:='input salah' end

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  edit1.Text:='';

  inilai.Text:='';

  onilai.Text:='';

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

  application.Terminate;

end;

end.

3. Klik tombol Start, dan ini output setelah di run.

Semoga bermanfaat :)