Annoying Last Xmas Picture Frame

I've build this to make people in my office happy :)

The idea is to built something like this "days without accident" panels.

Each time somebody will push the button, the counter resets and Last Xmas will play.

This is how it should look like

And here is the result

I took one of this IKEA 3D Frames and took it apart

A 4mm Plexiglas panel and a DinA4 self adhesive paper,
with printed Text on it

I used the toner thermotransfer methode to make the PCB's

 I made 2 PCB's. One for the counter electronic with the CPU, and one for the MP3

module WTV020-SD-16P and the amplifier

The counter increments each 24h.

A piece of red plastic foil for the display and a piece of Mosquito cover for the speaker (with a few test holes :) )

All fixed inside

The counter reset button

Finished Frame

And finally installed in the Office :)

Main Loft-Solar Kollektor

Hei ass deen dokumenteiert. Ass schons besschen mei en aalen Projet

http://awallsolar.blogspot.com/

Underwater Camera

Cutting a hole in a waterproof junction-Box

silicone glue

Cutting plexiglas discs

 

Plexiglas sliders for furniture

 all glued in the cover of the  junction-Box

 a backplane made of wood

finshed front part

 from the back

everything mounted with the silvercrest cam and a 9V block batterie

Lights on

 

First waterproof Test

Ultrasonic Sensor HC-SR04 Microcontroller Test

I'm trying out the Sensor HC-SR04 Modul.
First of all I had to figure out, how it works.

As you can see it has 4 pins.

VCC 5V
Trigger
Echo
GND

Here is how it should be controlled:

Send a 10us impulse to trigger pin.
The module will send 8 ultrasonic impulses.
The echo pin goes high for 100us to 25ms, depending on the distance to the object.
If there is no reflecting surface, the echo pin goes down after max. 30ms


Here my test setup:

A little video:

And the Bascom code:



Config Pinc.0 = Output
Config Pinc.1 = Input
Dim A As Long
Cls

Do
 Pinc.0 = 0     'Trigger 0'
 Waitus 2
 Pinc.0 = 1     'Trigger 1'
 Waitus 10      'wait 10us'
 Pinc.0 = 0      'Trigger 0'

 If Pinc.1 = 1 Then Gosub Outlcd                            'when echo goes high'


Loop



Outlcd:
 A = 0
 Do
 A = A + 1
 Loop Until Pinc.1 = 0                                      'count until echo 0'

 Cls
 A = A / 30                                                 'divide value by 30 to get it nearly in cm'
 Lcd A
 Waitms 500

 Return

End

Led Matrix 8x5 with Shift register and Shiftout

The Bascom code

Dim S As String * 8
Dim U As String * 8
Dim L(6) As Byte
Dim A As Long
Dim B As Byte
Dim C As Byte
Config Portb = Output
Config Portc = Output

Clock Alias Portb.1
Outdata Alias Portb.2
Latch Alias Portb.3
Srreset Alias Portb.0

Srreset = 0
Srreset = 1

L(1) = &B0010000
L(2) = &B0111110
L(3) = &B1111110
L(4) = &B0111110
L(5) = &B0010000


Do

For A = 1 To 7
Portc = 1
For B = 1 To 5

Shiftout Outdata , Clock , L(b) , 2 , 8

Latch = 1
Latch = 0
Srreset = 0
Srreset = 1
Waitms 20
Latch = 1
Latch = 0
Rotate Portc , Left
Next B

Next A
For C = 1 To 5
Rotate L(c) , Left
Next C
Loop

End