Cara Membuat Aplikasi Pendeteksi Ukuran Sepatu Anda dengan Delphi 7

Di dalam melaksanakan aktivitas kegiatan sehari-hari terutama di luar rumah kerap kali memakai sebuah alas pelindung kaki, yaitu sepatu. Sepatu saat ini menjadi trend fashion yang harus di perhatikan oleh setiap orang. Selain gaya desain yang ada pada sepatu, ukuran merupakan suatu hal yang sangat penting untuk dipertimbangkan. Salah sedikit saja apabila ukuran sepatu yang akan dikenakan tidak pas dengan ukuran kaki seseorang, maka dapat mempengaruhi kesehatan si pemilik kaki.

Berangkat dari permasalahan tersebut, kita dapat memanfaatkan teknologi lewat bahasa pemrograman Delphi 7 untuk menemukan ukuran sepatu yang pas pada setiap ukuran kaki manusia yang saling berbeda satu sama lain. Berikut tutorial nya sebagai berikut,

Membuat Aplikasi Pendeteksi Ukuran Sepatu dengan Delphi 7

1. Teman-teman yang wajib dilakukan pertama kali adalah membuka software bahasa pemrograman Borland Delphi 7.

2. Selanjutnya komposisi yang dibutuhkan untuk membuat suatu aplikasi pengukuran sepatu yaitu terdiri dari;

• 1 GroupBox yang ada pada menu standard untuk memberikan sebuah wadah/tempat dimana kita untuk melakukan penghitungan.
• 2 Edit yang berfungsi untuk menginput data/angka yang di butuhkan, disini yang tertera yaitu berapa ukuran kaki manusia dengan satuan centimeter (cm), dan sebagai tempat menampilkan hasil perhitungan.
• Label sebagai penjelas atau caption tulisan yang ada pada interface aplikasi.

2 Button untuk memberikan script code sebagai penghasil hitungan ukuran sepatu

Setelah itu langkah selanjutnya adalah memberikan script code pada button 1 yang bernama “Periksa” untuk memprediksi berapa ukuran sepatu yang tepat untuk anda sesuai dengan ukuran kaki. Berikut tampilan script codenya;

procedure TForm1.Button1Click(Sender: TObject);
var
panjangkaki, akhir : integer;

begin
panjangkaki := StrToInt(Edit1.Text);
     if panjangkaki = 32 then

    Edit3.Text:='46'

else if panjangkaki  =21 then

    Edit3.Text:='35'

else if panjangkaki  =22 then

    Edit3.Text:='36'

else if panjangkaki  =23 then

    Edit3.Text:='37'

else if panjangkaki  =24 then

    Edit3.Text:='38'

else if panjangkaki  =25 then

    Edit3.Text:='39'

else if panjangkaki  =26 then

    Edit3.Text:='40'

else if panjangkaki  =27 then

    Edit3.Text:='41'

else if panjangkaki  =28 then

    Edit3.Text:='42'

else if panjangkaki  =29 then

    Edit3.Text:='43'

else if panjangkaki  =30 then

    Edit3.Text:='44'

else if panjangkaki  =31 then

    Edit3.Text:='45'
end;

Sekedar informasi, scrip code yang digunakan kali ini adalah dengan percabangan IF THEN ELSE. Jika disederhakan dengan kalimat, maka pengertiannya adalah IF sebagai JIKA ukuran kaki 28 cm, THEN sebagai MAKA ukuran sepatu yang pas adalah 42.

Langkah selanjutnya adalah membuat script code pada button 2 yang bernama “Keluar” untuk bisa menutup aplikasi pengukur sepatu ketika selesai digunakan.

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.

Aplikasi sederhana kita telah selesai, selanjutnya teman-teman bisa menggunakan aplikasi tersebut sesuai dengan kebutuhan. Dengan adanya aplikasi tersebut kita sekarang dapat mengetahui ukuran sepatu yang sangat pas sesuai dengan ukuran kaki kita. Selamat mempraktikkan teman-teman..