VERSION 5.00
Begin VB.Form ana 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00800000&
   Caption         =   "Fraktal - www.alieskici.com"
   ClientHeight    =   6060
   ClientLeft      =   165
   ClientTop       =   765
   ClientWidth     =   9870
   BeginProperty Font 
      Name            =   "Arial"
      Size            =   9.75
      Charset         =   162
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H00FFFF00&
   Icon            =   "ana.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   ScaleHeight     =   404
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   658
   StartUpPosition =   3  'Windows Default
   Begin VB.CheckBox chk_ontem 
      BackColor       =   &H00C00000&
      Caption         =   "Temizle"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   4500
      TabIndex        =   43
      Top             =   3900
      Value           =   1  'Checked
      Width           =   840
   End
   Begin VB.CheckBox chk_jontem 
      BackColor       =   &H00C00000&
      Caption         =   "Temizle"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   2475
      TabIndex        =   42
      Top             =   3900
      Value           =   1  'Checked
      Width           =   840
   End
   Begin VB.CommandButton cmd_ayar 
      BackColor       =   &H008080FF&
      Caption         =   "&Ayarlar"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   390
      Left            =   8175
      MaskColor       =   &H000000FF&
      Style           =   1  'Graphical
      TabIndex        =   41
      Top             =   150
      Width           =   1590
   End
   Begin VB.CommandButton cmd_p2oniz 
      BackColor       =   &H00FFC0C0&
      Caption         =   "On izleme"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   390
      Left            =   4500
      Style           =   1  'Graphical
      TabIndex        =   40
      Top             =   3375
      Width           =   2115
   End
   Begin VB.PictureBox p2 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00000000&
      ForeColor       =   &H0000FFFF&
      Height          =   2115
      Left            =   4500
      ScaleHeight     =   137
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   137
      TabIndex        =   39
      Top             =   1050
      Width           =   2115
   End
   Begin VB.PictureBox p 
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H00000000&
      ForeColor       =   &H0000FFFF&
      Height          =   1590
      Left            =   300
      ScaleHeight     =   102
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   202
      TabIndex        =   35
      Top             =   1050
      Width           =   3090
   End
   Begin VB.CommandButton cmd_kap 
      BackColor       =   &H00FFC0C0&
      Caption         =   "G&izle"
      Height          =   465
      Left            =   8325
      Style           =   1  'Graphical
      TabIndex        =   32
      Top             =   5100
      Width           =   1440
   End
   Begin VB.CommandButton cmd_j_buyut 
      BackColor       =   &H00FFC0C0&
      Caption         =   "Buyutme modulu"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   390
      Left            =   600
      Style           =   1  'Graphical
      TabIndex        =   31
      Top             =   3825
      Width           =   1740
   End
   Begin VB.CommandButton cmd_j_on 
      BackColor       =   &H00FFC0C0&
      Caption         =   "On izleme"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   390
      Left            =   2475
      Style           =   1  'Graphical
      TabIndex        =   30
      Top             =   3375
      Width           =   1665
   End
   Begin VB.TextBox renk_carpani 
      Height          =   390
      Left            =   3450
      TabIndex        =   29
      Text            =   "1"
      ToolTipText     =   "Renk carpani"
      Top             =   2400
      Width           =   690
   End
   Begin VB.TextBox z_buyuktur 
      Height          =   390
      Left            =   3450
      TabIndex        =   28
      Text            =   "0"
      ToolTipText     =   "Sinir farki"
      Top             =   1500
      Width           =   690
   End
   Begin VB.TextBox x1_ussu 
      Height          =   390
      Left            =   3450
      TabIndex        =   27
      Text            =   "1"
      ToolTipText     =   "Us carpani"
      Top             =   1950
      Width           =   690
   End
   Begin VB.TextBox y1_carpani 
      Height          =   390
      Left            =   3450
      TabIndex        =   26
      Text            =   "2"
      ToolTipText     =   "Ordinat carpani"
      Top             =   1050
      Width           =   690
   End
   Begin VB.ComboBox cmb_ite 
      Height          =   360
      Left            =   2475
      Style           =   2  'Dropdown List
      TabIndex        =   25
      ToolTipText     =   "Iterasyon sayisi"
      Top             =   2850
      Width           =   1665
   End
   Begin VB.CommandButton cmd_gos 
      BackColor       =   &H00FFC0C0&
      Caption         =   "&Goster"
      Height          =   465
      Left            =   6825
      Style           =   1  'Graphical
      TabIndex        =   24
      Top             =   5100
      Width           =   1440
   End
   Begin VB.CommandButton cmd_sil 
      BackColor       =   &H00FFC0C0&
      Caption         =   "&Sil"
      Height          =   465
      Left            =   5325
      Style           =   1  'Graphical
      TabIndex        =   23
      Top             =   5100
      Width           =   1440
   End
   Begin VB.CommandButton cmd_dur 
      BackColor       =   &H00FFC0C0&
      Caption         =   "&Dur"
      Height          =   465
      Left            =   3825
      Style           =   1  'Graphical
      TabIndex        =   22
      Top             =   5100
      Width           =   1440
   End
   Begin VB.CommandButton cmd_ciz 
      BackColor       =   &H00FFC0C0&
      Caption         =   "&Ciz"
      Height          =   465
      Left            =   2325
      Style           =   1  'Graphical
      TabIndex        =   21
      Top             =   5100
      Width           =   1440
   End
   Begin VB.CommandButton cmd_var 
      BackColor       =   &H00FFC0C0&
      Caption         =   "&Varsayilan"
      Height          =   465
      Left            =   150
      Style           =   1  'Graphical
      TabIndex        =   20
      Top             =   5100
      Width           =   1890
   End
   Begin VB.TextBox tc2 
      Height          =   390
      Left            =   600
      TabIndex        =   19
      Text            =   "0"
      Top             =   3300
      Width           =   1740
   End
   Begin VB.TextBox tc1 
      Height          =   390
      Left            =   600
      TabIndex        =   17
      Text            =   "-0.8"
      Top             =   2775
      Width           =   1740
   End
   Begin VB.HScrollBar h_yog 
      Height          =   315
      LargeChange     =   10
      Left            =   7500
      Max             =   100
      Min             =   1
      TabIndex        =   14
      Top             =   3825
      Value           =   20
      Width           =   2115
   End
   Begin VB.TextBox ilky 
      Height          =   390
      Left            =   9075
      TabIndex        =   11
      Text            =   "0"
      Top             =   2625
      Width           =   540
   End
   Begin VB.TextBox ilkx 
      Height          =   390
      Left            =   7500
      TabIndex        =   9
      Text            =   "0"
      Top             =   2625
      Width           =   540
   End
   Begin VB.TextBox ust 
      Height          =   390
      Left            =   9075
      TabIndex        =   7
      Text            =   "10"
      Top             =   2100
      Width           =   540
   End
   Begin VB.TextBox alt 
      Height          =   390
      Left            =   7500
      TabIndex        =   5
      Text            =   "-10"
      Top             =   2100
      Width           =   540
   End
   Begin VB.HScrollBar h_buy 
      Height          =   315
      LargeChange     =   10
      Left            =   7500
      Max             =   100
      Min             =   1
      TabIndex        =   3
      Top             =   1500
      Value           =   2
      Width           =   2115
   End
   Begin VB.ComboBox cmb_fra 
      Height          =   360
      Left            =   1350
      Style           =   2  'Dropdown List
      TabIndex        =   0
      ToolTipText     =   "Fraktal tipi"
      Top             =   150
      Width           =   2940
   End
   Begin VB.Label lnsay 
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H00FFFF00&
      Height          =   390
      Left            =   150
      TabIndex        =   38
      Top             =   4500
      Width           =   4740
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Fraktal turu"
      ForeColor       =   &H00FFFFFF&
      Height          =   240
      Left            =   150
      TabIndex        =   37
      Top             =   225
      Width           =   1140
   End
   Begin VB.Label ld 
      BackColor       =   &H8000000D&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   162
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFF00&
      Height          =   315
      Left            =   150
      TabIndex        =   34
      Top             =   5700
      Width           =   9540
   End
   Begin VB.Label lsure 
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      ForeColor       =   &H00FFFFFF&
      Height          =   390
      Left            =   5025
      TabIndex        =   33
      Top             =   4500
      Width           =   4740
   End
   Begin VB.Label l12 
      BackStyle       =   0  'Transparent
      Caption         =   "C2="
      ForeColor       =   &H00FFFFFF&
      Height          =   315
      Left            =   225
      TabIndex        =   18
      Top             =   3375
      Width           =   390
   End
   Begin VB.Label l11 
      BackStyle       =   0  'Transparent
      Caption         =   "C1="
      ForeColor       =   &H00FFFFFF&
      Height          =   315
      Left            =   225
      TabIndex        =   16
      Top             =   2850
      Width           =   390
   End
   Begin VB.Label lyog 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "2000"
      ForeColor       =   &H00FFFFFF&
      Height          =   315
      Left            =   6750
      TabIndex        =   13
      Top             =   3525
      Width           =   1140
   End
   Begin VB.Label l9 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Yogunluk"
      ForeColor       =   &H00FFFFFF&
      Height          =   240
      Left            =   6750
      TabIndex        =   12
      Top             =   3225
      Width           =   885
   End
   Begin VB.Label l8 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Y ilk"
      ForeColor       =   &H00FFFFFF&
      Height          =   240
      Left            =   8550
      TabIndex        =   10
      Top             =   2700
      Width           =   405
   End
   Begin VB.Label l7 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "X ilk"
      ForeColor       =   &H00FFFFFF&
      Height          =   240
      Left            =   6975
      TabIndex        =   8
      Top             =   2625
      Width           =   420
   End
   Begin VB.Label l6 
      BackStyle       =   0  'Transparent
      Caption         =   "Ust sinir"
      ForeColor       =   &H00FFFFFF&
      Height          =   315
      Left            =   8250
      TabIndex        =   6
      Top             =   2100
      Width           =   915
   End
   Begin VB.Label l5 
      BackStyle       =   0  'Transparent
      Caption         =   "Alt sinir"
      ForeColor       =   &H00FFFFFF&
      Height          =   315
      Left            =   6750
      TabIndex        =   4
      Top             =   2100
      Width           =   915
   End
   Begin VB.Label lbuyut 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "2"
      ForeColor       =   &H00FFFFFF&
      Height          =   315
      Left            =   6975
      TabIndex        =   2
      Top             =   1500
      Width           =   465
   End
   Begin VB.Label l4 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Buyutme orani"
      ForeColor       =   &H00FFFFFF&
      Height          =   240
      Left            =   6750
      TabIndex        =   1
      Top             =   1125
      Width           =   1395
   End
   Begin VB.Label l10 
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Julia fraktalleri"
      ForeColor       =   &H00FFFFFF&
      Height          =   3690
      Left            =   150
      TabIndex        =   15
      Top             =   675
      Width           =   4140
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Diger fraktaller"
      ForeColor       =   &H00FFFFFF&
      Height          =   3690
      Left            =   4425
      TabIndex        =   36
      Top             =   675
      Width           =   5340
   End
   Begin VB.Menu f 
      Caption         =   "&Fraktal"
      Begin VB.Menu DK 
         Caption         =   "&Kaydet"
         Shortcut        =   ^K
      End
      Begin VB.Menu fa0 
         Caption         =   "-"
      End
      Begin VB.Menu fa 
         Caption         =   "&Ayarlar"
         Shortcut        =   ^A
      End
      Begin VB.Menu fa1 
         Caption         =   "-"
      End
      Begin VB.Menu mFBuyut 
         Caption         =   "&Julia buyut"
         Enabled         =   0   'False
         Shortcut        =   ^J
      End
      Begin VB.Menu fa2 
         Caption         =   "-"
      End
      Begin VB.Menu FC 
         Caption         =   "&Ciz"
         Shortcut        =   ^C
      End
      Begin VB.Menu FD 
         Caption         =   "&Dur"
         Shortcut        =   ^D
      End
      Begin VB.Menu FT 
         Caption         =   "&Sil"
         Shortcut        =   ^S
      End
      Begin VB.Menu FG 
         Caption         =   "&Goster"
         Shortcut        =   ^G
      End
      Begin VB.Menu FK 
         Caption         =   "G&izle"
         Shortcut        =   ^I
      End
   End
   Begin VB.Menu y 
      Caption         =   "&Yardim"
      Begin VB.Menu mYKul 
         Caption         =   "&Kullanim"
         Shortcut        =   {F1}
      End
      Begin VB.Menu ay1 
         Caption         =   "-"
      End
      Begin VB.Menu YH 
         Caption         =   "&Hakkinda"
         Shortcut        =   {F2}
      End
      Begin VB.Menu ya1 
         Caption         =   "-"
      End
      Begin VB.Menu YY 
         Caption         =   "&Yapimci"
         Shortcut        =   {F3}
      End
   End
   Begin VB.Menu DC 
      Caption         =   "Ci&kis"
   End
End
Attribute VB_Name = "ana"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public a, nx1, ny1, c, a1, a2, mx, my, c1, c2, rpa, rpx, rpy, rpr, jy1, jx1, jz, jrenk, jite As Single
Dim yog As Double
Dim sil As Integer
Public dur As Boolean
Public kay As Boolean   'kay=true: ekr, kay=false: mega icin
Dim sure As Single
Dim gen, yuk As Single


Private Sub alt_Validate(Cancel As Boolean)
If Val(ust.Text) < Val(alt.Text) Then MsgBox ("Alt sinir ust sinirdan buyuk olamaz!"), vbExclamation, ("Fraktal"): alt.Text = ""
End Sub

Public Sub paradeger()
    nx1 = Val(ilkx.Text)
    ny1 = Val(ilky.Text)
    c = h_buy.Value
    a1 = Val(alt.Text)
    a2 = Val(ust.Text)
    yog = 1 / (h_yog.Value * h_yog.Max)
    mx = ayar.lx
    my = ayar.ly
    
    jy1 = Val(y1_carpani.Text)
    jx1 = Val(x1_ussu.Text)
    jz = Val(z_buyuktur.Text)
    jrenk = Val(renk_carpani.Text)
    jite = Val(cmb_ite.Text)
End Sub

Private Sub cmb_fra_Click()
    If Left(cmb_fra.Text, 1) = "J" Then
        mFBuyut.Enabled = True
        cmd_j_buyut.Enabled = True
        cmd_j_on.Enabled = True
        ekr.pBBuyut.Enabled = True
        ld.Caption = "Fraktal " & cmb_fra.Text & " secildi. Julia bolumundeki parametreler gecerli."
        
        cmd_p2oniz.Enabled = False
    Else
        mFBuyut.Enabled = False
        cmd_j_buyut.Enabled = False
        cmd_j_on.Enabled = False
        ekr.pBBuyut.Enabled = False
        ld.Caption = "Bu fraktalin ciziminde sag taraftaki parametreler gecerli."
        
        cmd_p2oniz.Enabled = True
    End If
    
    If Left(cmb_fra.Text, 1) = "R" Then ld.Caption = "Bu fraktal icin bir parametre gecerli degil."
End Sub

Private Sub cmd_ayar_Click()
ayar.Show
End Sub

Public Sub cmd_ciz_Click()
    On Error GoTo hata
    
    Dim nx, ny As Single    'cizimin hizli olabilmesi icin x,y degerleri
    
    sil = 0
    
    If ayar.chk_ekr.Value = 1 Then ekr.WindowState = 1 Else ekr.WindowState = 0
    
    ekr.BackColor = ayar.z.BackColor
    ekr.ForeColor = ayar.f.BackColor
    
    ekr.DrawWidth = 1
    
    If ayar.chk_tem.Value = 1 Then ekr.Cls
    If ayar.chk_izg.Value = 1 Then
        For i = 0 To 1024 Step Val(ayar.tex_izgbir.Text)
            ekr.Line (i, 0)-(i, 768), RGB(150, 150, 150)
        Next
        For j = 0 To 768 Step Val(ayar.tex_izgbir.Text)
            ekr.Line (0, j)-(1024, j), RGB(150, 150, 150)
        Next
    End If
    
    paradeger
    
    If Len(tc1.Text) = 0 Then tc1.Text = "0"
    If Len(tc2.Text) = 0 Then tc2.Text = "0"
    c1 = Val(tc1.Text): c2 = Val(tc2.Text)
    
    If Left(cmb_fra.Text, 1) <> "J" Then
        lnsay.Caption = cmb_fra.Text & " islenen nokta sayisi= " & Trim(Str(Abs(a2 - a1) / yog))
    Else
        lnsay.Caption = cmb_fra.Text & " islenen nokta sayisi= 200000"
    End If
    
    ld.Caption = "Fraktal " & cmb_fra.Text & " cizimi isleniyor."
    
    sure = Timer
    
    If cmb_fra.Text = "Hopalong 1" Then
        ekr.Caption = "Hopalong 1"
        
        If ayar.chk_b.Value = 0 Then
            For a = a1 To a2 Step yog
                nx2 = ny1 - Sgn(nx1) * Sqr(Abs(Sin(a) * nx1 - Cos(a)))
                ny2 = a - nx1
                
                nx = mx + c * nx2
                ny = my + c * ny2
                
                If ayar.ro1.Value = True Then
                    ekr.PSet (nx, ny), nx2 * ny2 * 400000
                Else
                    ekr.PSet (nx, ny), ekr.ForeColor
                End If
                
                nx1 = nx2
                ny1 = ny2
                
                DoEvents
                If dur = True Then GoTo ok
            Next
        Else
            For a = a1 To a2 Step yog
                nx2 = ny1 - Sgn(nx1) * Sqr(Abs(Sin(a) * nx1 - Cos(a)))
                ny2 = a - nx1
                
                nx = mx + c * nx2
                ny = my + c * ny2
                
                If ayar.chk_bk.Value = 1 Then
                    If ayar.ro1.Value = True Then
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), nx2 * ny2 * 400000, BF
                    Else
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), ekr.ForeColor, BF
                    End If
                Else
                    If ayar.ro1.Value = True Then
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), nx2 * ny2 * 400000, B
                    Else
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), ekr.ForeColor, B
                    End If
                End If
            
                nx1 = nx2
                ny1 = ny2
                
                DoEvents
                If dur = True Then GoTo ok
            Next
        End If
    End If
    
    
    If cmb_fra.Text = "Hopalong 2" Then
        ekr.Caption = "Hopalong 2"
        
        If ayar.chk_b.Value = 0 Then
            For a = a1 To a2 Step yog
                nx2 = ny1 - Sqr(Abs(Sin(a) * nx1 - Cos(a)))
                ny2 = a - nx1
                
                nx = mx + c * nx2
                ny = my + c * ny2
                
                If ayar.ro1.Value = True Then
                    ekr.PSet (nx, ny), nx2 * ny2 * 400000
                Else
                    ekr.PSet (nx, ny), ekr.ForeColor
                End If
                
                nx1 = nx2
                ny1 = ny2
        
                DoEvents
                If dur = True Then GoTo ok
            Next
        Else
            For a = a1 To a2 Step yog
                nx2 = ny1 - Sqr(Abs(Sin(a) * nx1 - Cos(a)))
                ny2 = a - nx1
                
                nx = mx + c * nx2
                ny = my + c * ny2
                
                If ayar.chk_bk.Value = 1 Then
                    If ayar.ro1.Value = True Then
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), nx2 * ny2 * 400000, BF
                    Else
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), ekr.ForeColor, BF
                    End If
                Else
                    If ayar.ro1.Value = True Then
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), nx2 * ny2 * 400000, B
                    Else
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), ekr.ForeColor, B
                    End If
                End If
                
                nx1 = nx2
                ny1 = ny2
        
                DoEvents
                If dur = True Then GoTo ok
            Next
        End If
    End If
    
    
    If cmb_fra.Text = "Martin" Then
        ekr.Caption = "Martin"
        
        If ayar.chk_b.Value = 0 Then
            For a = a1 To a2 Step yog
                nx2 = ny1 - Sin(nx1)
                ny2 = a - nx1
                
                nx = mx + c * nx2
                ny = my + c * ny2
        
                If ayar.ro1.Value = True Then
                    ekr.PSet (nx, ny), nx2 * ny2 * 1000000
                Else
                    ekr.PSet (nx, ny), ekr.ForeColor
                End If
                
                nx1 = nx2
                ny1 = ny2
                
                DoEvents
                If dur = True Then GoTo ok
            Next
        Else
            For a = a1 To a2 Step yog
                nx2 = ny1 - Sin(nx1)
                ny2 = a - nx1
                
                nx = mx + c * nx2
                ny = my + c * ny2
        
                If ayar.chk_bk.Value = 1 Then
                    If ayar.ro1.Value = True Then																																															        ' a li es ki ci .c om

                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), nx2 * ny2 * 1000000, BF
                    Else
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), ekr.ForeColor, BF
                    End If
                Else
                    If ayar.ro1.Value = True Then
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), nx2 * ny2 * 1000000, B
                    Else
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), ekr.ForeColor, B
                    End If
                End If
                
                nx1 = nx2
                ny1 = ny2
                
                DoEvents
                If dur = True Then GoTo ok
            Next
        End If
    End If
    
    
    If cmb_fra.Text = "Monster" Then
        ekr.Caption = "Monster"
        
        If ayar.chk_b.Value = 0 Then
            For a = a1 To a2 Step yog
            
                nx2 = a - ny1 + Abs(nx1)
                ny2 = nx1
        		' al	i es ki ci .c om
                
                nx = mx + c * nx2
                ny = my + c * ny2
              
                If ayar.ro1.Value = True Then
                    ekr.PSet (nx, ny), nx2 * ny2 * 400000
                Else
                    ekr.PSet (nx, ny), ekr.ForeColor
                End If
                
                nx1 = nx2
                ny1 = ny2
                
                DoEvents
                If dur = True Then GoTo ok
            Next
        Else
            For a = a1 To a2 Step yog
        
                nx2 = a - ny1 + Abs(nx1)
                ny2 = nx1
                  
                If ayar.chk_bk.Value = 1 Then
                    If ayar.ro1.Value = True Then
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), nx2 * ny2 * 400000, BF
                    Else
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), ekr.ForeColor, BF
                    End If
                Else
                    If ayar.ro1.Value = True Then
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), nx2 * ny2 * 400000, B
                    Else
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), ekr.ForeColor, B
                    End If
                End If
                    
                nx1 = nx2
                ny1 = ny2
                
                DoEvents
                If dur = True Then GoTo ok
            Next
        End If
    End If
    
    
    If cmb_fra.Text = "Flower garden" Then
        ekr.Caption = "Flower garden"
        
        If ayar.chk_b.Value = 0 Then
            For a = a1 To a2 Step yog
                nx2 = a - ny1 + Sin(nx1) - Cos(a)																																					        ' a l i es ki ci .c om

                ny2 = nx1
                                                   
                If ayar.ro1.Value = True Then
                    ekr.PSet (nx, ny), nx2 * ny2 * 1000000
                Else
                    ekr.PSet (nx, ny), ekr.ForeColor
                End If
                
                nx1 = nx2
                ny1 = ny2
                
                DoEvents
                If dur = True Then GoTo ok
            Next
        Else
            For a = a1 To a2 Step yog
                nx2 = a - ny1 + Sin(nx1) - Cos(a)
                ny2 = nx1
                                                       
                If ayar.chk_bk.Value = 1 Then
                    If ayar.ro1.Value = True Then
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), nx2 * ny2 * 1000000, BF
                    Else
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), ekr.ForeColor, BF
                    End If
                Else
                    If ayar.ro1.Value = True Then
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), nx2 * ny2 * 1000000, B
                    Else
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), ekr.ForeColor, B
                    End If
                End If
                    
                nx1 = nx2
                ny1 = ny2
                
                DoEvents
                If dur = True Then GoTo ok
            Next
        End If
    End If
    
    
    If cmb_fra.Text = "Gingerbrad Man" Then
    	' a l i e s ki ci .c o m
        ekr.Caption = "Ginderbrad Man"
        
        If ayar.chk_b.Value = 0 Then
            For a = a1 To a2 Step yog
                nx2 = 1 - ny1 + Abs(nx1)
                ny2 = nx1
                
                If ayar.ro1.Value = True Then
                    ekr.PSet (nx, ny), nx2 * ny2 * 400000
                Else
                    ekr.PSet (nx, ny), ekr.ForeColor
                End If
                
                nx1 = nx2
                ny1 = ny2
                
                DoEvents
                If dur = True Then GoTo ok
            Next
        Else
            For a = a1 To a2 Step yog
                nx2 = 1 - ny1 + Abs(nx1)
                ny2 = nx1
                    
                If ayar.chk_bk.Value = 1 Then
                    If ayar.ro1.Value = True Then
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), nx2 * ny2 * 400000, BF
                    Else
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), ekr.ForeColor, BF
                    End If
                Else
                    If ayar.ro1.Value = True Then' a l i es ki ci .c om
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), nx2 * ny2 * 400000, B
                    Else
                        ekr.Line (nx, ny)-(nx + h_buy.Value, ny + h_buy.Value), ekr.ForeColor, B
                    End If
                End If
                    
                nx1 = nx2
                ny1 = ny2
                
                DoEvents
                If dur = True Then GoTo ok
            Next
        End If
    End If
    
    
    If cmb_fra.Text = "Julia 1" Then
        ekr.Caption = "Julia 1"
        For m = 0 To 200 Step 0.2
            x0 = -2 + m / 50
            For n = 0 To 100 Step 0.2
                y0 = 2 - n / 50
                x01 = x0
                y01 = y0
                For i = 1 To jite
                    X1 = x01 * x01 - y01 * y01 + c1
                    Y1 = 2 * x01 * y01 + c2
                    x01 = X1 ^ jx1
                    y01 = Y1
                    z = x01 * x01 + y01 * y01
                    If z > 4 + jz Then GoTo TL
                Next i
                    
            If ayar.ro1.Value = True Or ayar.ro2.Value = True Then
                ekr.PSet (m * 5, n * 5 - 160), z * 4000000 * jrenk
                ekr.PSet (1000 - m * 5, 838 - n * 5), z * 4000000 * jrenk
            Else
                ekr.PSet (m * 5, n * 5 - 160), ekr.ForeColor
                ekr.PSet (1000 - m * 5, 838 - n * 5), ekr.ForeColor
            End If
TL:
            Next n
            If l = 0 Then l = 1
        	'a l i es ki ci .c om
            DoEvents
            If dur = True Then GoTo ok
        Next m
    End If
    
    
    If cmb_fra.Text = "Julia 2" Then
        ekr.Caption = "Julia 2"
        For m = 0 To 200 Step 0.25
            x0 = -2 + m / 50
            For n = 0 To 100 Step 0.25
                y0 = 2 - n / 50
                x01 = x0
                y01 = y0
                For i = 1 To jite
                    X1 = x01 * x01 - y01 * y01 + c1
                    Y1 = jy1 * x01 * y01 - c2
                    x01 = X1 ^ jx1
                    y01 = Y1
                    z = x01 * x01 + y01 * y01
                    If z > 4 + jz Then GoTo TL2
                    ' al i es ki ci .c om
                Next i
    
            If ayar.ro1.Value = True Or ayar.ro2.Value = True Then
                ekr.PSet (m * 4, n * 4 - 100), z * 4000000 * jrenk
                ekr.PSet (800 - m * 4, 700 - n * 4), z * 4000000 * jrenk
            Else
                ekr.PSet (m * 4, n * 4 - 100), ekr.ForeColor
                ekr.PSet (800 - m * 4, 700 - n * 4), ekr.ForeColor
            End If
TL2:
            Next n
            If l = 0 Then l = 1
        
            DoEvents
            If dur = True Then GoTo ok
        Next m
    End If
    
    
    If cmb_fra.Text = "Julia 3" Then
        ekr.Caption = "Julia 3"
        For m = 0 To 200 Step 0.25
            x0 = -2 + m / 50
            For n = 0 To 100 Step 0.25
                y0 = 2 - n / 50
                x01 = x0
                y01 = y0
                For i = 1 To jite
                    X1 = x01 * x01 + y01 * y01 + c1
                    Y1 = jy1 * x01 + y01 * c2
                    ' a l i es k i ci .c om
                    x01 = X1 ^ jx1
                    y01 = Y1
                    z = x01 * x01 - y01 * y01
                    If z > 10 + jz Then GoTo TL3
                Next i
    
            If ayar.ro1.Value = True Or ayar.ro2.Value = True Then
                ekr.PSet (m * 3, n * 3), z * 20000000 * jrenk
                ekr.PSet (600 - m * 3, 600 - n * 3), z * 20000000 * jrenk
            Else
                ekr.PSet (m * 3, n * 3), ekr.ForeColor
                ekr.PSet (600 - m * 3, 600 - n * 3), ekr.ForeColor
            End If
TL3:
            Next n
            If l = 0 Then l = 1
        
            DoEvents
            If dur = True Then GoTo ok
        Next m
    End If
    
    
    If cmb_fra.Text = "Julia 4" Then
        ekr.Caption = "Julia 4"
        For m = 0 To 200 Step 0.25
            x0 = -2 + m / 50
            For n = 0 To 100 Step 0.25
                y0 = 2 - n / 50
                x01 = x0
                y01 = y0
                For i = 1 To jite
                    X1 = x01 * x01 + y01 * y01 + c1
                    Y1 = jy1 * x01 + y01 * c2
                    x01 = X1 ^ jx1
                    y01 = Y1
                    z = x01 * x01 - y01 * y01
                    ' al i es ki ci .c om
                    If z > 10 + jz Then GoTo TL4
                Next i
    
            If ayar.ro1.Value = True Or ayar.ro2.Value = True Then
                ekr.PSet (m * 3, n * 3), z * 20000000 * jrenk
                ekr.PSet (600 - m * 3, 600 - n * 3), z * 20000000 * jrenk
            Else
                ekr.PSet (m * 3, n * 3), ekr.ForeColor
                ekr.PSet (600 - m * 3, 600 - n * 3), ekr.ForeColor
            End If
TL4:
            Next n
            If l = 0 Then l = 1
        
            DoEvents
            If dur = True Then GoTo ok
        Next m
    End If
    
    
    If cmb_fra.Text = "Random pixelize" Then
        ekr.Caption = "Random pixelize"
        
        mx = ekr.ScaleWidth / 2
        my = ekr.ScaleHeight / 2
        rpx = 0: rpy = 0
        
        Randomize Timer
    
a:
        rpa = CInt(100 * Rnd)
        
        If rpa < 25 Then rpx = rpx + 1: rpy = rpy + 1
        If rpa >= 25 And rpa < 50 Then rpx = rpx - 1: rpy = rpy + 1
        If rpa >= 50 And rpa < 75 Then rpx = rpx + 1: rpy = rpy - 1
        If rpa >= 75 Then rpx = rpx - 1: rpy = rpy - 1
        
        rpr = CInt(Rnd * 105) + 150
        
        If ayar.ro3.Value = False Then
            ekr.PSet (mx + rpx, my + rpy), RGB(rpr, rpr, rpr)
            ekr.PSet (mx - rpx, my + rpy), RGB(rpr, rpr, rpr)
            ekr.PSet (mx + rpx, my - rpy), RGB(rpr, rpr, rpr)
            ekr.PSet (mx - rpx, my - rpy), RGB(rpr, rpr, rpr)
        Else
            ekr.PSet (mx + rpx, my + rpy), ekr.ForeColor
            ekr.PSet (mx - rpx, my + rpy), ekr.ForeColor
            ekr.PSet (mx + rpx, my - rpy), ekr.ForeColor
            ekr.PSet (mx - rpx, my - rpy), ekr.ForeColor
        End If
        
        If dur = True Then GoTo ok
        If rpx < -mx Or rpx > mx Or rpy < -my Or rpy > my Then GoTo ok																																' a l ies ki ci .c om
        DoEvents
        GoTo a
    End If
    
    
    If cmb_fra.Text = "Kullanici tanimli" Then
        MsgBox ("Farenizin sol tusu basili iken cizim ekrani uzerinde gezdiriniz. Cizim ekranindaki nokta buyuklugu ana penceredeki 'Buyukluk' parametresi ile ayarlanabilir. Bu deger 'Ciz' tusuna basildiginda gecerli olur."), vbInformation, ("Fraktal - Kullanici tanimli")
        ekr.Show
        ekr.Caption = "Kullanici tanimli"
        ekr.DrawWidth = ana.h_buy.Value
        ekr.WindowState = 0
        ld.Caption = "Bu fraktal icin tum ayarlar icin gecersizdir."
        Exit Sub
    End If
        
ok:
    lsure.Caption = "Islem suresi (sn): " & Format(Abs(Timer - sure), "###,###.#")
    dur = False
    ekr.Show
    ekr.WindowState = 0
    
    If Left(cmb_fra.Text, 1) = "J" Then ekr.pBBuyut.Enabled = True Else ekr.pBBuyut.Enabled = False

    If ayar.chk_uya.Value = 1 Then Beep: MsgBox (ana.cmb_fra.Text & " fraktalinin cizimi bitmistir."), vbInformation, ("Fraktal")
    If ayar.chk_sor.Value = 1 Then DK_Click
    
    ld.Caption = "Fraktal cizimi tamamlandi."'al i es ki ci .c om
    Exit Sub
hata:
    MsgBox ("Beklenmeyen bir hata olustu. Degerleri degistirip yeniden deneyiniz."), vbCritical, ("Fraktal")
    ld.Caption = "Islem tamamlanamadi."
End Sub

Private Sub cmd_dur_Click()
dur = True
ld.Caption = "Cizim durduruldu."
End Sub

Private Sub cmd_gos_Click()
ekr.WindowState = 0
ekr.Show
ld.Caption = "Cizim ekrani gosterildi."
End Sub

Private Sub cmd_j_buyut_Click()
mega.Show
End Sub

Private Sub cmd_j_on_Click()
    Dim onsure As Single
    
    If chk_jontem.Value = 1 Then p.Cls
    
    ld.Caption = "Fraktal Julia 1,2,3,4 turleri icin on izleme."
    
    paradeger
    
    c1 = Val(tc1.Text)
    c2 = Val(tc2.Text)
    
    DoEvents
    
    onsure = Timer
    
    If cmb_fra.Text = "Julia 1" Then
        For m = 0 To 200
            x0 = -2 + m / 50
            For n = 0 To 100
                y0 = 2 - n / 50
                x01 = x0
                y01 = y0
                For i = 1 To jite
                    X1 = x01 * x01 - y01 * y01 + c1
                    Y1 = 2 * x01 * y01 + c2
                    x01 = X1 ^ jx1
                    y01 = Y1
                    z = x01 * x01 + y01 * y01
                    ' a l i es ki ci . co m
                    If z > 4 + jz Then GoTo onTL1
                Next i
                    
                p.PSet (m, n - 50)
                p.PSet (200 - m, 150 - n)
onTL1:
            Next n
            If l = 0 Then l = 1
        Next m
    End If
    
    
    If cmb_fra.Text = "Julia 2" Then
        For m = 0 To 200
            x0 = -2 + m / 50
            For n = 0 To 100
                y0 = 2 - n / 50
                x01 = x0
                y01 = y0
                For i = 1 To jite
                    X1 = x01 * x01 - y01 * y01 + c1
                    Y1 = jy1 * x01 * y01 - c2
                    x01 = X1 ^ jx1
                    y01 = Y1
                    z = x01 * x01 + y01 * y01
                    If z > 4 + jz Then GoTo onTL2
                Next i
                p.PSet (m, n - 50)
                p.PSet (200 - m, 150 - n)
onTL2:
            Next n
            If l = 0 Then l = 1
        Next m
    End If
    
    
    If cmb_fra.Text = "Julia 3" Then
        For m = 0 To 200
            x0 = -2 + m / 50
            For n = 0 To 100
                y0 = 2 - n / 50
                x01 = x0
                y01 = y0
                For i = 1 To jite
                    X1 = x01 * x01 + y01 * y01 + c1
                    Y1 = jy1 * x01 + y01 * c2
                    x01 = X1 ^ jx1
                    y01 = Y1
                    z = x01 * x01 - y01 * y01
                    If z > 10 + jz Then GoTo onTL3
                Next i
    
                p.PSet (m, n - 50)
                p.PSet (200 - m, 150 - n)
onTL3:
            Next n
            If l = 0 Then l = 1
        Next m
    End If
    
    
    If cmb_fra.Text = "Julia 4" Then
        For m = 0 To 200
            x0 = -2 + m / 50
            For n = 0 To 100
                y0 = 2 - n / 50
                x01 = x0
                y01 = y0
                For i = 1 To jite
                    X1 = x01 * x01 + y01 * y01 + c1
                    Y1 = jy1 * x01 + y01 * c2
                    ' a l i es k i ci .c om
                    x01 = X1 ^ jx1
                    y01 = Y1
                    z = x01 * x01 - y01 * y01
                    If z > 10 + jz Then GoTo onTL4
                Next i
    
                p.PSet (m, n - 50)
                p.PSet (200 - m, 150 - n)
onTL4:
            Next n
            If l = 0 Then l = 1
        Next m
    End If
    
    onsure = Abs(Timer - onsure)
    ld.Caption = "Fraktal " & cmb_fra.Text & " tahmini cizim suresi (sn): " & Trim(Str(CInt(25 * onsure)))
End Sub

Private Sub cmd_kap_Click()
ekr.Hide
ld.Caption = "Cizim ekrani gizlendi."
End Sub

Private Sub cmd_p2oniz_Click()
    On Error GoTo p2onizhata
    
    If chk_ontem.Value = 1 Then p2.Cls
    
    If Left(cmb_fra.Text, 1) = "J" Then ld.Caption = "On izleme icin fraktalin turu Julia olmamali.": Beep: Exit Sub
    If cmb_fra.Text = "Random pixelize" Then ld.Caption = "Bu fraktalin on izlemesi olmaz.": Beep: Exit Sub

    ld.Caption = "Fraktal Julia 1,2,3,4 disindaki turler icin on izleme."
    
    paradeger
    
    Dim p2mx, p2my As Single
    
    p2mx = p2.ScaleWidth / 2
    p2my = p2.ScaleHeight / 2
        
    DoEvents
    
    If cmb_fra.Text = "Hopalong 1" Then
        For a = a1 To a2 Step yog
            nx2 = ny1 - Sgn(nx1) * Sqr(Abs(Sin(a) * nx1 - Cos(a)))
            ny2 = a - nx1
            
            p2.PSet (p2mx + nx2, p2my + ny2)
            
            nx1 = nx2
            ny1 = ny2
        Next
    End If
    
    
    If cmb_fra.Text = "Hopalong 2" Then
        For a = a1 To a2 Step yog
            nx2 = ny1 - Sqr(Abs(Sin(a) * nx1 - Cos(a)))
            ny2 = a - nx1
            
            p2.PSet (p2mx + nx2, p2my + ny2)
            
            nx1 = nx2
            ny1 = ny2
        Next
    End If
    
    
    If cmb_fra.Text = "Martin" Then
        For a = a1 To a2 Step yog
            nx2 = ny1 - Sin(nx1)
            ny2 = a - nx1
    
            p2.PSet (p2mx + nx2, p2my + ny2)
            
            nx1 = nx2
            ny1 = ny2
        Next
    End If
    
    
    If cmb_fra.Text = "Monster" Then
        For a = a1 To a2 Step yog
        
            nx2 = a - ny1 + Abs(nx1)
            ny2 = nx1
          
            p2.PSet (p2mx + nx2, p2my + ny2)
            
            nx1 = nx2
            ny1 = ny2
        Next
    End If
    
    
    If cmb_fra.Text = "Flower garden" Then
        For a = a1 To a2 Step yog
            nx2 = a - ny1 + Sin(nx1) - Cos(a)
            ny2 = nx1
                                               
            p2.PSet (p2mx + nx2, p2my + ny2)
            
            nx1 = nx2
            ny1 = ny2
        Next
    End If
    
    
    If cmb_fra.Text = "Gingerbrad Man" Then
        For a = a1 To a2 Step yog
            nx2 = 1 - ny1 + Abs(nx1)
            ny2 = nx1
            
            p2.PSet (p2mx + nx2, p2my + ny2)
            
            nx1 = nx2
            ny1 = ny2
        Next
    End If

    ld.Caption = "Fraktal " & cmb_fra.Text & " icin on izleme yapildi."
    
    Exit Sub
p2onizhata:
    ld.Caption = "On izleme isleminde hata olustu !"
End Sub

Private Sub cmd_sil_Click()
ekr.Cls
sil = 1
ld.Caption = "Cizim ekrani silindi."
End Sub

Private Sub cmd_var_Click()
    h_buy.Value = 10: lbuyut.Caption = "10"
    alt.Text = "-10": ust.Text = "10"
    ilkx.Text = "0": ilky.Text = "0"
    ayar.yo1.Value = True
    h_yog.Min = 1
    h_yog.Max = 100
    h_yog.SmallChange = 1
    h_yog.LargeChange = 10
    h_yog.Value = 20: lyog.Caption = "2000"
    tc1.Text = "-0.8": tc2.Text = "0"
    cmb_ite.Text = "10"
    y1_carpani.Text = "1": x1_ussu.Text = "1": z_buyuktur.Text = "0": renk_carpani.Text = "1"
    ld.Caption = "Varsayilan parametreler yuklendi."
End Sub

Private Sub DC_Click()
End
End Sub

Public Sub DK_Click()
    If sil = 1 Then MsgBox ("Cizilmis bir fraktal bulunamadi."), vbExclamation, ("Fraktal"): Exit Sub
    kay = True
    kayit.Show
End Sub

Private Sub fa_Click()
ayar.Show
End Sub

Private Sub FC_Click()
cmd_ciz_Click
End Sub

Public Sub FD_Click()
dur = True
ld.Caption = "Cizim durduruldu."
End Sub

Private Sub FG_Click()
ekr.Show
ekr.WindowState = 0
End Sub

Public Sub FK_Click()
ekr.Hide
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then WindowState = 1
End Sub

Public Sub renkle()
    Dim r As Single
    Const cr = 3.14159 / 180

    For i = 0 To ScaleWidth
        r = 255 * i / ScaleWidth
        Circle (ScaleHeight / 2, ScaleHeight), i, RGB(0, 0, r)
    Next
    
    For i = ScaleTop To ScaleHeight Step 10
        Line (ScaleWidth - ScaleHeight + i, ScaleTop)-(ScaleWidth, i), RGB(r, 0, 0)
    Next
    
    For i = 1 To 400
        PSet (ScaleWidth * Rnd, ScaleHeight * Rnd)
    Next
    
    For i = 1 To 100
        r = 255 * i / 100
        Circle (ScaleHeight / 2, ScaleHeight), i, RGB(255 - r, 255 - r, r)
    Next
    
    For i = 1 To 400 Step 4
        For a = 0 To 80 Step 4
            PSet (ScaleHeight / 2 + i * Cos((a - 90 + i / 4) * cr), ScaleHeight + i * Sin((a - 90 - i / 4) * cr)), RGB(255, 255, 0)
        Next
    Next
    
    DrawWidth = 2
    For i = 1 To 100
        PSet (ScaleWidth * Rnd, ScaleHeight * Rnd / 2)
    Next
    
    cmd_ayar.BackColor = Point(cmd_ayar.Left - 1, cmd_ayar.Top + 1)
    chk_jontem.BackColor = Point(chk_jontem.Left - 1, chk_jontem.Top + 1)
    chk_ontem.BackColor = Point(chk_ontem.Left - 1, chk_ontem.Top + 1)
End Sub

Private Sub Form_Load()
    renkle
    
    With cmb_fra
        .AddItem "Hopalong 1"
        .AddItem "Hopalong 2"
        .AddItem "Martin"
        .AddItem "Monster"
        .AddItem "Flower garden"
        .AddItem "Gingerbrad Man"
        .AddItem "Julia 1"
        .AddItem "Julia 2"
        .AddItem "Julia 3"
        .AddItem "Julia 4"
        .AddItem "Random pixelize"
        .AddItem "Kullanici tanimli"
    End With
    cmb_fra.Text = "Hopalong 1"
    
    With cmb_ite
        .AddItem "2"
        .AddItem "5"
        .AddItem "10"
        .AddItem "20"
        .AddItem "40"
        .AddItem "50"
        .AddItem "100"
    End With
    cmb_ite.Text = "10"
    
    yog = 2000
    sil = 1
    dur = False
    
    gen = Width
    yuk = Height
        
    ayar.lx = 400: ayar.ly = 400
    ayar.Hide
    
    If Screen.Width < 1024 Then
        MsgBox ("Fraktal cizimlerinin tam olarak goruntulenmesi icin ekran boyutlarinin en az 1024 * 768 olmasi gerekir." & Chr(13) & Chr(10) & "Ekraninizin alani daha dusuk oldugundan Fraktal programinin cizimlerini tam olarak goremeyebilir ve bazi araclarini saglikli sekilde kullanamayabilirsiniz. Ekran alaninizi arttirmaniz onerilir."), vbExclamation, ("Fraktal")
        WindowState = 1
    End If
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
End
End Sub

Private Sub Form_Resize()
If WindowState = 1 Then Exit Sub
If Width > gen Then Width = gen
If Height > yuk Then Height = yuk
End Sub

Public Sub FT_Click()
ekr.Cls
sil = 1
End Sub

Private Sub h_buy_Change()
lbuyut.Caption = h_buy.Value
'a l i es ki ci .c om
ld.Caption = "Fraktal (Julia 1,2,3,4 haric) buyutme orani " & Trim(Str(h_buy.Value))
End Sub

Private Sub h_yog_Change()
yog = h_yog.Value
yog = yog * 100
lyog.Caption = yog
ld.Caption = "Cizim yogunlugu cm2'ye en cok " & Trim(Str(yog)) & " nokta."
End Sub

Public Sub mFBuyut_Click()
mega.Show
End Sub

Private Sub mYKul_Click()
yar.Show
End Sub

Private Sub ust_Validate(Cancel As Boolean)
If Val(ust.Text) < Val(alt.Text) Then MsgBox ("Ust sinir alt sinirdan kucuk olamaz!"), vbExclamation, ("Fraktal"): ust.Text = ""
End Sub

Private Sub YH_Click()
hak.Show
End Sub

Private Sub YY_Click()
yap.Show
End Sub