unit1.h

绘制一元函数曲线的工具 输入C语言语法的函数公式, 即可绘制函数的二维曲线 采用内置编译器和虚拟机(这是调整OK的版本)

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Dialogs.hpp>
//---------------------------------------------------------------------------
#include <io.h>
#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
//---------------------------------------------------------------------------
#include "ucvm_type.h"
#include "ucvm9.hpp"
#include <ExtDlgs.hpp>
//---------------------------------------------------------------------------
typedef double (*func_type)(double);
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components  
    TScrollBox *ScrollBox1;
    TImage *Image1;
    TPageControl *PageControl1;
    TTabSheet *TabSheet1;
    TMemo *Memo1;
    TTabSheet *TabSheet2;
    TLabel *Label1;
    TLabel *Label2;
    TLabel *Label3;
    TEdit *Edit1;
    TEdit *Edit2;
    TEdit *Edit3;
    TLabel *Label4;
    TLabel *Label5;
    TLabel *Label6;
    TEdit *Edit4;
    TEdit *Edit5;
    TEdit *Edit6;
    TGroupBox *GroupBox1;
    TRadioButton *RadioButton1;
    TRadioButton *RadioButton2;
    TGroupBox *GroupBox2;
    TRadioButton *RadioButton3;
    TRadioButton *RadioButton4;
    TRadioButton *RadioButton5;
    TGroupBox *GroupBox3;
    TRadioButton *RadioButton6;
    TRadioButton *RadioButton7;
    TRadioButton *RadioButton8;
    TTabSheet *TabSheet3;
    TLabel *Label7;
    TLabel *Label8;
    TLabel *Label9;
    TEdit *Edit7;
    TEdit *Edit8;
    TCheckBox *CheckBox1;
    TLabel *Label10;
    TLabel *Label11;
    TLabel *Label12;
    TShape *Shape1;
    TShape *Shape2;
    TShape *Shape3;
    TButton *Button1;
    TButton *Button2;
    TLabel *Label13;
    TLabel *Label14;
    TLabel *Label15;
    TEdit *Edit9;
    TEdit *EditA;
    TLabel *Label16;
    TLabel *Label17;
    TLabel *Label18;
    TEdit *EditC;
    TEdit *EditD;
    TButton *Button3;
    TButton *Button4;
    TColorDialog *ColorDialog1;
    TSaveDialog *SaveDialog1;
    TButton *Button5;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormDestroy(TObject *Sender);
    void __fastcall Button1Click(TObject *Sender);
    void __fastcall Button2Click(TObject *Sender);
    void __fastcall Button3Click(TObject *Sender);
    void __fastcall Button4Click(TObject *Sender);
    void __fastcall Shape1MouseUp(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
    void __fastcall Shape2MouseUp(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
    void __fastcall Shape3MouseUp(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y);
    void __fastcall Edit7Change(TObject *Sender);
    void __fastcall Button5Click(TObject *Sender);
          
private:	// User declarations
    Graphics::TBitmap * my_bmp_a;
    Graphics::TBitmap * my_bmp_b;

    TUCVM9            * my_ucvm9;

public:		// User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif