DBN 練習

↓按一下畫面執行結果：








今天做了個dbn的小練習
讓字跟著mouse座標動

然後點的時候有線跟著走

不過dbn真的很陽春, 指令要背起來的話也沒有幾個
語法部份可以參考這邊→DBN wiki

我寫的這只程式碼如下

Load dbnletters.dbnLoad dbngraphics.dbn

Fast
Size 200 200　
forever
{
　paper 0
　set X (<mouse 1>+3) //滑鼠X座標
　set Y (<mouse 2>+3) //滑鼠Y座標
　set P <mouse 3>　//滑鼠有否被按下
Same? P 0
{
　　Letter 12 X Y //letter 'L'
　　Letter 3 (X+15) Y //letter 'C'
　　Letter 20 (X+30) Y //letter 'T'
　}
Same? P 100
｛
　　Letter 12 X Y
　　Letter 3 (X+15) Y
　　Letter 20 (X+30) Y
　　line 0 0 X Y
　　line 200 200 (X+40) (Y+20)
　　line 0 200 X (Y+20)
　　line 200 0 (X+40) Y
　}
refresh
}

要把dbn的執行結果放在網頁上, 可透過下列程式碼

<APPLET CODE="DbnApplet" ARCHIVE="dbn.jar" codebase="./" WIDTH="400" HEIGHT="400">

<PARAM NAME="mode" VALUE="grid">

<PARAM NAME="graphics_width" VALUE="400">

<PARAM NAME="graphics_height" VALUE="400">

<PARAM NAME="slowdown" VALUE="true">

<PARAM NAME="program0" VALUE="name.dbn">

</APPLET>

把相關的程式檔dbn.jar和library如dbngraphics.dbn都放在網路的空間上，
codebase="./"則改為網路空間的位置
再修改長寬參數，把name.dbn改為自己檔案的名稱
這樣就可以了