[VB6] Inzoomen op mandelbrot *

[Lieuwe15]

Ik ben bezig met mijn profielwerkstuk en het onderwerp is fractals.
Nu ben ik op een probleem gestuit: Het Inzoomen!
Fractals zijn plaatjes gegenereerd mbv een formule
Ik heb mijn programma al zover gekregen dat ie wel 1 keer wil inzoomen maar als je dan voor de 2e keer klikt dan zoomt ie (de opgegeven zoom in een combo box) zoveel keer het orgineel in en niet verder in wat je gekregen hebt

Dit is het deel van de source waar ie gaat zoomen:

code:

'Begin Mandelbrot zoom
Picture1.ScaleHeight = 1800
Picture1.ScaleWidth = 1800
If Combo1.ListIndex = 0 Then Zoomfactor = 2
If Combo1.ListIndex = 1 Then Zoomfactor = 4
If Combo1.ListIndex > 1 Then Zoomfactor = (Combo1.ListIndex - 1) * 10
AA = 0
RX = 1.5 / (1000 * Zoomfactor)
DX = 900 - XP
DY = 900 - YP
For x = -900 + DX To 900 + DX Step 3.8
For y = -700 - DY To 1100 - DY Step 3.8
        XX = RX * -x - 0.75
        YY = (200 - y) * RX
        C = XX
        D = YY
        A = 0
        Do Until XX * XX + YY * YY > 4 Or A > 50
            A = A + 1
            XXX = XX
            XX = XX * XX - YY * YY + C
            YY = 2 * XXX * YY + D
        Loop
        AA = 14 - Int(A / 50 * 13)
        Picture1.PSet (900 + DX - x, y + 700 + DY), QBColor(AA)
        'Picture1.PSet (900 + DX - X, 1100 + DY - Y), QBColor(AA)
        
    Next y
Next x

De volledige source is hier verkrijgbaar voor als iemand die nodig heeft:
http://members.lycos.nl/dragonballz77/got/

Als jullie nog meer informatie hierover nodig hebben ik hoor het wel
Alvast Bedankt

Greetz,
Lieuwe

[StevenK]

Lieuwe15 schreef op zondag 28 november 2004 @ 13:54:
Nu ben ik op een probleem gestuit: Het Inzoomen!
Ik heb mijn programma al zover gekregen dat ie wel 1 keer wil inzoomen maar als je dan voor de 2e keer klikt dan zoomt ie zoveel keer het orgineel in en niet verder in wat je gekregen hebt

Ik snap je niet: als je inzoomt, zoomt 'ie in, maar da's niet goed ? Leg eens uit, leg ook eens uit hoe dit al hebt geprobeerd te debuggen, wat gebeurt er bijv. wanneer je hard een zoomfactor invult etc.

Oh, en een TT was ook handig geweest

[gorgi_19]

Titel aangevuld, zie ook **** Over topictitels in P&W - Updated 9 mei 04 ****

[ Voor 65% gewijzigd door gorgi_19 op 28-11-2004 14:05 ]

[Lieuwe15]

grr titel vergeten
nou ja ehm ik kan de titel niet wijzigen maar dit moest em worden:
[VB6] Inzoomen op mandelbrot.

mijn point is als hij het plaatje heeft gemaakt, en ik wil inzoomen.
Hij zoomt wel in mbv een combo box (2x, 4x, 10x) en op een bepaalde plaats.
dat doet hij wel prima maar alleen als ik ingezoomd heb en ik wil nog een keer klikken om verder in te zoomen wil hij niet verder inzoomen.
Hij neemt dan de standaard x,y waarden weer en hij moet de x,y waarden nemen van het al ingezoomde stuk.
dat wil ik weten hoe je dat doet.
hij werkt verder perfect maar alleen dat verder inzoomen.
hij geeft ook geen fouten aan.

Srry voor de TT

Greetz Lieuwe

[ Voor 8% gewijzigd door Lieuwe15 op 28-11-2004 14:07 ]

[StevenK]

Lieuwe15 schreef op zondag 28 november 2004 @ 14:06:
grr titel vergeten
nou ja ehm ik kan de titel niet wijzigen maar dit moest em worden:
[VB6] Inzoomen op mandelbrot.

mijn point is als hij het plaatje heeft gemaakt, en ik wil inzoomen.
Hij zoomt wel in mbv een combo box (2x, 4x, 10x) en op een bepaalde plaats.
dat doet hij wel prima maar alleen als ik ingezoomd heb en ik wil nog een keer klikken om verder in te zoomen wil hij niet verder inzoomen.
Hij neemt dan de standaard x,y waarden weer en hij moet de x,y waarden nemen van het al ingezoomde stuk.
dat wil ik weten hoe je dat doet.
hij werkt verder perfect maar alleen dat verder inzoomen.
hij geeft ook geen fouten aan.

Srry voor de TT

Greetz Lieuwe

Dan moet je die x,y waarden ergens in een public variabele, of mijn part in twee text-boxjes of label opslaan.

Overigens heb ik sterk het gevoel dat je geen flauw idee hebt waar je mee bezig bent ?

[Lieuwe15]

nou neej dat niet stevenk
dit is een behoorlijk ingewikkeld onderwerp en het is allemaal moeilijk uit te leggen!

[Verwijderd]

Lieuwe15 schreef op zondag 28 november 2004 @ 14:17:
nou neej dat niet stevenk
dit is een behoorlijk ingewikkeld onderwerp en het is allemaal moeilijk uit te leggen!

Als je niet kunt uitleggen wat je bedoeld wil dat zeggen dat je niet weet waar je het over hebt...

[StevenK]

Lieuwe15 schreef op zondag 28 november 2004 @ 14:17:
nou neej dat niet stevenk
dit is een behoorlijk ingewikkeld onderwerp en het is allemaal moeilijk uit te leggen!

Nee, het onderwerp is niet moeilijk: je hebt zelf al gezegd dat 'ie de verkeerde x en y pakt.

Je moet dus nu in je code waar 'ie de verkeerde x en y pakt ff gaan debuggen waar 'ie dan die verkeerde waardes vandaan haalt.