Changeset 34 for branches/UltimatOS/Forms/UFormMain.pas

Timestamp:

Jul 12, 2022, 11:51:47 PM (22 months ago)

Author:

chronos

Message:

• Modified: Execute instructions as array of instruction handlers.
• Modified: Optimized some methods call with inline directive.

File:

• branches/UltimatOS/Forms/UFormMain.pas (modified) (3 diffs)

branches/UltimatOS/Forms/UFormMain.pas

@@ -18 +18 @@
     ButtonRestart: TButton;
     Label1: TLabel;
+    Label2: TLabel;
     MemoCode: TMemo;
     PaintBox1: TPaintBox;
     Timer1: TTimer;
+    Timer2: TTimer;
     procedure ButtonCompileClick(Sender: TObject);
     procedure ButtonMemoryClick(Sender: TObject);
@@ -34 +36 @@
     procedure PaintBox1Paint(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
+    procedure Timer2Timer(Sender: TObject);
   private
+    LastTicks: Integer;
     procedure InitProgram;
     procedure UpdateInterface;
@@ -143 +147 @@
 end;
 
+procedure TFormMain.Timer2Timer(Sender: TObject);
+begin
+  Label2.Caption := 'Ticks/s: ' + IntToStr(Machine.Cpu.ExecutedCount - LastTicks);
+  LastTicks := Machine.Cpu.ExecutedCount;
+end;
+
 procedure TFormMain.InitProgram;
 begin