//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "acces32.h"
#include "DACu.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;

#define maxch 2
  double span=-10.0, offset=-5.0;
  unsigned curval=0;
  unsigned address;
  bool RunFlag;


unsigned ConvertForOutput(unsigned v)
{
  if (MainForm->GroupChannel->ItemIndex <maxch)
    OutPort(address+(MainForm->GroupChannel->ItemIndex*2),v*16);
  else
    for (int i=0;i<maxch;i++) OutPort(address+(i*2)+4,v*16);
  return v;
}

AnsiString IntToBin(unsigned input)
{ AnsiString temp;
  unsigned i;
  double f;
  temp="";
  for (i=12;i>=1;i--) temp+= (input & (1<<(i-1)))?'1':'0';
  temp+="xxxx ";
  f=input*span/4096-offset;
  temp+=IntToHex(int(input),3)+' '+FloatToStrF(f,ffFixed,6,3);
  temp+=(MainForm->GroupRange->ItemIndex==4)?" mA":" Volts";
  return temp;
}

void UpdateDAC()
{
   switch(MainForm->GroupRange->ItemIndex){
     case 0:offset=-5.0;span=-10.0;break;
     case 1:offset=-10.0;span=-20.0;break;
     case 2:offset=0.0;span=5.0;break;
     case 3:offset=0.0;span=10.0;break;
     case 4:offset=-4.0;span=16.0;break;
   }
  MainForm->LOutput->Caption=IntToBin(ConvertForOutput(curval));
}

//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner) : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ValueChange(TObject *Sender)
{
  curval=Value->Position;
  UpdateDAC();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
  int i;
  GroupChannel->Items->Clear();
  for (i=0;i<maxch;i++) GroupChannel->Items->Append("Channel"+IntToStr(i));
  GroupChannel->Items->Append("All Channels");
  GroupChannel->ItemIndex=0;
  Memo1->Lines->Append("");
  Memo1->Lines->Append("Please configure the dialog options shown to reflect the"
   " settings on the card that is installed.  The card''s output voltage shown"
   " onscreen will only be correct if these settings are correct."
   " Refer to the card''s manual for specifics about jumper settings and switches.");
  Memo1->ScrollBars=ssVertical;

   if (InPortB(0x61) == 0xAA55) {
      Application->MessageBox("ACCESNT.SYS not detected. Please copy ACCESNT.SYS into [NT]/system32/drivers and re-run this sample.", "Warning", IDOK);
   }
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ExitButtonClick(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::InitializeClick(TObject *Sender)
{
  unsigned data=0;
  data=StrToInt("0x"+ISAEdit->Text);
  if (data>=0x100)
  {
    address=data;
    RunFlag=1;
  }else Beep();
  if (RunFlag) GroupOutput->Visible=1;

}
//---------------------------------------------------------------------------
void __fastcall TMainForm::GroupRangeClick(TObject *Sender)
{
  UpdateDAC();
}
//---------------------------------------------------------------------------