Membuat daftar menu pesanan menggunakan bahasa pemprograman delphi

Listing program

var

    a:integer;

    b:integer;

begin      

A:=StrToInt(input_mkn.Text);

B:=StrToInt(input_mnm.Text);

begin

case A of

1:pesanan.text:='AYAM STEAK dan ';

2:pesanan.text:='AYAM PENYET dan ';

3:pesanan.text:='AYAM PEDAS dan ';

end;

begin

case B of

4:pesanan.Text:=pesanan.text+'ES TELER';

5:pesanan.Text:=pesanan.text+'AVOCADO FLOAT';

6:pesanan.Text:=pesanan.text+'ROOZEN ROSE';

end;

end;

end;

end;

end.

Output program

 

Input program

Logika program

Kali ini saya akan menjelaskan logika program yang telah dibuat pada lembar sebelumnya,dengan menggunakan bahasa pemprograman Delphi.disini kita akan menbuat suatu program daftar menu untuk rumah makan yang akan mengeluarkan output berupa pesanan yang dipesan berikut adalah logika progranya:

var

    a:integer;

    b:integer;

didalam Delphi suatu variable harus dedeklarasikan terlebih dahulu seperti halnya bahasa pemprograman java a:integar maksudnya a merupakan suatu variable berjenis integer.

begin      

A:=StrToInt(input_mkn.Text);

B:=StrToInt(input_mnm.Text);

Setelah mendeklarasikan suatu variable barulah begin, A:=StrToInt(input_mkn.Text);

Masksudnya adalah A yang tadinya variabel string dirubah menjadi integer,jenis makanan yang nantinya akan diinput akan dibaca sebagai A oleh bahasa program.

case A of

1:pesanan.text:='AYAM STEAK dan ';

2:pesanan.text:='AYAM PENYET dan ';

3:pesanan.text:='AYAM PEDAS dan ';

end;

dalam program ini digunakan juga suatu pilihan yaitu menggunakan case,ada 2 case yang digunakan jadi case 1 ubtuk pilihan 1 dan case 2 utuk pilihan 2 1:pesanan.text:='AYAM STEAK dan ';   artinya jika inputkan yang dimasukkan adalah 1 maka akan keluar output “AYAM STEAK dan” .disini end digunakan sebagai akhir dari suatu pilihan.

Dalam program ini tool yang digunakan ada beberapa yaitu:

1.Label : digunakan untuk  sutu kata-kata/tulisan dioutput

2.edit : digunakan untuk memasukkan suatu kata pada outputnya

3.Button : digunakan untuk ok atau cetak dan akan keluar outputnya dari suatu program(biasanya rumus diletakakn disini)

4.Group box : digunakan untuk : membuat aprogram didalamnya.