Современные методы программирования и теоретические основы электротехники

Автор работы: Пользователь скрыл имя, 25 Декабря 2012 в 21:03, курсовая работа

Описание работы

Целью данного курсового проекта является получение законов изменения электрических величин во времени, расчет машин в режиме двигателя и генератора, а так же асинхронных двигателей. Для этого необходимо изучить методику расчета электрических цепей и расчетов двигателей. Решение должно быть получено в результате выполнения соответствующей программы для ЭВМ, составленной самим студентом.

Содержание работы

ВВЕДЕНИЕ 4
1. ПОСТАНОВКА ЗАДАЧИ 5
2. ВХОДНЫЕ И ВЫХОДНЫЕ ДАННЫЕ 6
3. ВЫБОР АЛГОРИТМА И МЕТОДОВ РЕШЕНИЯ ЗАДАЧ ПРОЕКТИРОВАНИЯ 7
3.1 МЕТОД РАСЧЕТА ИНТЕГРАЛА ДЮАМЕЛЯ 7
3.2 ЭЛЕКТРИЧЕСКИЕ МАШИНЫ ПОСТОЯННОГО ТОКА 11
3.3 ТРЕХФАЗНЫЕ АСИНХРОННЫЕ ДВИГАТЕЛИ 15
4. ПРОГРАМНАЯ РЕАЛИЗАЦИЯ 19
4.1 C++BUILDER 6 19
4.2ОПИСАНИЕФУНКЦИЙ 22
4.3 КОД ПРОГРАММЫ. 23
4.4 БЛОК – СХЕМА ВЫВОДА ГРАФИКОВ 51
ЗАКЛЮЧЕНИЕ 52
ЛИТЕРАТУРА. 53

Скачать архив (493.97 Кб) Сколько стоит заказать работу?
Файлы: 1 файл

Пояснительная записка СМП.docx

— 530.38 Кб (Скачать файл)

   }

}

  if(z!=1)

{

GradientLabel55>Caption="Uâûõ(t)="+FloatToStrF(Mp11,ffGeneral,4,2)+"exp("+FloatToStrF(x1,ffGeneral,5,2)+"t)"+"+"+FloatToStrF(Mp22,ffGeneral,5,2)+"exp("+FloatToStrF(x2,ffGeneral,5,2)+"t)";

};

GradientLabel56>Caption="Uâûõ(t)="+FloatToStrF(Mp33,ffGeneral,4,2)+"exp("+FloatToStrF(x3,ffGeneral,5,2)+"t)"+"+"+FloatToStrF(Mp44,ffGeneral,5,2)+"exp("+FloatToStrF(x4,ffGeneral,5,2)+"t)";

  

   ShowMessage("Загрузка параметров завершена!!!");

}

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

void __fastcall TForm1::ColorButton7Click(TObject *Sender)

{

if (MessageBox(0,"вы действительно хотите посмотреть графики?","внимание!!!", MB_YESNO) == mrYes)

  {

        Form3->Visible=true;

  }

}

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

 

void __fastcall TForm1::ColorButton8Click(TObject *Sender)

{

    if (MessageBox(0,"вы действительно хотите распечатать?","внимание!!!", MB_YESNO) == mrYes)

  {

  // Асинхронные двигатели;

 

        Form4->QRLabel1->Caption=Edit1->Text+" Гц";

        Form4->QRLabel2->Caption=Edit2->Text+"";

        Form4->QRLabel3->Caption=Edit8->Text+" об/мин";

        Form4->QRLabel4->Caption=Edit9->Text+" Вт";

        Form4->QRLabel5->Caption=Edit10->Text+" В";

 

        Form4->QRLabel6->Caption=Edit3->Text;

        Form4->QRLabel7->Caption=Edit4->Text;

        Form4->QRLabel8->Caption=Edit5->Text;

        Form4->QRLabel9->Caption=Edit6->Text;

        Form4->QRLabel10->Caption=Edit7->Text;

 

        Form4->QRDBChart1->Series[0]->DataSource = Form1->Chart1->Series[0];

         Form4->QRDBChart1->Series[1]->DataSource = Form1->Chart1->Series[1];

        Form4->QRDBChart5->Series[0]->DataSource = Form2->Chart1->Series[0];

        Form4->QRDBChart13->Series[0]->DataSource = Form2->Chart2->Series[0];

 

        Form4->QuickRep1->Preview();

     }

}

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

 

void __fastcall TForm1::ColorButton9Click(TObject *Sender)

{

  if (MessageBox(0,"вы действительно хотите распечатать?","внимание!!!", MB_YESNO) == mrYes)

  {

    //МПТ в режиме генератора;

 

        Form5->QRLabel1->Caption=Edit11->Text+" Вт";

        Form5->QRLabel2->Caption=Edit12->Text+" В";

        Form5->QRLabel3->Caption=Edit13->Text+" об/мин";

        Form5->QRLabel4->Caption=Edit14->Text+" Ом";

        Form5->QRLabel5->Caption=Edit15->Text+" Ом";

 

        Form5->QRLabel6->Caption=Edit16->Text;

        Form5->QRLabel7->Caption=Edit17->Text;

        Form5->QRLabel8->Caption=Edit18->Text;

        Form5->QRLabel9->Caption=Edit19->Text;

        Form5->QRLabel10->Caption=Edit20->Text;

 

        Form5->QuickRep1->Preview();

     }

}

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

 

void __fastcall TForm1::ColorButton10Click(TObject *Sender)

{

  if (MessageBox(0,"вы действительно хотите распечатать?","внимание!!!", MB_YESNO) == mrYes)

  {

   //титульный лист;

 

        Form7->QuickRep1->Preview();

     }

}

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

 

void __fastcall TForm1::ColorButton11Click(TObject *Sender)

{

   if (MessageBox(0,"вы действительно хотите распечатать?","внимание!!!", MB_YESNO) == mrYes)

  {

    //МПТ в режиме двигателя;

 

        Form6->QRLabel1->Caption=Edit21->Text+" Вт";

        Form6->QRLabel2->Caption=Edit22->Text+" В";

        Form6->QRLabel3->Caption=Edit23->Text+" об/мин";

        Form6->QRLabel4->Caption=Edit24->Text+" Ом";

        Form6->QRLabel5->Caption=Edit25->Text+"";

 

        Form6->QRLabel6->Caption=Edit26->Text;

        Form6->QRLabel7->Caption=Edit27->Text;

        Form6->QRLabel8->Caption=Edit28->Text;

        Form6->QRLabel9->Caption=Edit29->Text;

        Form6->QRLabel10->Caption=Edit30->Text;

 

        Form6->QuickRep1->Preview();

     }

}

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

 

void __fastcall TForm1::ColorButton12Click(TObject *Sender)

{

if (MessageBox(0,"вы действительно хотите распечатать?","внимание!!!", MB_YESNO) == mrYes)

  {

  //Четырехполюсники;

 

        Form8->QRLabel1->Caption=Edit31->Text+" В";

        Form8->QRLabel2->Caption=Edit32->Text+" с";

        Form8->QRLabel3->Caption=Edit33->Text+" Oм";

        Form8->QRLabel4->Caption=Edit34->Text+" Ф";

 

        Form8->QRLabel9->Caption=Edit37->Text;

        Form8->QRLabel10->Caption=Edit38->Text;

 

        Form8->QRLabel15->Caption=GradientLabel55->Caption;

 

        Form8->QRDBChart5->Series[0]->DataSource = Form3->Chart1->Series[0];

        Form8->QRDBChart5->Series[1]->DataSource = Form3->Chart1->Series[1];

 

        Form8->QRDBChart33->Series[0]->DataSource = Form3->Chart2->Series[0];

        Form8->QRDBChart33->Series[1]->DataSource = Form3->Chart2->Series[1];

 

        Form8->QRDBChart1->Series[0]->DataSource = Form3->Chart3->Series[0];

        Form8->QRDBChart1->Series[1]->DataSource = Form3->Chart3->Series[1];

 

        Form8->QuickRep1->Preview();

     }

}

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

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)

{

  if ( (!(isdigit(Key)))  && (!(Key ==VK_BACK)) && (!(Key ==','))    )

      {

     Key = 0;

     ShowMessage("Недопустимый символ\nЗдесь нельзя вводить буквы \nМожно вводить цифры и \nнажимать BackSpace");

 

    }

}

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

 

 

void __fastcall TForm1::Edit2KeyPress(TObject *Sender, char &Key)

{

if ( (!(isdigit(Key)))  && (!(Key ==VK_BACK)) && (!(Key ==','))    )

      {

     Key = 0;

     ShowMessage("Недопустимый символ\nЗдесь нельзя вводить буквы \nМожно вводить цифры и \nнажимать BackSpace");

 

    }

}

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

 

void __fastcall TForm1::Edit8KeyPress(TObject *Sender, char &Key)

{

if ( (!(isdigit(Key)))  && (!(Key ==VK_BACK)) && (!(Key ==','))    )

      {

     Key = 0;

     ShowMessage("Недопустимый символ\nЗдесь нельзя вводить буквы \nМожно вводить цифры и \nнажимать BackSpace");

 

    }       

}

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

 

 

void __fastcall TForm1::Edit9KeyPress(TObject *Sender, char &Key)

{

   if ( (!(isdigit(Key)))  && (!(Key ==VK_BACK)) && (!(Key ==','))    )

      {

     Key = 0;

     ShowMessage("Недопустимый символ\nЗдесь нельзя вводить буквы \nМожно вводить цифры и \nнажимать BackSpace");

 

    }    

}

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

 

void __fastcall TForm1::Edit10KeyPress(TObject *Sender, char &Key)

{

if ( (!(isdigit(Key)))  && (!(Key ==VK_BACK)) && (!(Key ==','))    )

      {

     Key = 0;

     ShowMessage("Недопустимый символ\nЗдесь нельзя вводить буквы \nМожно вводить цифры и \nнажимать BackSpace");

 

    }       

}

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

 

void __fastcall TForm1::Edit11KeyPress(TObject *Sender, char &Key)

{

if ( (!(isdigit(Key)))  && (!(Key ==VK_BACK)) && (!(Key ==','))    )

      {

     Key = 0;

     ShowMessage("Недопустимый символ\nЗдесь нельзя вводить буквы \nМожно вводить цифры и \nнажимать BackSpace");

 

    }       

}

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

 

void __fastcall TForm1::Edit12KeyPress(TObject *Sender, char &Key)

{

if ( (!(isdigit(Key)))  && (!(Key ==VK_BACK)) && (!(Key ==','))    )

      {

     Key = 0;

     ShowMessage("Недопустимый символ\nЗдесь нельзя вводить буквы \nМожно вводить цифры и \nнажимать BackSpace");

 

    }       

}

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

 

 

void __fastcall TForm1::Edit13KeyPress(TObject *Sender, char &Key)

{

if ( (!(isdigit(Key)))  && (!(Key ==VK_BACK)) && (!(Key ==','))    )

      {

     Key = 0;

     ShowMessage("Недопустимый символ\nЗдесь нельзя вводить буквы \nМожно вводить цифры и \nнажимать BackSpace");

 

    }       

}

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

 

void __fastcall TForm1::Edit14KeyPress(TObject *Sender, char &Key)

{

if ( (!(isdigit(Key)))  && (!(Key ==VK_BACK)) && (!(Key ==','))    )

      {

     Key = 0;

     ShowMessage("Недопустимый символ\nЗдесь нельзя вводить буквы \nМожно вводить цифры и \nнажимать BackSpace");

 

    }       

}

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

 

 

void __fastcall TForm1::Edit15KeyPress(TObject *Sender, char &Key)

{

if ( (!(isdigit(Key)))  && (!(Key ==VK_BACK)) && (!(Key ==','))    )

      {

     Key = 0;

     ShowMessage("Недопустимый символ\nЗдесь нельзя вводить буквы \nМожно вводить цифры и \nнажимать BackSpace");

 

    }       

}

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

 

 

void __fastcall TForm1::Edit21KeyPress(TObject *Sender, char &Key)

{

if ( (!(isdigit(Key)))  && (!(Key ==VK_BACK)) && (!(Key ==','))    )

      {

     Key = 0;

     ShowMessage("Недопустимый символ\nЗдесь нельзя вводить буквы \nМожно вводить цифры и \nнажимать BackSpace");

 

    }       

}

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

 

void __fastcall TForm1::Edit22KeyPress(TObject *Sender, char &Key)

{

if ( (!(isdigit(Key)))  && (!(Key ==VK_BACK)) && (!(Key ==','))    )

      {

     Key = 0;

     ShowMessage("Недопустимый символ\nЗдесь нельзя вводить буквы \nМожно вводить цифры и \nнажимать BackSpace");

 

    }       

}

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

 

void __fastcall TForm1::Edit23KeyPress(TObject *Sender, char &Key)

{

if ( (!(isdigit(Key)))  && (!(Key ==VK_BACK)) && (!(Key ==','))    )

      {

     Key = 0;

     ShowMessage("Недопустимый символ\nЗдесь нельзя вводить буквы \nМожно вводить цифры и \nнажимать BackSpace");

 

    }

}

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

 

void __fastcall TForm1::Edit24KeyPress(TObject *Sender, char &Key)

{

if ( (!(isdigit(Key)))  && (!(Key ==VK_BACK)) && (!(Key ==','))    )

      {

     Key = 0;

     ShowMessage("Недопустимый символ\nЗдесь нельзя вводить буквы \nМожно вводить цифры и \nнажимать BackSpace");

 

    }       

}

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

 

void __fastcall TForm1::Edit25KeyPress(TObject *Sender, char &Key)

{

if ( (!(isdigit(Key)))  && (!(Key ==VK_BACK)) && (!(Key ==','))    )

      {

     Key = 0;

     ShowMessage("Недопустимый символ\nЗдесь нельзя вводить буквы \nМожно вводить цифры и \nнажимать BackSpace");

 

    }       

}

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

 

void __fastcall TForm1::Edit31KeyPress(TObject *Sender, char &Key)

{

if ( (!(isdigit(Key)))  && (!(Key ==VK_BACK)) && (!(Key ==','))    )

      {

     Key = 0;

     ShowMessage("Недопустимый символ\nЗдесь нельзя вводить буквы \nМожно вводить цифры и \nнажимать BackSpace");

 

    }       

}

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

 

void __fastcall TForm1::Edit32KeyPress(TObject *Sender, char &Key)

{

if ( (!(isdigit(Key)))  && (!(Key ==VK_BACK)) && (!(Key ==','))    )

      {

     Key = 0;

     ShowMessage("Недопустимый символ\nЗдесь нельзя вводить буквы \nМожно вводить цифры и \nнажимать BackSpace");

 

    }       

}

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

 

void __fastcall TForm1::Edit33KeyPress(TObject *Sender, char &Key)

{

if ( (!(isdigit(Key)))  && (!(Key ==VK_BACK)) && (!(Key ==','))    )

      {

     Key = 0;

     ShowMessage("Недопустимый символ\nЗдесь нельзя вводить буквы \nМожно вводить цифры и \nнажимать BackSpace");

 

    }       

}

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

 

void __fastcall TForm1::Edit34KeyPress(TObject *Sender, char &Key)

{

if ( (!(isdigit(Key)))  && (!(Key ==VK_BACK)) && (!(Key ==','))    )

      {

     Key = 0;

     ShowMessage("Недопустимый символ\nЗдесь нельзя вводить буквы \nМожно вводить цифры и \nнажимать BackSpace");

    }

}

UNIT1.H

 

#ifndef Unit1H

#define Unit1H

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include "BitmapButton.h"

#include "ColorButton.h"

#include "AdvProgressBar.hpp"

#include "GradientLabel.hpp"

#include <ExtCtrls.hpp>

#include <Graphics.hpp>

#include <ComCtrls.hpp>

#include "AdvPageControl.hpp"

#include <Dialogs.hpp>

#include <Chart.hpp>

#include <Series.hpp>

#include <TeEngine.hpp>

#include <TeeProcs.hpp>

#include <Grids.hpp>

#include <jpeg.hpp>

#include <math.h>

 

#include <unit3.h>

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

class TForm1 : public TForm

{

__published: // IDE-managed Components

        TImage *Image1;

        TBitmapButton *BitmapButton1;

        TAdvPageControl *AdvPageControl1;

        TAdvTabSheet *AdvTabSheet1;

        TAdvTabSheet *AdvTabSheet2;

        TBitmapButton *BitmapButton2;

        TBitmapButton *BitmapButton3;

        TBitmapButton *BitmapButton4;

        TOpenDialog *OpenDialog1;

        TTimer *Timer1;

        TGradientLabel *GradientLabel1;

        TGradientLabel *GradientLabel2;

        TEdit *Edit1;

        TGradientLabel *GradientLabel3;

        TEdit *Edit2;

        TGradientLabel *GradientLabel4;

        TGradientLabel *GradientLabel5;

        TGradientLabel *GradientLabel6;

        TGradientLabel *GradientLabel7;

        TEdit *Edit3;

        TEdit *Edit4;

        TEdit *Edit5;

        TEdit *Edit6;

        TGradientLabel *GradientLabel8;

        TEdit *Edit7;

        TColorButton *ColorButton1;

        TChart *Chart1;

        TGradientLabel *GradientLabel9;

        TEdit *Edit8;

        TEdit *Edit9;

        TGradientLabel *GradientLabel10;

        TEdit *Edit10;

        TGradientLabel *GradientLabel11;

        TLabel *Label1;

        TLabel *Label2;

        TStringGrid *StringGrid1;

        TColorButton *ColorButton2;

        TSaveDialog *SaveDialog1;

        TMemo *Memo1;

        TColorButton *ColorButton3;

        TAdvTabSheet *AdvTabSheet3;

        TGradientLabel *GradientLabel12;

        TGradientLabel *GradientLabel13;

        TGradientLabel *GradientLabel14;

        TGradientLabel *GradientLabel15;

        TGradientLabel *GradientLabel16;

        TEdit *Edit11;

        TGradientLabel *GradientLabel17;

        TGradientLabel *GradientLabel18;

        TEdit *Edit12;

        TEdit *Edit13;

        TEdit *Edit14;

        TEdit *Edit15;

        TGradientLabel *GradientLabel19;

        TGradientLabel *GradientLabel20;

        TGradientLabel *GradientLabel21;

        TGradientLabel *GradientLabel22;

        TGradientLabel *GradientLabel23;

        TGradientLabel *GradientLabel24;

        TImage *Image2;

        TLabel *Label3;

        TGradientLabel *GradientLabel25;

        TGradientLabel *GradientLabel26;

        TGradientLabel *GradientLabel27;

        TGradientLabel *GradientLabel28;

        TGradientLabel *GradientLabel29;

        TGradientLabel *GradientLabel30;

        TGradientLabel *GradientLabel31;

        TGradientLabel *GradientLabel32;

Информация о работе Современные методы программирования и теоретические основы электротехники