Infinite Skyゆったりのんびりとした大学生活&日常を日記にしてます。

-----.-- --スポンサーサイト[スポンサー広告]

Time[--:--] Comment[-] Trackback[-]
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
 

2005-11.01 Tueこたつでまったりが好き。[日記]

Time[12:05] Comment[0] Trackback[0]
最近家ではPC使わなくなったので、今日も情報の授業を活用させて頂きます。(先生すみません^^;)罪悪感を感じるので授業紹介でもしようかな。
今習っているのは、エクセルを使ったプログラミングでキャラクターを描いて壁に反射させるゲーム(?)です。やたら長いのをひたすらカタカタ打ってぽちっと再生させ、出来たらOKなんですが。ミスが一文字でもあったら失敗なんでイライラします。
困ったことにいつも執拗に先生が見に来るので焦る焦る!先生曰く、私が一番早いんだとか・・・。だから私のをとりあえずチェックしておこう、みたいな感じなんですかね。

以下、今日打ち込んだものの一部。あくまでもほんの一部です


Private Sub prcInit()

Set rngBall(1) = Range(Cells(160, 1), Cells(175, 16))
Set rngBall(2) = Range(Cells(160, 17), Cells(175, 32))

Range(Cells(9, 9), Cells(136, 160)).Interior.ColorIndex = 0

lngX(1) = 33
lngY(1) = 33
lngDX = 1
lngDY = 1

lngX(1) = 100
lngY(1) = 100
lngDX(2) = 1
lngDY(2) = -1

rngBall(1).Copy _
Destination:=Range(Cells(lngY(1), lngX(1)) _
, Cells(lngY(1) + 15, lngX(1) + 15))

rngBall(2).Copy _
Destination:=Range(Cells(lngY(2), lngX(2)) _
, Cells(lngY(2) + 15, lngX(2) + 15))

lngTime = GetTickCount()

End Sub


打ってる自分が良くわかってないんだから、どーしようもありません^^;テストもさらに意味不明。授業も眠いです。
ま、あと少しなので頑張ります。
スポンサーサイト
  


 



上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。