たすけて３

環境/言語:[何でも可]
分類:[VB6以前]


すいません
Vbなんですがこの宣言の意味がぜんぜんわからないんで何をしているか解説できるかたがいれば御願いしたいのですが
できれば一行一行。
よろしく御願いします。。。。。
動き的にはビットマップを作るプログラムのようです。


Private Sub Form_Load()
'BITMAPFILEHEADER
bitfile.bfType = &H4D42
bitfile.bfSize = 14 + 40 + 1024 + 25600
bitfile.bf0ffBits = 14 + 40 + 1024
'BitMAPINFOHEADER
bitinfo.biSize = 40
bitinfo.biWidth = 256
bitinfo.biHeight = 100
bitinfo.biPlanes = 1
bitinfo.biBitCount = 8
bitinfo.biCompression = 0
bitinfo.biSizeImage = 25600
Dim bitcolor As Long
Dim pdata As Byte
Open "Z:\test6.bmp" For Binary As 1
Put #1, , bitfile
Put #1, , bitinfo
pi = 3.14
For i = 0 To 255
r = 255 * Sin(i / 128 * pi)
If r < 0 Then r = 0
g = 255 * Sin((i - 64) / 128 * pi)
If g < 0 Then g = 0
b = 255 * Sin((i - 128) / 128 * pi)
If b < 0 Then b = 0
bitcolor = RGB(b, g, r)
Put #1, , bitcolor
Next i
For j = 1 To 100
For i = 0 To 255
pdata = i
Put #1, , pdate
Next i
Next j
Close
Form1.Show
Print
Print " Zドライブのルートに　'test6.bmp'というビットマップが作成されました"
Print
Print " ペイントなどで確認してみてください"
End Sub

この投稿はマルチポストです。

●マルチポストされている場所
http://bbs.wankuma.com/index.cgi?mode=al2&namber=403

----------
この掲示板ではマルチポストが禁止されています。詳しくは、「書き込みのマナーについて」をお読みください。

●書き込みのマナーについて
http://dobon.net/vb/bbs/index.html

この投稿はマルチポストです。

●マルチポストされている場所
http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200701/07010063.txt

----------
この掲示板ではマルチポストが禁止されています。詳しくは、「書き込みのマナーについて」をお読みください。

●書き込みのマナーについて
http://dobon.net/vb/bbs/index.html

「書き込みのマナーについて」をお読みいただいてから、ご投稿ください。