設為首頁收藏本站

海水領域 SeaFishZone

 找回密碼
 立即註冊
海水領域 SeaFishZone › 討論區 › 器材設備 › DIY手作仔 › Pololu 習作
返回列表 發新帖
樓主: jieda
打印 上一主題 下一主題

Pololu 習作 [複製鏈接]

jieda

論壇元老

癲佬

Rank: 7Rank: 7Rank: 7

最佳新人 活躍會員 熱心會員 灌水之王 論壇元老

跳轉到指定樓層
樓主
發表於 2012-5-12 18:41:45 |顯示全部樓層 |倒序瀏覽
本帖最後由 jieda 於 2012-5-12 18:43 編輯




##############
#Main Table
#RoyIp
#############
begin
   closeAllCh
   T0700 #CH0-3 RB ON
   30000 13 servo #CH13 T5 on
   30000 15 servo #CH15 Fan on
   1 delay_clocks
   T0800 #CH4-7 B ON
   1 delay_clocks
   T0900 #CH12 B ON
   2 delay_clocks
   T1100 #CH8-11 ON
   2 delay_clocks
   T1300 #CH14 XML ON
   3 delay_clocks
   T1600 #CH14 XML OFF
   3 delay_clocks
   T1900 #CH8-11 OFF, CH0-3 10%, CH13 T5 OFF
   2 delay_clocks
   T2100 #CH4-7 & CH12 OFF
   6 delay_clocks
   closeAllCh
   4 delay_clocks
repeat

####################
sub closeAllCh
######################
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
1000 delay
return

#####################
sub delay_seconds
#####################
begin
dup while
1 minus 1000 delay
repeat
drop
return

#######################
sub delay_minutes
#####################
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 T0700
############
0
begin
  dup 15000 less_than while
  1 plus
  4 delay
  dup 0 servo
  dup 1 servo
  dup 2 servo
  dup 3 servo
repeat
drop
return

############
sub T0800
############
0
begin
  dup 15000 less_than while
  1 plus
  4 delay
  dup 4 servo
  dup 5 servo
  dup 6 servo
  dup 7 servo
repeat
drop
return

############
sub T0900
############
0
begin
  dup 15000 less_than while
  1 plus
  4 delay
  dup 12 servo
repeat
drop
return

############
sub T1100
############
0
begin
  dup 15000 less_than while
  1 plus
  4 delay
  dup 8 servo
  dup 9 servo
  dup 10 servo
  dup 11 servo
repeat
drop
return

############
sub T1300
############
0
begin
  dup 15000 less_than while
  1 plus
  4 delay
  dup 14 servo
repeat
drop
return

############
sub T1600
###########
15000
begin
  dup 0 greater_than while
  1 minus
  4 delay
  dup 14 servo
repeat
drop
return

############
sub T1900
###########
15000
begin
  dup 0 greater_than while
  1 minus
  4 delay
  dup 8 servo
  dup 9 servo
  dup 10 servo
  dup 11 servo
repeat
drop
0 13 servo #CH13 T5 OFF
15000
begin
  dup 750 greater_than while
  1 minus
  4 delay
  dup 0 servo
  dup 1 servo
  dup 2 servo
  dup 3 servo
repeat
drop
return

############
sub T2100
###########
15000
begin
  dup -1 greater_than while
  1 minus
  5 delay
  dup 4 servo
  dup 5 servo
  dup 6 servo
  dup 7 servo
  dup 12 servo
repeat
drop
return

舉報

jieda

論壇元老

癲佬

Rank: 7Rank: 7Rank: 7

最佳新人 活躍會員 熱心會員 灌水之王 論壇元老

沙發
發表於 2012-5-12 18:44:49 |顯示全部樓層
##############
#Main Table
#GoReef
#############
Close_all
begin
   T0900 #CH15,16 Blue On
   T1000 #CH17 T5 On
   1 delay_clocks
   T1100 #CH1 Blue On
   T1110 #CH2 Blue On
   T1120 #CH3 Blue On
   T1130 #CH4 Blue On
   T1140 #CH5 Blue On
   T1150 #CH6 Blue On
   T1200 #CH7~12 Cool White On
   T1500 #CH13,14 MXL On
   4 delay_clocks
   T2000 #CH13,14 MXL Off
   2 delay_clocks
   T2300 #CH7~12 Cool White Off
   T0000 #CH1 Blue Off
   T0010 #CH2 Blue Off  
   T0020 #CH3 Blue Off  
   T0030 #CH4 Blue Off  
   T0040 #CH5 Blue Off  
   T0050 #CH6 Blue Off  
   1 delay_clocks
   T0200 #CH17 T5 Off  
   Moon_0200 #CH15,16 Blue Down to 10%  
   3 delay_clocks
   Close_all
   3 delay_clocks #Speed
repeat

#########
sub Close_all
#########  
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
1000 delay
return

###########
sub delay_seconds
###########  
check_temp
begin
   dup while 1 minus 1000 delay
repeat
drop return

###########
sub delay_minutes
##########  
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 check_temp
##########
0 18 servo #FAN
0 19 servo #FAN
0 0 740 servo_range
8000 740 760 servo_range
16000 760 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
  2 pick 16000 equals
  if
     2 pick 18 servo #FAN
     2 pick 19 servo #FAN
  else  
     2 pick 18 servo #FAN
  endif
endif
drop drop drop
return

#####
sub pot
#####
0 get_position
return

######
sub T0900
######
0
begin
   dup 15001 less_than while
   dup 15 servo
   dup 16 servo   
   1 plus
   240 delay
   check_temp
repeat
drop return

######
sub T1000
######
30000 17 servo
return

######
sub T1100
######
0
begin
   dup 15001 less_than while
   dup 1 servo
   1 plus
   40 delay
   check_temp
repeat
drop return

######
sub T1110
######
0
begin
   dup 15001 less_than while
   dup 2 servo
   1 plus
   40 delay
   check_temp
repeat
drop return

######
sub T1120
######
0
begin
   dup 15001 less_than while
   dup 3 servo
   1 plus
   40 delay
   check_temp
repeat
drop return

######
sub T1130
######
0
begin
   dup 15001 less_than while
   dup 4 servo
   1 plus
   40 delay
   check_temp
repeat
drop return

######
sub T1140
######
0
begin
   dup 15001 less_than while
   dup 5 servo
   1 plus
   40 delay
   check_temp
repeat
drop return

######
sub T1150
######
0
begin
   dup 15001 less_than while
   dup 6 servo
   1 plus
   40 delay
   check_temp
repeat
drop return

######
sub T1200
######
0
begin
   dup 15001 less_than while
   dup 7 servo
   dup 8 servo
   dup 9 servo
   dup 10 servo
   dup 11 servo
   dup 12 servo
   1 plus
   720 delay
   check_temp
repeat
drop return

######
sub T1500
######
0
begin
   dup 15001 less_than while
   dup 13 servo
   dup 14 servo
   1 plus
   240 delay
   check_temp
repeat
drop return

#####
sub T2000
#######
15000
begin
   dup -1 greater_than while
   dup 13 servo
   dup 14 servo
   1 minus
   240 delay
   check_temp
repeat
drop return

#####
sub T2300
#######
15000
begin
   dup -1 greater_than while
   dup 7 servo
   dup 8 servo
   dup 9 servo
   dup 10 servo
   dup 11 servo
   dup 12 servo
   1 minus
   240 delay
   check_temp
repeat
drop return

#####
sub T0000
#######
15000
begin
   dup -1 greater_than while
   dup 1 servo
   1 minus
   40 delay
   check_temp
repeat
drop return

#####
sub T0010
#######
15000
begin
   dup -1 greater_than while
   dup 2 servo
   1 minus
   40 delay
   check_temp
repeat
drop return

#####
sub T0020
#######
15000
begin
   dup -1 greater_than while
   dup 3 servo
   1 minus
   40 delay
   check_temp
repeat
drop return

#####
sub T0030
#######
15000
begin
   dup -1 greater_than while
   dup 4 servo
   1 minus
   40 delay
   check_temp
repeat
drop return

#####
sub T0040
#######
15000
begin
   dup -1 greater_than while
   dup 5 servo
   1 minus
   40 delay
   check_temp
repeat
drop return

#####
sub T0050
#######
15000
begin
   dup -1 greater_than while
   dup 6 servo
   1 minus
   40 delay
   check_temp
repeat
drop return

######
sub T0200
######
0 17 servo
return

#####
sub Moon_0200
#######
15000
begin
   dup -1 greater_than while
   dup 750 greater_than
   if
     dup 15 servo
     dup 16 servo
   else
   endif
   1 minus
   240 delay
   check_temp
repeat
drop return

舉報

jieda

論壇元老

癲佬

Rank: 7Rank: 7Rank: 7

最佳新人 活躍會員 熱心會員 灌水之王 論壇元老

板凳
發表於 2012-5-12 21:41:00 來自手機 |顯示全部樓層
貓貓 發表於 2012-5-12 21:03
幾時得閒幫我搞

放個時間表上黎啦

舉報

jieda

論壇元老

癲佬

Rank: 7Rank: 7Rank: 7

最佳新人 活躍會員 熱心會員 灌水之王 論壇元老

地板
發表於 2012-5-13 12:00:50 |顯示全部樓層
三一萬能俠 發表於 2012-5-12 22:45
傻佬又法作喇.

你見唔到我有依個 荷蘭水蓋 咩

123.JPG

舉報

jieda

論壇元老

癲佬

Rank: 7Rank: 7Rank: 7

最佳新人 活躍會員 熱心會員 灌水之王 論壇元老

5#
發表於 2012-5-13 13:15:26 |顯示全部樓層
入親黎都暈

舉報

jieda

論壇元老

癲佬

Rank: 7Rank: 7Rank: 7

最佳新人 活躍會員 熱心會員 灌水之王 論壇元老

6#
發表於 2012-5-13 15:37:42 來自手機 |顯示全部樓層
jackyn 發表於 2012-5-13 13:24
夠鐘食藥

已經毛藥可救
等變提子乾
。。。。

舉報

jieda

論壇元老

癲佬

Rank: 7Rank: 7Rank: 7

最佳新人 活躍會員 熱心會員 灌水之王 論壇元老

7#
發表於 2012-5-14 17:17:53 |顯示全部樓層
貓貓 發表於 2012-5-14 16:31
dup 0 greater_than while同dup -1 greater_than while有咩分別呀 大師兄

少於 0 停止 begin...repeat 依個指令
和
少於 -1 停止 begin...repeat 依個指令

舉報

jieda

論壇元老

癲佬

Rank: 7Rank: 7Rank: 7

最佳新人 活躍會員 熱心會員 灌水之王 論壇元老

8#
發表於 2012-5-15 09:30:07 來自手機 |顯示全部樓層
毛乳 發表於 2012-5-15 08:28
眼花花添
高手既習作

依度冇高手
大碌竹就有條
:-P

舉報

jieda

論壇元老

癲佬

Rank: 7Rank: 7Rank: 7

最佳新人 活躍會員 熱心會員 灌水之王 論壇元老

9#
發表於 2012-5-15 11:20:27 |顯示全部樓層
三一萬能俠 發表於 2012-5-15 10:43
你有冇呢種spotlight呀????

OUTDOOR 產品
我地造吾到呀

舉報

jieda

論壇元老

癲佬

Rank: 7Rank: 7Rank: 7

最佳新人 活躍會員 熱心會員 灌水之王 論壇元老

10#
發表於 2012-5-15 11:56:09 |顯示全部樓層
https://www.facebook.com/photo.php?v=366459876743803

0 0 servo #ON/OFF=OFF  
0 1 servo #R/L=R
0 2 servo #Speed=0
begin
30000 0 servo #ON/OFF=ON
MOD001
0 0 servo  
0 1 servo
0 2 servo
repeat

######
sub MOD001
######
30000 1 servo #R/L=L
0
begin
   dup 30000 less_than while
   dup 2 servo
   500 plus
   10 delay
repeat
drop
0 1 servo #R/L=R
0
begin
   dup 15000 less_than while
   dup 2 servo
   500 plus
   10 delay
repeat
drop return

舉報

jieda

論壇元老

癲佬

Rank: 7Rank: 7Rank: 7

最佳新人 活躍會員 熱心會員 灌水之王 論壇元老

11#
發表於 2012-5-15 12:24:05 |顯示全部樓層
三一萬能俠 發表於 2012-5-15 11:56
唔係要outdoor.
好似架仔缸咁呢,只係要高mA對應射住.你果隻鑄模散得到高溫.
唔洗多PAR38行到7粒700mA.掂 ...

E27 插頭
3並7串
高壓推動

舉報

jieda

論壇元老

癲佬

Rank: 7Rank: 7Rank: 7

最佳新人 活躍會員 熱心會員 灌水之王 論壇元老

12#
發表於 2012-5-15 13:02:59 |顯示全部樓層
本帖最後由 jieda 於 2012-5-15 13:03 編輯

高壓=AC
推動=恒流LED電源

一般e27大功率恒流LED電源 6-9＊3W led27W驅動電源 ＡＣ90-２6０Ｖ
只得600mA
http://item.taobao.com/item.htm?id=14235748752&ali_trackid=2:mm_14507416_2297358_8935934,0:1337056477_4z8_627023144

所以要用3並7串推1W既恒流LED電源至有700mA以上輸出
900mA 打個八折

不過....應該未出
塊PCB我都未寫




MAX16841.JPG



舉報

jieda

論壇元老

癲佬

Rank: 7Rank: 7Rank: 7

最佳新人 活躍會員 熱心會員 灌水之王 論壇元老

13#
發表於 2012-5-15 13:19:57 |顯示全部樓層
三一萬能俠 發表於 2012-5-15 13:11
你諗掂佢喇,成本要控制係2-3百內,行CREE膽聚光杯唔少過60度,溫到5十幾好喇.

@299.99人仔
落一仟隻Order係咪...?
50% Deposts 50% COD

舉報

jieda

論壇元老

癲佬

Rank: 7Rank: 7Rank: 7

最佳新人 活躍會員 熱心會員 灌水之王 論壇元老

14#
發表於 2012-5-15 13:37:53 |顯示全部樓層
三一萬能俠 發表於 2012-5-15 13:28
整住幾隻嚟試下貸先.
299.99港幣.
5%Deposits,95%用後3年COD

舉報

jieda

論壇元老

癲佬

Rank: 7Rank: 7Rank: 7

最佳新人 活躍會員 熱心會員 灌水之王 論壇元老

15#
發表於 2012-5-20 14:45:51 |顯示全部樓層
貓貓 發表於 2012-5-20 14:13
我寫好啦大師兄 試緊 慢慢再修改



我叫 大碌竹 呀!

舉報

jieda

論壇元老

癲佬

Rank: 7Rank: 7Rank: 7

最佳新人 活躍會員 熱心會員 灌水之王 論壇元老

16#
發表於 2012-6-8 12:35:17 |顯示全部樓層
本帖最後由 jieda 於 2012-6-8 14:58 編輯


##############
#Main Table
#CH0 input
#CH1-7 Blue
#CH8-14 CoolWhite
#CH15 xBlue
#CH16 nc
#CH17 nc
#CH18 T5ho
#CH19-20 xML
#CH21 RG420
#CH22 CT Fan
#CH23 RL Fan
#############
closeAllCh
begin
   30000 22 servo #CT fan on
   30000 23 servo #RL fan on
   T1100 #Blue,xBlue,CoolWhite on / RG420 on50%
   44 delay_minutes
   1 delay_clocks
   T1300 #xML on
   59 delay_minutes
   2 delay_clocks
   T1600 #xML off
   59 delay_minutes
   2 delay_clocks
   30000 18 servo #T5hO on
   T1900 #coolwhite off / RG420 on100%
   52 delay_minutes
   3 delay_clocks
   0 18 servo #T5hO on
   T2300 #moon on5%
   51 delay_minutes
   0 22 servo #CT fan on
   0 23 servo #RL fan on
   1 delay_clocks
   closeAllCh
   10 delay_clocks #delay 10 clocks
repeat

####################
sub closeAllCh
######################
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
1000 delay
return

#####################
sub delay_seconds
#####################
begin
dup while
1 minus 1000 delay
repeat
drop
return

#######################
sub delay_minutes
#####################
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 T1100
############
0
begin
  dup 12000 less_than while
  1 plus
  4 delay
  dup 1 servo #blue
repeat drop
0
begin
  dup 12000 less_than while
  1 plus
  4 delay
  dup 2 servo #blue
repeat drop
0
begin
  dup 12000 less_than while
  1 plus
  4 delay
  dup 3 servo #blue
repeat drop
0
begin
  dup 12000 less_than while
  1 plus
  4 delay
  dup 4 servo #blue
repeat drop
0
begin
  dup 12000 less_than while
  1 plus
  4 delay
  dup 5 servo #blue
repeat drop
0
begin
  dup 12000 less_than while
  1 plus
  4 delay
  dup 6 servo #blue
repeat drop
0
begin
  dup 12000 less_than while
  1 plus
  4 delay
  dup 7 servo #blue
repeat drop
0
begin
  dup 12000 less_than while
  1 plus
  4 delay
  dup 15 servo #xblue
repeat drop
0
begin
  dup 6000 less_than while
  1 plus
  8 delay
  dup 21 servo #rg420
repeat drop

0
begin
  dup 12000 less_than while
  1 plus
  4 delay
  dup 8 servo #cool white
repeat drop
0
begin
  dup 12000 less_than while
  1 plus
  4 delay
  dup 9 servo #cool white
repeat drop
0
begin
  dup 12000 less_than while
  1 plus
  4 delay
  dup 10 servo #cool white
repeat drop
0
begin
  dup 12000 less_than while
  1 plus
  4 delay
  dup 11 servo #cool white
repeat drop
0
begin
  dup 12000 less_than while
  1 plus
  4 delay
  dup 12 servo #cool white
repeat drop
0
begin
  dup 12000 less_than while
  1 plus
  4 delay
  dup 13 servo #cool white
repeat drop
0
begin
  dup 12000 less_than while
  1 plus
  4 delay
  dup 14 servo #cool white
repeat drop
return

############
sub T1300
############
0
begin
  dup 12000 less_than while
  1 plus
  4 delay
  dup 19 servo #xml
  dup 20 servo #xml
repeat drop
return

############
sub T1600
###########
12000
begin
  dup 0 greater_than while
  1 minus
  4 delay
  dup 19 servo #xml
  dup 20 servo #xml
repeat drop
return

############
sub T1900
###########
12000
begin
  dup 0 greater_than while
  1 minus
  4 delay
  dup 8 servo #cool white
repeat drop
12000
begin
  dup 0 greater_than while
  1 minus
  4 delay
  dup 9 servo #cool white
repeat drop
12000
begin
  dup 0 greater_than while
  1 minus
  4 delay
  dup 10 servo #cool white
repeat drop
12000
begin
  dup 0 greater_than while
  1 minus
  4 delay
  dup 11 servo #cool white
repeat drop
12000
begin
  dup 0 greater_than while
  1 minus
  4 delay
  dup 12 servo #cool white
repeat drop
12000
begin
  dup 0 greater_than while
  1 minus
  4 delay
  dup 13 servo #cool white
repeat drop
12000
begin
  dup 0 greater_than while
  1 minus
  4 delay
  dup 14 servo #cool white
repeat drop
6000
begin
  dup 12000 less_than while
  1 plus
  8 delay
  dup 21 servo #RG420
repeat drop
return

############
sub T2300
###########
12000
begin
  dup 300 greater_than while
  1 minus
  4 delay
  dup 1 servo
  dup 2 servo
  dup 3 servo
  dup 4 servo
  dup 5 servo
  dup 6 servo
  dup 7 servo
  dup 15 servo
  dup 21 servo
repeat
drop
return

舉報

jieda

論壇元老

癲佬

Rank: 7Rank: 7Rank: 7

最佳新人 活躍會員 熱心會員 灌水之王 論壇元老

17#
發表於 2012-6-10 12:48:35 |顯示全部樓層



##############
#Main Table MC09062012
##############
#CH0 input
#CH1-7 Blue
#CH8-14 CoolWhite
#CH15 xBlue
#CH16 nc
#CH17 nc
#CH18 T5ho
#CH19-20 xML
#CH21 RG420
#CH22 CT Fan
#CH23 RL Fan
#############
closeAllCh
begin
   30000 22 servo #CT fan on
   30000 23 servo #RL fan on
   T1300
   44 delay_minutes
   2 delay_clocks
   T1600
   45 delay_minutes
   30000 18 servo #T5Ho on
   T1700
   59 delay_minutes
   2 delay_clocks
   T2000
   59 delay_minutes
   T2100
   59 delay_minutes
   T2200
   59 delay_minutes
   0 18 servo #T5Ho off
   T0100
   45 delay_minutes
   closeAllCh
   11 delay_clocks

repeat

####################
sub closeAllCh
######################
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
1000 delay
return

#####################
sub delay_seconds
#####################
begin
dup while
1 minus 1000 delay
repeat
drop
return

#######################
sub delay_minutes
#####################
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 T1300
############
0
begin
  dup 6000 less_than while
  1 plus
  8 delay
  dup 1 servo #blue
repeat
drop
0
begin
  dup 6000 less_than while
  1 plus
  8 delay
  dup 2 servo #blue
repeat
drop
0
begin
  dup 6000 less_than while
  1 plus
  8 delay
  dup 3 servo #blue
repeat
drop
0
begin
  dup 6000 less_than while
  1 plus
  8 delay
  dup 4 servo #blue
repeat
drop
0
begin
  dup 6000 less_than while
  1 plus
  8 delay
  dup 5 servo #blue
repeat
drop
0
begin
  dup 6000 less_than while
  1 plus
  8 delay
  dup 6 servo #blue
repeat
drop
0
begin
  dup 6000 less_than while
  1 plus
  8 delay
  dup 7 servo #blue
repeat
drop
0
begin
  dup 6000 less_than while
  1 plus
  8 delay
  dup 15 servo #xblue
repeat
drop
0
begin
  dup 6000 less_than while
  1 plus
  8 delay
  dup 21 servo #RG420
repeat
drop
0
begin
  dup 6000 less_than while
  1 plus
  8 delay
  dup 8 servo #CoolWhite
repeat
drop
0
begin
  dup 6000 less_than while
  1 plus
  8 delay
  dup 9 servo #CoolWhite
repeat
drop
0
begin
  dup 6000 less_than while
  1 plus
  8 delay
  dup 10 servo #CoolWhite
repeat
drop
0
begin
  dup 6000 less_than while
  1 plus
  8 delay
  dup 11 servo #CoolWhite
repeat
drop
0
begin
  dup 6000 less_than while
  1 plus
  8 delay
  dup 12 servo #CoolWhite
repeat
drop
0
begin
  dup 6000 less_than while
  1 plus
  8 delay
  dup 13 servo #CoolWhite
repeat
drop
0
begin
  dup 6000 less_than while
  1 plus
  8 delay
  dup 14 servo #CoolWhite
repeat
drop
return

############
sub T1600
############
6000
begin
  dup 12000 less_than while
  1 plus
  8 delay
  dup 1 servo #blue
  dup 2 servo #blue
  dup 3 servo #blue
  dup 4 servo #blue
  dup 5 servo #blue
  dup 6 servo #blue
  dup 7 servo #blue
  dup 8 servo #CoolWhite
  dup 9 servo #CoolWhite
  dup 10 servo #CoolWhite
  dup 11 servo #CoolWhite
  dup 12 servo #CoolWhite
  dup 13 servo #CoolWhite
  dup 14 servo #CoolWhite
  dup 15 servo #xblue
repeat
drop
return

############
sub T1700
############
0
begin
  dup 12000 less_than while
  1 plus
  4 delay
  dup 19 servo #xml
  dup 20 servo #xml
repeat
drop
return

############
sub T2000
###########
12000
begin
  dup 0 greater_than while
  1 minus
  4 delay
  dup 19 servo #xml
  dup 20 servo #xml
repeat
drop
return

############
sub T2100
###########
6000
begin
  dup 12000 less_than while
  1 plus
  4 delay
  dup 21 servo #RG420
repeat
drop
return

############
sub T2200
###########
12000
begin
  dup 6000 greater_than while
  1 minus
  8 delay
  dup 8 servo #CoolWhite
repeat
drop
12000
begin
  dup 6000 greater_than while
  1 minus
  9 delay
  dup 9 servo #CoolWhite
repeat
drop
12000
begin
  dup 6000 greater_than while
  1 minus
  8 delay
  dup 10 servo #CoolWhite
repeat
drop
12000
begin
  dup 6000 greater_than while
  1 minus
  8 delay
  dup 11 servo #CoolWhite
repeat
drop
12000
begin
  dup 6000 greater_than while
  1 minus
  8 delay
  dup 12 servo #CoolWhite
repeat
drop
12000
begin
  dup 6000 greater_than while
  1 minus
  8 delay
  dup 13 servo #CoolWhite
repeat
drop
12000
begin
  dup 6000 greater_than while
  1 minus
  8 delay
  dup 14 servo #CoolWhite
repeat
drop
12000
begin
  dup 0 greater_than while
  1 minus
  4 delay
  dup 15 servo #xblue
repeat
drop
return

############
sub T0100
###########
6000
begin
  dup 1200 greater_than while
  1 minus
  8 delay
  dup 8 servo #CoolWhite
repeat
drop
6000
begin
  dup 1200 greater_than while
  1 minus
  8 delay
  dup 9 servo #CoolWhite
repeat
drop
6000
begin
  dup 1200 greater_than while
  1 minus
  8 delay
  dup 10 servo #CoolWhite
repeat
drop
6000
begin
  dup 1200 greater_than while
  1 minus
  8 delay
  dup 11 servo #CoolWhite
repeat
drop
6000
begin
  dup 1200 greater_than while
  1 minus
  8 delay
  dup 12 servo #CoolWhite
repeat
drop
6000
begin
  dup 1200 greater_than while
  1 minus
  8 delay
  dup 13 servo #CoolWhite
repeat
drop
6000
begin
  dup 1200 greater_than while
  1 minus
  8 delay
  dup 14 servo #CoolWhite
repeat
drop

12000
begin
  dup 6000 greater_than while
  1 minus
  8 delay
  dup 1 servo #blue
repeat
drop
12000
begin
  dup 6000 greater_than while
  1 minus
  8 delay
  dup 2 servo #blue
repeat
drop
12000
begin
  dup 6000 greater_than while
  1 minus
  8 delay
  dup 3 servo #blue
repeat
drop
12000
begin
  dup 6000 greater_than while
  1 minus
  8 delay
  dup 4 servo #blue
repeat
drop
12000
begin
  dup 6000 greater_than while
  1 minus
  8 delay
  dup 5 servo #blue
repeat
drop
12000
begin
  dup 6000 greater_than while
  1 minus
  8 delay
  dup 6 servo #blue
repeat
drop
12000
begin
  dup 6000 greater_than while
  1 minus
  8 delay
  dup 7 servo #blue
repeat
drop
12000
begin
  dup 600 greater_than while
  1 minus
  4 delay
  dup 21 servo #RG420
repeat
drop

return

舉報

jieda

論壇元老

癲佬

Rank: 7Rank: 7Rank: 7

最佳新人 活躍會員 熱心會員 灌水之王 論壇元老

18#
發表於 2012-6-11 00:52:44 來自手機 |顯示全部樓層
本帖最後由 jieda 於 2012-6-11 15:46 編輯
river 發表於 2012-6-10 13:59
乜黎架?????

蛇仔文囉
已經用左成年幾架啦

舉報

返回列表 發新帖
高級模式
B Color Image Link Quote Code Smilies
您需要登錄後才可以回帖 登錄 | 立即註冊

Archiver|手機版|SeaFishZone 海水領域™

GMT+8, 2024-5-3 17:21 , Processed in 0.044834 second(s), 14 queries , Gzip On.

Powered by Discuz! X2

© 2001-2011 Comsenz Inc.

回頂部