//---------------------------------------------------------------------------
#include <vcl.h>
#include <iostream.h>
#include <fstream.h>
#include <istream.h>
#include <conio.h>
#include "Unit1.h"
#pragma hdrstop
#include<windows.h>
#include<math.h>
using namespace std;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
int zmienna;
int lineIndex;
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
    lineIndex = 0;
    Memo->Lines->LoadFromFile("Wartosci.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PomiarClick(TObject *Sender)
{
         Application->MessageBox("Brak pod³¹czonego urz¹dzenia - pomiar niewykonalny!", "B£¥D!", MB_OK);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SymulacjaClick(TObject *Sender)
{
     if (zmienna==0)
     {
        Form1->Symulacja->Caption="STOP";
        zmienna=1;
     }
     else
     {
        Form1->Symulacja->Caption="SYMULACJA";
        zmienna=0;
     }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TimerTimer(TObject *Sender)
{
        if (zmienna==1)
        {
                if( lineIndex >= Memo->Lines->Count )
                    lineIndex = 0;

                Wartosc->Caption = Memo->Lines->Strings[lineIndex];

                int a = StrToInt(Wartosc->Caption);

                ZakresRysowania->Canvas->Brush->Style = bsClear;
                ZakresRysowania->Canvas->Pen->Color=clBlack;
                ZakresRysowania->Canvas->Pen->Width=2;
                ZakresRysowania->Canvas->MoveTo(133,132);
                ZakresRysowania->Refresh();
                if (a>80 && a<140)
                {
                        if (a<110)  ZakresRysowania->Canvas->LineTo(56+2.6*(a-80),31-0.833*(a-80));
                        if (a>=110) ZakresRysowania->Canvas->LineTo(134+2.566*(a-110),6+0.866*(a-110));
                }
                if ((a>=0 && a<=20) || (a>=200 && a<=220))
                {
                        if (a<=20)  ZakresRysowania->Canvas->LineTo(40-1.25*a,227-2*a);
                        if (a>=200) ZakresRysowania->Canvas->LineTo(224+1.35*(220-a),227-2.1*(220-a));
                }
                if ((a>20 && a<=40) || (a>=180 && a<200))
                {
                        if (a<=40)  ZakresRysowania->Canvas->LineTo(15-0.55*(a-20),187-2.8*(a-20));
                        if (a>=180) ZakresRysowania->Canvas->LineTo(251+0.8*(200-a),185-2.82*(200-a));
                }
                if ((a>40 && a<=80) || (a>=140 && a<180))
                {
                        if (a<=80)  ZakresRysowania->Canvas->LineTo(4+1.3*(a-40),131-2.5*(a-40));
                        if (a>=140) ZakresRysowania->Canvas->LineTo(211+1.275*(a-140),32+2.4*(a-140));
                }
        }
}
//---------------------------------------------------------------------------