Clomosy | Forum : hata düzeltme https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 21 Aug 2026 01:39:35 +0000 Sun, 10 May 2026 22:36:52 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1501 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[hata düzeltme : var Form1: TclForm; Timer1: TClTimer;...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1501&PID=3451#3451 Yazar: Emr.Erkmn
Konu: 1501
Gönderim Zamanı: 10 Mayıs 2026 Saat 22:36

var
  Form1: TclForm;
  Timer1: TClTimer;
  GridW, GridH: Integer;
  SnakeX: array[0..100] of Integer;
  SnakeY: array[0..100] of Integer;
  SnakeLen: Integer;
  FoodX, FoodY: Integer;
  DirX, DirY: Integer;
  OyunBitti: Boolean;
  Puan: Integer;
  GameMemo: TclMemo;

void YemekUret;
var
  i: Integer;
  Gecerli: Boolean;
{
  Gecerli = False;
  while (not Gecerli)
  {
    Gecerli = True;
    FoodX = Random(GridW);
    FoodY = Random(GridH);
    for (i = 0 to SnakeLen - 1)
    {
      if ((SnakeX == FoodX) && (SnakeY == FoodY))
      {
        Gecerli = False;
        break;
      }
    }
  }
}

void Ciz;
var
  i, x, y: Integer;
  Satir, Ekran: String;
  YilanVar: Boolean;
{
  Ekran = '';
  for (x = 0 to GridW + 1) Ekran = Ekran + '#';
  Ekran = Ekran + #13;
  
  for (y = 0 to GridH - 1)
  {
    Satir = '#';
    for (x = 0 to GridW - 1)
    {
      if ((SnakeX[0] == x) && (SnakeY[0] == y))
      {
        Satir = Satir + 'O';
      }
      else
      {
        YilanVar = False;
        for (i = 1 to SnakeLen - 1)
        {
          if ((SnakeX == x) && (SnakeY == y))
          {
            YilanVar = True;
            break;
          }
        }
        
        if (YilanVar)
          Satir = Satir + 'o';
        else if ((FoodX == x) && (FoodY == y))
          Satir = Satir + 'F';
        else
          Satir = Satir + '.';
      }
    }
    Ekran = Ekran + Satir + '#' + #13;
  }
  
  for (x = 0 to GridW + 1) Ekran = Ekran + '#';
  Ekran = Ekran + #13 + 'PUAN: ' + IntToStr(Puan);
  
  if (OyunBitti) 
    Ekran = Ekran + #13 + 'OYUN BITTI! [R] Yeniden Baslat';
    
  GameMemo.Lines.Text = Ekran;
}

void Hareket;
var
  i: Integer;
  YeniX, YeniY: Integer;
  YemekYendi: Boolean;
{
  if (OyunBitti) exit;
  
  YeniX = SnakeX[0] + DirX;
  YeniY = SnakeY[0] + DirY;
  
  if ((YeniX < 0) || (YeniX >= GridW) || (YeniY < 0) || (YeniY >= GridH))
  {
    OyunBitti = True;
    Ciz;
    exit;
  }
  
  YemekYendi = (YeniX == FoodX) && (YeniY == FoodY);
  
  if (YemekYendi)
  {
    SnakeLen = SnakeLen + 1;
    Puan = Puan + 10;
    for (i = SnakeLen - 1 downto 1)
    {
      SnakeX = SnakeX[i-1];
      SnakeY = SnakeY[i-1];
    }
    YemekUret;
  }
  else
  {
    for (i = SnakeLen - 1 downto 1)
    {
      SnakeX = SnakeX[i-1];
      SnakeY = SnakeY[i-1];
    }
  }
  
  SnakeX[0] = YeniX;
  SnakeY[0] = YeniY;
  
  for (i = 1 to SnakeLen - 1)
  {
    if ((SnakeX[0] == SnakeX) && (SnakeY[0] == SnakeY))
    {
      OyunBitti = True;
      break;
    }
  }
  Ciz;
}

void Baslat;
var
  i: Integer;
{
  GridW = 20;
  GridH = 12;
  SnakeLen = 3;
  for (i = 0 to SnakeLen - 1)
  {
    SnakeX = 10 - i;
    SnakeY = 6;
  }
  DirX = 1;
  DirY = 0;
  OyunBitti = False;
  Puan = 0;
  YemekUret;
  Ciz;
}

void TimerOlayi;
{
  Hareket;
}

void FormKeyDown;
{
  if (OyunBitti)
  {
    if (UpperCase(Form1.clSenderKeyChar) == 'R') Baslat;
    exit;
  }
  
  if (UpperCase(Form1.clSenderKeyChar) == 'W') 
    if (DirY <> 1) 
    DirX = 0; DirY = -1;
      
  if (UpperCase(Form1.clSenderKeyChar) == 'S') 
    if (DirY <> -1) DirX = 0; DirY = 1;
  if (UpperCase(Form1.clSenderKeyChar) == 'A') 
    if (DirX <> 1) DirX = -1; DirY = 0;
  if (UpperCase(Form1.clSenderKeyChar) == 'D') 
    if (DirX <> -1) DirX = 1; DirY = 0;
}

{
  Form1 = TclForm.Create(Self);
  
  GameMemo = Form1.AddNewMemo(Form1, 'GameMemo', '');
  GameMemo.Align = alClient;
  GameMemo.ReadOnly = True;
  
  Timer1 = Form1.AddNewTimer(Form1, 'Timer1', 200);
  Timer1.Enabled = True;
  
  Form1.AddNewEvent(Timer1, tbeOnTimer, 'TimerOlayi');
  Form1.AddNewEvent(Form1, tbeOnKeyDown, 'FormKeyDown');
  
  Baslat;
  Form1.Run;
}
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">]]> Sun, 10 May 2026 22:36:52 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1501&PID=3451#3451 <![CDATA[hata düzeltme : var Form1: TclForm; Timer1: TClTimer;...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1501&PID=3444#3444 Yazar: Mali Demirok
Konu: 1501
Gönderim Zamanı: 10 Mayıs 2026 Saat 15:38

var
  Form1: TclForm;
  Timer1: TClTimer;
  GridW, GridH: Integer;
  SnakeX: array[0..100] of Integer;
  SnakeY: array[0..100] of Integer;
  SnakeLen: Integer;
  FoodX, FoodY: Integer;
  DirX, DirY: Integer;
  OyunBitti: Boolean;
  Puan: Integer;
  SonHareket: TDateTime;

procedure YemekUret;
var
  i: Integer;
  Gecerli: Boolean;
{
  do
  {
    Gecerli = True;
    FoodX = Random(GridW);
    FoodY = Random(GridH);
    for (i = 0 to SnakeLen-1)
    {
      if ((SnakeX == FoodX) && (SnakeY == FoodY))
      {
        Gecerli = False;
        break;
      }
    }
  } while (!Gecerli);
}

procedure Ciz;
var
  i, x, y: Integer;
  Satir: String;
{
  Satir = "";
  for (x = 0 to GridW+1) Satir = Satir + "#";
  ShowMessage(Satir);
  
  for (y = 0 to GridH-1)
  {
    Satir = "#";
    for (x = 0 to GridW-1)
    {
      if ((SnakeX[0] == x) && (SnakeY[0] == y))
      {
        Satir = Satir + "O";
      }
      else
      {
        var YilanVar = False;
        for (i = 1 to SnakeLen-1)
        {
          if ((SnakeX == x) && (SnakeY == y))
          {
            Satir = Satir + "o";
            YilanVar = True;
            break;
          }
        }
        if ((FoodX == x) && (FoodY == y))
          Satir = Satir + "F";
        else if (!YilanVar)
          Satir = Satir + ".";
      }
    }
    Satir = Satir + "#";
    ShowMessage(Satir);
  }
  
  Satir = "";
  for (x = 0 to GridW+1) Satir = Satir + "#";
  ShowMessage(Satir);
  ShowMessage("PUAN: " + IntToStr(Puan));
  if (OyunBitti) ShowMessage("OYUN BITTI! R ile yeniden baslat");
}

procedure Hareket;
var
  i: Integer;
  YeniX, YeniY: Integer;
  YemekYendi: Boolean;
{
  if (OyunBitti) exit;
  
  YeniX = SnakeX[0] + DirX;
  YeniY = SnakeY[0] + DirY;
  
  if ((YeniX < 0) || (YeniX >= GridW) || (YeniY < 0) || (YeniY >= GridH))
  {
    OyunBitti = True;
    Ciz();
    exit;
  }
  
  YemekYendi = (YeniX == FoodX) && (YeniY == FoodY);
  
  if (YemekYendi)
  {
    for (i = SnakeLen downto 1)
    {
      SnakeX = SnakeX[i-1];
      SnakeY = SnakeY[i-1];
    }
    SnakeLen = SnakeLen + 1;
    Puan = Puan + 10;
    YemekUret();
  }
  else
  {
    for (i = SnakeLen-1 downto 1)
    {
      SnakeX = SnakeX[i-1];
      SnakeY = SnakeY[i-1];
    }
  }
  
  SnakeX[0] = YeniX;
  SnakeY[0] = YeniY;
  
  if (!YemekYendi)
  {
    for (i = 1 to SnakeLen-1)
    {
      if ((SnakeX[0] == SnakeX) && (SnakeY[0] == SnakeY))
      {
        OyunBitti = True;
        break;
      }
    }
  }
  Ciz();
}

procedure YonDegistir(yDx, yDy: Integer);
{
  if (!((DirX == -yDx) && (DirY == -yDy)))
  {
    DirX = yDx;
    DirY = yDy;
  }
}

procedure Baslat;
var
  i: Integer;
{
  GridW = 20;
  GridH = 15;
  SnakeLen = 3;
  for (i = 0 to SnakeLen-1)
  {
    SnakeX = 10 - i;
    SnakeY = 7;
  }
  DirX = 1;
  DirY = 0;
  OyunBitti = False;
  Puan = 0;
  YemekUret();
  SonHareket = Now;
  Ciz();
}

void TimerOlayi;
{
  if (MillisecondsBetween(Now, SonHareket) >= 200)
  {
    Hareket();
    SonHareket = Now;
  }
}

void FormKeyDown;
var
  tus: String;
{
  tus = Form1.clSenderKeyChar;
  
  if (OyunBitti)
  {
    if ((tus == "R") || (tus == "r")) Baslat();
    exit;
  }
  
  if ((tus == "W") || (tus == "w")) YonDegistir(0, -1);
  if ((tus == "S") || (tus == "s")) YonDegistir(0, 1);
  if ((tus == "A") || (tus == "a")) YonDegistir(-1, 0);
  if ((tus == "D") || (tus == "d")) YonDegistir(1, 0);
}

{
  Form1 = TclForm.Create(Self);
  Timer1 = Form1.AddNewTimer(Form1, "Timer1", 50);
  Timer1.Enabled = True;
  Form1.AddNewEvent(Timer1, tbeOnTimer, "TimerOlayi");
  Form1.AddNewEvent(Form1, tbeOnKeyDown, "FormKeyDown");
  Baslat();
  Form1.Run();
}  sa kodum birkaç yerde hata veriyor hataları düzeltip kodu tekrardan yazabilir misiniz
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">]]> Sun, 10 May 2026 15:38:29 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1501&PID=3444#3444