ProgressBar hazırlamaq

[Ʌüsal]

Forma 1 ədəd ProgressBar, 1 ədəd Button, 1 ədəd Timer əlavə edin.Button1-ə klik edin və aşağıdakı kodu daxil edin.

 

Timer1.Start()

If ProgressBar1.Value Then

End If

 

2.Timer1-ə klik edin və kodu yazın.

 

ProgressBar1.Increment(1)

 

Untitled-1.jpg

[Delphi7]

[hide]Bu da Delphi7 ucun

 

[/hide]

[__xarqo__]

Bu da "batch file" uchun....Kodlari

 Göstər/Gizlət

echo off

cls

echo [Yuklenir]

echo.

echo ±±±±±±±±±±±±±±±±±±±±±±±±±±±

ping localhost -n 2.5 >nul

cls

echo [Yuklenir]

echo.

echo ЫЫ±±±±±±±±±±±±±±±±±±±±±±±±±

ping localhost -n 2.5 >nul

cls

echo [Yuklenir]

echo.

echo ЫЫЫЫ±±±±±±±±±±±±±±±±±±±±±±±

ping localhost -n 2.5 >nul

cls

echo [Yuklenir]

echo.

echo ЫЫЫЫЫЫЫ±±±±±±±±±±±±±±±±±±±±

ping localhost -n 2.5 >nul

cls

echo [Yuklenir]

echo.

echo ЫЫЫЫЫЫЫЫЫЫЫЫ±±±±±±±±±±±±±±±

ping localhost -n 2.5 >nul

cls

echo [Yuklenir]

echo.

echo ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ±±±±±±±

ping localhost -n 2.5 >nul

cls

echo [Yuklendi!]

echo.

echo ЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫЫ

::by xarqo

ping localhost -n 2.5 >nul

[===]

AutoPlay Media Studio 8`de Music Player Ucun Olsa Lap Yaxsi Olar

[Ʌüsal]

AMS 8 üçün

 

Proyektə 1 ədəd Button 1 ədəd Progress əlavə edin.

Button-a klik edin Script bölməısində OnClik bölməsinə aşağıdakı kodu daxil edin.

 

posicion = 0;

while posicion ~= 101 do

Progress.SetCurrentPos("Progress1", posicion);

Progress.SetText("Progress1", posicion.."%");

Application.Sleep(50);

posicion = posicion +1;

end

Page.Jump("Page1");

[===]

Bunu nece edim ki, mahni oxunanda mahninin vaxtina uygun olaraq progess bar iwlesin

[Ʌüsal]

ayri movzu ac..bu movzuya qaitsmasin hamisi

terlan bilir onu