logika bahasa delphi

Program menggunakan If ...else If untuk menghitung hari

LANGKAH-LANGKAH PENGERJAAN:
1.Letakkan satu TscrollBar pada Form. Pada Properties ganti Min dan Max dengan nilai 0 dan 6 selanjutnya pada Event gantilah OnChange dengan ScrollBar1Change.
2.Letakkan satu Tedit pada Form. Pada Properties hapuslah tulisan Edit1.
3.OnClick ScrollBar dan tuliskan program sbb:
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
if (ScrollBar1.position = 0) then
Edit1.Text := ‘Minggu’
Else if (ScrollBar1.position = 1) then
Edit1.Text := ‘Senin’
Else if (ScrollBar1.position = 2) then
Edit1.Text := ‘Selasa’
Else if (ScrollBar1.position = 3) then
Edit1.Text := ‘Rabu’
Else if (ScrollBar1.position = 4) then
Edit1.Text := ‘Kamis’
Else if (ScrollBar1.position = 5) then
Edit1.Text := ‘Jumat
Else if (ScrollBar1.position = 6) then
Edit1.Text := ‘Sabtu’;
end;

end.

4.Jalankan program yang telah Anda buat, dengan mengklik run.