ヘルプ、たすけた２：近畿職業能力開発大学校のひと

PL

これはｗｗｗひどいｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ

まずはマルチポストを列挙してみる。（他にあったら教えて）

んで。最後のリンクのところを見てちょ。 

解説をお願いします。

Type BITMAPFILEHEADER
    bfType As Integer
    bfSize As Long
    bfReserved1 As Integer
    bfReserved2 As Integer
    bf0ffBits As Long
End Type
Type BITMAPINFOHEADER
    biSize As Long
    biWidth As Long
    biHeight As Long
    biPlanes As Integer
    biBitCount As Integer
    biCompression As Integer
    biSizeImage As Long
    biXPelsPerMeter As Long
    biYPelsPerMeter As Long
    biClrUsed As Long
    biClrImportant As Long
End Type
Type RGBQUAD
    rgbBlue As Byte
    rgbGreen As Byte
    rgbRed As Byte
    rgbReserved As Byte
End Type
Public bitfile As BITMAPFILEHEADER
Public bitinfo As BITMAPINFOHEADER
Public bitcolr(256) As RGBQUAD

ヘルプ 2007/01/25(木) 11:12:47 <210.228.77.132>

ささきさん。
一個一個の意味もわからないんです；；
未熟者ですみません。
解説を御願いします。

ヘルプ 2007/01/25(木) 11:19:50 <210.228.77.132>

すいません。

こっちの解説がしりたいんでした。。。。。

さっきのは標準モジュールなのですが、こちらのフォームモジュールの
一行一行なにをしているか知りたいんです。

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

ﾊｧ？って思ってみていたら。もっとすごいのが。 

ヘルプ 2007/01/25(木) 12:13:35 <210.228.77.132>

ささきィ〜。
お前はよレス返せや！
ささきィ〜。
ささきィ〜。
ささきィ〜。
ささきィ〜。

氏ね！！ 

ささき 2007/01/25(木) 12:19:44

コメント書いている最中に
↑の投稿を見てモチベーションが下がってしまいました。

ごめんなさい。

近畿職業能力開発大学校 のひとってホントと怖いですね。
私は社会人なので、打ち合わせなどあって即対応は難しいのです。

ささき氏。ナイス！超ナイス！！

やつのIPアドレス「210.228.77.132」をWHOISすればバッチリ丸見え。
ホント最近こういうバカばかりで日本が心配になってくる。