Jump to content
Forum Windows-az.com

Kompüter nə qədər vaxt açıqdır


Ʌüsal

Recommended Posts

Mövzu başlıqığından aydın olur ki bu dəfəki proyektimiz bizə kompüterin neçə saat və ya dəqiqə açıq olduğunu bildirəcəkdir.

İlk əvvəl forma 1 ədəd Button və 1 ədə Label əlavə edin.

Daha sonra kod bölümünə keçin.

{$R *.dfm} sətrinin aşağısına kodumuzu əlavə edirik

 

function Uptime: string;

var

count,

days,

min,

hours,

seconds : longint;

begin

Count := GetTickCount();

Count := Count div 1000;

Days := Count div (24 * 3600);

if Days > 0 then

Count := Count - (24 * 3600 * Days);

Hours := Count div 3600;

if Hours > 0 then

Count := Count - (3600 * Hours);

Min := Count div 60;

Seconds := Count mod 60;

Result := IntToStr(Days)+\' Gun \'+IntToStr(Hours)+

\' Saat \'+IntToStr(Min)+\' Deqiqe \'+

IntToStr(seconds) +\' Saniye \';

 

Daha sonra Button kilik edin və kodu daxil edin.

 

Label1.Caption:=Uptime;

 

5.jpg

- Laptop ve Desktop Anakartlarin temiri

- BIOS yazilmasi

- Sifreli SuperUser BIOS-larin silinmesi

- Kicik chiplerin deyisidrilmesi

- BGA Chiplerin deyisdirilmesi (GPU/CPU/FCH/PCH/HM ve s)

Link to comment
Share on other sites

Proqramlar telegramda

lechfak

dispetcerin programlama ile elaqesi yoxdu.bu sadece 0-dan yigilan programa ve istifad edilen kodlardai oyrenmek ucundur.

- Laptop ve Desktop Anakartlarin temiri

- BIOS yazilmasi

- Sifreli SuperUser BIOS-larin silinmesi

- Kicik chiplerin deyisidrilmesi

- BGA Chiplerin deyisdirilmesi (GPU/CPU/FCH/PCH/HM ve s)

Link to comment
Share on other sites

deymez..

 

---------

 

Bu funksialar ozunuzun yigdigi programin her hansi bir yerine elave ede bilersiniz.yeni kenardan baxanda sade bir seye benzeyir her deyen lazim olan bir sey deyl ama program yiganda artiq orda istifade ede bilersiniz.

- Laptop ve Desktop Anakartlarin temiri

- BIOS yazilmasi

- Sifreli SuperUser BIOS-larin silinmesi

- Kicik chiplerin deyisidrilmesi

- BGA Chiplerin deyisdirilmesi (GPU/CPU/FCH/PCH/HM ve s)

Link to comment
Share on other sites

Sohbete katıl

Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.

Misafir
Bu konuya yanıt ver...

×   Zengin metin olarak yapıştırıldı.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri yüklendi.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • loading...
×
×
  • Create New...