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