kostenloser Webspace werbefrei: lima-city

S/W-Bild: Prozent von Schwarz

lima-city → Forum → Die eigene Homepage → Grafikdesign

1. Autor dieses Themas

   visual-basic

   

   visual-basic hat kostenlosen Webspace.

   14:17, 5.9.2011

   Hallo Community,
   
   Ich habe ein Schwarz-Weiß-Bild und möchte von diesem Bild wissen, wieviele Prozent von diesem Bild schwarz bzw. weiß sind.
   
   Zur Verfügung dafür habe ich GIMP und Photoshop.
   
   Hat jemand eine Ahnung ob/wie das möglich ist?

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. fatfox

   

   fatfox hat kostenlosen Webspace.

   14:33, 5.9.2011

   Gimp lässt sich mit Python scripten weswegen sich die Funktion ev. einfach nachrüsten lässt durch den Einsatz eines Scripts basierend auf PyPNG ohne es jetzt probiert zu haben:
   
   a) Bild importieren
   b) Bild decodieren und die Pixel zurück erhalten
   c) Gesamtzahl der Pixel zählen
   d) schwarze Pixel zählen
   e) prozentualen Anteil ermitteln und zurückgeben
4. Autor dieses Themas

   visual-basic

   

   visual-basic hat kostenlosen Webspace.

   14:38, 5.9.2011

   Okay, danke erstmal für die schnelle Hilfe.
   Aber diese Website erklärt nur wie es funktioniert, und da ich Python nicht beherrsche und ich auch keine Lust habe es jetzt zu lernen, hilft mir das leider nicht weiter.
   
   Gibt es vielleicht weitere Vorschläge??

5. darkpandemic

   

   darkpandemic hat kostenlosen Webspace.

   14:22, 6.9.2011

   Hallo visual-basic,
   
   ich schließe aus Deinem Namen jetzt einfach mal, dass Du auch ein bisschen VB kannst.
   Daher schlage ich jetzt einfach mal folgendes vor:
   

   Imports VBTest
   Imports System.Windows.Forms
   Imports System.Drawing.Image
   
   Public Partial Class MainForm
   
       Private Sub btnClickMe_OnClick(sender As Object, e As EventArgs)
           Dim bmp As Bitmap = New Bitmap("<Pfad zum Bild>")
           Dim count_b As Int32 = 0
           Dim count_w As Int32 = 0
           Dim x, y As Int32
   			
           For y = 0 To bmp.Height-1
               For x = 0 To bmp.Width-1
                   Dim clr As Color = bmp.GetPixel(x,y)
                   If clr.R = 255 And clr.G = 255 And clr.B = 255 Then
                       count_w = count_w + 1
                   ElseIf clr.R = 0 And clr.G = 0 And clr.B = 0 Then
                       count_b = count_b + 1
                   End If
               Next
           Next
   		
           MsgBox( _
               "White: " & 100.0*count_w/bmp.Width/bmp.Height & "%" & _
               vbCrLf & _
               "Black: " & 100.0*count_b/bmp.Width/bmp.Height & "%")
   		
           bmp.Dispose()
       End Sub
   	
       Public Sub New()
           Me.InitializeComponent()
       End Sub
   	
   End Class

   Edit:
   Ich habe doch noch einen Weg gefunden, der ganz ohne programmieren auskommt (Gimp):
   - Mache einen Rechtsklick im Bild
   - wähle im Menü Farben->Information->Histogramm
   - trage im linken und rechten Textfeld jeweils 0 ein und bestätige mit Enter
   -> unten rechts steht jetzt Anzahl und Prozentsatz der schwarzen Pixel
   - trage im linken und rechten Textfeld jeweils 255 ein und bestätige mit Enter
   -> unten rechts steht jetzt Anzahl und Prozentsatz der weißen Pixel
   
   Beitrag zuletzt geändert: 6.9.2011 17:10:00 von darkpandemic
6. Autor dieses Themas

   visual-basic

   

   visual-basic hat kostenlosen Webspace.

   10:05, 12.9.2011

   Danke für den Tipp mit GIMP...
   
   Genau das habe ich gesucht...

7. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?