PLIK CPP

PLIK H

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

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

#include <vcl.h>

#pragma hdrstop

#ifndef Unit1H

#include "Unit1.h"

#define Unit1H

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

#pragma package(smart_init)

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

#pragma resource "*.dfm"

#include <Classes.hpp>

TForm1 *Form1;

#include <Controls.hpp>

//=====blok definiowania danych=====

#include <StdCtrls.hpp>

int luk=85, wskazowka=85, lewo=90, gora=51;

#include <Forms.hpp>

float PI=3.14;

int x,y;

#include <iostream.h>

int wektorDanych[30]; //tworzenie wektora danych

#include <ExtCtrls.hpp> //floor int c;

#include <cmath> //matematyka

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

#include <fstream.h>

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

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

{

class TForm1 : public TForm

skala();

{

//===wczytywanie danych===

__published: // IDE-managed Components fstream dane("parametry.txt",std::ios::in); TImage *Image1;

for (int t=0; t < 30; t++) {

TTimer *Timer1;

dane>>wektorDanych[t];

TLabel *Label1;

}

TEdit *Edit1;

dane.close();

TButton *Button1;

}

void __fastcall Timer1Timer(TObject *Sender);

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

void __fastcall Button1Click(TObject *Sender); void TForm1::skala()

private: // User declarations

{

public:

// User declarations

Image1->Canvas->Font->Color=RGB(0,0,0); //=== tło __fastcall TForm1(TComponent* Owner);

===

void skala();

Image1->Canvas->TextOut(100,190,"0");

};

Image1->Canvas->TextOut(65,110,"150");

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

Image1->Canvas->TextOut(105,50,"260"); extern PACKAGE TForm1 *Form1;

Image1->Canvas->TextOut(165,30,"350");

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

Image1->Canvas->TextOut(225,50,"450");

#endif

Image1->Canvas->TextOut(265,110,"575"); Image1->Canvas->TextOut(245,190,"700"); Image1->Canvas->Font->Color=clRed; Image1->Canvas->TextOut(170,140,"W"); Image1->Canvas->Pen->Color=clBlack; //=== wskazowka ===

Image1->Canvas->Pen->Width=3; Image1->Canvas->MoveTo(lewo + luk, gora + luk); Image1->Canvas->Pen->Color=RGB(0,180,0); x=floor(cos(PI*(0*270/700+135)/180)

* (wskazowka - (wskazowka/100*10))+lewo+luk); y=floor(sin(PI*(0*270/700+135)/180)

* (wskazowka - (wskazowka/100*10))+gora+luk); Image1->Canvas->LineTo(x,y);

}

//cz2 na nast stronie

void __fastcall TForm1::Timer1Timer(TObject *Sender)

{

Image1->Picture=NULL;

skala();

//======wczytywanie danych========

Edit1->Text=wektorDanych[c];

if(c>=30)

{

Timer1->Enabled=0;

c=0;

Edit1->Text="";

}

//=======ruch wskazowki======================

Image1->Canvas->Pen->Width=3; Image1->Canvas->MoveTo(lewo+luk, gora+luk); Image1->Canvas->Pen->Color=RGB(0,180,0); x=floor(cos(PI*((wektorDanych[c]*270/700)+135)/180)

*(wskazowka-(wskazowka/100*10))+gora+luk); y=floor(sin(PI*((wektorDanych[c]*270/700)+135)/180)

*(wskazowka-(wskazowka/100*10))+gora+luk); Image1->Canvas->LineTo(x,y);

c++; //inkrementacja parametru Timera

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Timer1->Enabled=true;

}

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