Bug i fraktalprogram

og så glemte jeg selvfølgeig at poste et link :)
www.dummeslag.dk/Fractalum.zip

Jeg ved ikke hvorfor, men jeg ved hvordan du omgår det.
Public Sub cmdReset_Click()' lavet om til Public
    txtRed = 1
    txtGreen = 10
    txtBlue = 20
    txtXmin = -1.9
    txtYmin = -1.25
    txtDelta = 2.5
End Sub

Tilføjet
Private Sub cmdDraw_Click()
Call cmdReset_Click ' Denne linie er ny
    If TxtNumber > 1000 Or TxtNumber < 75 Then

Dine tekstbokse værdier kan du ikke bruge uden du oversætter dem til tal, de står altid som tekst.

Du kan regne med dem ved  Val(txtRed)

Der hvor du plusser dem, er det tekst du plusser

Du skal bruge

If Val(txtRed)+Val(txtGreen)+Val(txtBlue) > 30 then

husk at oversætte dem andre steder også.

jeg har rettet i denne, prøv at se om det virker

Private Sub cmdDraw_Click()
    If TxtNumber > 1000 Or TxtNumber < 75 Then
   
        MsgBox ("Du skal vælge et antal punkter inden for de angivne grænser (100 til 1000)!")
   
    Else
       
        If Val(txtRed) + Val(txtGreen) + Val(txtBlue) < 40 Then
       
            T1 = Timer
   
            pctFractal.ScaleWidth = Val(TxtNumber)
            pctFractal.ScaleHeight = Val(TxtNumber)
   
            ScreenWidth = pctFractal.ScaleWidth
            ScreenHeight = pctFractal.ScaleHeight
 
            xStep = Val(txtDelta) / ScreenWidth    'er lige store
            yStep = Val(txtDelta) / ScreenHeight    'er lige store
   
            'Cls                                'Fjerner alt tegnet indhold på formen (i programmet)
   
            DrawP = True                        'Tildeler DrawP værdien True

            For X = 0 To ScreenWidth            'Starter en tælleløkke for x med startværdi 0 til x bliver ScreenWidth (skærmbredden)

                For Y = 0 To ScreenHeight      ' Starter en tællelække for y INDEN I tælleløkken for x med samme betingelser som for x. Gennem kombinationen af disse to tælleløkker, bliver der regnet på hvert enkelt punkt.
           
                    p = Val(txtXmin) + X * xStep
                    q = Val(txtYmin) + Y * yStep
                   
                    xOld = 0
                    yOld = 0
                    Color = 0
           
                    While (Not (xOld ^ 2 + yOld ^ 2 > Val(txtDelta))) And Color < 255 And DrawP
                        xNew = xOld
                        yNew = yOld
               
                        xOld = xNew ^ 2 - yNew ^ 2 + p
                        yOld = 2 * xNew * yNew + q
                       
                        Color = Color + 1
                    Wend
           
                    If Not DrawP Then Exit Sub
           
                    pctFractal.PSet (X, Y), RGB(Val(txtRed) * Color, Val(txtGreen) * Color, Val(txtBlue) * Color)
           
                Next
     
                    DoEvents
            Next
                DrawP = False
                T2 = Timer
                lblTimer = Val(Abs(T1 - T2)) & " Sekunder"
        Else
            MsgBox ("Du har valgt farver, hvis sum er over 30. Dette gør kvaliteten af fraktalen ringere!")
        End If
    End If
End Sub

hmm..trykkede lige "send" men min besked forsvandt bare ?

Anyway, det hele virker nu, pga Val() :D
Jeg ved ikke om det er fordi jeg kun har lavet PHP før i tiden, men jeg har det med at glemme Val() hele tiden :|

Men nu virker det, så hvis du ville lægge et svar ville jeg blive glad :)

Ok et svar, glad for at kunne hjælpe. ;-))