Passenstes Icon aus Array extrahieren - Ansatz gesucht

FormFollowsFunction · 26. Oktober 2020, 13:29

Hallöchen

Ich möchte aus einem Array mit Icons, das passenste extrahieren.
In dem Array können sich Icons mit unterschiedlichen Eigenschaften (Größe, Quallität) befinden.
Nun möchte ich das passenste (z.B. 32x32 Pixel, 32bit Quallität) erhalten, wenn nicht vorhanden, dann das nächst passende (z.B. 24x24, 32bit Quallität) u.s.w..

Mir fällt da nur eine recht aufwändige Lösung ein, nähmlich das Array komplett zu durchlaufen und die Icons an Listen (32bit, 24bit u.s.w.) zu übergeben, die dann alle Icons mit gleicher Quallität enthalten.
Darauf hin erst die Liste mit höchster Qualität zu durlaufen und die passende Größe ausgeben, oder wenn die Liste leer ist, die nächste Liste abhandeln.

Meine Frage lautet also: Hat jemand eine Idee zu einem anderem, eleganterem Ansatz (LINQ ?) ?

ErfinderDesRades · 26. Oktober 2020, 13:46

jo, dass klingt sehr nach linq - group by.
Allerdings deine Anforderung ist mir noch nicht klar. Ich meine - was die Icons anzeigen ist egal?
Und wie sind die preferenzen: lieber gross, auch wenn schlecht oder lieber gut, auch wenn klein?

vielleicht schreibste auch eine kleine Bewertungs-Funktion für Icons, und suchst dann einfach mit MaxBy das Icon mit der höchsten Bewertung:
verbesserte AggregatFunktion für Linq-Max / Linq-Min

FormFollowsFunction · 26. Oktober 2020, 16:10

Was die Icons anzeigen ist egal, nur Quallität und Größe sind relevant.
Hohe Quallität ist primär, Größe ist sekundär, aber in der vollgenden Reihenfolge:

VB.NET-Quellcode

icon.Size = New Size(32,32)
icon.Width = 32 OrElse icon.Height = 32
icon.Size = New Size(64,64)
icon.Width = 64 OrElse icon.Height = 64
...
...
icon.Size = New Size(512,512)
icon.Width = 512 OrElse icon.Height = 512
icon.Size = New Size(24,24)
icon.Width = 24 OrElse icon.Height = 24
...
...
icon.Size = New Size(16,16)
icon.Width = 16 OrElse icon.Height = 16

Mal Size und mal Width und Height abfragem macht es sogar noch scchwieriger, fällt mir dabe auf.

RodFromGermany · 26. Oktober 2020, 16:31

@FormFollowsFunction Wozu brauchst Du das Icon?
Wenn Du das einer .Icon-Property zuweisen willst, kannst Du das multiple Icon nehmen, das System sucht sich das passende aus.
====
Was soll das bedeuten:

FormFollowsFunction schrieb:

VB.NET-Quellcode

icon.Width = 32 OrElse icon.Height = 32

FormFollowsFunction · 26. Oktober 2020, 22:40

Ich lese mit einer Library die unterschiedlichen Quallitäten und Größen eines Icons aus, und davon brauche ich eben das passenste, also am besten in 32bit Qualltät und 32x32 Pixel Groß, da es nur in 32x32 Pixel angezeigt wird.
Wenn nicht vorhanden, dann eben das nächt größere mit mindestens einer Seite 32 Pixel groß, das kann dann eben z.B 32x48 Pixel haben.
Wenn das nicht vorhanden ist, dann das nächst größere z.B 48x48 Pixel .... et cetera.

Ich habe jetzt erstmal was simples gebastellt, so bekomme ich schonmal das größte in bestmöglicher Quallität.
Wenn es zu groß ist sieht es nicht so dolle aus, aber damit kann ertmal ich leben.

VB.NET-Quellcode

Private Function GetFittestIcon(ByVal _icons As Icon()) As Icon
Dim list32Bit, list24Bit, list8Bit, list4Bit, list1Bit As New Dictionary(Of Integer, Icon)
For Each icon As Icon In _icons
Dim bitCount As Integer = GetBitCount(icon)
Select Case bitCount
Case 32
list32Bit.Add(icon.Width * icon.Height, icon)
Case 24
list24Bit.Add(icon.Width * icon.Height, icon)
Case 8
list8Bit.Add(icon.Width * icon.Height, icon)
Case 4
list4Bit.Add(icon.Width * icon.Height, icon)
Case 1
list1Bit.Add(icon.Width * icon.Height, icon)
End Select
Next
If list32Bit.Count > 0 Then
Return list32Bit.Item(list32Bit.Keys.Max)
ElseIf list24Bit.Count > 0 Then
Return list24Bit.Item(list24Bit.Keys.Max)
ElseIf list8Bit.Count > 0 Then
Return list8Bit.Item(list8Bit.Keys.Max)
ElseIf list4Bit.Count > 0 Then
Return list4Bit.Item(list4Bit.Keys.Max)
ElseIf list1Bit.Count > 0 Then
Return list1Bit.Item(list1Bit.Keys.Max)
End If
Return _icons(0)
End Function

ErfinderDesRades · 26. Oktober 2020, 23:57

probierma so:

VB.NET-Quellcode

Private Function GetFittestIcon(ByVal _icons As Icon()) As Icon
Dim grps = _icons.GroupBy(Function(ic) GetBitCount(ic))
Dim maxGrp = grps.MaxBy(Function(g) g.Key)
Dim maxIcon = maxGrp.MaxBy(Function(ic) ic.Width)
Return maxIcon
End Function

ach - du hast ja keine MayBy-Extension - bin aber jetzt zu faul.

RodFromGermany · 27. Oktober 2020, 07:39

@FormFollowsFunction

RodFromGermany schrieb:

Was soll das bedeuten:

FormFollowsFunction schrieb:

VB.NET-Quellcode

icon.Width = 32 OrElse icon.Height = 32

Elanda · 27. Oktober 2020, 09:40

@RodFromGermany
Wie FFF gesagt hat, wenn die Weite nicht stimmt muss die Höhe her.
Hauptsache eines der Größenattribute trifft zu und wenn nicht, dann geht's weiter in der Kiste.

@FormFollowsFunction
Ich glaube ich verstehe was du brauchst.
Was ich tun würde wäre deine Bilddaten in ein Array abzulegen und sortiere sie bei Größe während du die Elemente einfügst, von klein zu groß.
Dies hat unter anderem den Vorteil das du niemals öfter als einmal das Array dursuchen müssen wirst, da alle Größen aufeinander folgen. (mit ihren Farbtiefen)

Dann kannst du diese hässlichen switch-statements oder auch anders umständliche If-Netzwerke vermeiden und direkt aus einer Schleife aus entscheiden welches Ergebnis dir geliefert werden sollte.

RodFromGermany · 27. Oktober 2020, 10:48

Elanda schrieb:

Wie FFF gesagt hat,

ist das kein VB-Code, sondern what ever.

Elanda · 27. Oktober 2020, 11:48

@RodFromGermany
Das dachte ich mir schon fast, aber ich denke es war sowieso zu illustrativen Zwecken gedacht.

Ein Gedankenspiel umgesetzt in eine allgemein Verstandene Sprache.

RodFromGermany · 27. Oktober 2020, 12:18

Elanda schrieb:

in eine allgemein Verstandene Sprache

Das nennen wir Pseudo-Code.

FormFollowsFunction · 28. Oktober 2020, 22:51

ErfinderDesRades schrieb:

vielleicht schreibste auch eine kleine Bewertungs-Funktion für Icons, und suchst dann einfach mit MaxBy das Icon mit der höchsten Bewertung:
verbesserte AggregatFunktion für Linq-Max / Linq-Min

"... kleine Bewertungs-Funktion ..." Konnte ich mir erst nichts drunter vorstellen, bzw. hat mich etwas abgeschreckt.
Jetzt habe es aber kapiert.
Es ist extrem einfach und es funktioniert.

So siehts jetzt aus (An der Bewertungsfunktion werde ich vielleicht noch etwas feilen) :

VB.NET-Quellcode

<Author("ErfinderDesRades", "https://www.vb-paradise.de/index.php/User/11507-ErfinderDesRadesErfinderDesRades/")>
<EditedBy("FormFollowsFunction", "https://www.vb-paradise.de/index.php/User/26014-FormFollowsFunction/")>
Private Function GetFittestIcon(ByVal _icons As Icon()) As Icon
Dim groups As IEnumerable(Of IGrouping(Of Integer, Icon)) = _icons.GroupBy(Function(icon) GetBitCount(icon))
Dim maxGroup As IGrouping(Of Integer, Icon) = groups.MaxBy(Function(group) group.Key)
Dim maxIcon As Icon = maxGroup.MaxBy(Function(icon) RateIcon(icon))
Return maxIcon
End Function
Private Function RateIcon(ByVal _icon As Icon) As Integer
If _icon.Width < 32 OrElse _icon.Height < 32 Then Return -10000
Dim rate As Integer
rate -= _icon.Width
rate -= _icon.Height
Return rate
End Function

Die Extensions habe ich noch etwas an meinen Programmierstil angepasst und
werde versuchen die Funktionweise vollständig nachzuvollziehen :

Spoiler anzeigen

VB.NET-Quellcode

Imports System.Runtime.CompilerServices
<Author("ErfinderDesRades", "https://www.vb-paradise.de/index.php/User/11507-ErfinderDesRadesErfinderDesRades/")>
<EditedBy("FormFollowsFunction", "https://www.vb-paradise.de/index.php/User/26014-FormFollowsFunction/")>
<Version("1.0.0.1")>
<Source("https://www.vb-paradise.de/index.php/Thread/85067-verbesserte-AggregatFunktion-f%C3%BCr-Linq-Max-Linq-Min/?postID=699077&highlight=maxby#post699077")>
Module BetterAggregatExtensions
''' <summary>
''' Gibt die Structure 'MinMax', die den Minimalwert und den Maximalwert aus einer generischen Sequenz enthält, zurück.
''' </summary>
<Extension()>
Public Function Extremum(Of T, T2 As IComparable)(
ByVal items As IEnumerable(Of T), ByVal selector As Func(Of T, T2)) As MinMax(Of T, T2)
With items.GetEnumerator
If Not .MoveNext Then .Dispose() : Return Nothing
Extremum = New MinMax(Of T, T2)(.Current, selector)
While .MoveNext : Extremum.Check(.Current) : End While
.Dispose()
End With
End Function
''' <summary>
''' Gibt den Träger des Maximalwertes in einer generischen Sequenz zurück.
''' </summary>
<Extension()>
Public Function MaxBy(Of T, T2 As IComparable)(
ByVal items As IEnumerable(Of T), ByVal selector As Func(Of T, T2)) As T
Return items.Extremum(selector).Maximum
End Function
''' <summary>
''' Gibt den Träger des Minimalwertes in einer generischen Sequenz zurück.
''' </summary>
<Extension()>
Public Function MinBy(Of T, T2 As IComparable)(
ByVal items As IEnumerable(Of T), ByVal selector As Func(Of T, T2)) As T
Return items.Extremum(selector).Minimum
End Function
Public Structure MinMax(Of T, T2 As IComparable)
Public Minimum, Maximum As T
Public MinValue, MaxValue As T2
Private ReadOnly Selector As Func(Of T, T2)
Public ReadOnly HasValue As Boolean
Public Sub New(ByVal _first As T, ByVal _selector As Func(Of T, T2))
Selector = _selector
Minimum = _first : Maximum = _first
MinValue = Selector(_first) : MaxValue = MinValue
HasValue = True
End Sub
Public Sub Check(ByVal _item As T)
Dim value As T2 = Selector(_item)
If value.CompareTo(MinValue) < 0 Then
Minimum = _item
MinValue = value
ElseIf value.CompareTo(MaxValue) > 0 Then
Maximum = _item
MaxValue = value
End If
End Sub
End Structure
End Module
#Region "Attribute Classes"
Friend Class AuthorAttribute
Inherits Attribute
Public Property Name As String
Public Property ContactAddress As String
Sub New(ByVal _name As String)
Name = _name
End Sub
Sub New(ByVal _name As String, ByVal _contactAddress As String)
Name = _name
ContactAddress = _contactAddress
End Sub
End Class
Friend Class EditedByAttribute
Inherits Attribute
Public Property Name As String
Public Property ContactAddress As String
Sub New(ByVal _name As String)
Name = _name
End Sub
Sub New(ByVal _name As String, ByVal _contactAddress As String)
Name = _name
ContactAddress = _contactAddress
End Sub
End Class
Friend Class VersionAttribute
Inherits Attribute
Public Property Version As String
Sub New(ByVal _version As String)
Version = _version
End Sub
End Class
Friend Class SourceAttribute
Inherits Attribute
Public Property Source As String
Sub New(ByVal _source As String)
Source = _source
End Sub
End Class
#End Region

Danke an alle, besonders an EDR ! :thumbsup:

Passenstes Icon aus Array extrahieren - Ansatz gesucht

Passenstes Icon aus Array extrahieren - Ansatz gesucht

VB.NET-Quellcode

FormFollowsFunction schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

RodFromGermany schrieb:

FormFollowsFunction schrieb:

VB.NET-Quellcode

Elanda schrieb:

Elanda schrieb:

ErfinderDesRades schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Benutzer online 1

Ähnliche Themen

4 Benutzer haben hier geschrieben