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.