none
Menghitung nilai RGB pada gambar RRS feed

  • Pertanyaan

  • Saya sedang membuat aplikasi untuk pengenalan gambar menggunakan format gambar grayscale. Masalahnya adalah bagaimana untuk mendapatkan nilai dari gambar grayscale tersebut misalnya menghitung nilai RGBnya kemudian memindahkannya ke textbox.
    saya punya contoh program tapi aku mungkin tidak dapat menggunakan kode ini untuk VB.net, karena kode untuk vb.6. Dapatkah seseorang mengubah kode ini untuk vb.net? Atau apakah Anda memiliki solusi lain?
    Saya lebih mengharapkan solusi lain untuk masalah ini dalam kode VB.net.

    terima kasih banyak

    For Y = 1 to Picture1.scaleheight
    For x = 1 to Picture1.ScaleWidht
    
    p = Get pixel (picture1.hdc, X,Y)
    r= p and &HFF
    g = (p\&H100)and &HFF
    b = (p\&H10000)and &HFF
    
    grtotr=grtotr + r
    grratr = Round(gtotr/(picture1.ScaleHeight*Picture1.Scalewidht),2)
    
    grtotg=grtotg + g
    grratg = Round(gtotg/(picture1.ScaleHeight*Picture1.Scalewidht),2)
    
    grtotb=grtotb + b
    grratb = Round(gtotb/(picture1.ScaleHeight*Picture1.Scalewidht),2)
    
    Next
    Next
    
    Text1.text = grratr
    Text2.text = ggratg
    Text3.text = ggratb

    Minggu, 19 Mei 2013 21.21

Semua Balasan

  • Halo Tante Chamyel25,

    Wah kemana aja nih sudah lama menghilang, selamat datang kembali. Saya kurang mengerti dengan program paint yang tante miliki. Dalam artian cara kerjanya. Apakah mungkin semua informasi warna pixelnya harus ditampilkan pada saat itu juga. Untuk mengetahui warna-warna apa saja yang telah dimiliki oleh suatu gambar. Tante Chamyel25 hanya membutuhkan bantuan dari Class Bitmap. Berikut ini contohnya:

    Dim bmp As New Bitmap([masukkan nama file yang ingin dibuka]) 'looping sebanyak tinggi file bitmap... For y As Integer = 0 To bmp.Height - 1 'looping sebanyak lebar file bitmap... For x As Integer = 0 To bmp.Width - 1 'ambil warna masing-masing pixel... Dim a As Color = bmp.GetPixel(x, y) Debug.WriteLine("(" & x & ", " & y & "): " & a.ToArgb.ToString &", "& a.Name Next Next


    Kalo ada yang ingin ditanya lagi, silahkan. Mengingat saya sendiri masih kurang begitu jelas dengan maksud pertanyaan Tante Chamyel25. Omong-omong, tante orang pertama yang bertanya mengenai grafik lho. Tergolong langka juga ini, huahuahua.


    Senin, 20 Mei 2013 00.57
  • kalo untuk mempercepat running outputnya gimana ya om? coding yang diatas udah bisa, tapi kalo ngambil nilai rgb dari gambar yang ukurannya besar (resolusi nya besar) running lama, apa ada cara untuk mempercepat proses runningnya om? makasih sebelumnya..
    Sabtu, 05 April 2014 15.32