Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - rununit hata vetriyo
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

rununit hata vetriyo
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
osman efe atik Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 04 Mayıs 2026
Durum: Aktif Değil
Puanlar: 6 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı osman efe atik Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: rununit hata vetriyo
    Gönderim Zamanı: 14 Saat 19 Dakika Önce Saat 21:31
ilk kodhttps://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">
var
MyForm : TclForm;
Yukari : TClProButton;
Asagi : TClProButton;
Sag : TClProButton;
Sol : TClProButton;
Player : TClProImage;
Food1 , Food2 , Food3 , Cikis : TClProImage;
GameTimer : TClTimer;
x1 , x2 , x3 , y1 , y2 , y3 : Integer

void GoUp;
{
   Player.Position.Y = Player.Position.Y - 50;
    if (MyForm.clIsIntersectsWith(Player, Food1))
   {
      Food1.Visible = False;
   }             
    
   if (MyForm.clIsIntersectsWith(Player, Food2))
   {
      Food2.Visible = False;
   }
    
   if (MyForm.clIsIntersectsWith(Player, Food3))
   {
      Food3.Visible = False;
   }  
     
    if (Food1.Visible == False && Food2.Visible == False && Food3.Visible == False)
    {
        Cikis.Visible = True
    }
   if (MyForm.clIsIntersectsWith(Player, Cikis))
   {
      Clomosy.RunUnit('rununite')
      MyForm.Close;
   }
}

void GoRight;
{
   Player.Position.X = Player.Position.X + 50;
    if (MyForm.clIsIntersectsWith(Player, Food1))
   {
      Food1.Visible = False;
   }             
    
   if (MyForm.clIsIntersectsWith(Player, Food2))
   {
      Food2.Visible = False;
   }
    
   if (MyForm.clIsIntersectsWith(Player, Food3))
   {
      Food3.Visible = False;
   }  
     
    if (Food1.Visible == False && Food2.Visible == False && Food3.Visible == False)
    {
        Cikis.Visible = True
    }  
   if (MyForm.clIsIntersectsWith(Player, Cikis))
   {
      Clomosy.RunUnit('rununite')
      MyForm.Close;
   }
}

void GoLeft;
{
   Player.Position.X = Player.Position.X - 50;
    if (MyForm.clIsIntersectsWith(Player, Food1))
   {
      Food1.Visible = False;
   }             
    
   if (MyForm.clIsIntersectsWith(Player, Food2))
   {
      Food2.Visible = False;
   }
    
   if (MyForm.clIsIntersectsWith(Player, Food3))
   {
      Food3.Visible = False;
   }  
     
    if (Food1.Visible == False && Food2.Visible == False && Food3.Visible == False)
    {
        Cikis.Visible = True
    } 
    if (MyForm.clIsIntersectsWith(Player, Cikis))
    {
      Clomosy.RunUnit('rununite')
      MyForm.Close;
    }
}

void GoDown;
{
   Player.Position.Y = Player.Position.Y + 50;
    if (MyForm.clIsIntersectsWith(Player, Food1))
   {
      Food1.Visible = False;
   }             
    
   if (MyForm.clIsIntersectsWith(Player, Food2))
   {
      Food2.Visible = False;
   }
    
   if (MyForm.clIsIntersectsWith(Player, Food3))
   {
      Food3.Visible = False;
   }  
     
    if ((Food1.Visible == False) && (Food2.Visible == False) && (Food3.Visible == False))
    {
        Cikis.Visible = True
    } 
    if (MyForm.clIsIntersectsWith(Player, Cikis))
    {
       Clomosy.RunUnit('rununite')
       MyForm.Close;
    }
}
/*
void gizle;
{
   if (MyForm.clIsIntersectsWith(Player, Food1))
   {
      Food1.Visible = False;
   }             
    
   if (MyForm.clIsIntersectsWith(Player, Food2))
   {
      Food2.Visible = False;
   }
    
   if (MyForm.clIsIntersectsWith(Player, Food3))
   {
      Food3.Visible = False;
   }  
     
    if (Food1.Visible == False && Food2.Visible == False && Food3.Visible == False)
    {
        Cikis.Visible = True
    }  
     
      if (MyForm.clIsIntersectsWith(Player, Cikis))
   {
      Clomosy.RunUnit('rununite')
   }
  
}*/



{
   MyForm = TclForm.Create(Self);
   MyForm.SetFormColor('#2d62cd', 'color2', clGNone);
   MyForm.FormWaiting.Visible = False;
   MyForm.BtnGoBack.Visible = False;
   MyForm.BtnFormMenu.Visible = False;
   MyForm.clSetWindowState(fwsMaximized);

    
   x1 = Round(Random()*28)*50
   x2 = Round(Random()*28)*50
   x3 = Round(Random()*28)*50
   y1 = Round(Random()*12)*50
   y2 = Round(Random()*12)*50
   y3 = Round(Random()*12)*50
    
   Player = MyForm.AddNewProImage(MyForm, 'Player');
   Player.clProSettings.PictureSource = 'https://resmim.net/cdn/2026/04/29/CbMBGW.png';
   Player.Height = 100;
   Player.Width = 50;
   Player.Align = alNone;
   Player.Position.X = 50;
   Player.Position.Y = 50;
   Player.SetclProSettings(Player.clProSettings);

   Food1 = MyForm.AddNewProImage(MyForm , 'Food1');
   Food1.clProSettings.PictureSource = 'https://resmim.net/cdn/2026/04/29/CbMYTh.jpg';
   Food1.Height = 100;
   Food1.Width = 50;
   Food1.Align = alNone;
   Food1.Position.X = x1;
   Food1.Position.Y = y1;
   Food1.SetclProSettings(Food1.clProSettings);
  
   Food2 = MyForm.AddNewProImage(MyForm , 'Food2');
   Food2.clProSettings.PictureSource = 'https://resmim.net/cdn/2026/04/29/CbMYTh.jpg';
   Food2.Height = 100;
   Food2.Width = 50;
   Food2.Align = alNone;
   Food2.Position.X = x2;
   Food2.Position.Y = y2;
   Food2.SetclProSettings(Food2.clProSettings);
  
   Food3 = MyForm.AddNewProImage(MyForm , 'Food3');
   Food3.clProSettings.PictureSource = 'https://resmim.net/cdn/2026/04/29/CbMYTh.jpg';
   Food3.Height = 100;
   Food3.Width = 50;
   Food3.Align = alNone;
   Food3.Position.X = x3;
   Food3.Position.Y = y3;
   Food3.SetclProSettings(Food3.clProSettings);

   Cikis = MyForm.AddNewProImage(MyForm , 'Cikis')
   Cikis.clProSettings.PictureSource = 'https://resmim.net/cdn/2026/04/29/CbMyB3.png';
   Cikis.Height = 100;
   Cikis.Width = 100;
   Cikis.Align = alNone;
   Cikis.Position.X = 50;
   Cikis.Position.Y = 550;
   Cikis.Visible = False;
   Cikis.SetclProSettings(Cikis.clProSettings);  
    
   Yukari = MyForm.AddNewProButton(MyForm,'Yukari','Y');
   Yukari.Align = alNone;
   Yukari.Position.X = 650;
   Yukari.Position.Y = 530;
   Yukari.Width = 20;
   Yukari.Height = 50;
   Yukari.clProSettings.isRound = True;
   Yukari.clProSettings.BorderWidth = 2;
   Yukari.clProSettings.BorderColor = clAlphaColor.clHexToColor('#030202');
   Yukari.SetclProSettings(Yukari.clProSettings);
   MyForm.AddNewEvent(Yukari,tbeOnClick,'GoUp');

   Sag = MyForm.AddNewProButton(MyForm,'Sag','SA');
   Sag.Align = alNone;
   Sag.Position.X = 670;
   Sag.Position.Y = 580;
   Sag.Width = 50;
   Sag.Height = 20;
   Sag.clProSettings.isRound = True;
   Sag.clProSettings.BorderWidth = 2;
   Sag.clProSettings.BorderColor = clAlphaColor.clHexToColor('#030202');
   Sag.SetclProSettings(Sag.clProSettings);
   MyForm.AddNewEvent(Sag,tbeOnClick,'GoRight');

   Sol = MyForm.AddNewProButton(MyForm,'Sol','SO');
 Sol.Align = alNone;
   Sol.Position.X = 600;
 Sol.Position.Y = 580;
 Sol.Width = 50;
 Sol.Height = 20;
 Sol.clProSettings.isRound = True;
 Sol.clProSettings.BorderWidth = 2;
 Sol.clProSettings.BorderColor = clAlphaColor.clHexToColor('#030202');
 Sol.SetclProSettings(Sol.clProSettings);
 MyForm.AddNewEvent(Sol,tbeOnClick,'GoLeft');

 Asagi = MyForm.AddNewProButton(MyForm,'Asagi','Aş');
 Asagi.Align = alNone;
 Asagi.Position.X = 650;
 Asagi.Position.Y = 600;
 Asagi.Width = 20;
 Asagi.Height = 50;
 Asagi.clProSettings.isRound = True;
 Asagi.clProSettings.BorderWidth = 2;
 Asagi.clProSettings.BorderColor = clAlphaColor.clHexToColor('#030202');
 Asagi.SetclProSettings(Asagi.clProSettings);
 MyForm.AddNewEvent(Asagi,tbeOnClick,'GoDown');

 GameTimer = MyForm.AddNewTimer(MyForm, 'GameTimer', 100);  
 GameTimer.Enabled = True;
 /*MyForm.AddNewEvent(GameTimer , tbeOnTimer , 'gizle');*/



 MyForm.Run;
}


rununite kod
var
Form1 : TclForm
Tas1 , Tas2 , Tas3 , Tas4 , Player1 : TClProImage
FallTimer , TimeTimer : TCLTimer
x1 , x2 , x3 , x4 , A , B , C , D : Integer
TimeLeft : Integer 
BtnLeft , BtnRight : TClProButton
Label1 : TClProLabel

void MoveLeft;
{
  Player1.Position.X = Player1.Position.X - 50;
}

void MoveRight;
{
  Player1.Position.X = Player1.Position.X + 50;
}

void timerShow;
{
Tas1.Position.Y = Tas1.Position.Y + A
Tas2.Position.Y = Tas2.Position.Y + B
Tas3.Position.Y = Tas3.Position.Y + C
Tas4.Position.Y = Tas4.Position.Y + D

if(Tas1.Position.Y >= 800)
{
A = A+1
Tas1.Position.Y = Tas1.Position.Y - 800
Tas1.Position.X = Round(Random()*50)*25
}

if(Tas2.Position.Y >= 800)
{
B = B+1
Tas2.Position.Y = Tas2.Position.Y - 800
Tas2.Position.X = Round(Random()*50)*25
}

if(Tas3.Position.Y >= 800)
{
C = C+1
Tas3.Position.Y = Tas3.Position.Y - 800
Tas3.Position.X = Round(Random()*50)*25
}

if(Tas4.Position.Y >= 800)
{
D = D+1
Tas4.Position.Y = Tas4.Position.Y - 800
Tas4.Position.X = Round(Random()*50)*25
}

 if (Form1.clIsIntersectsWith(Player1, Tas1))
   {
      FallTimer.Enabled = False
      ShowMessage('Game Over');
      Form1.Close;
   }
   
   if (Form1.clIsIntersectsWith(Player1, Tas2))
   {
      FallTimer.Enabled = False
      ShowMessage('Game Over');
      Form1.Close;
   }
   
   if (Form1.clIsIntersectsWith(Player1, Tas3))
   {
      FallTimer.Enabled = False
      ShowMessage('Game Over');
      Form1.Close;
   }
   
   if (Form1.clIsIntersectsWith(Player1, Tas4))
   {
      FallTimer.Enabled = False
      TimeTimer.Enabled = False
      ShowMessage('Game Over');
      Form1.Close;
   }
   
} 

void  TimeTimerTimer
{

   if(TimeLeft <= 0)
   {
      TimeTimer.Enabled = false;
      FallTimer.Enabled = false;
      ShowMessage("Kazandın");
   }
   else
   TimeLeft = TimeLeft - 1;
}


{
  Form1 = TclForm.Create(Self);
  Form1.clSetWindowState(fwsMaximized);
  Form1.BtnGoBack.Visible = False;
  Form1.BtnFormMenu.Visible = False;
  Form1.clSetWindowState(fwsMaximized);
  
  x1  = Round(Random()*50)*25
  x2  = Round(Random()*50)*25
  x3  = Round(Random()*50)*25
  x4  = Round(Random()*50)*25
  A = 9;
  B = 10 ;
  C = 11;
  D = 12;
  TimeLeft = 20;
  
  Player1 = Form1.AddNewProImage(Form1, 'Player1');
  Player1.clProSettings.PictureSource = 'https://resmim.net/cdn/2026/04/29/CbMBGW.png';
  Player1.Height = 100;
  Player1.Width = 50;
  Player1.Align = alNone;
  Player1.Position.X = 600;
  Player1.Position.Y = 600;
  Player1.SetclProSettings(Player1.clProSettings);
  
  Tas1 = Form1.AddNewProImage(Form1 , 'Tas1')
  Tas1.clProSettings.PictureSource = 'https://resmim.net/cdn/2026/04/30/CbeqAj.jpg'
  Tas1.Height = 50
  Tas1.Width = 50
  Tas1.Align = alNone
  Tas1.Position.X = x1
  Tas1.Position.Y = 0
  Tas1.SetclProSettings(Tas1.clProSettings)
  
    Tas2 = Form1.AddNewProImage(Form1 , 'Tas2')
  Tas2.clProSettings.PictureSource = 'https://resmim.net/cdn/2026/04/30/CbeqAj.jpg'
  Tas2.Height = 50
  Tas2.Width = 50
  Tas2.Align = alNone
  Tas2.Position.X = x2
  Tas2.Position.Y = 0
  Tas2.SetclProSettings(Tas2.clProSettings)
  
    Tas3 = Form1.AddNewProImage(Form1 , 'Tas3')
  Tas3.clProSettings.PictureSource = 'https://resmim.net/cdn/2026/04/30/CbeqAj.jpg'
  Tas3.Height = 50
  Tas3.Width = 50
  Tas3.Align = alNone
  Tas3.Position.X = x3
  Tas3.Position.Y = 0
  Tas3.SetclProSettings(Tas3.clProSettings)
  
  Tas4 = Form1.AddNewProImage(Form1 , 'Tas4')
  Tas4.clProSettings.PictureSource = 'https://resmim.net/cdn/2026/04/30/CbeqAj.jpg'
  Tas4.Height = 50
  Tas4.Width = 50
  Tas4.Align = alNone
  Tas4.Position.X = x4
  Tas4.Position.Y = 0
  Tas4.SetclProSettings(Tas4.clProSettings)
  
  BtnLeft = Form1.AddNewProButton(Form1, 'BtnLeft' , 'Sol')
  BtnLeft.Align = alNone
  BtnLeft.Position.X = 400;
  BtnLeft.Position.Y = 550;
  BtnLeft.ClProSettings.BackgroundColor = ClAlphaColor.ClHextoColor ('#6F130F');
  BtnLeft.SetclProSettings(BtnLeft.ClProSettings);
  Form1.AddNewEvent(BtnLeft, tbeOnClick, 'MoveLeft');

  BtnRight = Form1.AddNewProButton(Form1, 'BtnRight' , 'Sağ')
  BtnRight.Align = alNone
  BtnRight.Position.X = 520;
  BtnRight.Position.Y = 550;
  BtnRight.ClProSettings.BackgroundColor = ClAlphaColor.ClHextoColor ('#6F130F');
  BtnRight.SetclProSettings(BtnRight.ClProSettings);
  Form1.AddNewEvent(BtnRight, tbeOnClick, 'MoveRight');
  
FallTimer = Form1.AddNewTimer(Form1,'FallTimer', 10);
FallTimer.Enabled = True;
Form1.AddNewEvent(FallTimer,tbeOnTimer,'timerShow');

TimeTimer = Form1.AddNewTimer(Form1,'TimeTimer', 1000);
TimeTimer.Enabled = True; 
Form1.AddNewEvent(TimeTimer , tbeOnTimer , 'TimeTimerTimer')

Label1 = Form1.AddNewProLabel(Form1, 'Label1', '');
Label1.Position.X = 600
Label1.Position.Y = 5
Label1.Caption = IntToStr(TimeLeft);
Label1.SetclProSettings(Label1.ClProSettings)


  Form1.Run;
} 

ilk kodda 93,19 when evaluating instruction CallProc ($FFFFFFFF,$1,$125A270,$0,'RunUnit').
hatası veriyo
Yukarı Dön
kayra.55 Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 17 Kasım 2025
Durum: Aktif Değil
Puanlar: 30 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kayra.55 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 2 Saat 21 Dakika Önce Saat 09:29
var
MyForm : TclForm;
Yukari : TClProButton;
Asagi : TClProButton;
Sag : TClProButton;
Sol : TClProButton;
Player : TClProImage;
Food1 , Food2 , Food3 , Cikis : TClProImage;
GameTimer : TClTimer;
x1 , x2 , x3 , y1 , y2 , y3 : Integer;

void GoUp;
{
   Player.Position.Y = Player.Position.Y - 50;
   
   if (MyForm.clIsIntersectsWith(Player, Food1))
   {
      Food1.Visible = False;
   }             
    
   if (MyForm.clIsIntersectsWith(Player, Food2))
   {
      Food2.Visible = False;
   }
    
   if (MyForm.clIsIntersectsWith(Player, Food3))
   {
      Food3.Visible = False;
   }  
     
   if (Food1.Visible == False && Food2.Visible == False && Food3.Visible == False)
   {
       Cikis.Visible = True;
   }
   
   if (MyForm.clIsIntersectsWith(Player, Cikis))
   {
      Clomosy.RunUnit('rununite');
   }
}

void GoRight;
{
   Player.Position.X = Player.Position.X + 50;
   
   if (MyForm.clIsIntersectsWith(Player, Food1))
   {
      Food1.Visible = False;
   }             
    
   if (MyForm.clIsIntersectsWith(Player, Food2))
   {
      Food2.Visible = False;
   }
    
   if (MyForm.clIsIntersectsWith(Player, Food3))
   {
      Food3.Visible = False;
   }  
     
   if (Food1.Visible == False && Food2.Visible == False && Food3.Visible == False)
   {
       Cikis.Visible = True;
   }  
   
   if (MyForm.clIsIntersectsWith(Player, Cikis))
   {
      Clomosy.RunUnit('rununite');
   }
}

void GoLeft;
{
   Player.Position.X = Player.Position.X - 50;
   
   if (MyForm.clIsIntersectsWith(Player, Food1))
   {
      Food1.Visible = False;
   }             
    
   if (MyForm.clIsIntersectsWith(Player, Food2))
   {
      Food2.Visible = False;
   }
    
   if (MyForm.clIsIntersectsWith(Player, Food3))
   {
      Food3.Visible = False;
   }  
     
   if (Food1.Visible == False && Food2.Visible == False && Food3.Visible == False)
   {
       Cikis.Visible = True;
   } 
   
   if (MyForm.clIsIntersectsWith(Player, Cikis))
   {
      Clomosy.RunUnit('rununite');
   }
}

void GoDown;
{
   Player.Position.Y = Player.Position.Y + 50;
   
   if (MyForm.clIsIntersectsWith(Player, Food1))
   {
      Food1.Visible = False;
   }             
    
   if (MyForm.clIsIntersectsWith(Player, Food2))
   {
      Food2.Visible = False;
   }
    
   if (MyForm.clIsIntersectsWith(Player, Food3))
   {
      Food3.Visible = False;
   }  
     
   if ((Food1.Visible == False) && (Food2.Visible == False) && (Food3.Visible == False))
   {
       Cikis.Visible = True;
   } 
   
   if (MyForm.clIsIntersectsWith(Player, Cikis))
   {
       Clomosy.RunUnit('uRUN');
   }
}

{
   MyForm = TclForm.Create(Self);
   MyForm.SetFormColor('#2d62cd', 'color2', clGNone);
   MyForm.FormWaiting.Visible = False;
   MyForm.BtnGoBack.Visible = False;
   MyForm.BtnFormMenu.Visible = False;
   MyForm.clSetWindowState(fwsMaximized);
    
   x1 = Round(Random()*28)*50;
   x2 = Round(Random()*28)*50;
   x3 = Round(Random()*28)*50;
   y1 = Round(Random()*12)*50;
   y2 = Round(Random()*12)*50;
   y3 = Round(Random()*12)*50;
    
   Player = MyForm.AddNewProImage(MyForm, 'Player');
   Player.clProSettings.PictureSource = 'https://resmim.net/cdn/2026/04/29/CbMBGW.png';
   Player.Height = 100;
   Player.Width = 50;
   Player.Align = alNone;
   Player.Position.X = 50;
   Player.Position.Y = 50;
   Player.SetclProSettings(Player.clProSettings);

   Food1 = MyForm.AddNewProImage(MyForm , 'Food1');
   Food1.clProSettings.PictureSource = 'https://resmim.net/cdn/2026/04/29/CbMYTh.jpg';
   Food1.Height = 100;
   Food1.Width = 50;
   Food1.Align = alNone;
   Food1.Position.X = x1;
   Food1.Position.Y = y1;
   Food1.SetclProSettings(Food1.clProSettings);
  
   Food2 = MyForm.AddNewProImage(MyForm , 'Food2');
   Food2.clProSettings.PictureSource = 'https://resmim.net/cdn/2026/04/29/CbMYTh.jpg';
   Food2.Height = 100;
   Food2.Width = 50;
   Food2.Align = alNone;
   Food2.Position.X = x2;
   Food2.Position.Y = y2;
   Food2.SetclProSettings(Food2.clProSettings);
  
   Food3 = MyForm.AddNewProImage(MyForm , 'Food3');
   Food3.clProSettings.PictureSource = 'https://resmim.net/cdn/2026/04/29/CbMYTh.jpg';
   Food3.Height = 100;
   Food3.Width = 50;
   Food3.Align = alNone;
   Food3.Position.X = x3;
   Food3.Position.Y = y3;
   Food3.SetclProSettings(Food3.clProSettings);

   Cikis = MyForm.AddNewProImage(MyForm , 'Cikis');
   Cikis.clProSettings.PictureSource = 'https://resmim.net/cdn/2026/04/29/CbMyB3.png';
   Cikis.Height = 100;
   Cikis.Width = 100;
   Cikis.Align = alNone;
   Cikis.Position.X = 50;
   Cikis.Position.Y = 550;
   Cikis.Visible = False;
   Cikis.SetclProSettings(Cikis.clProSettings);  
    
   Yukari = MyForm.AddNewProButton(MyForm,'Yukari','Y');
   Yukari.Align = alNone;
   Yukari.Position.X = 650;
   Yukari.Position.Y = 530;
   Yukari.Width = 20;
   Yukari.Height = 50;
   Yukari.clProSettings.isRound = True;
   Yukari.clProSettings.BorderWidth = 2;
   Yukari.clProSettings.BorderColor = clAlphaColor.clHexToColor('#030202');
   Yukari.SetclProSettings(Yukari.clProSettings);
   MyForm.AddNewEvent(Yukari,tbeOnClick,'GoUp');

   Sag = MyForm.AddNewProButton(MyForm,'Sag','SA');
   Sag.Align = alNone;
   Sag.Position.X = 670;
   Sag.Position.Y = 580;
   Sag.Width = 50;
   Sag.Height = 20;
   Sag.clProSettings.isRound = True;
   Sag.clProSettings.BorderWidth = 2;
   Sag.clProSettings.BorderColor = clAlphaColor.clHexToColor('#030202');
   Sag.SetclProSettings(Sag.clProSettings);
   MyForm.AddNewEvent(Sag,tbeOnClick,'GoRight');

   Sol = MyForm.AddNewProButton(MyForm,'Sol','SO');
   Sol.Align = alNone;
   Sol.Position.X = 600;
   Sol.Position.Y = 580;
   Sol.Width = 50;
   Sol.Height = 20;
   Sol.clProSettings.isRound = True;
   Sol.clProSettings.BorderWidth = 2;
   Sol.clProSettings.BorderColor = clAlphaColor.clHexToColor('#030202');
   Sol.SetclProSettings(Sol.clProSettings);
   MyForm.AddNewEvent(Sol,tbeOnClick,'GoLeft');

   Asagi = MyForm.AddNewProButton(MyForm,'Asagi','Aş');
   Asagi.Align = alNone;
   Asagi.Position.X = 650;
   Asagi.Position.Y = 600;
   Asagi.Width = 20;
   Asagi.Height = 50;
   Asagi.clProSettings.isRound = True;
   Asagi.clProSettings.BorderWidth = 2;
   Asagi.clProSettings.BorderColor = clAlphaColor.clHexToColor('#030202');
   Asagi.SetclProSettings(Asagi.clProSettings);
   MyForm.AddNewEvent(Asagi,tbeOnClick,'GoDown');

   GameTimer = MyForm.AddNewTimer(MyForm, 'GameTimer', 100);  
   GameTimer.Enabled = True;

   MyForm.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">
Yukarı Dön
kayra.55 Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 17 Kasım 2025
Durum: Aktif Değil
Puanlar: 30 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kayra.55 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 2 Saat 19 Dakika Önce Saat 09:31
var
Form1 : TclForm;
Tas1 , Tas2 , Tas3 , Tas4 , Player1 : TClProImage;
FallTimer , TimeTimer : TCLTimer;
x1 , x2 , x3 , x4 , A , B , C , D : Integer;
TimeLeft : Integer; 
BtnLeft , BtnRight : TClProButton;
Label1 : TClProLabel;

void MoveLeft;
{
  Player1.Position.X = Player1.Position.X - 50;
}

void MoveRight;
{
  Player1.Position.X = Player1.Position.X + 50;
}

void timerShow;
{
  Tas1.Position.Y = Tas1.Position.Y + A;
  Tas2.Position.Y = Tas2.Position.Y + B;
  Tas3.Position.Y = Tas3.Position.Y + C;
  Tas4.Position.Y = Tas4.Position.Y + D;

  if(Tas1.Position.Y >= 800)
  {
    A = A+1;
    Tas1.Position.Y = Tas1.Position.Y - 800;
    Tas1.Position.X = Round(Random()*50)*25;
  }

  if(Tas2.Position.Y >= 800)
  {
    B = B+1;
    Tas2.Position.Y = Tas2.Position.Y - 800;
    Tas2.Position.X = Round(Random()*50)*25;
  }

  if(Tas3.Position.Y >= 800)
  {
    C = C+1;
    Tas3.Position.Y = Tas3.Position.Y - 800;
    Tas3.Position.X = Round(Random()*50)*25;
  }

  if(Tas4.Position.Y >= 800)
  {
    D = D+1;
    Tas4.Position.Y = Tas4.Position.Y - 800;
    Tas4.Position.X = Round(Random()*50)*25;
  }

  if (Form1.clIsIntersectsWith(Player1, Tas1))
  {
     FallTimer.Enabled = False;
     ShowMessage('Game Over');
     Form1.Close;
  }
   
  if (Form1.clIsIntersectsWith(Player1, Tas2))
  {
     FallTimer.Enabled = False;
     ShowMessage('Game Over');
     Form1.Close;
  }
   
  if (Form1.clIsIntersectsWith(Player1, Tas3))
  {
     FallTimer.Enabled = False;
     ShowMessage('Game Over');
     Form1.Close;
  }
   
  if (Form1.clIsIntersectsWith(Player1, Tas4))
  {
     FallTimer.Enabled = False;
     TimeTimer.Enabled = False;
     ShowMessage('Game Over');
     Form1.Close;
  }
} 

void TimeTimerTimer;
{
   if(TimeLeft <= 0)
   {
      TimeTimer.Enabled = False;
      FallTimer.Enabled = False;
      ShowMessage('Kazandın');
   }
   else
   {
      TimeLeft = TimeLeft - 1;
      Label1.Caption = IntToStr(TimeLeft);
   }
}

{
  Form1 = TclForm.Create(Self);
  Form1.clSetWindowState(fwsMaximized);
  Form1.BtnGoBack.Visible = False;
  Form1.BtnFormMenu.Visible = False;
  Form1.clSetWindowState(fwsMaximized);
  
  x1  = Round(Random()*50)*25;
  x2  = Round(Random()*50)*25;
  x3  = Round(Random()*50)*25;
  x4  = Round(Random()*50)*25;
  A = 9;
  B = 10;
  C = 11;
  D = 12;
  TimeLeft = 20;
  
  Player1 = Form1.AddNewProImage(Form1, 'Player1');
  Player1.clProSettings.PictureSource = 'https://resmim.net/cdn/2026/04/29/CbMBGW.png';
  Player1.Height = 100;
  Player1.Width = 50;
  Player1.Align = alNone;
  Player1.Position.X = 600;
  Player1.Position.Y = 600;
  Player1.SetclProSettings(Player1.clProSettings);
  
  Tas1 = Form1.AddNewProImage(Form1 , 'Tas1');
  Tas1.clProSettings.PictureSource = 'https://resmim.net/cdn/2026/04/30/CbeqAj.jpg';
  Tas1.Height = 50;
  Tas1.Width = 50;
  Tas1.Align = alNone;
  Tas1.Position.X = x1;
  Tas1.Position.Y = 0;
  Tas1.SetclProSettings(Tas1.clProSettings);
  
  Tas2 = Form1.AddNewProImage(Form1 , 'Tas2');
  Tas2.clProSettings.PictureSource = 'https://resmim.net/cdn/2026/04/30/CbeqAj.jpg';
  Tas2.Height = 50;
  Tas2.Width = 50;
  Tas2.Align = alNone;
  Tas2.Position.X = x2;
  Tas2.Position.Y = 0;
  Tas2.SetclProSettings(Tas2.clProSettings);
  
  Tas3 = Form1.AddNewProImage(Form1 , 'Tas3');
  Tas3.clProSettings.PictureSource = 'https://resmim.net/cdn/2026/04/30/CbeqAj.jpg';
  Tas3.Height = 50;
  Tas3.Width = 50;
  Tas3.Align = alNone;
  Tas3.Position.X = x3;
  Tas3.Position.Y = 0;
  Tas3.SetclProSettings(Tas3.clProSettings);
  
  Tas4 = Form1.AddNewProImage(Form1 , 'Tas4');
  Tas4.clProSettings.PictureSource = 'https://resmim.net/cdn/2026/04/30/CbeqAj.jpg';
  Tas4.Height = 50;
  Tas4.Width = 50;
  Tas4.Align = alNone;
  Tas4.Position.X = x4;
  Tas4.Position.Y = 0;
  Tas4.SetclProSettings(Tas4.clProSettings);
  
  BtnLeft = Form1.AddNewProButton(Form1, 'BtnLeft' , 'Sol');
  BtnLeft.Align = alNone;
  BtnLeft.Position.X = 400;
  BtnLeft.Position.Y = 550;
  BtnLeft.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#6F130F');
  BtnLeft.SetclProSettings(BtnLeft.clProSettings);
  Form1.AddNewEvent(BtnLeft, tbeOnClick, 'MoveLeft');

  BtnRight = Form1.AddNewProButton(Form1, 'BtnRight' , 'Sağ');
  BtnRight.Align = alNone;
  BtnRight.Position.X = 520;
  BtnRight.Position.Y = 550;
  BtnRight.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#6F130F');
  BtnRight.SetclProSettings(BtnRight.clProSettings);
  Form1.AddNewEvent(BtnRight, tbeOnClick, 'MoveRight');
  
  FallTimer = Form1.AddNewTimer(Form1,'FallTimer', 10);
  FallTimer.Enabled = True;
  Form1.AddNewEvent(FallTimer,tbeOnTimer,'timerShow');

  TimeTimer = Form1.AddNewTimer(Form1,'TimeTimer', 1000);
  TimeTimer.Enabled = True; 
  Form1.AddNewEvent(TimeTimer , tbeOnTimer , 'TimeTimerTimer');

  Label1 = Form1.AddNewProLabel(Form1, 'Label1', '');
  Label1.Position.X = 600;
  Label1.Position.Y = 5;
  Label1.Caption = IntToStr(TimeLeft);
  Label1.SetclProSettings(Label1.clProSettings);

  Form1.Run;
}  Merhabalar efe kodunda bulunan bir ana kodun birde unitin var iyi çalışmalar 

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">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,063 Saniyede Yüklendi.