Diz çöküp Tevbe istesin değil mi

[yhackup]

Hazır mübarek kandil günü :

(Herkesin kandili mubarek olsun)

[tarkanbey]

(26-01-2025, Saat: 13:35)yhackup Adlı Kullanıcıdan Alıntı: Hazır mübarek kandil günü :

(Herkesin kandili mubarek olsun)

Çok Güzel Bir Post Olmuş - Teşekkürler


AŞAĞIDAKİ VİDEODA (1965 - 2024)  POPÜLER DİLLER ANLATILIYOR

DELPHİ son yıllarda maddeler arasında yer almıyor   


programming language is best for (1965-2024)

[yhackup]

Popülizm kölesi olmamak lazım. Hala Windows’a uygulama geliştiriyorsan daha iyisi yok. Her ne kadar idesi tırt olsa da

[csunguray]

(26-01-2025, Saat: 17:00)yhackup Adlı Kullanıcıdan Alıntı: Popülizm kölesi olmamak lazım. Hala Windows’a uygulama geliştiriyorsan daha iyisi yok. Her ne kadar idesi tırt olsa da

Alışkanlıklarımızın da kölesi olmamak lazım... 

[yhackup]

(27-01-2025, Saat: 10:04)csunguray Adlı Kullanıcıdan Alıntı:

(26-01-2025, Saat: 17:00)yhackup Adlı Kullanıcıdan Alıntı: Popülizm kölesi olmamak lazım. Hala Windows’a uygulama geliştiriyorsan daha iyisi yok. Her ne kadar idesi tırt olsa da

Alışkanlıklarımızın da kölesi olmamak lazım... 

Kendi adıma, Değilim zaten Verilen proje hangisinde daha düzgün yazılıyorsa onda yazarım. hiç bir dilin fanatiği değilim. Mesela delphi de biliyorum, Java da ama Mobil uygulama geliştireceğim zaman java'ya yönelirim. gibi..

[Hayati]

1000 cc Yamaha ile 50 cc bir scooter arasında hız ve performans açısından açık bir fark olduğu malum, ancak bu karşılaştırmayı bakım ve yürütme maliyetleri açısından değerlendirdiğimizde durum değişir. Bir kurye olsaydınız hangi aracı seçerdiniz?

[yhackup]

(27-01-2025, Saat: 10:40)Hayati Adlı Kullanıcıdan Alıntı: 1000 cc Yamaha ile 50 cc bir scooter arasında hız ve performans açısından açık bir fark olduğu malum, ancak bu karşılaştırmayı bakım ve yürütme maliyetleri açısından değerlendirdiğimizde durum değişir. Bir kurye olsaydınız hangi aracı seçerdiniz?

Kurye olsam ikisini de seçmezdim. En az 150cc'lik bir şey alırdım.

[vedat35]

(26-01-2025, Saat: 13:35)yhackup Adlı Kullanıcıdan Alıntı: Hazır mübarek kandil günü :

(Herkesin kandili mubarek olsun)

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
 System.SysUtils, System.Classes, Winapi.Windows;

Const
CountEnd=1000000000;

Var
StartTime, EndTime:Cardinal;
Counter:Integer;

Procedure StartSpeedTest; 
Begin
Writeln('> Begin');

  Counter:=0; 

  TThread.CreateAnonymousThread(
   Procedure
   Begin
    Sleep(500);
    StartTime:=GetTickCount;

    // -----
    {
    Repeat
     Counter:=Counter+1;   
    Until (Counter>=CountEnd);
    }

    // 80ms fark.
    
    asm
     mov eax, Counter
     mov ebx, CountEnd

     @RepeatLoop:
      inc eax
      mov Counter, eax // -> normalde bu satıra ihtiyacımız yok, burada cpu içindeki registerin değerini ram daki bellek alanına tekrar yazıyoruzki 2. thread değeri göstersin, eğer 2. thread de değeri görmek istemiyorsak bunu kapatırız, 2. thread anında sonucu gösterir, bu durumda süre nano second lara iner.

      cmp eax, ebx
      jl @RepeatLoop

      mov Counter, eax
    end; 
    
    EndTime:=GetTickCount;
    Sleep(500);
    Writeln('');
    WriteLn('> Execution Time: ', EndTime - StartTime, ' ms');
    Writeln('');       
   End).Start;

   TThread.CreateAnonymousThread(
   Procedure
   Begin
    Repeat
     Sleep(100);
     Writeln('> Counter  = '+Counter.ToString);
    Until (Counter>=CountEnd);
    Writeln('> Counter Thread Done.');
    Writeln('> End.');
   End).Start;
   
End;


begin
StartSpeedTest;  
Repeat

 if (GetAsyncKeyState(VK_RETURN)<0) then
 Begin
  StartSpeedTest;  
 End;

 if (GetAsyncKeyState(VK_ESCAPE)<0) then
 Begin
  Halt;
 End;
 
 Sleep(100);
Until (1=0);
end.

Ryzen 9 5900x - 1 Core 4.9GHZ

[SercanTEK]

Bende PHP ile aynı işlemi ekleyim.


   

Buda Lazarus