Page 1 of 1

Posted: Wed Nov 21, 2001 2:27 pm
by Dr_kazza
I've downloaded zconsole.rar but what do I do with that? (No programme associated :/)

p.s. otherwise the LCD works great thx :grin:

Posted: Wed Nov 21, 2001 2:33 pm
by Henry
.rar, compression type. Much like WinZip, but much better.

http://www.keyscreen.com/filemang.htm#2

Posted: Fri Nov 23, 2001 5:58 am
by Dr_kazza
any chance of you posting the source code? or mailing it dr_kazza@blueyonder.co.uk

:grin: (cheeky ain't I?)

Posted: Fri Nov 23, 2001 10:00 am
by Henry
Sure I'll e-mai it to you. It's written in Borland C++ Builder.

Posted: Fri Nov 23, 2001 10:08 am
by Dr_kazza
YUO = the WIN!!111

p.s. CM210 frosted Green turns up monday... the drilling tool turns up from Satan if I'm a bad boy by Xmas

Posted: Fri Nov 23, 2001 12:08 pm
by Henry
//---------------------------------------------------------------------------

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

Posted: Sat Nov 24, 2001 1:42 pm
by jodynicH
Nice coding