Brightness Gambar dengan Visual Basic 6

Assalamu'alaikum Wr. Wb.

Setelah beberapa bulan rehat.. Akhirnya muncul hasrat lagi buat nulis ƪ(˘▽˘)ʃ hihiii.

Kali ini kita belajar tentang dasar - dasar dari Pengolasahan Citra Digital, yaitu  pemrograman brightness dengan menambah tiap RGB dengan level. Dimana batas levelnya adalah -128 hingga 128.

Pertama - tama design form dengan komponen-komponen yang diperlukan :

PictureBox1 berisi Gambar Input dengan nama Picture1 sedangkan pada PictureBox2 akan menampilakan gambar output dengan nama Picture2.

formula dari program Brightness sendiri adalah :

Go = Gi + C

dimana, Go adalah nilai pixel input, Go adalah nilai pixel output, dan C adalah konstanta dari ScrollBar baik bernilai positif maupun negatif.

Berikut ini pembuatan Aplikasi Program Brigthness Gambar pada Visual Basic 6.0 :

________________________________________________________

Private Sub Command1_Click()

Dim i As Long
Dim j As Long

For i = 1 To Picture2.ScaleWidth
    For j = 1 To Picture2.ScaleHeight

    warna = Picture1.Point(i, j)

    r = warna And 255
    g = Fix(warna / 256) And 255
    b = Fix(warna / 65536) And 255
      
    r = Fix(r + HScroll1.Value)
    g = Fix(g + HScroll1.Value)
    b = Fix(b + HScroll1.Value)

    If r > 255 Then r = 255
    If r < 0 Then r = 0
    If g > 255 Then g = 255
    If g < 0 Then g = 0
    If b > 255 Then b = 255
    If b < 0 Then b = 0


    Picture2.PSet (i, j), RGB(r, g, b)
   
    Next j
    If x Mod 10 = 0 Then Picture1.Refresh
   
Next i
Picture1.RefreshEnd Sub

________________________________________________________
Private Sub HScroll1_Change()
       Label1.Caption = HScroll1.Value
End Sub

 Selamat mencoba.. (҂‾▽‾)ง

Wassalamu'alaikum Wr. Wb.