PROG WSKAZÓWKA

background image

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

background image


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

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


Wyszukiwarka

Podobne podstrony:
PROG WSKAZÓWKA
Próg rentowności
Wskazówki dla nauczycieli, którzy mają w klasie
Wskazówki na każdy miesiąc dla wielbicieli ziół
Pash A Lifehacker Jak żyć i pracować z głową Kolejne wskazówki
Metoda Mysterego Wskazówki dotyczące otwietrania
5 Chem2 Zbiór zadań Odpowiedzi i wskazówki
Prog wyk TMM AiR 2010
WSKAZÓWKI DO PRZYGOTOWANIA ARCHIWALNEGO EGZEMPLARZA PRACY DYPLOMOWEJ., Seminarium dyplomowe(3)
Wskazówki do pracy teraputycznej, cykl VII artererapia
Wykres wskazowy transformatora, elektrotechnika PP, studfyja
Zastosowanie elektrycznych mierników wskazówkowych sprawko 1
Wskazówki instalacji i użytkowania klonów VCDS
techniki manipulacji politycznych prog 14
Wskazówki ogólne na temat techniki pisania
Polski Związek Łowiecki Wskazówki dla myśliwego szukającego postrzałka DZIKA
cg100 prog iii airbag restore devices support list

więcej podobnych podstron