Alberts Aldersons
Published © GPL3+

A Looking Glass Into the Unconscious

"Aha, a looking glass into the unconscious!" - Carl Jung. You can easily get it and get even more!

IntermediateWork in progress10 hours688
A Looking Glass Into the Unconscious

Things used in this project

Hardware components

LED (generic)
LED (generic)
×10
Resistor 221 ohm
Resistor 221 ohm
×10
Resistor 22.1k ohm
Resistor 22.1k ohm
×1
Speaker: 0.25W, 8 ohms
Speaker: 0.25W, 8 ohms
×1
Resistor 100 ohm
Resistor 100 ohm
×1

Software apps and online services

Arduino IDE
Arduino IDE

Story

Read more

Schematics

Schematics for "A looking glass to unconscious"

Code

Code for "A looking glass to unconscious"

Arduino
/*
#include "pitches.h"
int melody[] = { NOTE_C4, NOTE_G3, NOTE_G3, NOTE_A3, NOTE_G3, 0, NOTE_B3, NOTE_C4};
int noteDurations[] = {4, 8, 8, 4, 4, 4, 4, 4};
*/

const int  buttonPin = 13;    // the pin that the pushbutton is attached to

// Variables will change:
int buttonPushCounter = 0;   // counter for the number of button presses
int buttonState = 0;         // current state of the button
int lastButtonState = 0;     // previous state of the button

unsigned long laiks;
int punkts[210];
float sum1=0;
float sum2=0;
float sk1=0;
float sk2=0;
float kods=0;
int skaitstot=0;
int iepriepr=0;
int iepr=0;
float pulss=0;
float skrr=0;
float sumrr=0;
int n=0;
int notikums=0;
int lampuskaits=0;
int rr[20];
int setpoint=750;
int skaitsvirs=0;
int skaitszem=0;
float vidrr=0;
float videjaispulss=0;
float skaits1=0;
float summa1=0;
float videjais1=0;
float jaaa=0;
unsigned long laiks1;
float summa;
float skaits;
float tagad=0;
float tagad1=0;
int cikls=0;
int spont=0;
int iepr1=0;
int iepr2=0;
int iepr3=0;
int iepr4=0;
int iepr5=0;
int iepr6=0;
int iepr7=0;
int iepr8=0;
int iepr9=0;
int iepr10=9;
int skana=0;

int spontskaits=0;
float kgrdemo=0;
int tagadsek=0;
int kgriepr=0;
int kgrtagad=0;
int kgrdelta=0;

int kots=0;
int atslega=0;
int kotsmots=55;


#include "pitches.h"
int melody[] = { NOTE_C4, NOTE_G3, NOTE_G3, NOTE_A3, NOTE_G3, 0, NOTE_B3, NOTE_C4};
int noteDurations[] = {4, 8, 8, 4, 4, 4, 4, 4};

unsigned long laiks0;
float videjais;
float agr=0;
float starp=0;
float koef=0;
int bloks=0;

void setup() 
{
  pinMode(12, OUTPUT);
  pinMode(11, OUTPUT);
  pinMode(10, OUTPUT);
  pinMode(9, OUTPUT);
  pinMode(8, OUTPUT);
  pinMode(7, OUTPUT);
  pinMode(6, OUTPUT);
  pinMode(5, OUTPUT);
  pinMode(4, OUTPUT);
  pinMode(3, OUTPUT);
  Serial.begin(9600);
Serial.begin(9600);
}



void loop ()
{


// ###################################################################
// SĀKAS ASTOTĀ
// ###################################################################

while (1==1){ 

laiks0 = millis();
summa=0;
skaits=0;
do { 
tagad = analogRead(A2);
skaits=skaits+1;
summa=summa+tagad;
}
while (millis() - laiks0 <200);
tagad = summa/skaits;
Serial.println (tagad);

 digitalWrite(3, LOW); 
 digitalWrite(4, LOW); 
 digitalWrite(5, LOW); 
 digitalWrite(6, LOW); 
 digitalWrite(7, LOW); 
 digitalWrite(8, LOW); 
 digitalWrite(9, LOW); 
 digitalWrite(10, LOW); 
 digitalWrite(11, LOW); 
 digitalWrite(12, LOW); 

if (tagad>150){
spont=0;
if (tagad>iepr1){spont=spont+1;}
if (iepr1>iepr2){spont=spont+1;}
if (iepr2>iepr3){spont=spont+1;}
if (iepr3>iepr4){spont=spont+1;}
if (iepr4>iepr5){spont=spont+1;}
if (iepr5>iepr6){spont=spont+1;}
if (iepr6>iepr7){spont=spont+1;}
if (iepr7>iepr8){spont=spont+1;}
if (iepr8>iepr9){spont=spont+1;}
if (iepr9>iepr10){spont=spont+1;}

if (spont==0) {
   digitalWrite(3,HIGH);
   digitalWrite(4,HIGH);
   digitalWrite(5,HIGH);
   digitalWrite(6,HIGH);
   digitalWrite(7,HIGH);
   digitalWrite(8,HIGH);
   digitalWrite(9,HIGH);
   digitalWrite(10,HIGH);
   digitalWrite(11,HIGH);
   digitalWrite(12,HIGH);
   }
 if (spont==1) {
   digitalWrite(3,HIGH);
   digitalWrite(4,HIGH);
   digitalWrite(5,HIGH);
   digitalWrite(6,HIGH);
   digitalWrite(7,HIGH);
   digitalWrite(8,HIGH);
   digitalWrite(9,HIGH);
   digitalWrite(10,HIGH);
   digitalWrite(11,HIGH);
   }  
if (spont==2) {
   digitalWrite(3,HIGH);
   digitalWrite(4,HIGH);
   digitalWrite(5,HIGH);
   digitalWrite(6,HIGH);
   digitalWrite(7,HIGH);
   digitalWrite(8,HIGH);
   digitalWrite(9,HIGH);
   digitalWrite(10,HIGH);
   }    
if (spont==3) {
   digitalWrite(3,HIGH);
   digitalWrite(4,HIGH);
   digitalWrite(5,HIGH);
   digitalWrite(6,HIGH);
   digitalWrite(7,HIGH);
   digitalWrite(8,HIGH);
   digitalWrite(9,HIGH);
   } 
if (spont==4) {
   digitalWrite(3,HIGH);
   digitalWrite(4,HIGH);
   digitalWrite(5,HIGH);
   digitalWrite(6,HIGH);
   digitalWrite(7,HIGH);
   digitalWrite(8,HIGH);
   }      
if (spont==5) {
   digitalWrite(3,HIGH);
   digitalWrite(4,HIGH);
   digitalWrite(5,HIGH);
   digitalWrite(6,HIGH);
   digitalWrite(7,HIGH);
   }     
if (spont==6) {
   digitalWrite(3,HIGH);
   digitalWrite(4,HIGH);
   digitalWrite(5,HIGH);
   digitalWrite(6,HIGH);
   }
   if (spont==7) {
   digitalWrite(3,HIGH);
   digitalWrite(4,HIGH);
   digitalWrite(5,HIGH);
   }
   if (spont==8) {
   digitalWrite(3,HIGH);
   digitalWrite(4,HIGH);
   }
   if (spont==9) {
   digitalWrite(3,HIGH);
   }
   if (spont==10) {
   }
  
skana=map(spont,10,0,1000,100);
  tone(2, skana, 100);
  delay(1);  

}

iepr10=iepr9;
iepr9=iepr8;
iepr8=iepr7;
iepr7=iepr6;
iepr6=iepr5;
iepr5=iepr4;
iepr4=iepr3;
iepr3=iepr2;
iepr2=iepr1;
iepr1=tagad;
  
} // beidzas if 1==1

// ################################################################
// BEIDZAS ASTOTĀ
// ################################################################


} // beidzas "void loop ()"

Credits

Alberts Aldersons
1 project • 1 follower
Retired psychophysiologist, scientist, dr. habil. med., defended 2 dissertations, have 100+ publications. Arduino - since 2016.

Comments