●_●先生の授業_●●

HSPを用いたプログラミング。 目標はシューティングゲームの製作。

課題、回答のまとめ(2005/03/06まで)

回答・回答例は反転表示

■課題1

文字を表示するプログラムを作成する。

回答例１

mes "この文字列が表示されます"
stop

回答例２

print "これも表示できます"
stop

■課題2

変数を理解する。 以下のソースの意味を述べよ。

a="どうですか？" 
mes a 
stop

回答

どうですか？ と表示される。

■課題3

以下のソースを実行した場合どう表示されるか理解し、応用したソースを書く。

a=5 
mes a+7 
stop

回答

12と表示される。

回答例(応用したソース)

a=7 
mes a+9 ;16と表示される。 
stop

■課題4

以下のソースを実行した場合どう表示されるか。

a="456" 
mes a+"123" 
stop

回答

456123 と表示される。

●ここまでの応用

以下のようなことが可能である。

picload "graphics"+filename+".bmp"

解説

たとえばfilenameが数値型のとき、 1が代入されていればgraphics1.bmpを、 15が代入されていればgraphics15.bmpを画像として読み込むことが出来る。

■課題5

実際にpicload命令を使う。

回答例(aaa.bmpという画像を読み込む)

picload "aaa.bmp"
stop

■課題6

screen,bgscr,buffer命令について簡単にまとめる。

解説

■課題7

jiki.bmp

jiki.bmpをbufferとしたウィンドウID2に読み込ませ、 gcopy命令で、真ん中の機体のみウィンドウID0に表示する。

回答例

buffer 2 
picload "jiki.bmp"
gsel 0 
gcopy 2, 144, 0, 72, 64 
stop

■課題8

課題7について改変を加え、

• pos命令で画像の表示位置を適当な位置に変える。
• gmode命令で、黒い部分を表示させなくする。

回答例

buffer 2 
picload "jiki.bmp" 
gsel 0 
pos 270, 400 
gmode 2 
gcopy 2, 144, 0, 72, 64 
stop

■課題9

課題8について改変を加え、

• pos命令のp1,p2をそれぞれx,yに置き換える。
• 描画命令をrepeat loop命令で囲い、awaitかwaitを入れる。

回答例

buffer 2 
picload "jiki.bmp" 
gsel 0 
x=270 
y=400 
repeat
pos x, y
gmode 2
gcopy 2, 144, 0, 72, 64 
wait 
loop

■課題10

課題9について改変を加え、

• ループ中にx++という処理を加え、次にy--という処理も試して結果を見る。
• 背景をcolor命令とboxf命令を使って黒に塗りつぶす。

回答例

buffer 2 
picload "jiki.bmp" 
gsel 0 
x=270 
y=400 
repeat
color 0,0,0 
boxf 0,0,640,480 
pos x, y 
gmode 2 
gcopy 2, 144, 0, 72, 64 
await 32
x++ 
y--
loop
stop

●発展 - 先生のサンプル

先生のサンプル

ここまでの授業＆先生のサンプルより生徒君が書いたソース
その１
その２

●発展 - 先生のソースについて

先生のソース

解説

• キーボード、マウスの状態を調べる→stick命令
• 画面のちらつきを防ぐ→redraw命令を使う事で回避。
  redraw 2を実行し画面の描画を一時オフにしてからすべての画像処理を行い、 redraw 1で一気に画面に表示する。
  
• アニメーションについて ・まず、gcopyの描画元のxの値を変数に置き換える。 ・その変数の値を自機移動の時のようにキーボードに対応して変化するようにする。 ・その変数の値が大きすぎたり小さすぎたりしないようにif命令で修正する。
• mx=key&4>>2-(key&1) の意味
  if key&4 :mx=1
  if key&1 :mx=-1
  と同じ効果。
  key&4>>2は、keyの値に4が含まれていたら1と評価される。
  key&1は、keyの値に1が含まれていたら、1と評価される。
  無理に理解する必要はないとのこと。
  
• 背景の星
  「複数のオブジェクトを扱う」
  • 配列
    dim命令で配列変数を用意。
    dim a,32と書けば変数がa.0 a.1 a.2 a.3 a.4…a.31と、合計32個の変数が作られる。
    a.32が出現しないことに注意。
    .←の後には変数が使用できる。
    
  • 乱数
    rnd a,32で、変数aに0〜31の32通りのうち一つがランダムに選ばれ代入される。
    

先生のソースを受けて生徒君が書いたソース
その３

●発展 - ショットを追加する

先生のソース＆画像
(追加するショットの画像)

解説

ショットに関する変数
dim shotf,shotmax　//これは、ショットが存在するかどうかを表す変数だ(有る=1　無い=0)
dim shotx,shotmax :dim shoty,shotmax　//ショット画像の位置を表している
dim shotmx,shotmax:dim shotmy,shotmax　//ショットの移動量を表している、ここの値を変えることで横や斜めに飛ばすことも可能だ。

●発展 - #defineとは？

#define ○○　××
と書いておけばソース中の○○がコンパイル時にすべて××に置き換えられる。

//defineの例
#define mypicture 2 
・ 
・ 
・ 
buffer mypicture :picload "jiki.bmp" //結局 buffer 2 :picload "jiki.bmp"と等価

■課題11

100の大きさの配列変数varを作成し、中身をすべて1で埋める。

回答例

dim var, 100 
repeat 100 : var.cnt = 1 : loop

■課題12

128の大きさの配列変数tmpを作成し、中身に偶数を小さい順に代入する。

回答例

dim tmp,128 
repeat 128 :tmp.cnt=cnt*2 :loop

■課題13

課題11を改変し、配列変数tmpの中で奇数番目の値すべてに、1〜６までの乱数を加える。

回答例

dim tmp, 128
repeat 128 / 2
i = cnt * 2 + 1
rnd tmp.i, 6
tmp.i++
loop

■課題14

64個の要素を持つ配列変数objx(中身はすべて0〜639の乱数)とobjy(0〜479の乱数)を作成し、 そのすべての場所にpset命令で点を打つ。
補足 : 白いウィンドウの中に黒い点がランダムに64個打たれた物を作る。

回答例

//変数の準備 
dim objx,64 :dim objy,64 
repeat 64 :rnd objx.cnt,640 :rnd objy.cnt,480 :loop 
//描画 
repeat 64 
pset objx.cnt,objy.cnt 
loop
stop