none
How my deep blue looks RRS feed

  • Question

  • But program was a bit long :) so ı will send part way and ı sorry all program is turkish but ı will fix it as soon as possible.

    PART 1 :

    TextWindow.Title = "DERİN  MAVİ"
    TextWindow.Top   =  125
    TextWindow.Left  =  150
    
    BAŞLANGIÇ1()
    TARİH()
    SAAT()
    İGİRİŞvyKAYIT()     
    KİG()          'KULLANICI İSİM GİRİŞ '
    
    Sub BAŞLANGIÇ1
      TextWindow.BackgroundColor = "DARKBLUE"
      TextWindow.Clear()
    EndSub
    
    Sub TARİH
      AY  = Clock.Month
      
    If AY = 1 then
      A   = "OCAK"
    EndIf
    
    If AY = 2 Then
      A   = "ŞUBAT"
    EndIf
    
    If AY = 3 Then
      A   = "MART"
    EndIf
    
    If AY = 4 Then
      A   = "NİSAN"
    EndIf
    
    If AY = 5 Then
      A   = "MAYIS"
    EndIf
    
    If AY = 6 Then
      A   = "HAZİRAN"
    EndIf
    
    If AY = 7 Then
      A   = "TEMMUZ"
    EndIf
    
    If AY = 8 Then
      A   = "AĞUSTOS"
    EndIf
    
    If AY = 9 Then
      A   = "EYLÜL"
    EndIf
    
    If AY = 10 Then
      A   = "EKİM"
    EndIf
    
    If AY = 11 Then
      A   = "KASIM"
    EndIf
    
    If AY = 12 Then
      A   = "ARALIK"
    EndIf
    
      Program.Delay(500)
      TextWindow.CursorTop  =  2
      TextWindow.CursorLeft =  3
      TextWindow.ForegroundColor = "MAGENTA"
      TextWindow.WriteLine("TARİH : ")
      GÜN = Clock.WeekDay
      G   = Text.ConvertToUpperCase(GÜN)
      Program.Delay(500)
      TextWindow.CursorTop  = 2
      TextWindow.CursorLeft = 12
      TextWindow.ForegroundColor = "MAGENTA"
      TextWindow.WriteLine(G + "  " + Clock.Day + "/" + A + "/" + Clock.Year)
      Program.Delay(500)
    EndSub
    
    Sub SAAT 
      TextWindow.CursorTop  = 3
      TextWindow.CursorLeft = 3
      TextWindow.ForegroundColor = "MAGENTA"
      TextWindow.WriteLine("SAAT  :  " )
      TİMER.Tick     = SAAT
      TİMER.Interval = 1000
      SAAT = Clock.Time
      TextWindow.CursorTop  = 3
      TextWindow.CursorLeft = 16
      TextWindow.ForegroundColor = "MAGENTA"
      TextWindow.WriteLine(SAAT)
    EndSub
    
    Sub İGİRİŞvyKAYIT
      Program.Delay(500)
      Sound.PlayChime()
      TextWindow.CursorTop  = 12
      TextWindow.CursorLeft = 57
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("**********  DERİN MAVİYE HOŞGELDİNİZ  **********")
      Program.Delay(500)
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "YELLOW"
      TextWindow.WriteLine("LÜTFEN KULLANICI ADINIZI GİRİN ")
      Program.Delay(1500)
      TextWindow.CursorTop  = 8
      TextWindow.CursorLeft = 18
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("(EĞER SİSTEME İLK DEFA GİRİŞ YAPIYORSANIZ YADA KULLANICI ADINIZI UNUTTUYSANIZ ; KULLANICI ADINA 'DMKAYIT' VEYA 'dmkayit' YAZINIZ)")
    EndSub
      
    Sub KİG  
    HARF1 :  
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 77
      KİH1 = TextWindow.Readkey()               
      H1   = Text.GetCharacterCode(KİH1)
      
    If H1 > 64  And  H1 < 91 Then
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 77
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine(KİH1)
    Goto HARF2
      
    ElseIf H1 > 96  And  H1 < 123 Then
      KH1 = Text.ConvertToUpperCase(KİH1)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 77
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine(KH1)
    Goto HARF2
     
    ElseIf H1 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ADI 7 HARFLİ OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARF1
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARF1
    EndIf
      
    HARF2 : 
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 78
      KİH2 = TextWindow.Readkey()
      H2   = Text.GetCharacterCode(KİH2)
      
    If H2 = 8 Then
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 77
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("X")
    Goto HARF1
      
    ElseIf H2 > 64  And  H2 < 91 Then
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 78
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine(KİH2)
    Goto HARF3
      
    ElseIf H2 > 96  And  H2 < 123 Then
      KH2 = Text.ConvertToUpperCase(KİH2)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 78
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine(KH2)
    Goto HARF3
      
    ElseIf H2 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ADI 7 HARFLİ OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARF2
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARF2
    EndIf
    
    HARF3 :
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 79
      KİH3 = TextWindow.Readkey()
      H3   = Text.GetCharacterCode(KİH3)
      
    If H3 = 8 Then
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 78
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("X")
    Goto HARF2
      
    ElseIf H3 > 64  And  H3 < 91 Then
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 79
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine(KİH3)
    Goto HARF4
      
    ElseIf H3 > 96  And  H3 < 123 Then
      KH3 = Text.ConvertToUpperCase(KİH3)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 79
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine(KH3)
    Goto HARF4
      
    ElseIf H3 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ADI 7 HARFLİ OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARF3
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARF3
    EndIf  
    
    HARF4 :
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 80
      KİH4 = TextWindow.Readkey()
      H4   = Text.GetCharacterCode(KİH4)
      
    If H4 = 8 Then
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 79
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("X")
    Goto HARF3
      
    ElseIf H4 > 64  And  H4 < 91 Then
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine(KİH4)
    Goto HARF5
      
    ElseIf H4 > 96  And  H4 < 123 Then
      KH4 = Text.ConvertToUpperCase(KİH4)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine(KH4)
      Goto HARF5
      
    ElseIf H4 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ADI 7 HARFLİ OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARF4
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARF4
    EndIf  
    
    HARF5 :
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 81
      KİH5 = TextWindow.Readkey()
      H5   = Text.GetCharacterCode(KİH5)
      
    If H5 = 8 Then
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("X")
    Goto HARF4
      
    ElseIf H5 > 64  And  H5 < 91 Then
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 81
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine(KİH5)
    Goto HARF6
      
    ElseIf H5 > 96  And  H5 < 123 Then
      KH5 = Text.ConvertToUpperCase(KİH5)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 81
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine(KH5)
    Goto HARF6
      
    ElseIf H5 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ADI 7 HARFLİ OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARF5 
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARF5
    EndIf
    
    HARF6 :
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 82
      KİH6 = TextWindow.Readkey()
      H6   = Text.GetCharacterCode(KİH6)
      
    If H6 = 8 Then
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 81
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("X")
    Goto HARF5
      
    ElseIf H6 > 64  And  H6 < 91 Then
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 82
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine(KİH6)
    Goto HARF7
      
    ElseIf H6 > 96  And  H6 < 123 Then
      KH6 = Text.ConvertToUpperCase(KİH6)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 82
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine(KH6)
    Goto HARF7
      
    ElseIf H6 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ADI 7 HARFLİ OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARF6 
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARF6
    EndIf
    
    HARF7 :
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 83
      KİH7 = TextWindow.Readkey()
      H7   = Text.GetCharacterCode(KİH7)
      
    If H7 = 8 Then
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 82
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("X")
    Goto HARF6
      
    ElseIf H7 > 64  And  H7 < 91 Then
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 83
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine(KİH7)
    Goto HARF8
      
    ElseIf H7 > 96  And  H7 < 123 Then
      KH7 = Text.ConvertToUpperCase(KİH7)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 83
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine(KH7)
    Goto HARF8
      
    ElseIf H7 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ADI 7 HARFLİ OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARF7 
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARF7
    EndIf
    
    HARF8:
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 84
      KİH8 = TextWindow.Readkey()
      H8   = Text.GetCharacterCode(KİH8)
      
    If H8 = 8 Then
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 83
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("X")
    Goto HARF7
      
    ElseIf H8 = 13 then
    KİGK()
        
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("LÜTFEN 'ENTER' TUŞUNA BASIN !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "DARKBLUE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARF8    
    EndIf
    EndSub
    
    Sub KİGK
    If (KİH1 = "D" Or KİH1 = "d") And (KİH2 = "M" Or KİH2 = "m") And (KİH3 = "K" Or KİH3 = "k") And (KİH4 = "A" Or KİH4 = "a") And (KİH5 = "Y" Or KİH5 = "y") And (KİH6 = "I" Or KİH6 = "i") And (KİH7 = "T" Or KİH7 = "t") Then
    KİO()          'KULLANICI İSİM OLUŞTURMA'
    
    ElseIf ( KİH1 = KİOH1) And (KİH2 = KİOH2) And (KİH3 = KİOH3) And (KİH4 = KİOH4) And (KİH5 = KİOH5) And (KİH6 = KİOH6) And (KİH7 = KİOH7) Then
    KULLANICIŞİFRE()         
    
    Else
      iSİM1 = (KİH1 + KİH2 + KİH3 +KİH4 + KİH5 + KİH6 + KİH7)
      ÇT = Text.GetCharacter(34)          'ÇİFT TIRNAK'
    BAŞLANGIÇ2()
    TARİH()
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 14
      TextWindow.CursorLeft = 45
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("!!! DERİN MAVİYE KAYITLI " + ÇT + İSİM1 + ÇT + " ADINDA BİR KULLANICI KAYDI YOKTUR !!!" ) 
      Program.Delay(3000)
      TextWindow.Clear()
    BAŞLANGIÇ1()
    TARİH()
    İGİRİŞvyKAYIT()     
    KİG()         
    EndIf
    EndSub
    
    Sub KİO
    BAŞLANGIÇ2()
    TARİH()
    KİOG()          'KULLANICI İSİM OLUŞTURMA GİRİŞİ'
    EndSub
    
    Sub BAŞLANGIÇ2
      Program.Delay(1500)
      TextWindow.Clear()
      TextWindow.BackgroundColor = "WHITE"
      TextWindow.Clear()
    EndSub
    
    Sub KİOG
      Program.Delay(500)
      Sound.PlayChimes()
      TextWindow.CursorTop  = 8
      TextWindow.CursorLeft = 46
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("( KULLANICI ADI  7 HARFTEN OLUŞABİLİR.BÜYÜK VE KÜÇÜK HARFLERE DUYARLIDIR )")
      Program.Delay(500)
      TextWindow.CursorTop  = 10
      TextWindow.CursorLeft = 46
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("( DİKKAT !! KULLANICI ADI İNGİLİZCE DİLİNİN HARFLERİYLE OLUŞTURULMALIDIR )")
      Program.Delay(500)
      TextWindow.CursorTop  = 14
      TextWindow.CursorLeft = 56
      TextWindow.ForegroundColor = "DARKGREEN"
      TextWindow.WriteLine("LÜTFEN DERİN MAVİ'DE KULLANMAK İSTEDİĞİNİZ İSMİ GİRİN")
      
    HARFF1 :  
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 78
      KİOH1 = TextWindow.Readkey()              
      HF1   = Text.GetCharacterCode(KİOH1)
      
    If HF1 > 64  And  HF1 < 91 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 78
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine(KİOH1)
    Goto HARFF2
      
    ElseIf HF1 > 96  And  HF1 < 123 Then
      KHF1 = Text.ConvertToUpperCase(KİOH1)
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 78
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine(KHF1)
    Goto HARFF2
     
    ElseIf HF1 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ADI 7 HARFLİ OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARFF1
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARFF1
    EndIf
      
    HARFF2 : 
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 79
      KİOH2 = TextWindow.Readkey()
      HF2   = Text.GetCharacterCode(KİOH2)
      
    If HF2 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 78
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("X")
    Goto HARFF1
      
    ElseIf HF2 > 64  And  HF2 < 91 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 79
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine(KİOH2)
    Goto HARFF3
      
    ElseIf HF2 > 96  And  HF2 < 123 Then
      KHF2 = Text.ConvertToUpperCase(KİOH2)
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 79
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine(KHF2)
    Goto HARFF3
      
    ElseIf HF2 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ADI 7 HARFLİ OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARFF2
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARFF2
    EndIf
    
    HARFF3 :
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 80
      KİOH3 = TextWindow.Readkey()
      HF3   = Text.GetCharacterCode(KİOH3)
      
    If HF3 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 79
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("X")
    Goto HARFF2
      
    ElseIf HF3 > 64  And  HF3 < 91 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine(KİOH3)
    Goto HARFF4
      
    ElseIf HF3 > 96  And  HF3 < 123 Then
      KHF3 = Text.ConvertToUpperCase(KİOH3)
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine(KHF3)
    Goto HARFF4
      
    ElseIf HF3 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ADI 7 HARFLİ OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARFF3
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARFF3
    EndIf  
    
    HARFF4 :
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 81
      KİOH4 = TextWindow.Readkey()
      HF4   = Text.GetCharacterCode(KİOH4)
      
    If HF4 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("X")
    Goto HARFF3
      
    ElseIf HF4 > 64  And  HF4 < 91 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 81
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine(KİOH4)
    Goto HARFF5
      
    ElseIf HF4 > 96  And  HF4 < 123 Then
      KHF4 = Text.ConvertToUpperCase(KİOH4)
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 81
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine(KHF4)
    Goto HARFF5
      
    ElseIf HF4 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ADI 7 HARFLİ OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARFF4
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARFF4
    EndIf  
    
    HARFF5 :
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 82
      KİOH5 = TextWindow.Readkey()
      HF5   = Text.GetCharacterCode(KİOH5)
      
    If HF5 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 81
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("X")
    Goto HARFF4
      
    ElseIf HF5 > 64  And  HF5 < 91 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 82
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine(KİOH5)
    Goto HARFF6
      
    ElseIf HF5 > 96  And  HF5 < 123 Then
      KHF5 = Text.ConvertToUpperCase(KİOH5)
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 82
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine(KHF5)
    Goto HARFF6
      
    ElseIf HF5 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ADI 7 HARFLİ OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARFF5 
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARFF5
    EndIf
    
    HARFF6 :
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 83
      KİOH6 = TextWindow.Readkey()
      HF6   = Text.GetCharacterCode(KİOH6)
      
    If HF6 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 82
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("X")
    Goto HARFF5
      
    ElseIf HF6 > 64  And  HF6 < 91 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 83
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine(KİOH6)
      Goto HARFF7
      
    ElseIf HF6 > 96  And  HF6 < 123 Then
      KHF6 = Text.ConvertToUpperCase(KİOH6)
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 83
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine(KHF6)
    Goto HARFF7
      
    ElseIf HF6 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ADI 7 HARFLİ OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARFF6 
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARFF6
    EndIf
    
    HARFF7 :
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 84
      KİOH7 = TextWindow.Readkey()
      HF7   = Text.GetCharacterCode(KİOH7)
      
    If HF7 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 83
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("X")
    Goto HARFF6
      
    ElseIf HF7 > 64  And  HF7 < 91 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 84
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine(KİOH7)
    Goto HARFF8
      
    ElseIf HF7 > 96  And  HF7 < 123 Then
      KHF7 = Text.ConvertToUpperCase(KİOH7)
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 84
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine(KHF7)
    Goto HARFF8
      
    ElseIf HF7 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ADI 7 HARFLİ OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARFF7 
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARFF7
    EndIf
    
    HARFF8:
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 85
      KİOH8 = TextWindow.Readkey()
      HF8   = Text.GetCharacterCode(KİOH8)
      
    If HF8 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 84
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("X")
    Goto HARFF7
      
    ElseIf HF8 = 13 then
        Program.Delay(1500)
        TextWindow.Clear()    
    BAŞLANGIÇ1()
    TARİH()
    İGİRİŞvyKAYIT()     
    KİG()         
    
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 68
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("LÜTFEN 'ENTER' TUŞUNA BASIN !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 68
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HARFF8     
    EndIf
    EndSub
    
    Sub KULLANICIŞİFRE
      Program.Delay(1500)
      TextWindow.Clear()  
    BAŞLANGIÇ1()
    TARİH()
    SÖAG()          'SABAH,ÖĞLE,AKŞAM,GECE'
    ŞGİRİŞvyKAYIT()
    KŞG()          'KULLANICI ŞİFRE GİRİŞ'
    EndSub

    Saturday, May 19, 2018 5:47 AM

Answers

  • The program  cannot publish because it is too long with 160 kByte.

    The Maximum is 65535 Byte without blanks and line Termination.

    It contains only subroutines and the complete logic is inside of the subroutines.

    Try to move the logic in a mainloop and use the subroutines only for Textwindow Outputs or for supporting the program logic.

    To reduce the coding lines is difficult in Small Basic,because it has no Parameter for subroutines.
    You can define the Parameter as global, but the Setting must be also execute with coding lines.

    FRESH IDEAS ARE WELCOME

    Basically the program runs  according the Guideline (7 Character(Password?) and Enter)

    But in some cases I see a System alert with negative Cursor Position !

    My Suggestion: Create a new program by using SB Prime and the included Flow Charts.
                           You learn a lot about programming.

    • Marked as answer by atahan84 Tuesday, May 29, 2018 5:36 PM
    Tuesday, May 22, 2018 8:33 AM

All replies

  • part 2

    Sub SÖAG iSİM2 = (KİOH1 + KİOH2 + KİOH3 +KİOH4 + KİOH5 + KİOH6 + KİOH7) İ = Text.ConvertToUpperCase(İSİM2) Program.Delay(500) Sound.PlayChime() TextWindow.CursorTop = 12 TextWindow.CursorLeft = 59 TextWindow.ForegroundColor = "WHITE" If (Clock.Hour >= 0 And Clock.Hour < 6) Then TextWindow.WriteLine("********** İYİ GECELER " + İ + " *********") EndIf If (Clock.Hour >= 6 And Clock.Hour < 12)Then TextWindow.WriteLine("********** GÜNAYDIN " + İ + " **********") EndIf If (Clock.Hour >= 12 And Clock.Hour < 18)Then TextWindow.WriteLine("********** İYİ GÜNLER " + İ + " **********") EndIf If (Clock.Hour >= 18 And Clock.Hour < 24)Then TextWindow.WriteLine("********** İYİ AKŞAMLAR " + İ + " **********") EndIf EndSub SUB ŞGİRİŞvyKAYIT Program.Delay(500) TextWindow.CursorTop = 16 TextWindow.CursorLeft = 63 TextWindow.ForegroundColor = "GREEN" TextWindow.WriteLine("LÜTFEN KULLANICI ŞİFRENİZİ GİRİN ") Program.Delay(1500) TextWindow.CursorTop = 8 TextWindow.CursorLeft = 18 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine("(EĞER SİSTEME İLK DEFA GİRİŞ YAPIYORSANIZ YADA KULLANICI ŞİFRENİZİ UNUTTUYSANIZ ; KULLANICI ŞİFRESİNE '000000' YAZINIZ)") EndSub Sub KŞG RAKAM1 : TextWindow.CursorTop = 18 TextWindow.CursorLeft = 76 KŞR1 = TextWindow.Readkey() R1 = Text.GetCharacterCode(KŞR1) If R1 > 47 And R1 < 58 Then TextWindow.CursorTop = 18 TextWindow.CursorLeft = 76 TextWindow.ForegroundColor = "WHITE" TextWindow.WriteLine("*") Goto RAKAM2 ElseIf R1 = 13 then Sound.PlayBellRing() TextWindow.CursorTop = 20 TextWindow.CursorLeft = 60 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine("KULLANICI ŞİFRESİ 6 RAKAMLI OLMALIDIR !!") Program.Delay(1500) TextWindow.CursorTop = 20 TextWindow.CursorLeft = 60 TextWindow.ForegroundColor = "DARKBLUE" TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX") Goto RAKAM1 Else Sound.PlayBellRing() TextWindow.CursorTop = 20 TextWindow.CursorLeft = 64 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!") Program.Delay(1500) TextWindow.CursorTop = 20 TextWindow.CursorLeft = 64 TextWindow.ForegroundColor = "DARKBLUE" TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX") Goto RAKAM1 EndIf RAKAM2 : TextWindow.CursorTop = 18 TextWindow.CursorLeft = 77 KŞR2 = TextWindow.Readkey() R2 = Text.GetCharacterCode(KŞR2) If R2 = 8 Then TextWindow.CursorTop = 18 TextWindow.CursorLeft = 76 TextWindow.ForegroundColor = "DARKBLUE" TextWindow.WriteLine("X") Goto RAKAM1 ElseIf R2 > 47 And R2 < 58 Then TextWindow.CursorTop = 18 TextWindow.CursorLeft = 77 TextWindow.ForegroundColor = "WHITE" TextWindow.WriteLine("*") Goto RAKAM3 ElseIf R2 = 13 then Sound.PlayBellRing() TextWindow.CursorTop = 20 TextWindow.CursorLeft = 60 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine("KULLANICI ŞİFRESİ 6 RAKAMLI OLMALIDIR !!") Program.Delay(1500) TextWindow.CursorTop = 20 TextWindow.CursorLeft = 60 TextWindow.ForegroundColor = "DARKBLUE" TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX") Goto RAKAM2 Else Sound.PlayBellRing() TextWindow.CursorTop = 20 TextWindow.CursorLeft = 64 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!") Program.Delay(1500) TextWindow.CursorTop = 20 TextWindow.CursorLeft = 64 TextWindow.ForegroundColor = "DARKBLUE" TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX") Goto RAKAM2 EndIf RAKAM3 : TextWindow.CursorTop = 18 TextWindow.CursorLeft = 78 KŞR3 = TextWindow.Readkey() R3 = Text.GetCharacterCode(KŞR3) If R3 = 8 Then TextWindow.CursorTop = 18 TextWindow.CursorLeft = 77 TextWindow.ForegroundColor = "DARKBLUE" TextWindow.WriteLine("X") Goto RAKAM2 ElseIf R3 > 47 And R3 < 58 Then TextWindow.CursorTop = 18 TextWindow.CursorLeft = 78 TextWindow.ForegroundColor = "WHITE" TextWindow.WriteLine("*") Goto RAKAM4 ElseIf R3 = 13 then Sound.PlayBellRing() TextWindow.CursorTop = 20 TextWindow.CursorLeft = 60 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine("KULLANICI ŞİFRESİ 6 RAKAMLI OLMALIDIR !!") Program.Delay(1500) TextWindow.CursorTop = 20 TextWindow.CursorLeft = 60 TextWindow.ForegroundColor = "DARKBLUE" TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX") Goto RAKAM3 Else Sound.PlayBellRing() TextWindow.CursorTop = 20 TextWindow.CursorLeft = 64 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!") Program.Delay(1500) TextWindow.CursorTop = 20 TextWindow.CursorLeft = 64 TextWindow.ForegroundColor = "DARKBLUE" TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX") Goto RAKAM3 EndIf RAKAM4 : TextWindow.CursorTop = 18 TextWindow.CursorLeft = 79 KŞR4 = TextWindow.Readkey() R4 = Text.GetCharacterCode(KŞR4) If R4 = 8 Then TextWindow.CursorTop = 18 TextWindow.CursorLeft = 78 TextWindow.ForegroundColor = "DARKBLUE" TextWindow.WriteLine("X") Goto RAKAM3 ElseIf R4 > 47 And R4 < 58 Then TextWindow.CursorTop = 18 TextWindow.CursorLeft = 79 TextWindow.ForegroundColor = "WHITE" TextWindow.WriteLine("*") Goto RAKAM5 ElseIf R4 = 13 then Sound.PlayBellRing() TextWindow.CursorTop = 20 TextWindow.CursorLeft = 60 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine("KULLANICI ŞİFRESİ 6 RAKAMLI OLMALIDIR !!") Program.Delay(1500) TextWindow.CursorTop = 20 TextWindow.CursorLeft = 60 TextWindow.ForegroundColor = "DARKBLUE" TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX") Goto RAKAM4 Else Sound.PlayBellRing() TextWindow.CursorTop = 20 TextWindow.CursorLeft = 64 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!") Program.Delay(1500) TextWindow.CursorTop = 20 TextWindow.CursorLeft = 64 TextWindow.ForegroundColor = "DARKBLUE" TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX") Goto RAKAM4 EndIf RAKAM5 : TextWindow.CursorTop = 18 TextWindow.CursorLeft = 80 KŞR5 = TextWindow.Readkey() R5 = Text.GetCharacterCode(KŞR5) If R5 = 8 Then TextWindow.CursorTop = 18 TextWindow.CursorLeft = 79 TextWindow.ForegroundColor = "DARKBLUE" TextWindow.WriteLine("X") Goto RAKAM4 ElseIf R5 > 47 And R5 < 58 Then TextWindow.CursorTop = 18 TextWindow.CursorLeft = 80 TextWindow.ForegroundColor = "WHITE" TextWindow.WriteLine("*") Goto RAKAM6 ElseIf R5 = 13 then Sound.PlayBellRing() TextWindow.CursorTop = 20 TextWindow.CursorLeft = 60 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine("KULLANICI ŞİFRESİ 6 RAKAMLI OLMALIDIR !!") Program.Delay(1500) TextWindow.CursorTop = 20 TextWindow.CursorLeft = 60 TextWindow.ForegroundColor = "DARKBLUE" TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX") Goto RAKAM5 Else Sound.PlayBellRing() TextWindow.CursorTop = 20 TextWindow.CursorLeft = 64 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!") Program.Delay(1500) TextWindow.CursorTop = 20 TextWindow.CursorLeft = 64 TextWindow.ForegroundColor = "DARKBLUE" TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX") Goto RAKAM5 EndIf RAKAM6 : TextWindow.CursorTop = 18 TextWindow.CursorLeft = 81 KŞR6 = TextWindow.Readkey() R6 = Text.GetCharacterCode(KŞR6) If R6 = 8 Then TextWindow.CursorTop = 18 TextWindow.CursorLeft = 80 TextWindow.ForegroundColor = "DARKBLUE" TextWindow.WriteLine("X") Goto RAKAM5 ElseIf R6 > 47 And R6 < 58 Then TextWindow.CursorTop = 18 TextWindow.CursorLeft = 81 TextWindow.ForegroundColor = "WHITE" TextWindow.WriteLine("*") Goto RAKAM7 ElseIf R6 = 13 then Sound.PlayBellRing() TextWindow.CursorTop = 20 TextWindow.CursorLeft = 60 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine("KULLANICI ŞİFRESİ 6 RAKAMLI OLMALIDIR !!") Program.Delay(1500) TextWindow.CursorTop = 20 TextWindow.CursorLeft = 60 TextWindow.ForegroundColor = "DARKBLUE" TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX") Goto RAKAM6 Else Sound.PlayBellRing() TextWindow.CursorTop = 20 TextWindow.CursorLeft = 64 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!") Program.Delay(1500) TextWindow.CursorTop = 20 TextWindow.CursorLeft = 64 TextWindow.ForegroundColor = "DARKBLUE" TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX") Goto RAKAM6 EndIf RAKAM7 : TextWindow.CursorTop = 18 TextWindow.CursorLeft = 82 KŞR7 = TextWindow.Readkey() R7 = Text.GetCharacterCode(KŞR7) If R7 = 8 Then TextWindow.CursorTop = 18 TextWindow.CursorLeft = 81 TextWindow.ForegroundColor = "DARKBLUE" TextWindow.WriteLine("X") Goto RAKAM6 ElseIf R7 = 13 then KŞGK() 'KULLANICI ŞİFRE GİRİŞ KONTROL' Else Sound.PlayBellRing() TextWindow.CursorTop = 20 TextWindow.CursorLeft = 65 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine("LÜTFEN 'ENTER' TUŞUNA BASIN !!") Program.Delay(1500) TextWindow.CursorTop = 20 TextWindow.CursorLeft = 65 TextWindow.ForegroundColor = "DARKBLUE" TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX") Goto RAKAM7 EndIf EndSub Sub KŞGK If (KŞR1 = 0) And (KŞR2 = 0) And (KŞR3 = 0 ) And (KŞR4 = 0) And (KŞR5 = 0) And (KŞR6 = 0) Then KŞO() ElseIf (KŞOR1 = KŞR1 ) And (KŞOR2 = KŞR2) And (KŞOR3 = KŞR3) And (KŞOR4 = KŞR4) And (KŞOR5 = KŞR5) And (KŞOR6 = KŞR6) THEN KCG() 'KULLANICI CİNSİYET GİRİŞİ' Else ÇT = Text.GetCharacter(34) BAŞLANGIÇ2() TARİH() Sound.PlayBellRing() TextWindow.CursorTop = 14 TextWindow.CursorLeft = 45 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine("!!! DERİN MAVİYE KAYITLI ") TextWindow.CursorTop = 14 TextWindow.CursorLeft = 71 TextWindow.ForegroundColor = "RED TextWindow.WriteLine(ÇT) TextWindow.CursorTop = 14 TextWindow.CursorLeft = 72 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine(KŞR1) TextWindow.CursorTop = 14 TextWindow.CursorLeft = 73 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine(KŞR2) TextWindow.CursorTop = 14 TextWindow.CursorLeft = 74 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine(KŞR3) TextWindow.CursorTop = 14 TextWindow.CursorLeft = 75 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine(KŞR4) TextWindow.CursorTop = 14 TextWindow.CursorLeft = 76 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine(KŞR5) TextWindow.CursorTop = 14 TextWindow.CursorLeft = 77 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine(KŞR6) TextWindow.CursorTop = 14 TextWindow.CursorLeft = 78 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine(ÇT) TextWindow.CursorTop = 14 TextWindow.CursorLeft = 80 TextWindow.ForegroundColor = "RED" TextWindow.WriteLine(" ŞEKLİNDE BİR ŞİFRE YOKTUR !!!") Program.Delay(3000) TextWindow.Clear() BAŞLANGIÇ1() TARİH() SÖAG() ŞGİRİŞvyKAYIT() KŞG() EndIf EndSub


    Saturday, May 19, 2018 5:55 AM
  • part 3 :

    Sub KŞO
    BAŞLANGIÇ2()
    TARİH()
    KŞOG()         'KULLANICI ŞİFRE OLUŞTURMA GİRİŞİ'
    EndSub
    
    Sub KŞOG
      Sound.PlayChimes()
      Program.Delay(500)
      TextWindow.CursorTop  = 14
      TextWindow.CursorLeft = 50
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("LÜTFEN DERİN MAVİ'DE KULLANMAK İSTEDİĞİNİZ ŞİFREYİ GİRİN") 
      Program.Delay(500)
      TextWindow.CursorTop  = 8
      TextWindow.CursorLeft = 55
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("( KULLANICI ŞİFRESİ 6 RAKAMDAN OLUŞMALIDIR )") 
      Program.Delay(500)
      TextWindow.CursorTop  = 10
      TextWindow.CursorLeft = 52
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("( OLUŞTURACAĞINIZ ŞİFRE '000000' FARKLI OLMALIDIR )")
      
    RAKAMM1 : 
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 76
      KŞOR1 = TextWindow.Readkey()                
      RK1   = Text.GetCharacterCode(KŞOR1)
      
    If RK1 > 47  And  RK1 < 58 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 76
      TextWindow.ForegroundColor = "BLUE"
      TextWindow.WriteLine(KŞOR1)
    Goto RAKAMM2
      
    ElseIf RK1 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 58
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ŞİFRESİ 6 RAKAMLI OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 58
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMM1
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMM1
    EndIf
      
    RAKAMM2 : 
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 77
      KŞOR2 = TextWindow.Readkey()
      RK2   = Text.GetCharacterCode(KŞOR2)
      
    If RK2 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 76
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("X")
    Goto RAKAMM1
      
    ElseIf RK2 > 47  And  RK2 < 58 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 77
      TextWindow.ForegroundColor = "BLUE"
      TextWindow.WriteLine(KŞOR2)
    Goto RAKAMM3
       
    ElseIf RK2 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 58
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ŞİFRESİ 6 RAKAMLI OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 58
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMM2
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMM2
    EndIf
    
    RAKAMM3 :
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 78
      KŞOR3 = TextWindow.Readkey()
      RK3   = Text.GetCharacterCode(KŞOR3)
      
    If RK3 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 77
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("X")
    Goto RAKAMM2
      
    ElseIf RK3 > 47  And  RK3 < 58 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 78
      TextWindow.ForegroundColor = "BLUE"
      TextWindow.WriteLine(KŞOR3)
    Goto RAKAMM4
      
    ElseIf RK3 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 58
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ŞİFRESİ 6 RAKAMLI OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 58
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMM3
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMM3
    EndIf  
    
    RAKAMM4 :
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 79
      KŞOR4 = TextWindow.Readkey()
      RK4   = Text.GetCharacterCode(KŞOR4)
      
    If RK4 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 78
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("X")
    Goto RAKAMM3
      
    ElseIf RK4 > 47  And  RK4 < 58 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 79
      TextWindow.ForegroundColor = "BLUE"
      TextWindow.WriteLine(KŞOR4)
    Goto RAKAMM5
      
    ElseIf RK4 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 58
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ŞİFRESİ 6 RAKAMLI OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 58
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMM4
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMM4
    EndIf  
    
    RAKAMM5 :
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 80
      KŞOR5 = TextWindow.Readkey()
      RK5   = Text.GetCharacterCode(KŞOR5)
      
    If RK5 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 79
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("X")
    Goto RAKAMM4
      
    ElseIf RK5 > 47  And  RK5 < 58 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "BLUE"
      TextWindow.WriteLine(KŞOR5)
    Goto RAKAMM6
      
    ElseIf RK5 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 58
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ŞİFRESİ 6 RAKAMLI OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 58
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMM5 
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMM5
    EndIf
    
    RAKAMM6 :
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 81
      KŞOR6 = TextWindow.Readkey()
      RK6   = Text.GetCharacterCode(KŞOR6)
      
    If RK6 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("X")
    Goto RAKAMM5
      
    ElseIf RK6 > 47  And  RK6 < 58 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 81
      TextWindow.ForegroundColor = "BLUE"
      TextWindow.WriteLine(KŞOR6)
    Goto RAKAMM7
      
    ElseIf RK6 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 58
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ŞİFRESİ 6 RAKAMLI OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 58
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMM6 
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMM6
    EndIf
    
    RAKAMM7 :
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 82
      KŞOR7 = TextWindow.Readkey()
      RK7   = Text.GetCharacterCode(KŞOR7)
      
    If RK7 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 81
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("X")
    Goto RAKAMM6
      
    ElseIf RK7 = 13 then
    KŞOT()        'KULLANICI ŞİFRE OLUŞTURMA TEKRAR'
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("LÜTFEN 'ENTER' TUŞUNA BASIN !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMM7  
    EndIf
    EndSub 
    
    Sub KŞOT
    BAŞLANGIÇ2()
    TARİH()
    KŞOGT()         'KULLANICI ŞİFRE OLUŞTURMA GİRİŞ  TEKRARI'
    EndSub
    
    Sub KŞOGT
      Program.Delay(500)
      Sound.PlayChimes()
      TextWindow.CursorTop  = 14
      TextWindow.CursorLeft = 50
      TextWindow.ForegroundColor = "DARKYELLOW"
      TextWindow.WriteLine("LÜTFEN DERİN MAVİ'DE KULLANMAK İSTEDİĞİNİZ ŞİFREYİ YENİDEN GİRİN")   
      
    RAKAMMT1 : 
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 78
      KŞORT1 = TextWindow.Readkey()                
      RKT1   = Text.GetCharacterCode(KŞORT1)
      
    If RKT1 > 47  And  RKT1 < 58 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 78
      TextWindow.ForegroundColor = "BLUE"
      TextWindow.WriteLine(KŞORT1)
    Goto RAKAMMT2
      
    ElseIf RKT1 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ŞİFRESİ 6 RAKAMLI OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMMT1
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMMT1
    EndIf
      
    RAKAMMT2 : 
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 79
      KŞORT2 = TextWindow.Readkey()
      RKT2   = Text.GetCharacterCode(KŞORT2)
      
    If RKT2 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 78
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("X")
    Goto RAKAMMT1
      
    ElseIf RKT2 > 47  And  RKT2 < 58 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 79
      TextWindow.ForegroundColor = "BLUE"
      TextWindow.WriteLine(KŞORT2)
    Goto RAKAMMT3
       
    ElseIf RKT2 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ŞİFRESİ 6 RAKAMLI OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMMT2
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMMT2
    EndIf
    
    RAKAMMT3 :
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 80
      KŞORT3 = TextWindow.Readkey()
      RKT3   = Text.GetCharacterCode(KŞORT3)
      
    If RKT3 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 79
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("X")
    Goto RAKAMMT2
      
    ElseIf RKT3 > 47  And  RKT3 < 58 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "BLUE"
      TextWindow.WriteLine(KŞORT3)
    Goto RAKAMMT4
      
    ElseIf RKT3 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ŞİFRESİ 6 RAKAMLI OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMMT3
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMMT3
    EndIf  
    
    RAKAMMT4 :
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 81
      KŞORT4 = TextWindow.Readkey()
      RKT4   = Text.GetCharacterCode(KŞORT4)
      
    If RKT4 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("X")
    Goto RAKAMMT3
      
    ElseIf RKT4 > 47  And  RKT4 < 58 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 81
      TextWindow.ForegroundColor = "BLUE"
      TextWindow.WriteLine(KŞORT4)
    Goto RAKAMMT5
      
    ElseIf RKT4 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ŞİFRESİ 6 RAKAMLI OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMMT4
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMMT4
    EndIf  
    
    RAKAMMT5 :
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 82
      KŞORT5 = TextWindow.Readkey()
      RKT5   = Text.GetCharacterCode(KŞORT5)
      
    If RKT5 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 81
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("X")
    Goto RAKAMMT4
      
    ElseIf RKT5 > 47  And  RKT5 < 58 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 82
      TextWindow.ForegroundColor = "BLUE"
      TextWindow.WriteLine(KŞORT5)
    Goto RAKAMMT6
      
    ElseIf RKT5 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ŞİFRESİ 6 RAKAMLI OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMMT5 
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMMT5
    EndIf
    
    RAKAMMT6 :
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 83
      KŞORT6 = TextWindow.Readkey()
      RKT6   = Text.GetCharacterCode(KŞORT6)
      
    If RKT6 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 82
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("X")
    Goto RAKAMMT5
      
    ElseIf RKT6 > 47  And  RKT6 < 58 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 83
      TextWindow.ForegroundColor = "BLUE"
      TextWindow.WriteLine(KŞORT6)
    Goto RAKAMMT7
      
    ElseIf RKT6 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("KULLANICI ŞİFRESİ 6 RAKAMLI OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMMT6 
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMMT6
    EndIf
    
    RAKAMMT7 :
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 84
      KŞORT7 = TextWindow.Readkey()
      RKT7   = Text.GetCharacterCode(KŞORT7)
      
    If RKT7 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 83
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("X")
    Goto RAKAMMT6
      
    ElseIf RKT7 = 13 then
    KŞOGK()          'KULLANICI ŞİFRE OLUŞTURMA KONTROL'
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("LÜTFEN 'ENTER' TUŞUNA BASIN !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 66
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto RAKAMMT7  
    EndIf
    EndSub 
    
    Sub KŞOGK
      If (KŞOR1 = KŞORT1) And (KŞOR2 = KŞORT2) And (KŞOR3 = KŞORT3) And (KŞOR4 = KŞORT4) And (KŞOR5 = KŞORT5) And (KŞOR6 = KŞORT6) Then
    KULLANICIŞİFRE()
        
    Else
    BAŞLANGIÇ3()
    TARİH() 
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 14
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("!!! GİRDİĞİNİZ 2 ŞİFRE AYNI DEĞİL !!!" ) 
      Program.Delay(3000)
      TextWindow.Clear()  
    KŞO()              
    EndIf
    EndSub
    
    Sub BAŞLANGIÇ3
      Program.Delay(1500)
      TextWindow.Clear()
      TextWindow.BackgroundColor = "BLACK"
      TextWindow.Clear()
    EndSub
    

    Saturday, May 19, 2018 5:58 AM
  • part 4 :

    Sub KCG
      BAŞLANGIÇ3()
      TARİH()
      KCHG()          'KULLANICI CİNSİYET HARF GİRİŞİ'
    EndSub
      
      Sub KCHG
      SES = Text.GetCharacter(7)
      Program.Delay(500)
      TextWindow.CursorTop  = 14
      TextWindow.CursorLeft = 65
      TextWindow.ForegroundColor = "CYAN"
      TextWindow.WriteLine("LÜTFEN CİNSİYETİNİZİ YAZIN" + SES) 
      
    HRF1:  
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 76
      KCHG1 = TextWindow.Readkey()          
      KCH1  = Text.GetCharacterCode(KCHG1)
      
    If KCH1 > 64  And  KCH1 < 91 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 76
      TextWindow.ForegroundColor = "YELLOW"
      TextWindow.WriteLine(KCHG1)
    Goto HRF2
      
    ElseIf KCH1 > 96  And  KCH1 < 123 Then
      KCHF1 = Text.ConvertToUpperCase(KCHG1)
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 76
      TextWindow.ForegroundColor = "YELLOW"
      TextWindow.WriteLine(KCHF1)
    Goto HRF2
     
    ElseIf KCH1 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("CİNSİYET GİRİŞİ '5' HARFLİ OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HRF1
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HRF1
    EndIf
      
    HRF2 : 
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 77
      KCHG2 = TextWindow.Readkey()
      KCH2  = Text.GetCharacterCode(KCHG2)
      
    If KCH2 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 76
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("X")
    Goto HRF1
      
    ElseIf KCH2 > 64  And  KCH2 < 91 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 77
      TextWindow.ForegroundColor = "YELLOW"
      TextWindow.WriteLine(KCHG2)
    Goto HRF3
      
    ElseIf KCH2 > 96  And  KCH2 < 123 Then
      KCHF2 = Text.ConvertToUpperCase(KCHG2)
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 77
      TextWindow.ForegroundColor = "YELLOW"
      TextWindow.WriteLine(KCHF2)
    Goto HRF3
      
    ElseIf KCH2 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("CİNSİYET GİRİŞİ '5' HARFLİ OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HRF2
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HRF2
    EndIf
    
    HRF3 :
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 78
      KCHG3 = TextWindow.Readkey()
      KCH3  = Text.GetCharacterCode(KCHG3)
      
    If KCH3 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 77
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("X")
    Goto HRF2
      
    ElseIf KCH3 > 64  And  KCH3 < 91 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 78
      TextWindow.ForegroundColor = "YELLOW"
      TextWindow.WriteLine(KCHG3)
    Goto HRF4
      
    ElseIf KCH3 > 96  And  KCH3 < 123 Then
      KCHF3 = Text.ConvertToUpperCase(KCHG3)
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 78
      TextWindow.ForegroundColor = "YELLOW"
      TextWindow.WriteLine(KCHF3)
    Goto HRF4
      
    ElseIf KCH3 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("CİNSİYET GİRİŞİ '5' HARFLİ OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HRF3
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HRF3
    EndIf  
    
    HRF4 :
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 79
      KCHG4 = TextWindow.Readkey()
      KCH4  = Text.GetCharacterCode(KCHG4)
      
    If KCH4 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 78
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("X")
    Goto HRF3
      
    ElseIf KCH4 > 64  And  KCH4 < 91 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 79
      TextWindow.ForegroundColor = "YELLOW"
      TextWindow.WriteLine(KCHG4)
    Goto HRF5
      
    ElseIf KCH4 > 96  And  KCH4 < 123 Then
      KCHF4 = Text.ConvertToUpperCase(KCHG4)
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 79
      TextWindow.ForegroundColor = "YELLOW"
      TextWindow.WriteLine(KCHF4)
      Goto HRF5
      
    ElseIf KCH4 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("CİNSİYET GİRİŞİ '5' HARFLİ OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HRF4
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HRF4
    EndIf  
    
    HRF5 :
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 80
      KCHG5 = TextWindow.Readkey()
      KCH5  = Text.GetCharacterCode(KCHG5)
      
    If KCH5 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 79
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("X")
    Goto HRF4
      
    ElseIf KCH5 > 64  And  KCH5 < 91 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "YELLOW"
      TextWindow.WriteLine(KCHG5)
    Goto HRF6
      
    ElseIf KCH5 > 96  And  KCH5 < 123 Then
      KCHF5 = Text.ConvertToUpperCase(KCHG5)
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "YELLOW"
      TextWindow.WriteLine(KCHF5)
    Goto HRF6
      
    ElseIf KCH5 = 13 then
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("CİNSİYET GİRİŞİ '5' HARFLİ OLMALIDIR !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HRF5 
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("YANLIŞ BİR KARAKTER GİRDİNİZ !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HRF5
    EndIf 
      
    HRF6:
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 81
      KCHG6 = TextWindow.Readkey()
      KCH6  = Text.GetCharacterCode(KCHG6)
      
    If KCH6 = 8 Then
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("X")
    Goto HRF5
      
    ElseIf KCH6 = 13 then
    KCK()         'KULLANICI CİNSİYET KONTROL'
      
    Else
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("LÜTFEN 'ENTER' TUŞUNA BASIN !!")
      Program.Delay(1500)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 64
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
    Goto HRF6    
    EndIf
    EndSub  
    
    Sub KCK
      If (KCHG1 = "E" Or KCHG1 = "e") And (KCHG2 = "R" Or KCHG2 = "r") And (KCHG3 = "K" Or KCHG3 = "k") And (KCHG4 = "E" Or KCHG4 = "e") And (KCHG5 = "K" Or KCHG5 = "k") Then
        CİNSİYET = "BEY"
    DOĞUMTARİH()
    
    ElseIf (KCHG1 = "K" Or KCHG1 = "k") And (KCHG2 = "A" Or KCHG2 = "a") And (KCHG3 = "D" Or KCHG3 = "d") And (KCHG4 = "I" Or KCHG4 = "i") And (KCHG5 = "N" Or KCHG5 = "n") Then
      CİNSİYET = "HANIM"
    DOĞUMTARİH()
      
    Else
      CİNSİYET = (KCHG1 + KCHG2 + KCHG3 + KCHG4 + KCHG5)
      ÇT = Text.GetCharacter(34)
      BAŞLANGIÇ2()
      TARİH()
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 14
      TextWindow.CursorLeft = 50
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("!!! İNSAN IRKINDA " + ÇT + CİNSİYET + ÇT + "  BİR CİNSİYET DEĞİLDİR !!!")
      Program.Delay(3000)
    KCG()
    EndIf
    EndSub
    
    Sub DOĞUMTARİH
      Timer.Pause()
    BAŞLANGIÇ4()
    DTGG()         'DOĞUM TARİH  GÜN GİRİŞ'
    EndSub
    
    Sub BAŞLANGIÇ4
      Program.Delay(1500)
      TextWindow.Clear()
      TextWindow.BackgroundColor = "YELLOW"
      TextWindow.Clear()
    EndSub
    
    Sub DTGG
    DTGGB :         'DOGUM TARİH GÜN GİRİŞ BAŞLANGICI'
      SES = Text.GetCharacter(7)
      Program.Delay(500)
      TextWindow.CursorTop  = 12
      TextWindow.CursorLeft = 50
      TextWindow.ForegroundColor = "DARKGREEN"
      TextWindow.WriteLine("LÜTFEN DOĞDUĞUNUZ 'GÜNÜ' VE 'AYI' BAŞINA SIFIR KOYMADAN YAZIN")
      Program.Delay(500)
      TextWindow.CursorTop  = 14
      TextWindow.CursorLeft = 63
      TextWindow.ForegroundColor = "BLUE"
      TextWindow.Write("LÜTFEN DOĞDUĞUNUZ GÜNÜ YAZIN :  " + SES) 
      TextWindow.ForegroundColor = "BLACK"
      DOĞUMGÜN = TextWindow.Read()
      
    If  DOĞUMGÜN = "" Then
      Program.Delay(500)
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 63
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("HERHANGİ BİR GÜN GİRMEDİNİZ !! ")
      Program.Delay(1500)
      TextWindow.Clear()
    Goto DTGGB
         
    ElseIf (DOĞUMGÜN > 0 And DOĞUMGÜN < 32) Then 
    DTAG()          'DOĞUM TARİHİ AY GİRİŞİ'
      
    Else
      Program.Delay(500)
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 61
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("GEÇERSİZ YADA FAZLA KARAKTER GİRİŞİ !!")
      Program.Delay(1500)
      TextWindow.Clear()
    Goto DTGGB
    EndIf
    EndSub
    
    Sub DTAG
    DTAGB :          'DOĞUM TARİHİ AY GİRİŞ BAŞLANGIÇ'
      SES = Text.GetCharacter(7)
      Program.Delay(500)
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 63
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.Write("LÜTFEN DOĞDUĞUNUZ AYI YAZIN  :  "  + SES)
      TextWindow.ForegroundColor = "BLUE"
      DOĞUMAY = TextWindow.Read()
    
    If  DOĞUMAY = "" Then
      Program.Delay(500)
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 62
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("HERHANGİ BİR AY GİRMEDİNİZ !! ")
      Program.Delay(1500)
      TextWindow.Clear()
    Goto DTAGB
    
    ElseIf (DOĞUMAY > 0 And DOĞUMAY < 13) Then 
    DTveTZK()          'DOĞUM TARİH VE TAKVİM ZAMANI KONTROL'
      
    Else
      Program.Delay(500)
      Sound.PlayBellRing()
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 61
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("GEÇERSİZ YADA FAZLA KARAKTER GİRİŞİ !!")
      Program.Delay(1500)
      TextWindow.Clear()
    Goto DTAGB
    EndIf
    EndSub 
    
    Sub DTveTZK
    If (Clock.Day = 1 And Clock.Month = 1) then
    MUTLUYILLAR()
       
    ElseIf (DOĞUMGÜN = Clock.Day And DOĞUMAY = Clock.Month) Then
    İYİKİDOĞDUN()
     
    Else
    DERİNMAVİ()
    EndIf 
    EndSub
    
    Sub MUTLUYILLAR
    BAŞLANGIÇ3()
    YYILKM()          'YENİ YIL KUTLAMA MESAJI' 
    DERİNMAVİ()
    EndSub
    
    Sub YYILKM
      Program.Delay(500)
      Sound.Play("C:\Users\Ata\Downloads\Yılbaşı Şarkısı (Jıngle Bells).mp3")
      
    For X = 35 To 125          'ZEMİN'
      Program.Delay(50)
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = X
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("_")
    EndFor
    
    For Y = 40 To 37 Step -1          'AĞAÇ'
      Program.Delay(100)
      TextWindow.CursorTop  = Y
      TextWindow.CursorLeft = 77
      TextWindow.ForegroundColor = "DARKYELLOW"
      TextWindow.WriteLine("|")
    EndFor
    
    For Y = 40 To 37 Step -1
      Program.Delay(100)
      TextWindow.CursorTop  = Y
      TextWindow.CursorLeft = 83
      TextWindow.ForegroundColor = "DARKYELLOW"
      TextWindow.WriteLine("|")
    EndFor
    
    For Y = 37 To 40
    For X = 78 To 82
      Program.Delay(50)  
      TextWindow.CursorTop  = Y
      TextWindow.CursorLeft = X
      TextWindow.ForegroundColor = "DARKYELLOW"  
      TextWindow.WriteLine("_")
    EndFor
    EndFor
    
    For X = 65 To 95
      Program.Delay(50)
      TextWindow.CursorTop  = 36
      TextWindow.CursorLeft = X
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("_")
    EndFor
    
    For Y = 36 To 31 Step -1
    If Y = 36 then
      X = 65
    EndIf
    
    If Y = 35 Then
      X = 66
    EndIf
    
    If Y = 34 Then
      X = 67
    EndIf
    
    If Y = 33 Then
      X = 68
    EndIf
    
    If Y = 32 Then
      X = 69
    EndIf
    
    If Y = 31 Then
      X = 70
    EndIf
      Program.Delay(100)
      TextWindow.CursorTop  = Y
      TextWindow.CursorLeft = X
      TextWindow.ForegroundColor = "GREEN"
      TextWindow.WriteLine("/")
    EndFor
    
    For Y = 36 To 31 Step -1
    If Y = 36 then
      X = 95
    EndIf
    
    If Y = 35 Then
      X = 94
    EndIf
    
    If Y = 34 Then
      X = 93
    EndIf
    
    If Y = 33 Then
      X = 92
    EndIf
    
    If Y = 32 Then
      X = 91
    EndIf
    
    If Y = 31 Then
      X = 90
    EndIf
      Program.Delay(100)
      TextWindow.CursorTop  = Y
      TextWindow.CursorLeft = X
      TextWindow.ForegroundColor = "GREEN"
      TextWindow.WriteLine("\")
    EndFor  
    
    For X = 71 To 89
      Program.Delay(50)
      TextWindow.CursorTop  = 30
      TextWindow.CursorLeft = X
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("_")
    EndFor
    
    For Y = 30 To 26 Step -1
    If Y = 30 then
      X = 70
    EndIf
    
    If Y = 29 Then
      X = 71
    EndIf
    
    If Y = 28 Then
      X = 72
    EndIf
    
    If Y = 27 Then
      X = 73
    EndIf
    
    If Y = 26 Then
      X = 74
    EndIf
      Program.Delay(100)
      TextWindow.CursorTop  = Y
      TextWindow.CursorLeft = X
      TextWindow.ForegroundColor = "GREEN"
      TextWindow.WriteLine("/")
    EndFor  
    
    For Y = 30 To 26 Step -1
    If Y = 30 then
      X = 90
    EndIf
    
    If Y = 29 Then
      X = 89
    EndIf
    
    If Y = 28 Then
      X = 88
    EndIf
    
    If Y = 27 Then
      X = 87
    EndIf
    
    If Y = 26 Then
      X = 86
    EndIf
      Program.Delay(100)
      TextWindow.CursorTop  = Y
      TextWindow.CursorLeft = X
      TextWindow.ForegroundColor = "GREEN"
      TextWindow.WriteLine("\")
    EndFor 
      
    For X = 75 To 85
      Program.Delay(50)
      TextWindow.CursorTop  = 25
      TextWindow.CursorLeft = X
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("_")
    EndFor  
     
    For Y = 25 To 22 Step -1
    If Y = 25 then
      X = 74
    EndIf
    
    If Y = 24 Then
      X = 75
    EndIf
    
    If Y = 23 Then
      X = 76
    EndIf
    
    If Y = 22 Then
      X = 77
    EndIf
      Program.Delay(100)
      TextWindow.CursorTop  = Y
      TextWindow.CursorLeft = X
      TextWindow.ForegroundColor = "GREEN"
      TextWindow.WriteLine("/")
    EndFor  
      
    For Y = 25 To 22 Step -1
    If Y = 25 then
      X = 86
    EndIf
    
    If Y = 24 Then
      X = 85
    EndIf
    
    If Y = 23 Then
      X = 84
    EndIf
    
    If Y = 22 Then
      X = 83
    EndIf
      Program.Delay(100)
      TextWindow.CursorTop  = Y
      TextWindow.CursorLeft = X
      TextWindow.ForegroundColor = "GREEN"
      TextWindow.WriteLine("\")
    EndFor   
    
    For X = 78 To 82
      Program.Delay(50)
      TextWindow.CursorTop  = 21
      TextWindow.CursorLeft = X
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("_")
    EndFor  
    
    For Y = 21 To 19 Step -1
    If Y = 21 then
      X = 77
    EndIf
    
    If Y = 20 Then
      X = 78
    EndIf
    
    If Y = 19 Then
      X = 79
    EndIf
      Program.Delay(100)
      TextWindow.CursorTop  = Y
      TextWindow.CursorLeft = X
      TextWindow.ForegroundColor = "GREEN"
      TextWindow.WriteLine("/")
    EndFor 
      
    For Y = 21 To 19 Step -1
    If Y = 21 then
      X = 83
    EndIf
    
    If Y = 20 Then
      X = 82
    EndIf
    
    If Y = 19 Then
      X = 81
    EndIf
      Program.Delay(100)
      TextWindow.CursorTop  = Y
      TextWindow.CursorLeft = X
      TextWindow.ForegroundColor = "GREEN"
      TextWindow.WriteLine("\")
    EndFor  
      
      Program.Delay(50)
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("_")
    
      Program.Delay(100)          'YILDIZ'
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.CursorTop  = 15
      TextWindow.CursorLeft = 79
      TextWindow.WriteLine("/")
      TextWindow.CursorTop  = 15
      TextWindow.CursorLeft = 80
      TextWindow.WriteLine("\")
      
      Program.Delay(100)
      TextWindow.ForegroundColor = "YELLOW"
      TextWindow.CursorTop  = 15
      TextWindow.CursorLeft = 77
      TextWindow.WriteLine("__")
      TextWindow.CursorTop  = 15
      TextWindow.CursorLeft = 81
      TextWindow.WriteLine("__")
      
      Program.Delay(100)
      TextWindow.ForegroundColor = "BLUE"
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 77
      TextWindow.WriteLine("\")
      TextWindow.CursorTop  = 16
      TextWindow.CursorLeft = 82
      TextWindow.WriteLine("/")
      
      Program.Delay(100)
      TextWindow.ForegroundColor = "GREEN"
      TextWindow.CursorTop  = 17
      TextWindow.CursorLeft = 77
      TextWindow.WriteLine("/")
      TextWindow.CursorTop  = 17
      TextWindow.CursorLeft = 82
      TextWindow.WriteLine("\")
      
      Program.Delay(100)
      TextWindow.ForegroundColor = "MAGENTA"
      TextWindow.CursorTop  = 17
      TextWindow.CursorLeft = 79
      TextWindow.WriteLine("/")
      TextWindow.CursorTop  = 17
      TextWindow.CursorLeft = 80
      TextWindow.WriteLine("\")
      
      Program.Delay(100)
      TextWindow.ForegroundColor = "CYAN"
      TextWindow.CursorTop  = 17
      TextWindow.CursorLeft = 78
      TextWindow.WriteLine("_")
      TextWindow.CursorTop  = 17
      TextWindow.CursorLeft = 81
      TextWindow.WriteLine("_")
      
      Program.Delay(100)
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.CursorTop  = 18
      TextWindow.CursorLeft = 80
      TextWindow.WriteLine("|")
    
    For y1 = 5  To 35  Step 10          'KAR'
    For y2 = 10 To 40  Step 10
      Program.Delay(100)
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 36
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 122
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 37
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*") 
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 121
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
    
      Program.Delay(100)
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 36
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 122
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 37
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 121
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
    EndFor
    EndFor
    
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 36
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 122
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 37
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop   = 40
      TextWindow.CursorLeft  = 121
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*") 
      
    For y1 = 5  To 35 Step 10 
    For y2 = 10 To 40 Step 10
      Program.Delay(100)
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 38
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 120
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 42
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 118
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      
      Program.Delay(100)
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 38
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 120
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 42
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 118
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
      
    EndFor
    EndFor
    
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 38
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 120
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*") 
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 42
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 118
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      
    For y1 = 5  To 35 Step 10 
    For y2 = 10 To 40 Step 10
      Program.Delay(100)
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 44
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 115
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 45
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 114
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      
      Program.Delay(100)
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 44
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*") 
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 115
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 45
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 114
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
    EndFor
    EndFor
    
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 44
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 115
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 45
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")  
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 114
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*") 
      
    For y1 = 5  To 35 Step 10 
    For y2 = 10 To 40 Step 10
      Program.Delay(100)
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 46
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 111
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 47
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 110
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      
      Program.Delay(100)
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 46
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 111
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 47
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 110
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
    EndFor
    EndFor
    
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 46
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 111
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*") 
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 47
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 110
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      
    For y1 = 5  To 35 Step 10 
    For y2 = 10 To 40 Step 10
      Program.Delay(100)
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 50
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 108
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 51
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 104
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      
      Program.Delay(100)
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 50
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")  
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 108
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 51
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 104
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
    EndFor
    EndFor
    
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 50
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 108
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*") 
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 51
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*") 
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 104
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      
    For y1 = 5  To 35 Step 10 
    For y2 = 10 To 40 Step 10
      Program.Delay(100)
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 53
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 103
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")  
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 56
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 102
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      
      Program.Delay(100)
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 53
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*") 
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 103
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 56
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 102
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
    EndFor
    EndFor
    
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 53
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 103
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*") 
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 56
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*") 
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 102
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      
    For y1 = 5  To 35 Step 10 
    For y2 = 10 To 40 Step 10
      Program.Delay(100)
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 58
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*") 
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 101
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 59
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 99
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      
      Program.Delay(100)
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 58
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")  
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 101
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 59
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 99
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
    EndFor
    EndFor
    
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 58
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 101
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*") 
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 59
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")  
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 99
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      
    For y1 = 5  To 35 Step 10 
    For y2 = 10 To 40 Step 10
      Program.Delay(100)
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 98
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 63
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 97
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      
      Program.Delay(100)
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")  
      TextWindow.CursorTop  = y2
      TextWindow.CursorLeft = 98
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 63
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = y1
      TextWindow.CursorLeft = 97
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("*")
    EndFor
    EndFor
    
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 60
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 98
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*") 
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 63
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*") 
      TextWindow.CursorTop  = 40
      TextWindow.CursorLeft = 97
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("*")
      
      TextWindow.CursorTop  = 31          'KUTLAMA MESAJI'   
      TextWindow.CursorLeft = 72
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("7")
      Program.Delay(500)
      TextWindow.CursorTop  = 31
      TextWindow.CursorLeft = 72
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("7")
      
      TextWindow.CursorTop  = 35
      TextWindow.CursorLeft = 77
      TextWindow.ForegroundColor = "YELLOW"
      TextWindow.WriteLine("0")
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.CursorTop  = 12
      TextWindow.CursorLeft = 65
      TextWindow.WriteLine("*")
      Program.Delay(500)
      TextWindow.CursorTop = 35
      TextWindow.CursorLeft = 77
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("0")
      
      TextWindow.CursorTop  = 31
      TextWindow.CursorLeft = 85
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("5")
      TextWindow.CursorTop  = 12
      TextWindow.CursorLeft = 66
      TextWindow.WriteLine("M")
      Program.Delay(500)
      TextWindow.CursorTop = 31
      TextWindow.CursorLeft = 85
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("5") 
     
      TextWindow.CursorTop  = 33
      TextWindow.CursorLeft = 77
      TextWindow.ForegroundColor = "GREEN"
      TextWindow.WriteLine("1")
      TextWindow.CursorTop  = 12
      TextWindow.CursorLeft = 67
      TextWindow.WriteLine("U")
      Program.Delay(500)
      TextWindow.CursorTop  = 33
      TextWindow.CursorLeft = 77
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("1") 
     
      TextWindow.CursorTop  = 32
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "CYAN"
      TextWindow.WriteLine("8")
      TextWindow.CursorTop  = 12
      TextWindow.CursorLeft = 68
      TextWindow.WriteLine("T")
      Program.Delay(500)
      TextWindow.CursorTop  = 32
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("8") 
     
      TextWindow.CursorTop  = 35
      TextWindow.CursorLeft = 73
      TextWindow.ForegroundColor = "BLUE"
      TextWindow.WriteLine("2")
      TextWindow.CursorTop  = 12
      TextWindow.CursorLeft = 69
      TextWindow.WriteLine("L")
      Program.Delay(500)
      TextWindow.CursorTop  = 35
      TextWindow.CursorLeft = 73
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("2") 
     
      TextWindow.CursorTop  = 34
      TextWindow.CursorLeft = 84
      TextWindow.ForegroundColor = "MAGENTA"
      TextWindow.WriteLine("9")
      TextWindow.CursorTop  = 12
      TextWindow.CursorLeft = 70
      TextWindow.WriteLine("U")
      Program.Delay(500)
      TextWindow.CursorTop  = 34
      TextWindow.CursorLeft = 84
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("9")  
      
      TextWindow.CursorTop  = 29
      TextWindow.CursorLeft = 72
      TextWindow.ForegroundColor = "GREEN"
      TextWindow.WriteLine("3")
      TextWindow.CursorTop  = 12
      TextWindow.CursorLeft = 73
      TextWindow.WriteLine("Y")
      Program.Delay(500)
      TextWindow.CursorTop  = 29
      TextWindow.CursorLeft = 72
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("3") 
      
      TextWindow.CursorTop  = 27
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "BLUE"
      TextWindow.WriteLine("1")
      TextWindow.CursorTop  = 12
      TextWindow.CursorLeft = 74
      TextWindow.WriteLine("I")
      Program.Delay(500)
      TextWindow.CursorTop  = 27
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("1") 
      
      TextWindow.CursorTop  = 26
      TextWindow.CursorLeft = 75
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("0")
      TextWindow.CursorTop  = 12
      TextWindow.CursorLeft = 75
      TextWindow.WriteLine("L")
      Program.Delay(500)
      TextWindow.CursorTop  = 26
      TextWindow.CursorLeft = 75
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("0")
      
      TextWindow.CursorTop  = 26
      TextWindow.CursorLeft = 81
      TextWindow.ForegroundColor = "GREEN"
      TextWindow.WriteLine("7")
      TextWindow.CursorTop  = 12
      TextWindow.CursorLeft = 76
      TextWindow.WriteLine("L")
      Program.Delay(500)
      TextWindow.CursorTop  = 26
      TextWindow.CursorLeft = 81
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("7")
      
      TextWindow.CursorTop  = 29
      TextWindow.CursorLeft = 85
      TextWindow.ForegroundColor = "YELLOW"
      TextWindow.WriteLine("5")
      TextWindow.CursorTop  = 12
      TextWindow.CursorLeft = 77
      TextWindow.WriteLine("A")
      Program.Delay(500)
      TextWindow.CursorTop  = 29
      TextWindow.CursorLeft = 85
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("5")
      
      TextWindow.CursorTop  = 27
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "BLUE"
      TextWindow.WriteLine("6")
      TextWindow.CursorTop  = 12
      TextWindow.CursorLeft = 78
      TextWindow.WriteLine("R")
      Program.Delay(500)
      TextWindow.CursorTop  = 27
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("6")
      
      TextWindow.CursorTop  = 24
      TextWindow.CursorLeft = 84
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("9")
      Program.Delay(500)
      TextWindow.CursorTop  = 24
      TextWindow.CursorLeft = 84
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("9")
      
      TextWindow.CursorTop  = 22
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "CYAN"
      TextWindow.WriteLine("4")
      Program.Delay(500)
      TextWindow.CursorTop  = 22
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("4")
      
      İ = Text.ConvertToUpperCase(İSİM2)
      TextWindow.CursorTop  = 12
      TextWindow.CursorLeft = 81
      TextWindow.ForegroundColor = "CYAN"
      TextWindow.WriteLine(İ)
      
      TextWindow.CursorTop  = 23
      TextWindow.CursorLeft = 77
      TextWindow.ForegroundColor = "MAGENTA"
      TextWindow.WriteLine("3")
      Program.Delay(500)
      TextWindow.CursorTop  = 23
      TextWindow.CursorLeft = 77
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("3")
      
      TextWindow.CursorTop  = 24
      TextWindow.CursorLeft = 79
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("1")
      Program.Delay(500)
      TextWindow.CursorTop  = 24
      TextWindow.CursorLeft = 79
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("1")
      
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 81
      TextWindow.ForegroundColor = "BLUE"
      TextWindow.WriteLine("7")
      Program.Delay(500)
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 81
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("7")
      
      TextWindow.CursorTop  = 19
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "RED"
      TextWindow.WriteLine("0")
      Program.Delay(500)
      TextWindow.CursorTop  = 19
      TextWindow.CursorLeft = 80
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("0")
      
      TextWindow.CursorTop  = 12
      TextWindow.CursorLeft = 91
      TextWindow.ForegroundColor = "YELLOW"
      TextWindow.WriteLine(CİNSİYET)
      
    If CİNSİYET = "BEY" Then
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.CursorTop  = 12
      TextWindow.CursorLeft = 94
      TextWindow.WriteLine("*")    
    Else
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.CursorTop  = 12
      TextWindow.CursorLeft = 96
      TextWindow.WriteLine("*")  
    EndIf  
      
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 79
      TextWindow.ForegroundColor = "GREEN"
      TextWindow.WriteLine("2")
      Program.Delay(500)
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 79
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("2")
      
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 81
      TextWindow.ForegroundColor = "WHITE"
      TextWindow.WriteLine("3")
      Program.Delay(500)
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = 81
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.WriteLine("3")
      Program.Delay(2500)
      Sound.Stop("C:\Users\Ata\Downloads\Yılbaşı Şarkısı (Jıngle Bells).mp3")
    EndSub

    Saturday, May 19, 2018 6:01 AM
  • part 5 :

    SUB DERİNMAVİ
    Program.Delay(2500)
    TextWindow.Clear()
    TextWindow.BackgroundColor = "BLACK"
    TextWindow.Clear()
    Program.Delay(1000)
    Sound.Play("C:\Users\Ata\Downloads\5'DEN GERİ SAYIM.mp3")
              '5'
    For SAYI = 70 To 83          
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = 14
      TextWindow.CursorLeft = SAYI
      TextWindow.WriteLine("_")
    EndFor
    
    For SAYI = 15 To 20
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = SAYI
      TextWindow.CursorLeft = 69
      TextWindow.WriteLine("|")
    EndFor
    
    For SAYI = 70 To 80
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = SAYI
      TextWindow.WriteLine("_")
    EndFor
    
    For SAYI = 21 To 26
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = SAYI
      TextWindow.CursorLeft = 81
      TextWindow.WriteLine("|")
    EndFor
    
    For SAYI = 80 To 68 Step -1
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = 26
      TextWindow.CursorLeft = SAYI
      TextWindow.WriteLine("_")
    EndFor
    
    Program.Delay(1000)
    TextWindow.Clear()
    
             '4'
    For SAYI = 14 To 22         
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = SAYI
      TextWindow.CursorLeft = 70
      TextWindow.WriteLine("|")
    EndFor
    
    For SAYI = 71 To 85         
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = 22
      TextWindow.CursorLeft = SAYI
      TextWindow.WriteLine("_")
    EndFor
    
    For SAYI = 25 To 19 Step -1         
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = SAYI
      TextWindow.CursorLeft = 85
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(1000)
    TextWindow.Clear()
    
              '3'
    For SAYI = 70 To 83          
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = 14
      TextWindow.CursorLeft = SAYI
      TextWindow.WriteLine("_")
    EndFor
    
    For SAYI = 15 To 20
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = SAYI
      TextWindow.CursorLeft = 84
      TextWindow.WriteLine("|")
    EndFor
    
    For SAYI = 70 To 83          
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = 20
      TextWindow.CursorLeft = SAYI
      TextWindow.WriteLine("_")
    EndFor
    
    For SAYI = 20 To 25
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = SAYI
      TextWindow.CursorLeft = 84
      TextWindow.WriteLine("|")
    EndFor
    
    For SAYI = 70 To 83          
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = 25
      TextWindow.CursorLeft = SAYI
      TextWindow.WriteLine("_")
    EndFor
    
    Program.Delay(1000)
    TextWindow.Clear()
    
              '2'
    For SAYI = 14 To 15         
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = SAYI
      TextWindow.CursorLeft = 70
      TextWindow.WriteLine("|")
    EndFor
      
    For SAYI = 71 To 83          
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = 13
      TextWindow.CursorLeft = SAYI
      TextWindow.WriteLine("_")
    EndFor 
    
    For SAYI = 14 To 24         
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = SAYI
      TextWindow.CursorLeft = 84
      TextWindow.WriteLine("|")
    EndFor
      
    For SAYI = 85 To 95         
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = 24
      TextWindow.CursorLeft = SAYI
      TextWindow.WriteLine("_")
    EndFor   
    
    Program.Delay(1000)
    TextWindow.Clear()
    
               '1'
    TextWindow.ForegroundColor = "CYAN"         
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 75
    TextWindow.WriteLine("/")
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 76
    TextWindow.WriteLine("/")
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 13
    TextWindow.CursorLeft = 77
    TextWindow.WriteLine("/")
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 12
    TextWindow.CursorLeft = 78
    TextWindow.WriteLine("_")
    
    For SAYI = 13 To 25         
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = SAYI
      TextWindow.CursorLeft = 79
      TextWindow.WriteLine("|")
    EndFor
      
    For SAYI = 73 To 87         
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = 25
      TextWindow.CursorLeft = SAYI
      TextWindow.WriteLine("_")
    EndFor  
    Sound.Stop("C:\Users\Ata\Downloads\5'DEN GERİ SAYIM.mp3")
    
              ' 1. DERİN MAVİ'
    Program.Delay(1000)
    TextWindow.Clear()
    TextWindow.BackgroundColor = "CYAN"
    TextWindow.Clear()
    Program.Delay(1000)
    Sound.Play("C:\Users\Ata\Downloads\OKYANUS SESİ.mp3")
    
    Program.Delay(250)
    TextWindow.ForegroundColor = "DARKGRAY"
    TextWindow.CursorTop  = 3
    TextWindow.CursorLeft = 140
    TextWindow.WriteLine("METRE")
    
    For METRE = 4 To 9
      Program.Delay(150)
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.CursorTop  = METRE
      TextWindow.CursorLeft = 142
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(250)
    TextWindow.ForegroundColor = "DARKGREEN"
    TextWindow.CursorTop  = 5
    TextWindow.CursorLeft = 143
    TextWindow.WriteLine("10")
    
    For HARF = 15 To 16          'D'
      Program.Delay(200) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 50
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(200) 
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 51
    TextWindow.WriteLine("_")
    
    For HARF = 15 To 16  
      Program.Delay(200) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 52
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(200) 
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 51
    TextWindow.WriteLine("_")
    
    For HARF = 15 To 16          'E'
      Program.Delay(200) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 54
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(200) 
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 55
    TextWindow.WriteLine("__")
    Program.Delay(200) 
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 55
    TextWindow.WriteLine("__")
    Program.Delay(200) 
    TextWindow.ForegroundColor = "DARKCYAN"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 55
    TextWindow.WriteLine("__")
    
    For HARF = 15 To 16          'R'
      Program.Delay(200) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 59
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(200) 
    TextWindow.ForegroundColor = "DARKRED"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 60
    TextWindow.WriteLine("__")
    Program.Delay(200) 
    TextWindow.ForegroundColor = "BLUE"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 62
    TextWindow.WriteLine("|")
    Program.Delay(200) 
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 60
    TextWindow.WriteLine("__")
    Program.Delay(200) 
    TextWindow.ForegroundColor = "DARKYELLOW"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 60
    TextWindow.WriteLine("\")
    
    For HARF = 16 To 15 Step - 1         'İ'
      Program.Delay(200) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 65
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(200) 
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 65
    TextWindow.WriteLine("*")
    
    For HARF = 15 To 16          'N'
      Program.Delay(200) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 67
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(200)  
    TextWindow.ForegroundColor = "DARKGREEN"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 68
    TextWindow.WriteLine("\")  
    Program.Delay(200) 
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 69
    TextWindow.WriteLine("\")  
    
    For HARF = 15 To 16          
      Program.Delay(200) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 70
      TextWindow.WriteLine("|")
    EndFor
    
    For HARF = 16 To 15 Step - 1        'M'          
      Program.Delay(200) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 80
      TextWindow.WriteLine("|")
    EndFor
      
    Program.Delay(200)  
    TextWindow.ForegroundColor = "DARKGREEN"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 81
    TextWindow.WriteLine("\")  
    Program.Delay(200) 
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 82
    TextWindow.WriteLine("\")  
    
    Program.Delay(200)  
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 84
    TextWindow.WriteLine("/")  
    Program.Delay(200) 
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 83
    TextWindow.WriteLine("/")
    
    For HARF = 15 To 16                  
      Program.Delay(200) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 85
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(200)          'A'
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 89
    TextWindow.WriteLine("/")  
    Program.Delay(200) 
    TextWindow.ForegroundColor = "DARKBLUE"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 88
    TextWindow.WriteLine("/")
    Program.Delay(200) 
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 90
    TextWindow.WriteLine("_")
    Program.Delay(200)  
    TextWindow.ForegroundColor = "DARKGREEN"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 91
    TextWindow.WriteLine("\")  
    Program.Delay(200) 
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 92
    TextWindow.WriteLine("\")  
    Program.Delay(200) 
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 90
    TextWindow.WriteLine("_")
    
    Program.Delay(200)        'V'  
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 94
    TextWindow.WriteLine("\")  
    Program.Delay(200) 
    TextWindow.ForegroundColor = "DARKRED"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("\") 
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 96
    TextWindow.WriteLine("_")
    Program.Delay(200)          
    TextWindow.ForegroundColor = "DARKGREEN"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 98
    TextWindow.WriteLine("/")  
    Program.Delay(200) 
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 97
    TextWindow.WriteLine("/")
    
    For HARF = 16 To 15 Step - 1         'İ'
      Program.Delay(200) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 100
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(200) 
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 100
    TextWindow.WriteLine("*")
    
              '2. DERİN MAVİ'
    Program.Delay(2000)
    TextWindow.Clear()
    TextWindow.BackgroundColor = "BLUE"
    TextWindow.Clear()
    
    Program.Delay(250)
    TextWindow.ForegroundColor = "GRAY"
    TextWindow.CursorTop  = 3
    TextWindow.CursorLeft = 140
    TextWindow.WriteLine("METRE")
    
    For METRE = 4 To 9
      Program.Delay(150)
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.CursorTop  = METRE
      TextWindow.CursorLeft = 142
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(250)
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 7
    TextWindow.CursorLeft = 143
    TextWindow.WriteLine("100")
    
    For HARF = 15 To 20        'D'
      Program.Delay(100) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 30
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(100) 
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 31
    TextWindow.WriteLine("_____")
    
    For HARF = 20 To 15 Step - 1
      Program.Delay(100) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 36
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(100) 
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 31
    TextWindow.WriteLine("_____")
    
    For HARF = 15 To 20          'E'
      Program.Delay(100) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 39
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(100) 
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 40
    TextWindow.WriteLine("______")
    Program.Delay(100) 
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 17
    TextWindow.CursorLeft = 40
    TextWindow.WriteLine("______")
    Program.Delay(100) 
    TextWindow.ForegroundColor = "CYAN"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 40
    TextWindow.WriteLine("______")
    
    For HARF = 20 To 15 Step - 1         'R'
      Program.Delay(100) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 49
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(100) 
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 50
    TextWindow.WriteLine("_____")
    Program.Delay(100) 
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 55
    TextWindow.WriteLine("|")
    Program.Delay(100) 
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 55
    TextWindow.WriteLine("|")
    Program.Delay(100) 
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 17
    TextWindow.CursorLeft = 55
    TextWindow.WriteLine("|")
    Program.Delay(100) 
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 17
    TextWindow.CursorLeft = 50
    TextWindow.WriteLine("_____")
    Program.Delay(150) 
    TextWindow.ForegroundColor = "CYAN"
    TextWindow.CursorTop  = 18
    TextWindow.CursorLeft = 50
    TextWindow.WriteLine("\")
    Program.Delay(100)
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 19
    TextWindow.CursorLeft = 51
    TextWindow.WriteLine("\")
    Program.Delay(100)
    TextWindow.ForegroundColor = "GRAY"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 52
    TextWindow.WriteLine("\")
    
    For HARF = 20 To 15 Step -1          'İ'
      Program.Delay(100) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 59
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(100) 
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 59
    TextWindow.WriteLine("*")
    
    For HARF = 15 To 20          'N'
      Program.Delay(100) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 63
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(100)  
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("\")  
    Program.Delay(100) 
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 65
    TextWindow.WriteLine("\")
    Program.Delay(100) 
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 17
    TextWindow.CursorLeft = 66
    TextWindow.WriteLine("\")
    Program.Delay(100) 
    TextWindow.ForegroundColor = "CYAN"
    TextWindow.CursorTop  = 18
    TextWindow.CursorLeft = 67
    TextWindow.WriteLine("\") 
    Program.Delay(100) 
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 19
    TextWindow.CursorLeft = 68
    TextWindow.WriteLine("\")
    Program.Delay(100) 
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 69
    TextWindow.WriteLine("\") 
    
    For HARF = 15 To 20          
      Program.Delay(100) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 70
      TextWindow.WriteLine("|")
    EndFor
    
    For HARF = 20 To 15 Step - 1        'M'          
      Program.Delay(100) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 85
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(100)  
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 86
    TextWindow.WriteLine("\")  
    Program.Delay(100) 
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 87
    TextWindow.WriteLine("\")
    Program.Delay(100) 
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 17
    TextWindow.CursorLeft = 88
    TextWindow.WriteLine("\")
    Program.Delay(100) 
    TextWindow.ForegroundColor = "CYAN"
    TextWindow.CursorTop  = 18
    TextWindow.CursorLeft = 89
    TextWindow.WriteLine("\")
    Program.Delay(100) 
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 19
    TextWindow.CursorLeft = 90
    TextWindow.WriteLine("\")
    Program.Delay(100) 
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 91
    TextWindow.WriteLine("\") 
    Program.Delay(100)  
    TextWindow.ForegroundColor = "GRAY"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 92
    TextWindow.WriteLine("/")  
    Program.Delay(100) 
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 19
    TextWindow.CursorLeft = 93
    TextWindow.WriteLine("/")
    
    Program.Delay(100) 
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 18
    TextWindow.CursorLeft = 94
    TextWindow.WriteLine("/")  
    Program.Delay(100) 
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 17
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("/")
    Program.Delay(100)  
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 96
    TextWindow.WriteLine("/")  
    Program.Delay(100) 
    TextWindow.ForegroundColor = "DARKMAGENTA"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 97
    TextWindow.WriteLine("/")
    
    For HARF = 15 To 20                
      Program.Delay(100) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 98
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(100)          'A'
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 101
    TextWindow.WriteLine("/")  
    Program.Delay(100) 
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 19
    TextWindow.CursorLeft = 102
    TextWindow.WriteLine("/")
    Program.Delay(100)          
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 18
    TextWindow.CursorLeft = 103
    TextWindow.WriteLine("/")  
    Program.Delay(100) 
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 17
    TextWindow.CursorLeft = 104
    TextWindow.WriteLine("/")
    Program.Delay(100)          
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 105
    TextWindow.WriteLine("/")  
    Program.Delay(100) 
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 106
    TextWindow.WriteLine("/")
    Program.Delay(150) 
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 107
    TextWindow.WriteLine("__")
    
    Program.Delay(100)  
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 109
    TextWindow.WriteLine("\")  
    Program.Delay(100) 
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 110
    TextWindow.WriteLine("\") 
    Program.Delay(100)  
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 17
    TextWindow.CursorLeft = 111
    TextWindow.WriteLine("\")  
    Program.Delay(100) 
    TextWindow.ForegroundColor = "CYAN"
    TextWindow.CursorTop  = 18
    TextWindow.CursorLeft = 112
    TextWindow.WriteLine("\")  
    Program.Delay(100)  
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 19
    TextWindow.CursorLeft = 113
    TextWindow.WriteLine("\")  
    Program.Delay(150) 
    TextWindow.ForegroundColor = "GRAY"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 114
    TextWindow.WriteLine("\")  
    Program.Delay(100) 
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 18
    TextWindow.CursorLeft = 104
    TextWindow.WriteLine("________")
    
    Program.Delay(100)        'V'  
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 114
    TextWindow.WriteLine("\")  
    Program.Delay(100) 
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 115
    TextWindow.WriteLine("\") 
    Program.Delay(100)        
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 17
    TextWindow.CursorLeft = 116
    TextWindow.WriteLine("\")  
    Program.Delay(100) 
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 18
    TextWindow.CursorLeft = 117
    TextWindow.WriteLine("\") 
    Program.Delay(100)         
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 19
    TextWindow.CursorLeft = 118
    TextWindow.WriteLine("\")  
    Program.Delay(100) 
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 119
    TextWindow.WriteLine("\")
    
    Program.Delay(100) 
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 120
    TextWindow.WriteLine("__")
    Program.Delay(100)          
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 121
    TextWindow.WriteLine("/")  
    Program.Delay(100) 
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 19
    TextWindow.CursorLeft = 122
    TextWindow.WriteLine("/")
    Program.Delay(100)          
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 18
    TextWindow.CursorLeft = 123
    TextWindow.WriteLine("/")  
    Program.Delay(100) 
    TextWindow.ForegroundColor = "CYAN"
    TextWindow.CursorTop  = 17
    TextWindow.CursorLeft = 124
    TextWindow.WriteLine("/")
    Program.Delay(100)          
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 125
    TextWindow.WriteLine("/")  
    Program.Delay(100) 
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 126
    TextWindow.WriteLine("/")
    
    For HARF = 20 To 15 Step - 1         'İ'
      Program.Delay(100) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 130
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(100) 
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 130
    TextWindow.WriteLine("*")

    Saturday, May 19, 2018 6:04 AM
  • part 6 :

     '3.  DERİN MAVİ'
    Program.Delay(2000)
    TextWindow.Clear()
    TextWindow.BackgroundColor = "DARKBLUE"
    TextWindow.Clear()
    
    Program.Delay(250)
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 3
    TextWindow.CursorLeft = 140
    TextWindow.WriteLine("METRE")
    
    For METRE = 4 To 9
      Program.Delay(150)
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.CursorTop  = METRE
      TextWindow.CursorLeft = 142
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(250)
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 9
    TextWindow.CursorLeft = 143
    TextWindow.WriteLine("1000")
    
    For HARF = 14 To 28       'D'
      Program.Delay(50) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 5
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(50) 
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 13
    TextWindow.CursorLeft = 6
    TextWindow.WriteLine("__________")
    
    For HARF = 28 To 14 Step - 1
      Program.Delay(50) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 16
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(50) 
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 28
    TextWindow.CursorLeft = 6
    TextWindow.WriteLine("__________")
    
    For HARF = 14 To 28          'E'
      Program.Delay(50) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 20
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(50) 
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 13
    TextWindow.CursorLeft = 21
    TextWindow.WriteLine("__________")
    Program.Delay(50) 
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 21
    TextWindow.WriteLine("__________")
    Program.Delay(50) 
    TextWindow.ForegroundColor = "CYAN"
    TextWindow.CursorTop  = 28
    TextWindow.CursorLeft = 21
    TextWindow.WriteLine("__________")
    
    For HARF = 28 To 14 Step - 1         'R'
      Program.Delay(50) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 35
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(50) 
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 13
    TextWindow.CursorLeft = 36
    TextWindow.WriteLine("___________")
    Program.Delay(50) 
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 47
    TextWindow.WriteLine("|")
    Program.Delay(50) 
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 47
    TextWindow.WriteLine("|")
    Program.Delay(50) 
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 47
    TextWindow.WriteLine("|")
    Program.Delay(50) 
    TextWindow.ForegroundColor = "CYAN"
    TextWindow.CursorTop  = 17
    TextWindow.CursorLeft = 47
    TextWindow.WriteLine("|")
    Program.Delay(50) 
    TextWindow.ForegroundColor = "GRAY"
    TextWindow.CursorTop  = 18
    TextWindow.CursorLeft = 47
    TextWindow.WriteLine("|")
    Program.Delay(50) 
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 19
    TextWindow.CursorLeft = 47
    TextWindow.WriteLine("|")
    Program.Delay(50) 
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 47
    TextWindow.WriteLine("|")
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 36
    TextWindow.WriteLine("___________")
    
    Program.Delay(50) 
    TextWindow.ForegroundColor = "CYAN"
    TextWindow.CursorTop  = 21
    TextWindow.CursorLeft = 36
    TextWindow.WriteLine("\")
    Program.Delay(50)
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 22
    TextWindow.CursorLeft = 37
    TextWindow.WriteLine("\")
    Program.Delay(50)
    TextWindow.ForegroundColor = "GRAY"
    TextWindow.CursorTop  = 23
    TextWindow.CursorLeft = 38
    TextWindow.WriteLine("\")
    Program.Delay(50)
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 24
    TextWindow.CursorLeft = 39
    TextWindow.WriteLine("\")
    Program.Delay(50)
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 25
    TextWindow.CursorLeft = 40
    TextWindow.WriteLine("\")
    Program.Delay(50)
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 26
    TextWindow.CursorLeft = 41
    TextWindow.WriteLine("\")
    Program.Delay(50)
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 27
    TextWindow.CursorLeft = 42
    TextWindow.WriteLine("\")
    Program.Delay(50)
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 28
    TextWindow.CursorLeft = 43
    TextWindow.WriteLine("\")
    
    For HARF = 28 To 14 Step -1          'İ'
      Program.Delay(50) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 53
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(50) 
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 13
    TextWindow.CursorLeft = 53
    TextWindow.WriteLine("*")
    
    For HARF = 14 To 28          'N'
      Program.Delay(50) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 59
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(50)  
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 60
    TextWindow.WriteLine("\")  
    Program.Delay(50) 
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 61
    TextWindow.WriteLine("\")
    Program.Delay(50) 
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 62
    TextWindow.WriteLine("\")
    Program.Delay(50) 
    TextWindow.ForegroundColor = "CYAN"
    TextWindow.CursorTop  = 17
    TextWindow.CursorLeft = 63
    TextWindow.WriteLine("\") 
    Program.Delay(50) 
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 18
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("\")
    Program.Delay(50) 
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 19
    TextWindow.CursorLeft = 65
    TextWindow.WriteLine("\") 
    Program.Delay(50) 
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 66
    TextWindow.WriteLine("\") 
    Program.Delay(50) 
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 21
    TextWindow.CursorLeft = 67
    TextWindow.WriteLine("\") 
    Program.Delay(50) 
    TextWindow.ForegroundColor = "GRAY"
    TextWindow.CursorTop  = 22
    TextWindow.CursorLeft = 68
    TextWindow.WriteLine("\") 
    Program.Delay(50) 
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 23
    TextWindow.CursorLeft = 69
    TextWindow.WriteLine("\") 
    Program.Delay(50) 
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 24
    TextWindow.CursorLeft = 70
    TextWindow.WriteLine("\") 
    Program.Delay(50) 
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 25
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("\") 
    Program.Delay(50) 
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 26
    TextWindow.CursorLeft = 72
    TextWindow.WriteLine("\")
    Program.Delay(50) 
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 27
    TextWindow.CursorLeft = 73
    TextWindow.WriteLine("\") 
    Program.Delay(50) 
    TextWindow.ForegroundColor = "CYAN"
    TextWindow.CursorTop  = 28
    TextWindow.CursorLeft = 74
    TextWindow.WriteLine("\") 
    
    For HARF = 14 To 28 
      Program.Delay(50) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 75
      TextWindow.WriteLine("|")
    EndFor
    
    For HARF = 28 To 14 Step - 1        'M'          
      Program.Delay(50) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 87
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(50)  
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 88
    TextWindow.WriteLine("\")  
    Program.Delay(50) 
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 89
    TextWindow.WriteLine("\")
    Program.Delay(50) 
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 90
    TextWindow.WriteLine("\")
    Program.Delay(50) 
    TextWindow.ForegroundColor = "CYAN"
    TextWindow.CursorTop  = 17
    TextWindow.CursorLeft = 91
    TextWindow.WriteLine("\")
    Program.Delay(50) 
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 18
    TextWindow.CursorLeft = 92
    TextWindow.WriteLine("\")
    Program.Delay(50) 
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 19
    TextWindow.CursorLeft = 93
    TextWindow.WriteLine("\") 
    Program.Delay(50) 
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 94
    TextWindow.WriteLine("\") 
    Program.Delay(50) 
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 21
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("\") 
    
    
    Program.Delay(50)
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 21
    TextWindow.CursorLeft = 96
    TextWindow.WriteLine("/")  
    Program.Delay(50) 
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 97
    TextWindow.WriteLine("/")
    Program.Delay(50)  
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 19
    TextWindow.CursorLeft = 98
    TextWindow.WriteLine("/")  
    Program.Delay(50) 
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 18
    TextWindow.CursorLeft = 99
    TextWindow.WriteLine("/")
    Program.Delay(50)  
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 17
    TextWindow.CursorLeft = 100
    TextWindow.WriteLine("/")  
    Program.Delay(50) 
    TextWindow.ForegroundColor = "DARKMAGENTA"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 101
    TextWindow.WriteLine("/")
    Program.Delay(50) 
    TextWindow.ForegroundColor = "DARKRED"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 102
    TextWindow.WriteLine("/")
    Program.Delay(50) 
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 103
    TextWindow.WriteLine("/")
    
    For HARF = 14 To 28               
      Program.Delay(50) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 104
      TextWindow.WriteLine("|")
    EndFor
    
    For HARF = 28 To 14 Step - 1          'A'              
      Program.Delay(50) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 110
      TextWindow.WriteLine("|")
    EndFor
             
    Program.Delay(50) 
    TextWindow.ForegroundColor = "CYAN"
    TextWindow.CursorTop  = 13
    TextWindow.CursorLeft = 111
    TextWindow.WriteLine("____________")
    
    For HARF = 14 To 28             
      Program.Delay(50) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 123
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(50) 
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 111
    TextWindow.WriteLine("____________")
    
    For HARF = 28 To 14 Step - 1         'V'            
      Program.Delay(50) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 128
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(50)        
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 28
    TextWindow.CursorLeft = 129
    TextWindow.WriteLine("/")
    Program.Delay(50)        
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 27
    TextWindow.CursorLeft = 130
    TextWindow.WriteLine("/")
    Program.Delay(50)        
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 26
    TextWindow.CursorLeft = 131
    TextWindow.WriteLine("/")
    Program.Delay(50)        
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 25
    TextWindow.CursorLeft = 132
    TextWindow.WriteLine("/")
    Program.Delay(50)        
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 24
    TextWindow.CursorLeft = 133
    TextWindow.WriteLine("/")
    Program.Delay(50)        
    TextWindow.ForegroundColor = "CYAN"
    TextWindow.CursorTop  = 23
    TextWindow.CursorLeft = 134
    TextWindow.WriteLine("/")
    Program.Delay(50)        
    TextWindow.ForegroundColor = "GRAY"
    TextWindow.CursorTop  = 22
    TextWindow.CursorLeft = 135
    TextWindow.WriteLine("/")
    Program.Delay(50)        
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 21
    TextWindow.CursorLeft = 136
    TextWindow.WriteLine("/")
    Program.Delay(50)        
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 137
    TextWindow.WriteLine("/")
    Program.Delay(50)        
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 19
    TextWindow.CursorLeft = 138
    TextWindow.WriteLine("/")
    Program.Delay(50)        
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 18
    TextWindow.CursorLeft = 139
    TextWindow.WriteLine("/")
    Program.Delay(50)        
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 17
    TextWindow.CursorLeft = 140
    TextWindow.WriteLine("/")
    Program.Delay(50)        
    TextWindow.ForegroundColor = "GRAY"
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 141
    TextWindow.WriteLine("/")
    Program.Delay(50)        
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 142
    TextWindow.WriteLine("/")
    Program.Delay(50)        
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 143
    TextWindow.WriteLine("/")
    
    For HARF = 14 To 28          'İ' 
      Program.Delay(50) 
      RENK = Math.GetRandomNumber(15)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 149
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(50) 
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 13
    TextWindow.CursorLeft = 149
    TextWindow.WriteLine("*")
    
    For HARF = 12 To 13         'R'
      Program.Delay(250) 
      TextWindow.ForegroundColor = "YELLOW"
      TextWindow.CursorTop  = HARF
      TextWindow.CursorLeft = 152
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(250) 
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 11
    TextWindow.CursorLeft = 153
    TextWindow.WriteLine("_")
    Program.Delay(250) 
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 12
    TextWindow.CursorLeft = 154
    TextWindow.WriteLine("|")
    Program.Delay(250) 
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 12
    TextWindow.CursorLeft = 153
    TextWindow.WriteLine("_")
    Program.Delay(250) 
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 13
    TextWindow.CursorLeft = 153
    TextWindow.WriteLine("\")
    TextWindow.ForegroundColor = "DARKBLUE"
    Program.Delay(5000)
    Program.End()
    EndSub
    
    SUB İYİKİDOĞDUN
    YYAŞKM()          'YENİ YAŞ KUTLAMA MESAJI'
    DERİNMAVİ()
    EndSub
    
    Sub YYAŞKM
    Program.Delay(1500)
    TextWindow.Clear()
    TextWindow.BackgroundColor = "MAGENTA"
    TextWindow.Clear()
    TextWindow.ForegroundColor = "WHITE"
    Sound.Play("C:\Users\Ata\Downloads\doğum günü piyano.mp3")
    
    Program.Delay(50)
    TextWindow.CursorTop  = 22        '1. ŞEKLİN KÖŞELERİ '
    TextWindow.CursorLeft = 70
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 21
    TextWindow.CursorLeft = 68
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 66
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 19
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("*")
    
    Program.Delay(50)
    TextWindow.CursorTop  = 18
    TextWindow.CursorLeft = 63
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 17
    TextWindow.CursorLeft = 63
    TextWindow.WriteLine("*")
    
    Program.Delay(50)
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 66
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 68
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 13
    TextWindow.CursorLeft = 70
    TextWindow.WriteLine("*")
    
    TextWindow.CursorTop  = 22         
    TextWindow.CursorLeft = 94
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 21
    TextWindow.CursorLeft = 96
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 98
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 19
    TextWindow.CursorLeft = 100
    TextWindow.WriteLine("*")
    
    Program.Delay(50)
    TextWindow.CursorTop  = 18
    TextWindow.CursorLeft = 101
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 17
    TextWindow.CursorLeft = 101
    TextWindow.WriteLine("*")
    
    Program.Delay(50)
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 100
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 98
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 96
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 13
    TextWindow.CursorLeft = 94
    TextWindow.WriteLine("*")
    
    For KN1 = 72 To 92 Step 2          '1. ŞEKİL KENAR'
      Program.Delay(50)
      TextWindow.CursorTop  = 13
      TextWindow.CursorLeft = KN1
      TextWindow.WriteLine("*")
    EndFor
    
    For KN2 = 72 To 92 Step 2
      Program.Delay(50)
      TextWindow.CursorTop  = 22
      TextWindow.CursorLeft = KN2
      TextWindow.WriteLine("*")
    EndFor
      
    Program.Delay(50)  
    TextWindow.CursorTop  = 36          '2. ŞEKLİN KÖŞELERİ '
    TextWindow.CursorLeft = 70
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 35
    TextWindow.CursorLeft = 68
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 34
    TextWindow.CursorLeft = 66
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 33
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("*")
    
    Program.Delay(50)
    TextWindow.CursorTop  = 32
    TextWindow.CursorLeft = 63
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 31
    TextWindow.CursorLeft = 63
    TextWindow.WriteLine("*")
    
    Program.Delay(50)
    TextWindow.CursorTop  = 30
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 29
    TextWindow.CursorLeft = 66
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 28
    TextWindow.CursorLeft = 68
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 27
    TextWindow.CursorLeft = 70
    TextWindow.WriteLine("*")
    
    Program.Delay(50)
    TextWindow.CursorTop  = 36         
    TextWindow.CursorLeft = 94
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 35
    TextWindow.CursorLeft = 96
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 34
    TextWindow.CursorLeft = 98
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 33
    TextWindow.CursorLeft = 100
    TextWindow.WriteLine("*")
    
    Program.Delay(50)
    TextWindow.CursorTop  = 32
    TextWindow.CursorLeft = 101
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 31
    TextWindow.CursorLeft = 101
    TextWindow.WriteLine("*")
    
    Program.Delay(50)
    TextWindow.CursorTop  = 30
    TextWindow.CursorLeft = 100
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 29
    TextWindow.CursorLeft = 98
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 28
    TextWindow.CursorLeft = 96
    TextWindow.WriteLine("*")
    Program.Delay(50)
    TextWindow.CursorTop  = 27
    TextWindow.CursorLeft = 94
    TextWindow.WriteLine("*")
    
    For KN3 = 72 To 92 Step 2        ' 2. ŞEKİL KENAR'
      Program.Delay(50)
      TextWindow.CursorTop  = 27
      TextWindow.CursorLeft = KN3
      TextWindow.WriteLine("*")
    EndFor
    
    For KN4 = 72 To 92 Step 2
      Program.Delay(50)
      TextWindow.CursorTop  = 36
      TextWindow.CursorLeft = KN4
      TextWindow.WriteLine("*")
    EndFor
    
    For B1 = 19 To 30          '1. VE 2. ŞEKİL BAĞLANTISI 1'
      Program.Delay(50)
      TextWindow.CursorTop  = B1
      TextWindow.CursorLeft = 63
      TextWindow.WriteLine("*")
    EndFor
    
    For B2 = 19 To 30          
      TextWindow.CursorTop  = B2
      TextWindow.CursorLeft = 101
      TextWindow.WriteLine("*")
    EndFor
    
    For B3 = 22 To 26          '1. VE 2. ŞEKİL BAĞLANTISI 2'
      Program.Delay(50)
      TextWindow.CursorTop  = B3
      TextWindow.CursorLeft = 70
      TextWindow.WriteLine("*")
    EndFor
    
    For B4 = 22 To 26   
      Program.Delay(50)
      TextWindow.CursorTop  = B4
      TextWindow.CursorLeft = 94
      TextWindow.WriteLine("*")
    EndFor
    
    
    For B5 = 13 To 26          '1. VE 2. ŞEKİL BAĞLANTISI 3'
      Program.Delay(50)
      TextWindow.CursorTop  = B5
      TextWindow.CursorLeft = 70
      TextWindow.WriteLine("*")
    EndFor
    
    For B6 = 13 To 26    
      Program.Delay(50)
      TextWindow.CursorTop  = B6
      TextWindow.CursorLeft = 94
      TextWindow.WriteLine("*")
    EndFor
    
    For B7 = 27 To 36          '1. VE 2. ŞEKİL BAĞLANTISI 4'
      Program.Delay(50)
      TextWindow.CursorTop  = B7
      TextWindow.CursorLeft = 70
      TextWindow.WriteLine("*")
    EndFor
    
    For B8 = 27 To 36     
      Program.Delay(50)
      TextWindow.CursorTop  = B8
      TextWindow.CursorLeft = 94
      TextWindow.WriteLine("*")
    EndFor
    
    Program.Delay(50)
    TextWindow.ForegroundColor = "BLUE"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 69
    TextWindow.WriteLine("-")
    Program.Delay(50)
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 67
    TextWindow.WriteLine("---")
    Program.Delay(50)
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 65
    TextWindow.WriteLine("-----")
    Program.Delay(50)
    TextWindow.CursorTop  = 17
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 18
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 19
    TextWindow.CursorLeft = 65
    TextWindow.WriteLine("-----")
    Program.Delay(50)
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 67
    TextWindow.WriteLine("---")
    Program.Delay(50)
    TextWindow.CursorTop  = 21
    TextWindow.CursorLeft = 69
    TextWindow.WriteLine("-")
    
    Program.Delay(50)
    TextWindow.ForegroundColor = "DARKGREEN"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("--")
    Program.Delay(50)
    TextWindow.CursorTop  = 21
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("----")
    Program.Delay(50)
    TextWindow.CursorTop  = 22
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 23
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 24
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 25
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 26
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 27
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 28
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("-----")
    Program.Delay(50)
    TextWindow.CursorTop  = 29
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("---")
    Program.Delay(50)
    TextWindow.CursorTop  = 28
    TextWindow.CursorLeft = 69
    TextWindow.WriteLine("-")
    Program.Delay(50)
    TextWindow.CursorTop  = 29
    TextWindow.CursorLeft = 66
    TextWindow.WriteLine("----")
    Program.Delay(50)
    TextWindow.CursorTop  = 30
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 31
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 32
    TextWindow.CursorLeft = 64
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 33
    TextWindow.CursorLeft = 65
    TextWindow.WriteLine("-----")
    Program.Delay(50)
    TextWindow.CursorTop  = 34
    TextWindow.CursorLeft = 67
    TextWindow.WriteLine("---")
    Program.Delay(50)
    TextWindow.CursorTop  = 35
    TextWindow.CursorLeft = 69
    TextWindow.WriteLine("-")
    
    Program.Delay(50)
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 23
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    Program.Delay(50)
    TextWindow.CursorTop  = 24
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    Program.Delay(50)
    TextWindow.CursorTop  = 25
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    Program.Delay(50)
    TextWindow.CursorTop  = 26
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    Program.Delay(50)
    TextWindow.CursorTop  = 27
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    Program.Delay(50)
    TextWindow.CursorTop  = 28
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    Program.Delay(50)
    TextWindow.CursorTop  = 29
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    Program.Delay(50)
    TextWindow.CursorTop  = 30
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    Program.Delay(50)
    TextWindow.CursorTop  = 31
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    Program.Delay(50)
    TextWindow.CursorTop  = 32
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    Program.Delay(50)
    TextWindow.CursorTop  = 33
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    Program.Delay(50)
    TextWindow.CursorTop  = 34
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    Program.Delay(50)
    TextWindow.CursorTop  = 35
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    
    Program.Delay(50)
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("-")
    Program.Delay(50)
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("---")
    Program.Delay(50)
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("-----")
    Program.Delay(50)
    TextWindow.CursorTop  = 17
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 18
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 19
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("-----")
    Program.Delay(50)
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("---")
    Program.Delay(50)
    TextWindow.CursorTop  = 21
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("-")
    
    Program.Delay(50)
    TextWindow.ForegroundColor = "CYAN"
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 99
    TextWindow.WriteLine("--")
    Program.Delay(50)
    TextWindow.CursorTop  = 21
    TextWindow.CursorLeft = 97
    TextWindow.WriteLine("----")
    Program.Delay(50)
    TextWindow.CursorTop  = 22
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 23
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 24
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 25
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 26
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 27
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 28
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 29
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 30
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 31
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 32
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("------")
    Program.Delay(50)
    TextWindow.CursorTop  = 33
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("-----")
    Program.Delay(50)
    TextWindow.CursorTop  = 34
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("---")
    Program.Delay(50)
    TextWindow.CursorTop  = 35
    TextWindow.CursorLeft = 95
    TextWindow.WriteLine("-")
    
    Program.Delay(50)
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 14
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    Program.Delay(50)
    TextWindow.CursorTop  = 15
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    Program.Delay(50)
    TextWindow.CursorTop  = 16
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    Program.Delay(50)
    TextWindow.CursorTop  = 17
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    Program.Delay(50)
    TextWindow.CursorTop  = 18
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    Program.Delay(50)
    TextWindow.CursorTop  = 18
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    Program.Delay(50)
    TextWindow.CursorTop  = 19
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    Program.Delay(50)
    TextWindow.CursorTop  = 20
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    Program.Delay(50)
    TextWindow.CursorTop  = 21
    TextWindow.CursorLeft = 71
    TextWindow.WriteLine("-----------------------")
    
    For MÇ = 35 To 125          'MASA ÇEVRE'
      Program.Delay(25)
      TextWindow.CursorTop  = 37
      TextWindow.CursorLeft = MÇ
      TextWindow.WriteLine("_")
    EndFor
    
    For MÇ = 37 To 27 Step -1
      Program.Delay(25)
      TextWindow.CursorTop  = MÇ
      TextWindow.CursorLeft = 35
      TextWindow.ForegroundColor = "YELLOW"
      TextWindow.WriteLine("|")
    EndFor
    
    For MÇ = 37 To 27 Step -1
      Program.Delay(25)
      TextWindow.CursorTop  = MÇ
      TextWindow.CursorLeft = 125
      TextWindow.ForegroundColor = "GREEN"
      TextWindow.WriteLine("|")
    EndFor
      
    For MÇ = 124 To 102 Step -1  
      Program.Delay(25)
      TextWindow.ForegroundColor = "RED"
      TextWindow.CursorTop  = 26
      TextWindow.CursorLeft = MÇ
      TextWindow.WriteLine("_")
    EndFor  
    
    For MÇ = 36 To 62  
      Program.Delay(25)
      TextWindow.ForegroundColor = "BLUE"
      TextWindow.CursorTop  = 26
      TextWindow.CursorLeft = MÇ
      TextWindow.WriteLine("_")
    EndFor  
    
    For MİD1 = 27 To 32          'MASA İÇ DOLGU'
    For MİD2 = 36 To 62         
      RENK = Math.GetRandomNumber(15)  
      Program.Delay(10)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = MİD1
      TextWindow.CursorLeft = MİD2
      TextWindow.WriteLine("_") 
    EndFor
    EndFor
    
    For MİD1 = 27 To 32          
    For MİD2 = 124 To 102 Step -1        
      RENK = Math.GetRandomNumber(15)  
      Program.Delay(10)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = MİD1
      TextWindow.CursorLeft = MİD2
      TextWindow.WriteLine("_") 
    EndFor
    EndFor
    
    For MİD = 36 To 63
      RENK = Math.GetRandomNumber(15)  
      Program.Delay(10)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = 33
      TextWindow.CursorLeft = MİD
      TextWindow.WriteLine("_") 
    EndFor
    
    For MİD = 124 To 101 Step -1
      RENK = Math.GetRandomNumber(15)  
      Program.Delay(10)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = 33
      TextWindow.CursorLeft = MİD
      TextWindow.WriteLine("_") 
    EndFor
    
    For MİD = 36 To 64
      RENK = Math.GetRandomNumber(15)  
      Program.Delay(10)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = 34
      TextWindow.CursorLeft = MİD
      TextWindow.WriteLine("_") 
    EndFor
    
    For MİD = 124 To 100 Step -1
      RENK = Math.GetRandomNumber(15)  
      Program.Delay(10)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = 34
      TextWindow.CursorLeft = MİD
      TextWindow.WriteLine("_") 
    EndFor
    
    For MİD = 36 To 65
      RENK = Math.GetRandomNumber(15)  
      Program.Delay(10)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = 35
      TextWindow.CursorLeft = MİD
      TextWindow.WriteLine("_") 
    EndFor
    
    For MİD = 124 To 99 Step -1
      RENK = Math.GetRandomNumber(15)  
      Program.Delay(10)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = 35
      TextWindow.CursorLeft = MİD
      TextWindow.WriteLine("_") 
    EndFor
    
    For MİD = 36 To 66
      RENK = Math.GetRandomNumber(15)  
      Program.Delay(10)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = 36
      TextWindow.CursorLeft = MİD
      TextWindow.WriteLine("_") 
    EndFor
    
    For MİD = 124 To 98 Step -1
      RENK = Math.GetRandomNumber(15)  
      Program.Delay(10)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = 36
      TextWindow.CursorLeft = MİD
      TextWindow.WriteLine("_") 
    EndFor
    
    For MB = 38 To 46          'MASA ÖN BACAK'
      Program.Delay(25)
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.CursorTop  = MB
      TextWindow.CursorLeft = 35
      TextWindow.WriteLine("|")
    EndFor
    
    For MB = 38 To 46
      Program.Delay(50)
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.CursorTop  = MB
      TextWindow.CursorLeft = 40
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(25)
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 46
    TextWindow.CursorLeft = 36
    TextWindow.WriteLine("____")
    
    For MB = 38 To 46
      Program.Delay(25)
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.CursorTop  = MB
      TextWindow.CursorLeft = 125
      TextWindow.WriteLine("|")
    EndFor
    
    For MB = 38 To 46
      Program.Delay(25)
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.CursorTop  = MB
      TextWindow.CursorLeft = 120
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(25)
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 46
    TextWindow.CursorLeft = 121
    TextWindow.WriteLine("____")
    
    For MBD = 45 To 38  Step -1       'MASA ÖN BACAK DOLGU'
      RENK = Math.GetRandomNumber(15) 
      Program.Delay(25)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = MBD
      TextWindow.CursorLeft = 36
      TextWindow.WriteLine("____")
    EndFor
    
    For MBD = 38 To 45       
      RENK = Math.GetRandomNumber(15) 
      Program.Delay(25)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = MBD
      TextWindow.CursorLeft = 121
      TextWindow.WriteLine("____")
    EndFor
    
    For MB = 42 To 38 Step -1        'MASA ARKA BACAK'
      Program.Delay(25)
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.CursorTop  = MB
      TextWindow.CursorLeft = 50
      TextWindow.WriteLine("|")
    EndFor 
    
    For MB = 42 To 38 Step -1
      Program.Delay(25)
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.CursorTop  = MB
      TextWindow.CursorLeft = 55
      TextWindow.WriteLine("|")
    EndFor 
    
    Program.Delay(25)
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 42
    TextWindow.CursorLeft = 51
    TextWindow.WriteLine("____")
    
    For MB = 42 To 38 Step -1
      Program.Delay(25)
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.CursorTop  = MB
      TextWindow.CursorLeft = 110
      TextWindow.WriteLine("|")
    EndFor
    
    For MB = 38 To 42
      Program.Delay(25)
      TextWindow.ForegroundColor = "BLACK"
      TextWindow.CursorTop  = MB
      TextWindow.CursorLeft = 105
      TextWindow.WriteLine("|")
    EndFor
    
    Program.Delay(25)
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 42
    TextWindow.CursorLeft = 106
    TextWindow.WriteLine("____")
    
    For MBD = 41 To 38  Step -1       'MASA ARKA BACAK DOLGU'
      RENK = Math.GetRandomNumber(15) 
      Program.Delay(25)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = MBD
      TextWindow.CursorLeft = 51
      TextWindow.WriteLine("____")
    EndFor
    
    For MBD = 38 To 41       
      RENK = Math.GetRandomNumber(15) 
      Program.Delay(25)
      TextWindow.ForegroundColor = RENK
      TextWindow.CursorTop  = MBD
      TextWindow.CursorLeft = 106
      TextWindow.WriteLine("____")
    EndFor
    
    For MUM1 = 11 To 16          'PASTA MUM'
      Program.Delay(50)
      TextWindow.ForegroundColor = "RED"
      TextWindow.CursorTop  = MUM1
      TextWindow.CursorLeft = 76
      TextWindow.WriteLine("|")
    EndFor 
    
    For MUM2 = 10 To 15
      Program.Delay(50)
      TextWindow.ForegroundColor = "CYAN"
      TextWindow.CursorTop  = MUM2
      TextWindow.CursorLeft = 81
      TextWindow.WriteLine("|")
    EndFor
      
    For MUM3 = 11 To 16
      Program.Delay(50)
      TextWindow.ForegroundColor = "GREEN"
      TextWindow.CursorTop  = MUM3
      TextWindow.CursorLeft = 86
      TextWindow.WriteLine("|")
    EndFor 
      
    Program.Delay(100)          'KUTLAMA MESAJ'
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 76
    TextWindow.WriteLine("7")
    Program.Delay(250)
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 76
    TextWindow.WriteLine("7")
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 33
    TextWindow.CursorLeft = 72
    TextWindow.WriteLine("M")
    
    Program.Delay(100)
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 86
    TextWindow.WriteLine("3")
    Program.Delay(250)
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 86
    TextWindow.WriteLine("3")
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 31
    TextWindow.CursorLeft = 74
    TextWindow.WriteLine("U")
    
    Program.Delay(100)
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 81
    TextWindow.WriteLine("8")
    Program.Delay(250)
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 81
    TextWindow.WriteLine("8")
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 29
    TextWindow.CursorLeft = 76
    TextWindow.WriteLine("T")
    
    Program.Delay(100)
    TextWindow.ForegroundColor = "BLUE"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 76
    TextWindow.WriteLine("1")
    Program.Delay(250)
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 76
    TextWindow.WriteLine("1")
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 27
    TextWindow.CursorLeft = 78
    TextWindow.WriteLine("L")
    
    Program.Delay(100)
    TextWindow.ForegroundColor = "BLACK"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 86
    TextWindow.WriteLine("5")
    Program.Delay(250)
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 86
    TextWindow.WriteLine("5")
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 25
    TextWindow.CursorLeft = 80
    TextWindow.WriteLine("U")
    
    Program.Delay(100)
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 81
    TextWindow.WriteLine("2")
    Program.Delay(250)
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 81
    TextWindow.WriteLine("2")
    TextWindow.ForegroundColor = "BLUE"
    TextWindow.CursorTop  = 23
    TextWindow.CursorLeft = 82
    TextWindow.WriteLine("Y")
    
    Program.Delay(100)
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 76
    TextWindow.WriteLine("0")
    Program.Delay(250)
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 76
    TextWindow.WriteLine("0")
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 25
    TextWindow.CursorLeft = 84
    TextWindow.WriteLine("A")
    
    Program.Delay(100)
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 81
    TextWindow.WriteLine("4")
    Program.Delay(250)
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 81
    TextWindow.WriteLine("4")
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 27
    TextWindow.CursorLeft = 86
    TextWindow.WriteLine("Ş")
    
    Program.Delay(100)
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 86
    TextWindow.WriteLine("9")
    Program.Delay(250)
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 86
    TextWindow.WriteLine("9")
    TextWindow.ForegroundColor = "BLUE"
    TextWindow.CursorTop  = 29
    TextWindow.CursorLeft = 88
    TextWindow.WriteLine("L")
    
    Program.Delay(100)
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 81
    TextWindow.WriteLine("6")
    Program.Delay(250)
    TextWindow.ForegroundColor = "MAGENTA"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 81
    TextWindow.WriteLine("6")
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 31
    TextWindow.CursorLeft = 90
    TextWindow.WriteLine("A")
    
    Program.Delay(100)
    TextWindow.ForegroundColor = "YELLOW"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 76
    TextWindow.WriteLine("1")
    Program.Delay(250)
    TextWindow.ForegroundColor = "GREEN"
    TextWindow.CursorTop  = 33
    TextWindow.CursorLeft = 92
    TextWindow.WriteLine("R")
    
    Program.Delay(100)
    TextWindow.ForegroundColor = "CYAN"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 86
    TextWindow.WriteLine("7")
    Program.Delay(250)
    İ = Text.ConvertToUpperCase(İSİM2)
    TextWindow.ForegroundColor = "CYAN"
    TextWindow.CursorTop  = 33
    TextWindow.CursorLeft = 76
    TextWindow.WriteLine(İ)
    
    Program.Delay(100)
    TextWindow.ForegroundColor = "WHITE"
    TextWindow.CursorTop  = 10
    TextWindow.CursorLeft = 81
    TextWindow.WriteLine("3")
    Program.Delay(250)
    TextWindow.ForegroundColor = "RED"
    TextWindow.CursorTop  = 33
    TextWindow.CursorLeft = 85
    TextWindow.WriteLine(CİNSİYET)  
    Program.Delay(2500)
    Sound.Stop("C:\Users\Ata\Downloads\doğum günü piyano.mp3")
    EndSub

    Saturday, May 19, 2018 6:07 AM
  • You can always publish your long programs by using the "Publish" button. Then you get a six charactercode, which everyone who want to see it, can use to download.

    Your program is so long that I can't see what is your problem.


    Jan [ WhTurner ] The Netherlands

    • Marked as answer by atahan84 Saturday, May 19, 2018 6:47 PM
    • Unmarked as answer by atahan84 Saturday, May 19, 2018 6:47 PM
    Saturday, May 19, 2018 8:25 AM
    Answerer
  • thank you jan, but ı couldn't publish this program with the 'publish' button.I dont  know jan maybe this very long.maybe is something wrong.so I had to publish my program this way :( you are right my program is very long but this is from the best of textwindows.belive me ;) 

    but I could not publish this program with the broadcast button.
    From the best of TextWindows
    Saturday, May 19, 2018 7:13 PM
  • The program  cannot publish because it is too long with 160 kByte.

    The Maximum is 65535 Byte without blanks and line Termination.

    It contains only subroutines and the complete logic is inside of the subroutines.

    Try to move the logic in a mainloop and use the subroutines only for Textwindow Outputs or for supporting the program logic.

    To reduce the coding lines is difficult in Small Basic,because it has no Parameter for subroutines.
    You can define the Parameter as global, but the Setting must be also execute with coding lines.

    FRESH IDEAS ARE WELCOME

    Basically the program runs  according the Guideline (7 Character(Password?) and Enter)

    But in some cases I see a System alert with negative Cursor Position !

    My Suggestion: Create a new program by using SB Prime and the included Flow Charts.
                           You learn a lot about programming.

    • Marked as answer by atahan84 Tuesday, May 29, 2018 5:36 PM
    Tuesday, May 22, 2018 8:33 AM
  • By carefull programming you can greatly reduce the size of the program. E.g. you Sub TARIH alone is 1091 characters,

    By going to ElseIf's , the length becomes 901 characters:

    Sub TARIH
      AY=Clock.Month
      If ay=1 Then
        A="OCAK"
      ElseIf AY=2 then
        A="SUBAT"
      ElseIf AY=3 then
        A="MART"
      ElseIf AY=4 then
        A="NISAN"
      ElseIf AY=5 then
        A="MAYIS"
      ElseIf AY=6 then
        A="HAZIRAN"
      ElseIf AY=7 then
        A="TEMMUZ"
      ElseIf AY=8 then
        A="AGUSTOS"
      ElseIf AY=9 then
        A="EYLUL"
      ElseIf AY=10 then
        A="EKIM"
      ElseIf AY=11 then
        A="KASIM"
      ElseIf AY=12 then
        A="ARALIK"
      EndIf
      Program.Delay(500)
      TextWindow.CursorTop  =  2
      TextWindow.CursorLeft =  3
      TextWindow.ForegroundColor = "MAGENTA"
      TextWindow.WriteLine("TARİH : ")
      GÜN=Clock.WeekDay
      G=Text.ConvertToUpperCase(GÜN)
      Program.Delay(500)
      TextWindow.CursorTop  = 2
      TextWindow.CursorLeft = 12
      TextWindow.ForegroundColor = "MAGENTA"
      TextWindow.WriteLine(G + "  " + Clock.Day + "/" + A + "/" + Clock.Year)
      Program.Delay(500)
    EndSub

    But by putting the monthname in an array, the length becomes 593

    characters

    Sub TARIH
      AY=Clock.Month
      AYY="1=OCAK;2=SUBAT;3=MART;4=NISAN;5=AYIS;6=HAZIRAN;7=TEMMUZ;8=AGUSTOS;9=EYLUL;10=EKIM;11=KASIM;12=ARALIK"
      A=AYY[AY]
      Program.Delay(500)
      TextWindow.CursorTop  =  2
      TextWindow.CursorLeft =  3
      TextWindow.ForegroundColor = "MAGENTA"
      TextWindow.WriteLine("TARİH : ")
      GÜN=Clock.WeekDay
      G=Text.ConvertToUpperCase(GÜN)
      Program.Delay(500)
      TextWindow.CursorTop  = 2
      TextWindow.CursorLeft = 12
      TextWindow.ForegroundColor = "MAGENTA"
      TextWindow.WriteLine(G + "  " + Clock.Day + "/" + A + "/" + Clock.Year)
      Program.Delay(500)
    EndSub

    Your subroutine KIG has the same text a number of times, this can be reduced a great deal, by using a loop for the 8 charcters and not repeating e.g. The CursortTop and CursorLeft each time.

    I don't know if you can reduce the length enough this way to allow publishing in one piece, but by rethinking your program it can become much shorter. 

    PROGRAMMING IS FUN


    Jan [ WhTurner ] The Netherlands

    Tuesday, May 22, 2018 11:56 AM
    Answerer
  • thank you backtothestart.I  will  do  better.


    • Edited by atahan84 Tuesday, May 29, 2018 5:49 PM
    Tuesday, May 29, 2018 5:41 PM
  • thank you jan I will do better
    Tuesday, May 29, 2018 5:48 PM