Clomosy | Forum : balon patlatma oynu https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 01 May 2026 19:41:22 +0000 Mon, 28 Jul 2025 09:38:07 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1139 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[balon patlatma oynu : Merhaba Hatice,Öncelikle şunu...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1139&PID=2374#2374 Yazar: Emr.Erkmn
Konu: 1139
Gönderim Zamanı: 28 Temmuz 2025 Saat 09:38

Merhaba Hatice,

Öncelikle şunu belirtmek isterim: Kodlarını TRObject diline uygun şekilde yazmaya dikkat et.

Aşağıda, bir prosedür örneği paylaşıyorum. Bu prosedür sayesinde, balonların   X–Y koordinatlarıyla hareket ettirilmesini sağlayabilirsin:

void KostebekGoster;
{
 Kostebek.Position.X = Random(OyunPanel.Width - Kostebek.Width - 20) + 10; Kostebek.Position.Y = Random(OyunPanel.Height - Kostebek.Height - 20) + 10; Kostebek.Visible = True;
}

Bu yapıyı kullanarak benzer şekilde balonlarını rastgele yer değiştirmesini sağlayabilirsin.

Kolay gelsin.




Düzenleyen Emr.Erkmn - 28 Temmuz 2025 Saat 09:38]]> Mon, 28 Jul 2025 09:38:07 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1139&PID=2374#2374 <![CDATA[balon patlatma oynu : := düzelttim olmadı yine eksiklerim...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1139&PID=2372#2372 Yazar: Hatice snk
Konu: 1139
Gönderim Zamanı: 27 Temmuz 2025 Saat 11:14

:= düzelttim olmadı yine eksiklerim nedir]]> Sun, 27 Jul 2025 11:14:57 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1139&PID=2372#2372 <![CDATA[balon patlatma oynu : var anaForm, oyunForm: TclForm;...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1139&PID=2371#2371 Yazar: Hatice snk
Konu: 1139
Gönderim Zamanı: 27 Temmuz 2025 Saat 11:11

var
  anaForm, oyunForm: TclForm;
  baslaBtn: TclProButton;
  baslikLbl, balonLbl: TclProLabel;
  skorLabel, sureLabel: TclProLabel;
  zamanlayici, animasyonTimer: TclTimer;
  balon1, balon2, balon3: TclProButton;
  skor, kalanSure: Integer;

// Sayıyı stringe çevir
function IntToStr(i: Integer): string;
var
  s: string;
begin
  s := '';
  if i = 0 then
    s := '0'
  else
    while i > 0 do
    begin
      s := Chr(48 + (i mod 10)) + s;
      i := i div 10;
    end;
  Result := s;
end;

// BALON PATLATMA
procedure BalonPatlat(Sender: TObject);
begin
  skor := skor + 1;
  skorLabel.Caption := 'Skor: ' + IntToStr(skor);
  TclProButton(Sender).Visible := False;
end;

// SÜRE AZALTMA
procedure SureAzalt(Sender: TObject);
begin
  kalanSure := kalanSure - 1;
  sureLabel.Caption := 'Süre: ' + IntToStr(kalanSure) + ' sn';

  if kalanSure <= 0 then
  begin
    zamanlayici.Enabled := False;
    animasyonTimer.Enabled := False;
    ShowMessage('Süre doldu! Skorun: ' + IntToStr(skor));
    oyunForm.Close;
    anaForm.Show;
  end;
end;

// BALON ANİMASYONU
procedure BalonlariHareketEttir(Sender: TObject);
begin
  if balon1.Top > -60 then balon1.Top := balon1.Top - 5;
  if balon2.Top > -60 then balon2.Top := balon2.Top - 6;
  if balon3.Top > -60 then balon3.Top := balon3.Top - 4;
end;

// BAŞLA TIKLA
procedure BaslaTikla(Sender: TObject);
begin
  anaForm.Hide;

  oyunForm := TclForm.Create(self);
  skor := 0;
  kalanSure := 30;

  // Skor etiketi
  skorLabel := oyunForm.AddNewProLabel(oyunForm, 'skorLabel', 'Skor: 0');
  skorLabel.Left := 20;
  skorLabel.Top := 20;
  skorLabel.Width := 150;
  skorLabel.Height := 30;

  // Süre etiketi
  sureLabel := oyunForm.AddNewProLabel(oyunForm, 'sureLabel', 'Süre: 30 sn');
  sureLabel.Left := 200;
  sureLabel.Top := 20;
  sureLabel.Width := 150;
  sureLabel.Height := 30;
// Balon 1
balon1 := oyunForm.AddNewProButton(oyunForm, 'balon1', '🎈');
balon1.Left := 50;
balon1.Top := 400;
balon1.Width := 60;
balon1.Height := 60;
balon1.Align := alNone;
oyunForm.AddNewEvent(balon1, tbeOnClick, 'BalonPatlat');

// Balon 2
balon2 := oyunForm.AddNewProButton(oyunForm, 'balon2', '🎈');
balon2.Left := 150;
balon2.Top := 400;
balon2.Width := 60;
balon2.Height := 60;
balon2.Align := alNone;
oyunForm.AddNewEvent(balon2, tbeOnClick, 'BalonPatlat');

// Balon 3
balon3 := oyunForm.AddNewProButton(oyunForm, 'balon3', '🎈');
balon3.Left := 250;
balon3.Top := 400;
balon3.Width := 60;
balon3.Height := 60;
balon3.Align := alNone;
oyunForm.AddNewEvent(balon3, tbeOnClick, 'BalonPatlat');

  // Süre timer'ı
  zamanlayici := oyunForm.AddNewTimer(oyunForm, 'zamanlayici', 1000);
  oyunForm.AddNewEvent(zamanlayici, tbeOnTimer, 'SureAzalt');

  // Animasyon timer'ı
  animasyonTimer := oyunForm.AddNewTimer(oyunForm, 'animasyonTimer', 50);
  oyunForm.AddNewEvent(animasyonTimer, tbeOnTimer, 'BalonlariHareketEttir');

  oyunForm.Run;
end;

// ANA FORM
begin
  anaForm := TclForm.Create(self);

  baslikLbl := anaForm.AddNewProLabel(anaForm, 'baslikLbl', '🎈 BALON PATLATMACA 🎈');
  baslikLbl.Left := 200;
  baslikLbl.Top := 100;
  baslikLbl.Width := 400;
  baslikLbl.Height := 50;

  balonLbl := anaForm.AddNewProLabel(anaForm, 'balonLbl', 'Hazırsan başla!');
  balonLbl.Left := 250;
  balonLbl.Top := 200;
  balonLbl.Width := 200;
  balonLbl.Height := 30;

  baslaBtn := anaForm.AddNewProButton(anaForm, 'baslaBtn', 'BAŞLA');
  baslaBtn.Left := 300;
  baslaBtn.Top := 250;
  baslaBtn.Width := 120;
  baslaBtn.Height := 40;
  anaForm.AddNewEvent(baslaBtn, tbeOnClick, 'BaslaTikla');

  anaForm.Run;
end.
    

balonlar üste üste, süre geriye dogru gitmiyor ve animasyon çalışmıyor.

]]> Sun, 27 Jul 2025 11:11:33 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1139&PID=2371#2371