Bu program C++ Builder 6 ile uyumludur.Bu program Progress Bar'in nasıl kullanıldığını asal sayıların bulunması ile gösteren bir örnektir.
Kod:
{
ListBox1->Items->Clear();
int kontrol=0;
int sayi=StrToInt(InputBox("Sayi Gir","Sayıya Kadar Asalları Bul",""));
ProgressBar1->Min=0;
ProgressBar1->Max=sayi;
for(int i=2;i<=sayi;i++)
{
for(int j=2;j<sqrt(i);j++)
{
if(i%j==0)
kontrol=1;
}
if(kontrol==0)
ListBox1->Items->Add(i);
kontrol=0;
ProgressBar1->Position=i;
}