home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 August / Chip_1999-08_cd.bin / tema / Ozogan / RUNTIME / APLIKACE.EXE / VYPOCTY1.KL3 < prev    next >
Text File  |  1999-06-19  |  6KB  |  173 lines
  1. Program vypocty1;
  2.  
  3. {********************************************}
  4. { Program pro v²poΦet plochy a obvodu        }
  5. { Auto°i: Petr a Pavel Ozogßnovi, 19.6.1999  }
  6. {********************************************}
  7.  
  8. procedure TForm.RadioButton1Click(Sender: TObject);
  9. begin
  10.    ButtonVypocet.Click;
  11.    LabelX.Caption := 'X = 4 * A';
  12.    Edit1.Visible := True;  Label1.Visible := True;
  13.    Edit2.Visible := False; Label2.Visible := False;
  14.    Edit3.Visible := False; Label3.Visible := False;
  15.    Edit4.Visible := False; Label4.Visible := False;
  16.    Edit5.Visible := False; Label5.Visible := False;
  17.    Image.Clear;
  18.    Image.PenWidth(2);
  19.    Image.BrushColor(clBlue);
  20. //   Image.Rectangle(0,0,GetMaxX, GetMaxY);
  21.    Image.Rectangle(30, 30, 170, 170);
  22. end;
  23.  
  24. procedure TForm.RadioButton2Click(Sender: TObject);
  25. begin
  26.    ButtonVypocet.Click;
  27.    LabelX.Caption := 'X = A * A';
  28.    Edit1.Visible := True;  Label1.Visible := True;
  29.    Edit2.Visible := False; Label2.Visible := False;
  30.    Edit3.Visible := False; Label3.Visible := False;
  31.    Edit4.Visible := False; Label4.Visible := False;
  32.    Edit5.Visible := False; Label5.Visible := False;
  33.    Image.Clear;
  34.    Image.PenWidth(2);
  35.    Image.BrushColor(clBlue);
  36. //   Image.Rectangle(0,0,GetMaxX, GetMaxY);
  37.    Image.Rectangle(30, 30, 170, 170);
  38. end;
  39.  
  40. procedure TForm.RadioButton3Click(Sender: TObject);
  41. begin
  42.    ButtonVypocet.Click;
  43.    LabelX.Caption := 'X = 2 * (A + B)';
  44.    Edit1.Visible := True;  Label1.Visible := True;
  45.    Edit2.Visible := True;  Label2.Visible := True;
  46.    Edit3.Visible := False; Label3.Visible := False;
  47.    Edit4.Visible := False; Label4.Visible := False;
  48.    Edit5.Visible := False; Label5.Visible := False;
  49.    Image.Clear;
  50.    Image.PenWidth(2);
  51.    Image.BrushColor(clGreen);
  52. //   Image.Rectangle(0,0,GetMaxX, GetMaxY);
  53.    Image.Rectangle(30, 50, 170, 150);
  54. end;
  55.  
  56. procedure TForm.RadioButton4Click(Sender: TObject);
  57. begin
  58.    ButtonVypocet.Click;
  59.    LabelX.Caption := 'X = A * B';
  60.    Edit1.Visible := True;  Label1.Visible := True;
  61.    Edit2.Visible := True;  Label2.Visible := True;
  62.    Edit3.Visible := False; Label3.Visible := False;
  63.    Edit4.Visible := False; Label4.Visible := False;
  64.    Edit5.Visible := False; Label5.Visible := False;
  65.    Image.Clear;
  66.    Image.PenWidth(2);
  67.    Image.BrushColor(clGreen);
  68. //   Image.Rectangle(0,0,GetMaxX, GetMaxY);
  69.    Image.Rectangle(30, 50, 170, 150);
  70. end;
  71.  
  72. procedure TForm.RadioButton5Click(Sender: TObject);
  73. begin
  74.    ButtonVypocet.Click;
  75.    LabelX.Caption := 'X = A + B + C';
  76.    Edit1.Visible := True;  Label1.Visible := True;
  77.    Edit2.Visible := True;  Label2.Visible := True;
  78.    Edit3.Visible := True;  Label3.Visible := True;
  79.    Edit4.Visible := False; Label4.Visible := False;
  80.    Edit5.Visible := False; Label5.Visible := False;
  81. //   Image.Rectangle(0,0,GetMaxX, GetMaxY);
  82.    Image.Clear;
  83.    Image.PenWidth(2);
  84.    Image.BrushColor(clAqua);
  85.    Image.Triangle(30, 170,  100, 30, 170, 170);
  86. end;
  87.  
  88. procedure TForm.RadioButton6Click(Sender: TObject);
  89. begin
  90.    ButtonVypocet.Click;
  91.    LabelX.Caption := 'X = (A * V) / 2';
  92.    Edit1.Visible := True;  Label1.Visible := True;
  93.    Edit2.Visible := False; Label2.Visible := False;
  94.    Edit3.Visible := False; Label3.Visible := False;
  95.    Edit4.Visible := False; Label4.Visible := False;
  96.    Edit5.Visible := True;  Label5.Visible := True;
  97. //   Image.Rectangle(0,0,GetMaxX, GetMaxY);
  98.    Image.Clear;
  99.    Image.PenWidth(2);
  100.    Image.BrushColor(clAqua);
  101.    Image.Triangle(30, 170,  100, 30, 170, 170);
  102. end;
  103.  
  104. procedure TForm.RadioButton7Click(Sender: TObject);
  105. begin
  106.    ButtonVypocet.Click;
  107.    LabelX.Caption := 'X = 2 * PI * R';
  108.    Edit1.Visible := False; Label1.Visible := False;
  109.    Edit2.Visible := False; Label2.Visible := False;
  110.    Edit3.Visible := False; Label3.Visible := False;
  111.    Edit4.Visible := True;  Label4.Visible := True;
  112.    Edit5.Visible := False; Label5.Visible := False;
  113. //   Image.Rectangle(0,0,GetMaxX, GetMaxY);
  114.    Image.Clear;
  115.    Image.PenWidth(2);
  116.    Image.BrushColor(clYellow);
  117.    Image.Ellipse( 30, 30, 170, 170);
  118. end;
  119.  
  120. procedure TForm.RadioButton8Click(Sender: TObject);
  121. begin
  122.    ButtonVypocet.Click;
  123.    LabelX.Caption := 'X = PI * R * R';
  124.    Edit1.Visible := False; Label1.Visible := False;
  125.    Edit2.Visible := False; Label2.Visible := False;
  126.    Edit3.Visible := False; Label3.Visible := False;
  127.    Edit4.Visible := True;  Label4.Visible := True;
  128.    Edit5.Visible := False; Label5.Visible := False;
  129. //   Image.Rectangle(0,0,GetMaxX, GetMaxY);
  130.    Image.Clear;
  131.    Image.PenWidth(2);
  132.    Image.BrushColor(clYellow);
  133.    Image.Ellipse( 30, 30, 170, 170);
  134. end;
  135.  
  136. procedure TForm.ButtonVypocetClick(Sender: TObject);
  137. Var A, B, C, R, V, X : Integer;
  138. begin
  139.    A := StrToReal(Edit1.Text);
  140.    B := StrToReal(Edit2.Text);
  141.    C := StrToReal(Edit3.Text);
  142.    R := StrToReal(Edit4.Text);
  143.    V := StrToReal(Edit5.Text);
  144.    X := 0;
  145.  
  146.    if RadioButton1.Checked then X := 4*A;
  147.    if RadioButton2.Checked then X := A*A;
  148.    if RadioButton3.Checked then X := 2*(A+B);
  149.    if RadioButton4.Checked then X := A*B;
  150.    if RadioButton5.Checked then X := A+B+C;
  151.    if RadioButton6.Checked then X := (A*V)/2;
  152.    if RadioButton7.Checked then X := 2*PI*R;
  153.    if RadioButton8.Checked then X := PI*R*R;
  154.    Label7.Caption := Trim(RealToStr(X, 15, 3));
  155. end;
  156.  
  157. procedure TForm.ButtonCloseClick(Sender: TObject);
  158. begin
  159.    Form.Close;
  160. end;
  161.  
  162. procedure TForm.FormCreate(Sender: TObject);
  163. begin
  164.    ButtonVypocet.Click;
  165.    Image.PenWidth(2);
  166.    Image.BrushColor(clBlue);
  167. //   Image.Rectangle(0,0,GetMaxX, GetMaxY);
  168.    Image.Rectangle(30, 30, 170, 170);
  169. end;
  170.  
  171. end.
  172.  
  173.