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

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMyForm *MyForm;
BYTE READ_COMMAND=0xA1;
BYTE WRITE_COMMAND=0xA0;
//---------------------------------------------------------------------------
__fastcall TMyForm::TMyForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TMyForm::ExecutiveClick(TObject *Sender)
{
        bool rlst;
        WORD addr;
        BYTE addr_msb,addr_lsb,data;
        addr=StrToInt("0x"+Address->Text);
        data=StrToInt("0x"+Data->Text);
        addr_msb=(addr&0xFF00)>>8;
        addr_lsb=addr&0x00FF;
        my_bus.Mem_Reset();
        my_bus.Start();
        if(RadioWrite->Checked) {
                // Write operation
                my_bus.WriteByte(WRITE_COMMAND);
                rlst=my_bus.WaitACK();
               // my_bus.WriteByte(addr_msb);
                //rlst=my_bus.WaitACK();
                my_bus.WriteByte(addr_lsb);
                rlst=my_bus.WaitACK();
                my_bus.WriteByte(data);
                rlst=my_bus.WaitACK();
        }
        else {
                // Read operation
                my_bus.WriteByte(WRITE_COMMAND);
                rlst=my_bus.WaitACK();
               // my_bus.WriteByte(addr_msb);
               // rlst=my_bus.WaitACK();
                my_bus.WriteByte(addr_lsb);
                rlst=my_bus.WaitACK();
                my_bus.Start();
                my_bus.WriteByte(READ_COMMAND);
                rlst=my_bus.WaitACK();
                data=my_bus.ReadByte();
                Data->Text=IntToHex(data,2);
        }
        my_bus.Stop();
        if(rlst)
                LED->Brush->Color=clLime;
        else
                LED->Brush->Color=clRed;
        
}
//---------------------------------------------------------------------------