PLIK CPP 
 

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

 

#include <vcl.h> 
#pragma hdrstop 
#include "Unit1.h" 

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

 

#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm1 *Form1; 

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

 

int luk=85, wskazowka=85, lewo=90, gora=51; 
float PI=3.14; 
int x,y; 
int wektorDanych[30]; //tworzenie wektora danych 
int c; 

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

 

__fastcall TForm1::TForm1(TComponent* Owner) 
 

: TForm(Owner) 

{ 
skala(); 

//===wczytywanie danych===

 

 

fstream dane("parametry.txt",std::ios::in); 

 

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

 

   dane>>wektorDanych[t]; 

 

} 

 

dane.close(); 

} 

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

 

 
void TForm1::skala() 
{ 
 

Image1->Canvas->Font->Color=RGB(0,0,0); 

//=== tło 

===

 

 

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

 

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

 

Image1->Canvas->TextOut(105,50,"260"); 

 

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

 

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

 

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

 

 
 
 

PLIK H 
 

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

 
#ifndef Unit1H 
#define Unit1H 

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

#include <Classes.hpp> 
#include <Controls.hpp> 
#include <StdCtrls.hpp> 
#include <Forms.hpp> 
 
#include <iostream.h> 
#include <ExtCtrls.hpp> 

//floor 

#include <cmath> 

//matematyka

 

#include <fstream.h> 

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

class TForm1 : public TForm 
{ 
__published:  // IDE-managed Components 
 

TImage *Image1; 

 

TTimer *Timer1; 

 

TLabel *Label1; 

 

TEdit *Edit1; 

 

TButton *Button1; 

 

void __fastcall Timer1Timer(TObject *Sender); 

 

void __fastcall Button1Click(TObject *Sender); 

private: 

// User declarations

 

public:   

// User declarations

 

 

__fastcall TForm1(TComponent* Owner); 

 

void skala(); 

}; 

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

extern PACKAGE TForm1 *Form1; 

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

#endif 

 

 

 
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;   
} 

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