查看: 5001|回復: 4

救命呀!我啲珊瑚曬到甩晒色喇 [複製鏈接]

Sony2222222

論壇元老

Rank: 7 Rank: 7 Rank: 7

電梯直達

樓主

發表於 2013-2-27 23:47:58 |只看該作者 |倒序瀏覽

本帖最後由 Sony2222222 於 2013-2-28 00:36 編輯

請問有冇師兄可以幫幫我改下個程式呀? 養軟珊瑚是否日照時間太長呢?
麻煩哂~~~~~
http://www.flickr.com/photos/73516189@N05/
##############
#J_07_11_2011
##############
Ret_all_ch
begin
   ##Moon Light Move##
   2301 G_darklight
   2302 G_darklight
   2303 G_darklight
   2304 G_darklight
   2305 G_darklight
   2306 G_darklight
   2307 G_darklight
   ##seep 04:00~08:00##
   Ret_all_ch
   3  delay_clocks
   1  delay_clocks
   30 delay_minutes
   ##CH1~7 3W_B op 0~50%##
   0800 G_darklight
   ##CH1~7 3W_B op 50~100% & CH7~12 3W_CW op 0~50%##
   0900 G_darklight
   ##CH7~12 3W_CW op 50~100% & CH13~14 XML op 0~50%##
   1000 G_darklight

   ##CH13~14 XML op 50~100%##
   1100 G_darklight
   4  delay_clocks
   ##CH13~14 XML off 100~50%##
   1600 G_darklight
3  delay_clocks
   ##CH13~14 XML off 50~0% & CH7~12 3W_CW off 100~50%##
   2000 G_darklight
   ##CH7~12 3W_CW off 50~0% & CH7~12 3W_B off 100~50%##
   2100 G_darklight
   ##CH7~12 3W_B off 50~0%##
   2200 G_darklight
repeat
#########
sub Ret_all_ch
#########
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
23 servo 22 servo 21 servo 20 servo 19 servo 18 servo
17 servo 16 servo 15 servo 14 servo 13 servo 12 servo
11 servo 10 servo 9 servo 8 servo 7 servo 6 servo
5 servo 4 servo 3 servo 2 servo 1 servo 0 servo
500 delay
return
###########
sub delay_seconds
###########
begin
dup while
1 minus 1000 delay
repeat
drop return
###########
sub delay_minutes
##########
check_temp
begin
dup while
1 minus 60 delay_seconds
repeat
drop return
##########
sub delay_clocks
##########
begin
dup while
1 minus 60 delay_minutes
repeat
drop return
##########
sub G_darklight
##########
0 11000
begin
rot select_servo
rot rot
1 minus
swap
1 plus
swap
dup -1 greater_than while
25 delay
check_temp
repeat
drop drop drop return
##########
sub select_servo
##########
dup 0800 equals
if
rot rot
#dup n servo
swap
dup 2 divide 1 servo
dup 2 divide 2 servo
dup 2 divide 3 servo
dup 2 divide 4 servo
dup 2 divide 5 servo
dup 2 divide 6 servo
dup 2 divide 7 servo
swap
rot
275 delay
return
endif
dup 0900 equals
if
rot rot
#dup n servo
swap
dup 2 divide 5500 plus 1 servo
dup 2 divide 5500 plus 2 servo
dup 2 divide 5500 plus 3 servo
dup 2 divide 5500 plus 4 servo
dup 2 divide 5500 plus 5 servo
dup 2 divide 5500 plus 6 servo
dup 2 divide 5500 plus 7 servo
dup 2 divide 8 servo
dup 2 divide 9 servo
dup 2 divide 10 servo
dup 2 divide 11 servo
dup 2 divide 12 servo
swap
rot
275 delay
return
endif
dup 1000 equals
if
rot rot
#dup n servo
swap
dup 2 divide 5500 plus 8 servo
dup 2 divide 5500 plus 9 servo
dup 2 divide 5500 plus 10 servo
dup 2 divide 5500 plus 11 servo
dup 2 divide 5500 plus 12 servo
dup 2 divide 13 servo
dup 2 divide 14 servo
swap
rot
275 delay
return
endif
dup 1100 equals
if
rot rot
#dup n servo
swap
dup 2 divide 5500 plus 13 servo
dup 2 divide 5500 plus 14 servo
swap
rot
275 delay
return
endif
dup 1600 equals
if
rot rot
dup 2 divide 5500 plus 13 servo
dup 2 divide 5500 plus 14 servo
swap
#dup n servo
swap
rot
275 delay
return
endif
dup 2000 equals
if
rot rot
dup 2 divide 5500 plus 8 servo
dup 2 divide 5500 plus 9 servo
dup 2 divide 5500 plus 10 servo
dup 2 divide 5500 plus 11 servo
dup 2 divide 5500 plus 12 servo
dup 2 divide 13 servo
dup 2 divide 14 servo
swap
#dup n servo
swap
rot
275 delay
return
endif
dup 2100 equals
if
rot rot
dup 2 divide 5500 plus 1 servo
dup 2 divide 5500 plus 2 servo
dup 2 divide 5500 plus 3 servo
dup 2 divide 5500 plus 4 servo
dup 2 divide 5500 plus 5 servo
dup 2 divide 5500 plus 6 servo
dup 2 divide 5500 plus 7 servo
dup 2 divide 8 servo
dup 2 divide 9 servo
dup 2 divide 10 servo
dup 2 divide 11 servo
dup 2 divide 12 servo
swap
#dup n servo
swap
rot
275 delay
return
endif
dup 2200 equals
if
rot rot
dup 2 divide 1 servo
dup 2 divide 2 servo
dup 2 divide 3 servo
dup 2 divide 4 servo
dup 2 divide 5 servo
dup 2 divide 6 servo
dup 2 divide 7 servo
swap
#dup n servo
swap
rot
275 delay
return
endif
dup 2301 equals
if
rot rot
#dup n servo
swap
dup 5 divide 1 servo
swap
rot
  190 delay
return
endif
dup 2302 equals
if
rot rot
dup 5 divide 1 servo
swap
dup 5 divide 2 servo
swap
rot
  189 delay
return
endif
dup 2303 equals
if
rot rot
dup 5 divide 2 servo
swap
dup 5 divide 3 servo
swap
rot
  189 delay
return
endif
dup 2304 equals
if
rot rot
dup 5 divide 3 servo
swap
dup 5 divide 4 servo
swap
rot
  189 delay
return
endif
dup 2305 equals
if
rot rot
dup 5 divide 4 servo
swap
dup 5 divide 5 servo
swap
rot
  189 delay
return
endif
dup 2306 equals
if
rot rot
dup 5 divide 5 servo
swap
dup 5 divide 6 servo
swap
rot
  189 delay
return
endif
dup 2307 equals
if
rot rot
dup 5 divide 6 servo
swap
#dup n servo
swap
rot
  190 delay
return
endif
return
##########
sub check_temp
##########
  0 0 700 servo_range
  30000 700 900 servo_range
  30000 900 1023 servo_range
return
##########
sub servo_range
##########
  pot 2 pick less_than logical_not # >= low
  pot 2 pick greater_than logical_not # <= high
  logical_and
  if
begin
   pot 2 pick 10 minus less_than logical_not # >= low - 10
   pot 2 pick 10 plus greater_than logical_not # <= high + 10
   logical_and
while
   2 pick 22 servo #FAN
   2 pick 23 servo #FAN
   drop drop drop
   return
repeat
  endif
  drop drop drop
  return
#####
sub pot
#####
0 get_position
return