PERULANGAN FOR PADA VISUAL PROLOG

pada program diatas, pengocokan dadu menggunakan foreach untuk perulangannya, dan menggunakan timer untuk menggerakan perputaran foreach, dan dibawah ini yang dibahas hanya untuk pembuatan foreach.

Perulangan pada visual prolog sama seperti  perulangan pada bahasa pemrograman pada umumnya, terdapat beberapa jenis seperti for, while dan until. Namun untuk for pada visual prolog, memiki nama yang berbeda yaitu foreach, berikut stetement foreach pada visual prolog.

      foreach I=std::fromTo(1,6) do

             edit_ctl:setText(tostring(I))

      end foreach.

Penjelasan :

      foreach I=std::fromTo(1,6) do    %artinya dilakukan perulangan dari 1 sampai 6, dan nilainya ditampung kedalam variabel  (I)  dan akan digunakan  pada statement edit_ctl:setText(tostring(I)) nilai 1-6 akan tercetak pada edit_ctl, namun yang akan terlihat dicetak hanya angka 6, saja karena angka1-5  telah tertiban oleh 6, intinya dengan coding diatas kita telah melakukan perulangan sebanyak 6 kali, jika ingin melihat secara jelas, bisa dilihat di program selanjutnya 

      foreach I=std::fromTo(1,6) do

                stdIO::write (“coba”), 

          stdIO::write (I)        

      end foreach.

Pada bagian ini akan terlihat lebih jelas perulangannya karena nilai I akan tercetak pada message.

End foreach. sendiri merupakan akhir dari perulangan foreach pada visual prolog, 

Dan perlu diingat jika didalam blok foreach ada beberapa statement, jika masih ada statement selanjunya seperti  stdIO::write (“coba”), maka kita harus menggunakan (,) koma dibagian akhir. Dan untuk statement terakhir sebelum end foreach, ditulis tanpa tanda koma atau titik.

Sedangkan untuk perulangan while pada visual prolog, menggunakan statement sebagai berikut, saya mendapatkan coding berikut dari forum, dan seya sendiri belum mencobanya, dan kurang lebih seperti ini

predicates
      do_while:(integer Loop_Condition) procedure(i).
clauses
     do_while(10):-!.        % Put condition that should end the loop first .
   
     do_while(N):-
          stdIO::write (N),    % Do your job here
          NewN=N+1 ,          % change Loop conditional Value
          do_while(NewN).    % Loop Return

untuk melihat semua materi mengenai visual prolog, bisa dilihat disini..

VISUAL PROLOG