|
Het wordt een programmatje voor een Online voetbal spelletje en ik sla de gegevens van mijn spelers op in een table.
Elke speler heeft verschillende vaardigheden zoals keepen (k) conditie (c) etc... Ik bereken middels volgende formules hun sterkte voor elke positie en stuur deze naar een betreffend veld (dus fldkeeper geeft de keepersterkte van de speler):
FldKeeper.Text=1*k
fldVerdediger.Text=0.1*c+0.03*p+0.87*v
fldVVerdediger.Text=0.33*w+0.67*v
fldMiddenvelder.Text=0.2*c+0.15*t+0.5*p+0.15*v
fldVleugelspeler.Text=0.07*c+0.26*p+0.15*t+0.39*w+0.13*v
fldAanvaller.Text=0.1*c+0.58*s+0.29*t+0.03*p
Nu wil ik de vaardigheid met de grootste waarde (dus waarin de speler volgens deze formules het beste in is) vet gedrukt maken. aangezien ik in de help en op internet (misschien verkeerde zoektermen (?)) niet vond hoe dit moest, heb ik dit gedaan middels de welbekende if, else en elseif functies maar toen werd het dus te groot. Dat zag er dan ongeveer als volgt uit (en zal jullie de hele reeks besparen)
If fldkeeper.Tekst>fldVerdediger.Tekst Then
If fldkeeper.Tekst>fldVVerdediger.Tekst Then
If fldkeeper.Tekst>fldMIddenvelder.Tekst Then
If fldkeeper.Tekst>fldVleugelspeler.Tekst Then
If fldkeeper.Tekst>fldAanvaller.Tekst Then
fldkeeper.Font = hbFontBold 'keepers waarde is grootste
Else
fldAanvaller.Font = hb FontBold 'Aanvaller waarde is grootste
EndIf
ElseIf fldVleugelspeler.Tekst>fldAanvaller.Tekst Then
fldVleugelspeler.Font = hbFontBold 'Vleugelspeler waarde is grootste
Else
fldAanvaller.Font = hbFontBold 'Aanvaller waarde is grootste
EndIf
etc...
Het plan is om misschien nog 1 of 2 posities toe te voegen maar dan wordt het helemaal een onoverzichtelijke bende op deze manier (en dientengevolge ook nog meer data)
|