Keskustelu: Ohjelmointikysymykset: VB6: Jpg-kuvan pikseleiden käsittely (vb6)

AM [22.03.2004 12:15:01]

Miten visual basicissa voi käsitellä jpg-kuvan pikseleitä?

Eli tarkoitus olisi tehdä filtteri, joka tekee joitain jännää jpg-kuvalle.

sooda [22.03.2004 12:29:24]

http://www.google.fi/search?hl=fi&ie=UTF-8&oe=UTF-8&q="using jpg" "visual basic"&lr=
eli
http://216.5.163.53/DirectX4VB/Tutorials/DirectX7/DD_FileTypes.asp
googlella löytää muitakin...

rndprogy [22.03.2004 17:57:36]

Itse teen tuollaisille oman koodin.

Antti Laaksonen [22.03.2004 18:08:48]

JPG-kuvan voi ladata helposti kuvakehykseen LoadPicture-komennolla. Sen jälkeen yksittäisen pikselin värin voi lukea Point-funktiolla ja asettaa PSet-komennolla. Tässä on esimerkkinä mustavalkoefekti:

Private Sub Form_Click()
    Picture1.ScaleMode = 3 'yksikkö pikseli
    Picture1.Picture = LoadPicture("c:\omat\testi.jpg")

    'mustavalkoisuus
    Dim i As Integer, j As Integer, v As Long
    Dim r As Integer, g As Integer, b As Integer

    For i = 0 To Picture1.ScaleWidth
        For j = 0 To Picture1.ScaleHeight
            'luetaan pikselin väri
            v = Picture1.Point(i, j)
            'lasketaan väriarvosta r, g ja b
            r = v Mod 256
            g = (v \ 256) Mod 256
            b = v \ 65536
            'väri on r:n, g:n ja b:n keskiarvo
            v = (r + g + b) / 3
            'vaihdetaan pikselin väri
            Picture1.PSet (i, j), RGB(v, v, v)
        Next
    Next
End Sub

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen