21. september 2006 - 15:53Der er
4 kommentarer og 2 løsninger
Resize foto + bestemt masse
Jeg skal lave en funktion til at resize et foto, så det ender med at have en bestemt masse + skal selvfølgelig beholde sine probationer
Feks. jeg vil gerne have at alle billeder ender med en masse på 8000 Jeg scanner et foto (10000 * 8000) Hvis jeg resizer dette billede til 100 * 80 ender jeg med en masse på 8000 (100 * 80 = 8000)
Men hvad nu hvis denne billede var 12500*7600, hvordan laver jeg en en funktion der kan udregne en ny højde + brede som ender med en masse på 8000 (samme probationer)
Dim nyhoj as Integer Dim nybred as Integer
Call SammeMasse(12500, 7600, 8000)
Private Sub SammeMasse(bred As Integer, hoj As Integer, masse As Integer)
Mange tak fordi du giver at bruge lidt tid på at løse denne opgave.
Jeg har prøvet at lave funktionen udfra det du har skrivet, men jeg kan stadig ikke få det til at virke!!!
Call SammeMasse(12500, 7600)
Private Sub SammeMasse(xbred As Double, xhoj As Double)
Dim sum1 As Double: sum1 = xbred * xhoj Dim kvsum1 As Double: kvsum1 = sum1 ^ 0.5 ^ 0.5 Dim sum2 As Double: sum2 = 8000 Dim kvsum2 As Double: kvsum2 = sum2 ^ 0.5 ^ 0.5
Det var så lidt. Det glæder mig at kunne være til hjælp.
Fortsat held og lykke med projektet.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
