作業十: 應用 Key 整合判斷結構式 配合其它的指令--> 創作具有主題性的動態海報設計

踩地雷


//載入字母函式庫
load dbnletters.dbn

size 200 200
fast
paper 100

//設計一個檢查按下哪一個按鍵的功能
number keycheck
{
set keyvalue 0
repeat a 1 26
{
same? 100
{
set keyvalue a
}
}
value (keyvalue)
}

set k 0
forever
{

//設定字母顏色
pen (/2) (/2)

//依據所按的字母來畫圖
set k

letter k ((/12)*12+2) ((/12)*12+2)

notsmaller? k 26
{
set k 0
}
}