SOURCE CODE "DR KARLS MACHINE ROBOT PHYSICS TEACHER

The machine Dr Karl commissioned by saying the fiat words" BUILD THE MACHINE."
Mr. Jeffrey,

As you requested in your last E-Mail,

Dear Gary Rob,
I wnat you to give me the source code for the updated BEYOND 2000 PHYSICS KNOWLEDGE CARDS application.
I want to give the source code to me to give to Dr Karl Kruselnicki for possible supercomputer applications at WASP.
It is a do it yourself kit to program Supercomputers in Western Australia which use my theory...
This is very important Rob I need the source code.
I got burned before with another program for which I didn't get the source code now I can't put it into new languages.
If possible could you also write it in basic when I pay you the rest of the money.
Basic is the all purpose language....... and can be converted into anything else.
That is if you are good with visual basic.
Steve A Jeffrey

Here is the source code for the updates of the Physics Knowledge Cards.



unit uMain;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Menus;

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Button3: TButton;
Button4: TButton;
Button5: TButton;
MainMenu1: TMainMenu;
Hlep1: TMenuItem;
contents1: TMenuItem;
Index1: TMenuItem;
N1: TMenuItem;
wwwcjwcom1: TMenuItem;
N2: TMenuItem;
About1: TMenuItem;
File1: TMenuItem;
Contents2: TMenuItem;
Index2: TMenuItem;
N3: TMenuItem;
wwwcjwcom2: TMenuItem;
N4: TMenuItem;
About2: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Button2Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure About1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses About, Unit3, Unit4;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.ReadOnly := false;
Edit2.ReadOnly := false;
Button2.Caption := '&Store Equation in File';
end;


procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) then
begin
Label1.Caption := Edit1.Text;
Label2.Caption := Edit2.Text;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
TFile : TextFile;

begin
AssignFile(TFile, 'physics.txt');
Reset(TFile);
Append(TFile);
Writeln(TFile, Edit1.Text);
Writeln(TFile, Edit2.Text);
Writeln(TFile, ' ');
Flush (TFile);
CloseFile(TFile);

Button2.Caption := 'Done';
Edit1.ReadOnly := true;
Edit2.ReadOnly := true;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.About1Click(Sender: TObject);
begin
Form2.ShowModal;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form3.Show;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Form4.Show;
end;

end.



unit Unit3;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

type
TForm3 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Panel2: TPanel;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function ActivateCard(pThisCard : integer) : boolean;
end;

type
TPlrCard = class
public
Name : string;
Expression : string;

constructor Create;
end;

type
TDisplay = class
public
Activated : boolean;

constructor Create;
end;

var
Form3: TForm3;
PlrCard : array[1..55] of TPlrCard;
Display : array[1..4] of TDisplay;

implementation

uses uMain, Unit4;

{$R *.DFM}

constructor TPlrCard.Create;
begin
end;

constructor TDisplay.Create;
var
i : integer;

begin
{set Display cards to false}
for i := 1 to 3 do
begin
Display[i].Activated := false;
end;

{read in values for the Plrcards}

{SetUpPlrCards;}
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
Form1.Show;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
Form4.Show;
end;


procedure TForm3.Button5Click(Sender: TObject);
begin
Display[1].Activated := ActivateCard(1);
end;


procedure TForm3.Button6Click(Sender: TObject);
begin
Display[2].Activated := ActivateCard(2);
end;

procedure TForm3.Button7Click(Sender: TObject);
begin
Display[3].Activated := ActivateCard(3);
end;

function TForm3.ActivateCard(pThisCard : integer) : boolean;
var
i : integer;

begin
if Display[pThisCard].Activated = true then
begin
if (pThisCard <> 4 ) then
Display[pThisCard].Activated := false;
case pThisCard of
1: Shape1.Brush.Color := clTeal;
2: Shape2.Brush.Color := clTeal;
3: Shape3.Brush.Color := clTeal;
4: begin
for i := 1 to 3 do
begin
Display[i].Activated := false;
end;
Shape1.Brush.Color := clTeal;
Shape2.Brush.Color := clTeal;
Shape3.Brush.Color := clTeal;
end;
end;
end
else
begin
Display[pThisCard].Activated := true;
case pThisCard of
1: Shape1.Brush.Color := clYellow;
2: Shape2.Brush.Color := clYellow;
3: Shape3.Brush.Color := clYellow;
4: begin
for i := 1 to 3 do
begin
Display[i].Activated := true;
end;
Shape1.Brush.Color := clYellow;
Shape2.Brush.Color := clYellow;
Shape3.Brush.Color := clYellow;
end;
end;
end;
Result := Display[pThisCard].Activated;
end;

end.

Lastly, your CD is in the mail. I have mailed it on the 12th of October. However, the mailing fees were pretty hefty this time at $72.00. This has caused me to cease future CD mailing until the project is done (even if you do volunteer to pay for the postage and handling fees yourself) Therefore, all future updates will be E-mailed to your E-Mail address or through Kasamba. The final product will be delivered on CD, when we have agreed that the work is complete. The price will be included in the already agreed upon sum of $350.00

My best wishes for our Mutual Success,
Amanda Dearheart