Changeset 30 for branches/UltimatOS/Forms

Timestamp:

Jul 5, 2022, 8:28:18 PM (2 years ago)

Author:

chronos

Message:

• Modified: Improved sample code execution.
• Added: Memory map form.

Location:

branches/UltimatOS

Files:

• . (modified) (1 prop)
• Forms (added)
• Forms/UFormMain.lfm (moved) (moved from branches/UltimatOS/UFormMain.lfm ) (1 diff)
• Forms/UFormMain.pas (moved) (moved from branches/UltimatOS/UFormMain.pas ) (4 diffs)
• Forms/UFormMemory.lfm (added)
• Forms/UFormMemory.pas (added)

branches/UltimatOS/Forms/UFormMain.lfm

@@ -36 +36 @@
     TabOrder = 1
   end
+  object Label1: TLabel
+    Left = 662
+    Height = 22
+    Top = 500
+    Width = 68
+    Caption = 'Instrukcí:'
+  end
+  object ButtonMemory: TButton
+    Left = 128
+    Height = 33
+    Top = 496
+    Width = 98
+    Caption = 'Memory'
+    OnClick = ButtonMemoryClick
+    TabOrder = 2
+  end
   object Timer1: TTimer
     Interval = 20

branches/UltimatOS/Forms/UFormMain.pas

@@ -12 +12 @@
 
   TFormMain = class(TForm)
+    ButtonMemory: TButton;
     ButtonRun: TButton;
+    Label1: TLabel;
     MemoCode: TMemo;
     PaintBox1: TPaintBox;
     Timer1: TTimer;
+    procedure ButtonMemoryClick(Sender: TObject);
     procedure ButtonRunClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -37 +40 @@
 
 uses
-  UInstructionWriter;
+  UInstructionWriter, UFormMemory;
 
 { TFormMain }
@@ -49 +52 @@
 procedure TFormMain.ButtonRunClick(Sender: TObject);
 begin
+  Machine.Reset;
   with TInstructionWriter.Create do
   try
@@ -56 +60 @@
     Free;
   end;
-  Machine.Reset;
   Machine.Cpu.Run;
+  Label1.Caption := 'Executed instructions: ' + IntToStr(Machine.Cpu.ExecutedCount);
+end;
+
+procedure TFormMain.ButtonMemoryClick(Sender: TObject);
+begin
+  FormMemory.Memory := Machine.Memory;
+  FormMemory.Show;
 end;