kcmil To Diameter (CM) Converter

[BobboHobbo]

Well, my bro needed this for UNI or some shit about eletrical eningineer so i made this from scar..

I dont know if you need it or not .

Enjoy if you need it sometime

program New;

var
  // Converter variables.
  EndConverter: Boolean;
  TheConverterForm: TForm;
  AnswerL, ValueL, NameL: TLabel;
  ValueE: TEdit;
  KCtoD, DtoKC, ClearB: TButton;

// When the form is closed, this code will be executed.

procedure ConverterOnClose(Sender: TObject; var Action: TCloseAction);
begin
  if (not (TheConverterForm.ModalResult = 1)) then
    EndConverter := True;
end;

procedure DrawImages(Sender: TObject);
var
  Picture: Integer;
  Canvas: TCanvas;

begin
  //Form Title
  Picture := BitmapFromString(376, 378, 'beNrt2z9O40AUB+A9HXAL' +
    '4AjABYAeaFe7JYgORAWiQdAgKBCiAFGAqNFq77BP+6SR5STGhIT88' +
    'Rd9RXDGiWfs99vJOPv+9887AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
    'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
    'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
    'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
    'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
    'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
    'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA' +
    'AAAAAAAAAAAAAABMqR+DHwYHGEmkjLA9IF6m8N0A8SJwgGkof4EDX' +
    'QuZzn468D2TCocBdKS0pQ1IGIcHzNNiiKgBIeNogfkoW1EDFmQcPD' +
    'A3UwJRA8pTX0DI6BGgJEUNqEf9ArpTjKIGlKE+ggLUU0Dp6S+oO/0' +
    'FIaPXgIrTa1Bu+g6oNX0HhWYEQIkZB0B9GQdQX8YBFJfRAFSW0QCV' +
    'ZTRAWRkEYwJqypiAmjImgIIyMqCajAyoJiMDqCYjA6rJyIBqwsiAa' +
    'jIy0OVS2t3Z6323H/8f5c/FhaXw9Pg89NHmu9XeVtTA3OdM5MbW5n' +
    'bf2q9uXF/b+ErINMSXnIG5z5l4k8iQ5pzJILq8uCovHewfRuzExng' +
    'pwycbR5tMpOOjk7PT85wC5Y7mM9DZnImgGFT7ufHXz9/55P7uoYRM' +
    '/BkxEgmTUVMaR7y8vrzl82iWDVaWV+UMWJ9pyJl45OpNBE5ZqGn+k' +
    'tX3uZwBOTMoOvJrUTVbPlzMkTMgZz6VM7XvSuYzIGfGlDO56pIrLb' +
    'X1mfW1DTkDcubrOVPuOt1c35ao6b3fJGdA1BgZQDUZGVBNRgZUE0Y' +
    'GVJORAdVkZADVZGRAQRkTUFPGBFBTxgSUldEAlWU0AJVlNEBxGQdA' +
    'fRkHUF/GAZSYEQAUmr6DWtN3UG56Dag4vQZFp7+AupMzoPT0FBSgP' +
    'gLKUMiAYtQvkDP6BShJPQKFqS9Ad8pTyMD0F+ns1ulMHzyY2DhmoO' +
    'NlK2RA1DhOYEZXPCzIgLSRMMAslraEAYs2lmKAUc0ovrPkv/8TgY4' +
    'EjngBxhQI4gVoExHVxwjbA7QPE5EC7vLgFOAixykAF7lTAC5ynAJw' +
    'kTsF4CJ3CsBFjlMALnKnAFzkOAX4Sa3Hdz5ch/jHFKcAXOROAbjIc' +
    'QpwkeMUgIvcKQAXOU4BjOkir96cXVlevby4qm4f7aHe3z1sbW4Pt+' +
    '/N9W0c3tAfHfvGO8gZmGDO5PPdnb14Hmkw1p/6DLfv4sLSwf7h0B8' +
    'd+8Y7yBmYeM48PT7H80ib6vbYGJOQMuHJWUH+GZOf9bWNqN/jo5Oz' +
    '0/N4EsqMKEo7m2U+9P6qrdagtImPi7etHmS8eWwvE5IMjWwZh9fme' +
    'GLfaBAb5QxM6ufEvX+WJ1G5WeCZQjkryFejnF9f3kpWZIP8dhMvZV' +
    '1HmWfL2mc1NOj9gpNBF59V0il2zI/LL2IfHk9uH/pbGzDWnMl1lSj' +
    'bCJy+r/Z9nvONsjGLvdrywwaDDrK6Y98GbZ4DU5UzOd+IL1M5PWiZ' +
    'M33/B1Bvy4YGbWJEzsDM5Uzf9ZmGGGk5nxluWlJbBB7JfGZ8S8HAp' +
    '+43VVd6S11HBOVibMucaVhFqS4CNzSoygPruz6TK8YfHk+uz2SEAh' +
    'PJmdrtpNr3prxxU24PtZw/VO8K5Zb8ClbuJfU2GJQzuWO54V6OpHa' +
    '/qeF4Yt+8IeWMA+P7/cxXfuYHdEFMtGo/qvmUcnceAAAAAACYW/8A' +
    'FYvyUQ==');
  Canvas := GetBitmapCanvas(Picture);
  CopyCanvas(Canvas, TheConverterForm.Canvas, 0, 0, 376, 378, 0, 0, 376, 378);
end;

procedure HandleButtons(Senders: TObject);
var

  A, R, D, VA, VA1: extended;
begin
  case Senders of
    ClearB:
      begin
        ValueE.Text := '';
        AnswerL.Caption := '';
      end;
    KCtoD:
      begin
        VA := 0.5067;
        VA1 := StrToFloat(ValueE.Text);
        A := VA * VA1;
        R := Sqrt(A);
        D := Sqrt(pi);
        AnswerL.Caption := FloatToStr(2 * R / D / 10);
      end;
    DtoKC:
      begin
        VA1 := StrToFloat(ValueE.Text);
        R := VA1 / 2;
        A := PI * Pow(R, 2);
        AnswerL.Caption := FloatToStr(A * 1.973554371);
      end;
  end;
end;

// This form was parsed using: DFM Form Parser v.23 by Ron.

procedure Converter;
var
  TimeConverter: Integer;
begin
  TimeConverter := GetSystemTime;
  TheConverterForm := CreateForm;
  with TheConverterForm do
  begin
    OnClose := @ConverterOnClose;
    OnPaint := @DrawImages;
    Position := poScreenCenter;
    BorderStyle := bsSingle;
    BorderIcons := [biMinimize, biSystemMenu];
    ClientWidth := 376;
    ClientHeight := 378;
    Caption := 'kcmil To Diameter Converter By BH';
    Color := clBtnFace;
    Font.Color := clWindowText;
    Font.Height := -11;
    Font.Name := 'MS Sans Serif';
    Font.Style := [];
    PixelsPerInch := 96;
  end;
  AnswerL := TLabel.Create(TheConverterForm);
  with AnswerL do
  begin
    Parent := TheConverterForm;
    Left := 96;
    Top := 128;
    Width := 3;
    Height := 13;
  end;
  ValueL := TLabel.Create(TheConverterForm);
  with ValueL do
  begin
    Parent := TheConverterForm;
    Left := 152;
    Top := 88;
    Width := 27;
    Height := 13;
    Caption := 'Value';
  end;
  NameL := TLabel.Create(TheConverterForm);
  with NameL do
  begin
    Parent := TheConverterForm;
    Left := 40;
    Top := 40;
    Width := 282;
    Height := 27;
    Caption := 'kcmil To Diameter Converter';
    Font.Color := clWindowText;
    Font.Height := -24;
    Font.Name := 'MS Serif';
    Font.Style := [];
    ParentFont := False;
  end;
  ValueE := TEdit.Create(TheConverterForm);
  with ValueE do
  begin
    Parent := TheConverterForm;
    Left := 96;
    Top := 104;
    Width := 153;
    Height := 21;
    TabOrder := 8;
  end;
  KCtoD := TButton.Create(TheConverterForm);
  with KCtoD do
  begin
    Parent := TheConverterForm;
    Left := 64;
    Top := 168;
    Width := 97;
    Height := 33;
    Caption := 'kcmil --> D (cm)';
    OnClick := @HandleButtons;
    TabOrder := 9;
  end;
  DtoKC := TButton.Create(TheConverterForm);
  with DtoKC do
  begin
    Parent := TheConverterForm;
    Left := 176;
    Top := 168;
    Width := 105;
    Height := 33;
    Caption := 'D (cm) --> kcmil';
    OnClick := @HandleButtons;
    TabOrder := 10;
  end;
  ClearB := TButton.Create(TheConverterForm);
  with ClearB do
  begin
    Parent := TheConverterForm;
    Left := 136;
    Top := 208;
    Width := 81;
    Height := 33;
    Caption := 'Clear';
    OnClick := @HandleButtons;
    TabOrder := 11;
  end;
  WriteLn('Converter compiled in ' + IntToStr(GetSystemTime - TimeConverter) + ' milliseconds!');
end;

procedure SafeConverter;
var
  V: TVariantArray;
begin
  SetArrayLength(V, 0);
  ThreadSafeCall('Converter', V);
end;

procedure ShowConverterModal;
begin
  TheConverterForm.ShowModal;
end;

procedure SafeShowConverterModal;
var
  V: TVariantArray;
begin
  SetArrayLength(V, 0);
  ThreadSafeCall('ShowConverterModal', V);
end;

procedure MainConverter;
begin
  try
    SafeConverter;
    SafeShowConverterModal;
  finally
    FreeForm(TheConverterForm);
  except
    WriteLn('An error seems to have occurred in: Converter');
  end;
end;

begin
  GetSelf.WindowState := wsMinimized;
  MainConverter;
  GetSelf.WindowState := wsNormal;
  if (EndConverter) then
    TerminateScript;
end.

[Laur€ns]

I don't know what it's used for, but it's pretty fun

[BobboHobbo]

Not sure whats it used for lol

Means: Kcmil is a unit used to express conductor size.

For electricty or some crap .

[Laur€ns]

Lol, I don't really care about electricity works

[Naike]

BH, Maybe tell us what its about ? xD
we might be dealing with a nuclear bomb here :O