Stop Light

bone · Jun 15, 2005

Didn't mean to disturb you all with the subject. I found this while I was perusing another site for VB6.

http://www.visualbasicforum.com/showthread.php?t=218456&highlight=stoplight

Seems easier than using a PLC

DanielCamacho · Jun 15, 2005

bone said:
Seems easier than using a PLC

Code:

Private Sub mnuLight_Click()
 
	ForeColor = vbBlack
	FillStyle = vbFSSolid
	FillColor = vbRed
	Circle (ScaleWidth / 4, ScaleHeight / 3.3), 400
 
	ForeColor = vbBlack
	FillStyle = vbFSSolid
	FillColor = vbYellow
	Circle (ScaleWidth / 4, ScaleHeight / 2.5), 400
 
	ForeColor = vbBlack
	FillStyle = vbFSSolid
	FillColor = vbGreen
	Circle (ScaleWidth / 4, ScaleHeight / 2), 400
 
End Sub

Firstly, this code graphically creates a Stop light.

Yes, that is not possible to do with a PLC. The purpose of the PLC is control... example: To make the lights turn on and off in an orderly manner.

Secondly, the above Visual Basic logic does NOT address the issues of controling the lights...

You are comparing apples and oranges...

bone · Jun 15, 2005

Dan,

It wasn't me posting on the VB site. I know better than to ask for school projects! I've been out of school for 20 yrs, but my son enters high school this year. Personally, I hope he decides to pursue the programming field, be it PLC's or computer related. As of now, all he seems to want to do is sit back behind the 'puter and either 1 - save the world, or 2 - dominate the world. Give it 4 years, it'll be a real eye-opener!

JohnW · Jun 16, 2005

Any HMI can do this a lot easier than VB

Rod · Jun 16, 2005

Bone,
My son was the same. I made up a rule: for every hour of gaming he had to do 15 mins of programming - my choice of task and later language.

He is now the MIS at UTA.

Good luck,
Rod

JohnW · Jun 17, 2005

Here is a Delphi unit that takes 32 digital inputs from a PLC and displays them as LEDs. The PLC input word is obtined from a Automated Solutions ASABTCP activeX control and transferred to this unit using a global variable.

I find Delphi a lot easier than VB for SCADA and HMI applications, particularly when using databases. A typical small HMI application can also collect data and store it in any sort of database.

the global variables are N22[31] and N22[32].

Sorry about the file not printing to PDF very well.

sparkysliderz · Jun 17, 2005

JohnW said:
The PLC input word is obtined from a Automated Solutions ASABTCP activeX control and transferred to this unit using a global variable.

Hi John, Is the ActiveX component and PLCCommsUnit units freely available?

JohnW · Jun 17, 2005

No its not, The ActiveX is available from automated solutions for about $799 but any development you do is licence free. The PLCCommsUnit is written by me but I don't want to publish it.

You can download a demo from their website. It only runs from within Delphi etc. but it is good enough to try it out.

sparkysliderz · Jun 17, 2005

Have you tried libnodave? it does "exactly what it says on the tin"

JohnW · Jun 19, 2005

Iv'e not tried it, I don't have Linux platform at the moment.

zottel · Jun 27, 2005

Libnodave supports also Win32 since some versions. The recent version 0.7 uses MSVC++ as the preferred compiler for the .DLL.

Stop Light

bone

Member

DanielCamacho

Lifetime Supporting Member

bone

Member

JohnW

Member

Rod

Member

JohnW

Member

sparkysliderz

Member

JohnW

Member

sparkysliderz

Member

JohnW

Member

zottel

Member

Similar Topics