教學主題─ROCAR
執行步驟
Rocar會唱歌(rocar musicout 音階表)簡譜
簡譜 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | |||||
|
Do |
Do# |
Re |
Re# |
Mi |
Fa |
Fa# |
So |
So# |
La |
La# |
Si |
低音 |
10 |
15 |
20 |
25 |
30 |
40 |
45 |
50 |
55 |
60 |
65 |
70 |
中音 |
110 |
115 |
120 |
125 |
130 |
140 |
145 |
150 |
155 |
160 |
165 |
170 |
高音 |
210 |
215 |
220 |
225 |
230 |
240 |
245 |
250 |
255 |
260 |
265 |
270 |
語法 : MusicOut(i1, i2 as Integer)
功能 : 讓蜂鳴器發出音樂
【參數】: i1為音高,如10, 20…70表Do, Re…Si。百位數1nn表高8度、 2nn表高兩個8度,個位數5為半音。如 : 155為高音So# (i1
= 0則不發出,可當休止符,詳見附表一); i2為音長,以十分之一秒為單位
【回傳值】: Integer, 1 = 成功,0 = 失敗
範例 : r = MusicOut(130, 5), 發出高音Mi半秒
Rocar走軌道
語法 : MoveC(c as Char)
功能 : 讓RoCar移動
【參數】: c不分大小寫 : “F” = 前進、”B” = 後退、”R” = 右轉、”L” = 左轉;其它(如”X”)則停止
【回傳值】: Integer, 1 = 成功,0 = 失敗
範例 : r = MoveC(“b”), RoCar會後退
語法 : WaitN(i as Integer)
功能 : 讓本程式暫停執行(Windows其它程式仍繼續)
【參數】: i為暫停時間,以千分之ㄧ秒為單位
此為副程式無回傳值
範例 : WaitN(1000), 呼叫此sub的程式將休息一秒
語法 : CamsIn()
功能 : 讀入RoCar底部三個感光元件之感應值
【回傳值】: Integer, 以最低三位元為代表,由左至右,0為黑1為白;例 : 0 = 黑黑黑、1 = 黑黑白、2 = 黑白黑、…6 = 白白黑、 7 =
白白白; 其它值(如8以上)表讀取失敗
範例 : r = CamsIn(), 若r = 4即代表讀入” 白黑黑”
十進位 | 二進位 | 顏色 |
0 | 000 | 黑黑黑 |
1 | 001 | 黑黑白 |
2 | 010 | 黑白黑 |
3 | 011 | 黑白白 |
4 | 100 | 白黑黑 |
5 | 101 | 白黑白 |
6 | 110 | 白白黑 |
7 | 111 | 白白白 |
相關影片