Introduction: Visual Computer Stress Meter- Arduino

Have you ever wanted to, without going out of your way to clock your processor, see how much stress your computer is under? With this project you will have a simple bar graph that constantly shows how much stress your computer is under. If the graph reads 0, your computer isn't working too much. If it reads 8, the highest, your computer is working very hard, and you probably should give it any more of a load. This tutorial is remotely easy, meaning a beginner should be able to follow it fairly well. After all, I am  beginner myself.

This tutorial is interned for Unix users. If I am correct, small tweaking should allow it to work on Windows. Maybe some day I'll re-write it for Windows users. 

Step 1: How It Works

You may be wondering how it works at this point, before you get started. All of the real work is done with a perl script.

1. A perl script clocks the processor.
2. The script uses that number to come up with a number from 1-9.
3. The script throws that number to the Arduino, using Serial connection.
4. The script get repeated over and over, for an infinite amount of time.
5. Each time the Arduino receives ten numbers, it averages them, and shows the average on the bar graph.

It's as easy as that!

Step 2: What You'll Need

Here is the list of supplies:
An Arduino
A breadboard
8 leds                                                    Or an actual bar graph unit
8 330 ohm resistors
Wire
Perl
Unix::Processors                                A perl module
Device::SerialPort                              Also a perl module
Math::Round                                       Yet another perl module

All perl modules can be downloaded from cpan.

Step 3: Set Up the Perl Script

Here is where you will create the main perl script. Let's begin:

#!/usr/bin/perl

This would be the location of your perl interpreter. More code:

use Unix::Processors;
use Device::SerialPort;
use Math::Round;

All of these are libraries you need. The first allows you to clock the processor. The next allows you to write to the Serial port, and the last allows you to round numbers.
Now, add:

my $arduino = Device::SerialPort->new("/dev/ttyACM0"); #Should be the port your Arduino is on
$arduino->databits(8);
$arduino->baudrate(9600); #Should be your Arduino's baud rate
$arduino->parity("none");
$arduino->stopbits(1);

All of these things initialize the connection with the Arduino. You should change what needs to be changed to make it fit your needs.

my $processor = new Unix::Processors; #Your processor
$overallspeed = $processor->max_clock; #Clocks it
$send = ((($overallspeed - 800) / 175.125) + 1); # 800 = minimum clock speed. 175.125 = max clock speed / number of leds

This chunk of code clocks the processor and puts it on a scale between 1 and 7. Some things need to be changed, such as your processors minimum clock speed, and your max divided by the number of leds. For this project, there is 8 leds.
Finally, add:

$arduino->write(round($send)); #Rounds the number, and sends it to your Arduino

This code is in charge of sending it to the Arduino.
Save all that code as clockandsend.pl
Now, this will only clock and send one number. You want to create another script to run this one over, and over again. For example:

#!/usr/bin/perl
while (1)
{
    system("/path/clockandsend.pl");
}

Just change "/path/" to whatever the path actually is.
I would save that as loop.pl.

That's it for the perl!




Step 4: Program the Arduino

The code for the Arduino is fairly simple. Begin with:

int led1=13, led2=12,led3=11, led4=10, led5=9, led6 = 8, led7 = 7, led8 = 6;
//Defines all the pins.

As said in the comment, it defines the pins. Now add setup ():

void setup()
{
  pinMode(led1, OUTPUT);
  pinMode(led2, OUTPUT);
  pinMode(led3, OUTPUT);
  pinMode(led4, OUTPUT);
  pinMode(led5, OUTPUT);
  pinMode(led6, OUTPUT);
  pinMode(led7, OUTPUT);
  pinMode(led8, OUTPUT);
  Serial.begin(9600);
}

This just sets the pin-modes, and begins the Serial connection. Remember, the baud rate must be consistent with the perl script.
More code:

int loops = 0, overall = 0, avrg = 0;

These are three variables that are need. Loops is how many times it has looped. Overall is the past ten inputs added together. Avrg is overall / loops.
Add this:

void loop()
{
  int input;
  if (Serial.available() > 0)
  {
    input = Serial.read() - '0'; //Takes input
  }
  if (input != 0) loops++; //makes sure that input is not 0. If it is, it will not be counted
  overall += input; //Adds the input to overall
  avrg = overall/loops; //Averages it.

The comments really tell it all
Add:

  if (loops == 10)
  {
    avrg--; //Decreases avereage by one. Remember in the perl script how we increase it by one?
    if (avrg > 0) {digitalWrite(led1, HIGH);}
    else {digitalWrite(led1, LOW);}
    if (avrg > 1) {digitalWrite(led2, HIGH);}
    else {digitalWrite(led2, LOW);}
    if (avrg > 2) {digitalWrite(led3, HIGH);}
    else {digitalWrite(led3, LOW);}
    if (avrg > 3) {digitalWrite(led4, HIGH);}
    else {digitalWrite(led4, LOW);}
    if (avrg > 4) {digitalWrite(led5, HIGH);}
    else {digitalWrite(led5, LOW);}
    if (avrg > 5) {digitalWrite(led6, HIGH);}
    else {digitalWrite(led6, LOW);}
    if (avrg > 6) {digitalWrite(led7, HIGH);}
    else {digitalWrite(led7, LOW);}
    if (avrg > 7) {digitalWrite(led8, HIGH);}
    else {digitalWrite(led8, LOW);} //Make the graph
    loops = 0;
    overall = 0;

This code simply says "Every ten loops, display the average, and reset everything." The comments should explain it.
Finally, add:

Serial.print("Trying to write: ");
    Serial.print(avrg);
    Serial.print("\n");
  }
}

This is included for trouble-shooting purposes. If nothing is lighting up, you can see if it's even trying to light up.

You're done with the Arduino code!

Step 5: Set Up the Arduino

Obviously, we're going to need to set up the Arduino. The image, created using fritzing, should explain it. The blue things are wires, the red things are leds, and the resistors are 330 ohm.

Step 6: Making It All Work

Now that you have all these things, you may be wondering how they all come together. Here it is:

1. Upload the code to your Arduino.
2. Open your Serial Monitor. It shouldn't say anything.
3. Use 'cd' in terminal to get to the directory that loop.pl is in.
4. Run loop.pl, from the terminal.
5. It should be working!

Remember, everything must be done in that order. If it's not, it will not work.

Feel free to post any questions you have in the comments, I would love to answer them!

Comments

author
zdd1234 (author)2013-12-12

Could some one please help me out with this problem I have with this project?
How do you run loop.pl. in the terminal window? I'm using a Ubuntu 12.04 and I did evrything in the perl that it told me to do. Do I download anything in the Text Editor?
I'm getting stuck at step 6, #3. Thank you for your help.

author
DemolisionWolf (author)2013-06-28

Cool idea! I will have to try it out

author
EncasedDeath (author)2013-02-01

When I try to run the Perl code in Command Prompt I get this problem. Any Ideas?
C:\Users\Logan>C:\Users\Logan\Desktop\clock\loop.pl
Can't locate Unix/Processors.pm in @INC (@INC contains: C:/Perl64/site/lib C:/Pe
rl64/lib .) at C:\Users\Logan\Desktop\clock\loop.pl line 4.
BEGIN failed--compilation aborted at C:\Users\Logan\Desktop\clock\loop.pl line 4
.

author
alecnotalex (author)EncasedDeath2013-02-02

Due to what your paths look like, I'll assume you're using Windows. The interpreter is having issues with the Unix:Processors module, because, well, Windows is not Unix, and it actually isn't very similar to Unix. After doing a bit of research, I found the Win32::SystemInfo::CpuUsage, so I would recommend looking that up.

author
yanney (author)2012-04-29

i run into a couple of problems. While trying to run loop.pl i get this "Expected end of line, etc. but found “while”."

while trying to run clockandsend.pl, i get this "Expected end of line, etc. but found identifier."

any help?

author
alecnotalex (author)yanney2012-05-01

I don't really know...
What version of perl are you using?

author
wschmidt (author)2012-04-16

What version of Perl did you use, Strawberry or ActiveState?

author
alecnotalex (author)wschmidt2012-04-16

I run Linux, so I didn't need either, I could just use the standard.

author
janw (author)2012-04-07

Nice little project! Maybe you should use 10 leds. Then every led is 10% processor load.

author
alecnotalex (author)janw2012-04-07

Yes, I was considering doing that. I actually don't know why I chose 8 instead...
If I have some free time I'll probably update it for ten LEDs, but as for now, I have other projects that I'm working on.

About This Instructable

8,089views

31favorites

License:

Bio: I am a human being that enjoys to build things. I also say GNU/Linux instead of just Linux. Yeah, I'm that kind of ...
More by alecnotalex:TouchPass: RFID Password EntryTiltKey- Write by TiltingRFI-DJ: MP3 Playing RFID Thing
Add instructable to: