Down and Dirty DIY Wavemaker

[Jimbo]

My other wavemaker is turning into a full controller, but wanted a wavemaker now. So been working on it the last couple of days. Just got it working today.

It uses a dontronics dt106 processor board and a dt205 relay board. No LCD or realtime clock, just works. Uses a 16f867 processor, but you could use just about any pic processor that will fit the dt106 board, I just have a couple of them laying around.

It use two channels for the powerheads
one channel for main pump

It runs 3 cycles each lasting about an hour each
1. This cycle runs both powerheads for 15 minutes with 2 minutes off
2. This cycle runs one powerhead for 8 minutes then the other for 8 minutes
3. This cycle runs both powerheads for 3 minutes 15 off

-Port b0 switch for feeding (not implemented yet) shut off 15 minutes and main pump
-Port b4 powerhead one Relay 1
-Port b5 Powerhead two Relay 2
-Port b6 main pump Relay 3
-Port b7 relay 4 not used on my setup relay 4

You can buy dontronic's boards just about anywhere

I use pic simulator IDE basic to program the chip.
You can download it from
http://www.oshonsoft.com/pic.html
30 usage trial
If you email me I can compile the code for you if you let me know what timings you would like for the powerheads. Then email you the code file but you will need a programmer.

You'll need a pic flash programmer
search the web for usb serial programmer, they run about $35

Here's the simple basic program

'Down and Dirty Wavemaker
' James Luttrell
'Uses DT106 board
' Uses Relay board
' Uses 16f876x processor 20mhz
Symbol powerhead1 = PORTB.4
Symbol powerhead2 = PORTB.5
Symbol pump = PORTB.6
Symbol button1 = PORTB.0
Const one_minute = 60000
'On / Off duration pulse one
' all powerhead on/off at the same time
Const pulse_one_on = 15
Const pulse_one_off = 2
' Alternating
Const pulse_two_on = 8
Const pulse_two_off = 8
' all on/off same time with longer off period
Const pulse_three_on = 3
Const pulse_three_off = 15
 
'init
TRISB = 0xf0
High pump
Dim i As Byte
Dim y As Byte
Dim x As Byte
'start main program here
Dim wait_time As Word
loop:
For i = 1 To 4
High powerhead1
High powerhead2
y = pulse_one_on
Gosub timer
Low powerhead1
Low powerhead2
y = pulse_one_off
Gosub timer
Next i
For i = 1 To 4
High powerhead1
Low powerhead2
y = pulse_two_on
Gosub timer
Low powerhead1
High powerhead2
y = pulse_two_off
Gosub timer
Next i
For i = 1 To 4
High powerhead1
High powerhead2
y = pulse_three_on
Gosub timer
Low powerhead1
Low powerhead2
y = pulse_three_off
Gosub timer
Next i
Goto loop
End											 
 
 
' wait y minutes 
timer:
For x = 1 To y
WaitMs one_minute
Next x
Return

If you have any questions or would like programmed chips let me know.

[drw94]

I can barly turn on a computer can't imagine make one and then programming. Sound very cool!!

[Jimbo]

I was able to get the feed button to work today

The button port needs to pulled down with a 10k resister and the switch is hooked to +5v. Turns off for 10 minutes including main pump. If your setup will overflow if you turn off main pump don't hook it up. Hopefully that would not be the case if so you might want to rethink your design.

Here's the final code

'Down and Dirty Wavemaker
' James Luttrell
'Uses DT106 board
' Uses Relay board
' Uses 16f876x processor 20mhz
 
Symbol powerhead1 = PORTB.4
Symbol powerhead2 = PORTB.5
Symbol pump = PORTB.6
Symbol button1 = PORTB.0
Const one_minute = 60000
 
'On / Off duration pulse one
' all powerhead on/off at the same time
Const pulse_one_on = 15
Const pulse_one_off = 2
 
' Alternating
Const pulse_two_on = 8
Const pulse_two_off = 8
' all on/off same time with longer off period
Const pulse_three_on = 3
Const pulse_three_off = 15
 
 'init
TRISB = 0x80
INTCON.INTE = 1 ' enable interrupt routine
 
Dim i As Byte
Dim y As Byte
Dim x As Byte
Dim sp1 As Bit
Dim sp2 As Bit
 
'start main program here
High pump
Enable
Dim wait_time As Word
loop:
 
For i = 1 To 4
High powerhead1
High powerhead2
y = pulse_one_on
Gosub timer
Low powerhead1
Low powerhead2
y = pulse_one_off
Gosub timer
Next i
 
For i = 1 To 4
High powerhead1
Low powerhead2
y = pulse_two_on
Gosub timer
Low powerhead1
High powerhead2
y = pulse_two_off
Gosub timer
Next i
 
For i = 1 To 4
High powerhead1
High powerhead2
y = pulse_three_on
Gosub timer
Low powerhead1
Low powerhead2
y = pulse_three_off
Gosub timer
Next i
 
Goto loop
End
 
' wait y minutes 
timer:
For x = 1 To y
WaitMs one_minute
Next x
Return 
 
On Interrupt
Save System
sp1 = powerhead1
sp2 = powerhead2
' turn off pumps
powerhead1 = 0
powerhead2 = 0
pump = 0
y = 10 '10 minutes
Gosub timer
'restore state before interrupt
pump = 1
powerhead1 = sp1
powerhead2 = sp2
'clear interrupt float
INTCON.INTF = 0
Resume

Here's the final pics of the unit.

[Jimbo]

I found a bug, need to save the y variable during interrupt. I was having a problem with the unit locking up but it turned out that the processor was too close to the relays. The magnetic pulse generated by them turning on caused interference with the processor. So I moved the processor board to it's own case.

[davidc]

for your button input, you can also use the internal pull-ups and tie the switch to ground. this could reduce your board complexity.

only thing is to be sure the pull ups are configured before the port is enabled so you don't short it. alternatively, you could connect the switch to ground through a 5K resistor or so and still use the internal pull ups without any risk.

[Jimbo]

I tried using the internal pullups, but the processor I'm using seemed to lock up when I set option_reg.7 to 0, I did set the tris register first, this drove me nuts for a day . I did not try another fresh processor yet. You would also need to change the trigger level for the interrupt, trigger on falling edge not rising, not a big deal. It was just easier to put in the pull down resistor at the time

[RipTide]

Great Doc! Glad to see your back from the future! Flux Capacitors and Time Machines should be easy after this