I've downloaded zconsole.rar but what do I do with that? (No programme associated :/)
p.s. otherwise the LCD works great thx
How do you work the fanbus thing?
any chance of you posting the source code? or mailing it dr_kazza@blueyonder.co.uk
(cheeky ain't I?)
(cheeky ain't I?)
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <stdio.h>
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Zcomm"
#pragma link "Trayicon"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
char *Buffer = new char[80]; //Creates Buffer dynamic variable
sprintf(Buffer, "%s", Edit1->Text);
ZComm1 -> Text = Buffer;
delete[] Buffer;
}
//GPO 1---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
if (CheckBox1 -> Checked)
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('W');
ZComm1->WriteCommByte(1); //turns GPO on
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('W');
ZComm1->WriteCommByte(2); //turns LED on
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(1);
ZComm1->Text=("Fan #1 [ON] / OFF ");
}
else
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('V');
ZComm1->WriteCommByte(1); //turns GPO off
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('V');
ZComm1->WriteCommByte(2); //turns LED off
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(1);
ZComm1->Text=("Fan #1 ON / [OFF] ");
}
}
//GPO 2---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox2Click(TObject *Sender)
{
if (CheckBox2 -> Checked)
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('W');
ZComm1->WriteCommByte(3); //turns GPO on
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('W');
ZComm1->WriteCommByte(4); //turns LED on
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(2);
ZComm1->Text=("Fan #2 [ON] / OFF ");
}
else
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('V');
ZComm1->WriteCommByte(3); //turns GPO off
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('V');
ZComm1->WriteCommByte(4); //turns LED off
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(2);
ZComm1->Text=("Fan #2 ON / [OFF] ");
}
}
//GPO 3---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox3Click(TObject *Sender)
{
if (CheckBox3 -> Checked)
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('W');
ZComm1->WriteCommByte(5); //turns GPO on
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('W');
ZComm1->WriteCommByte(6); //turns LED on
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(3);
ZComm1->Text=("Fan #3 [ON] / OFF ");
}
else
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('V');
ZComm1->WriteCommByte(5); //turns GPO off
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('V');
ZComm1->WriteCommByte(6); //turns LED off
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(3);
ZComm1->Text=("Fan #3 ON / [OFF] ");
}
}
//GPO 4---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox4Click(TObject *Sender)
{
if (CheckBox4 -> Checked)
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('W');
ZComm1->WriteCommByte(7); //turns GPO on
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('W');
ZComm1->WriteCommByte(8); //turns LED on
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(4);
ZComm1->Text=("Fan #4 [ON] / OFF ");
}
else
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('V');
ZComm1->WriteCommByte(7); //turns GPO off
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('V');
ZComm1->WriteCommByte(8); //turns LED off
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(4);
ZComm1->Text=("Fan #4 ON / [OFF] ");
}
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if (ZComm1->Connected)
ZComm1->CloseConnection();
char *Buffer = new char[80]; //Creates Buffer dynamic variable
sprintf(Buffer, "%s", ComboBox2->Text);
long temp = atol(Buffer);
ZComm1->BaudRate = temp;
delete[] Buffer;
ZComm1->Port = ComboBox1->Text;
if(!ZComm1->Connected)
if(!ZComm1->OpenConnection())
{
ShowMessage("Could not open port");
}
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('X');
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(1);
ZComm1->Text=("Fan #1 ON / [OFF] ");
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(2);
ZComm1->Text=("Fan #2 ON / [OFF] ");
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(3);
ZComm1->Text=("Fan #3 ON / [OFF] ");
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(4);
ZComm1->Text=("Fan #4 ON / [OFF] ");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('X');
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// ZComm2->WriteCommByte('f');
static int backlighton = true;
if (backlighton)
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('F');
backlighton=false;
}
else
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('B');
ZComm1->WriteCommByte(0);
backlighton=true;
}
}
void __fastcall TForm1::UPSInData(TObject *Sender)
{
char *buffer = new char[20];
// ZComm2->ReadComm(buffer, 6);
Edit1->Text = buffer;
delete[] buffer;
}
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <stdio.h>
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Zcomm"
#pragma link "Trayicon"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
char *Buffer = new char[80]; //Creates Buffer dynamic variable
sprintf(Buffer, "%s", Edit1->Text);
ZComm1 -> Text = Buffer;
delete[] Buffer;
}
//GPO 1---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox1Click(TObject *Sender)
{
if (CheckBox1 -> Checked)
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('W');
ZComm1->WriteCommByte(1); //turns GPO on
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('W');
ZComm1->WriteCommByte(2); //turns LED on
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(1);
ZComm1->Text=("Fan #1 [ON] / OFF ");
}
else
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('V');
ZComm1->WriteCommByte(1); //turns GPO off
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('V');
ZComm1->WriteCommByte(2); //turns LED off
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(1);
ZComm1->Text=("Fan #1 ON / [OFF] ");
}
}
//GPO 2---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox2Click(TObject *Sender)
{
if (CheckBox2 -> Checked)
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('W');
ZComm1->WriteCommByte(3); //turns GPO on
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('W');
ZComm1->WriteCommByte(4); //turns LED on
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(2);
ZComm1->Text=("Fan #2 [ON] / OFF ");
}
else
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('V');
ZComm1->WriteCommByte(3); //turns GPO off
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('V');
ZComm1->WriteCommByte(4); //turns LED off
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(2);
ZComm1->Text=("Fan #2 ON / [OFF] ");
}
}
//GPO 3---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox3Click(TObject *Sender)
{
if (CheckBox3 -> Checked)
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('W');
ZComm1->WriteCommByte(5); //turns GPO on
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('W');
ZComm1->WriteCommByte(6); //turns LED on
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(3);
ZComm1->Text=("Fan #3 [ON] / OFF ");
}
else
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('V');
ZComm1->WriteCommByte(5); //turns GPO off
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('V');
ZComm1->WriteCommByte(6); //turns LED off
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(3);
ZComm1->Text=("Fan #3 ON / [OFF] ");
}
}
//GPO 4---------------------------------------------------------------------------
void __fastcall TForm1::CheckBox4Click(TObject *Sender)
{
if (CheckBox4 -> Checked)
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('W');
ZComm1->WriteCommByte(7); //turns GPO on
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('W');
ZComm1->WriteCommByte(8); //turns LED on
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(4);
ZComm1->Text=("Fan #4 [ON] / OFF ");
}
else
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('V');
ZComm1->WriteCommByte(7); //turns GPO off
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('V');
ZComm1->WriteCommByte(8); //turns LED off
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(4);
ZComm1->Text=("Fan #4 ON / [OFF] ");
}
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if (ZComm1->Connected)
ZComm1->CloseConnection();
char *Buffer = new char[80]; //Creates Buffer dynamic variable
sprintf(Buffer, "%s", ComboBox2->Text);
long temp = atol(Buffer);
ZComm1->BaudRate = temp;
delete[] Buffer;
ZComm1->Port = ComboBox1->Text;
if(!ZComm1->Connected)
if(!ZComm1->OpenConnection())
{
ShowMessage("Could not open port");
}
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('X');
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(1);
ZComm1->Text=("Fan #1 ON / [OFF] ");
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(2);
ZComm1->Text=("Fan #2 ON / [OFF] ");
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(3);
ZComm1->Text=("Fan #3 ON / [OFF] ");
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('G');
ZComm1->WriteCommByte(1);
ZComm1->WriteCommByte(4);
ZComm1->Text=("Fan #4 ON / [OFF] ");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('X');
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// ZComm2->WriteCommByte('f');
static int backlighton = true;
if (backlighton)
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('F');
backlighton=false;
}
else
{
ZComm1->WriteCommByte(0xfe);
ZComm1->WriteCommByte('B');
ZComm1->WriteCommByte(0);
backlighton=true;
}
}
void __fastcall TForm1::UPSInData(TObject *Sender)
{
char *buffer = new char[20];
// ZComm2->ReadComm(buffer, 6);
Edit1->Text = buffer;
delete[] buffer;
}
//---------------------------------------------------------------------------
Henry J.
President
Matrix Orbital
President
Matrix Orbital