17Aug
Garden light controller

New module for the Joshuabus . This module will come in the barn and switches the lights and infrared spot in the garden. Also there are connections for light sensor, temperature sensor and pir (passive infrared).
An RGB dimmer is also present for some glasfiber illumination of the tree in my garden.  Pictures later….
And finally we have a RFID reader for identification based on the EM4095. With this we can switch on the lights in the garden and the house when i’m arriving at the garden gate.

Made my own rfid antenna. Did the milling at my work, first time ever i used the hand controlled milling machine.Antenna coil at the backsite is now covered with hars to prevent water entering.
On the front is a red/green led to show the permission of the rfid tag.
For detecting rain, light and temperature there’s the sensor module. It will communicate trough Dallas 1wire with the controller.
The rain sensor will be used to close the windows if it start raining, and it’s raining a lot here in Holland. This is the first version of the sensor, as you can see it’s already oxidized by electrolyze. In the new version the rain sensor will work with ac to prevent electrolyze.
Light sensor will be used for various things like the garden light etc.
Finally the controller is mounted in the barn, due the long cold winter it’s was not possible to work there.
3D Design
Finished pcb
Rfid reader
Rfid reader inside
All installed
1 wire Rain, Light and Temperature sensor
PlayPause
previous arrow
next arrow
 
3D Design
Finished pcb
Rfid reader
Rfid reader inside
All installed
1 wire Rain, Light and Temperature sensor
previous arrow
next arrow
3Aug
Volume controle

Controle the device volume from within your VB20xx application.
Tested with Friendlyarm Mini2440 running on win CE6.0 and Visual Basic 2008.

 Public Class Form1

    Public Declare Function waveOutSetVolume Lib "coredll.dll" (ByVal hwo As IntPtr, ByVal dwVolume As Long) As Integer
    Public Declare Function waveOutGetVolume Lib "coredll.dll" (ByVal hwo As IntPtr, ByRef pdwVolume As Long) As Integer


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        waveOutSetVolume(0, 40000) 'Sets the volume to 40000
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim i As Long
        waveOutGetVolume(0, i)
        Debug.WriteLine("Current volume setting: " & i)
    End Sub
End Class