Sayfayı Yazdır | Pencereyi Kapat

Ses Ekleme

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Form Oluşturma
Forum Adı: TclForm Oluşturma
Forum Tanımlaması: Standart bir form oluşturma
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=599
Tarih: 04 Ocak 2025 Saat 11:48
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: Ses Ekleme
Mesajı Yazan: Eren_
Konu: Ses Ekleme
Mesaj Tarihi: 25 Mayıs 2024 Saat 08:43
var
    muzikForm: TclGameForm;
    btnAnaKodaGidis: TclButton;
    btnMuzik1, btnMuzik2, btnMuzik3, btnMuzik4, btnMuzik5: TclButton;
    soundFile1, soundFile2, soundFile3, soundFile4, soundFile5: Integer;

void anaFormGidis;
{
    CallerForm.clShow;
}

void BtnMuzik1OnClick;
{
    muzikForm.PlayGameSound(soundFile1);
}

void BtnMuzik2OnClick;
{
    muzikForm.PlayGameSound(soundFile2);
}

void BtnMuzik3OnClick;
{
    muzikForm.PlayGameSound(soundFile3);
}

void BtnMuzik4OnClick;
{
    muzikForm.PlayGameSound(soundFile4);
}

void BtnMuzik5OnClick;
{
    muzikForm.PlayGameSound(soundFile5);
}

{
    muzikForm = TclGameForm.Create(Self);
    
    muzikForm.AddGameAssetFromUrl(' https://www.clomosy.com/game/assets/Fire.wav" rel="nofollow - https://www.clomosy.com/game/assets/Fire.wav '); // Müzik 1
    muzikForm.AddGameAssetFromUrl(' https://www.clomosy.com/game/assets/Water.wav" rel="nofollow - https://www.clomosy.com/game/assets/Water.wav '); // Müzik 2
    muzikForm.AddGameAssetFromUrl(' https://www.clomosy.com/game/assets/Wind.wav" rel="nofollow - https://www.clomosy.com/game/assets/Wind.wav '); // Müzik 3
    muzikForm.AddGameAssetFromUrl(' https://www.clomosy.com/game/assets/Earth.wav" rel="nofollow - https://www.clomosy.com/game/assets/Earth.wav '); // Müzik 4
    muzikForm.AddGameAssetFromUrl(' https://www.clomosy.com/game/assets/Chimes.wav" rel="nofollow - https://www.clomosy.com/game/assets/Chimes.wav '); // Müzik 5
    
    soundFile1 = muzikForm.RegisterSound('Fire.wav');
    soundFile2 = muzikForm.RegisterSound('Water.wav');
    soundFile3 = muzikForm.RegisterSound('Wind.wav');
    soundFile4 = muzikForm.RegisterSound('Earth.wav');
    soundFile5 = muzikForm.RegisterSound('Chimes.wav');
    
    muzikForm.SoundIsActive = True;
    muzikForm.SetFormColor('#FD5F38', '#FC4966', clGVertical);

    btnMuzik1 = muzikForm.AddNewButton(muzikForm, 'btnMuzik1', 'Müzik 1');
    btnMuzik1.Align = alTop;
    btnMuzik1.Width = 500;
    btnMuzik1.Height = 80;
    btnMuzik1.Margins.Top = 10;
    btnMuzik1.Margins.Left = 2;
    btnMuzik1.Margins.Right = 2;
    btnMuzik1.TextSettings.Font.Size = 14;
    muzikForm.AddNewEvent(btnMuzik1, tbeOnClick, 'BtnMuzik1OnClick');

    btnMuzik2 = muzikForm.AddNewButton(muzikForm, 'btnMuzik2', 'Müzik 2');
    btnMuzik2.Align = alTop;
    btnMuzik2.Width = 500;
    btnMuzik2.Height = 80;
    btnMuzik2.Margins.Top = 10;
    btnMuzik2.Margins.Left = 2;
    btnMuzik2.Margins.Right = 2;
    btnMuzik2.TextSettings.Font.Size = 14;
    muzikForm.AddNewEvent(btnMuzik2, tbeOnClick, 'BtnMuzik2OnClick');

    btnMuzik3 = muzikForm.AddNewButton(muzikForm, 'btnMuzik3', 'Müzik 3');
    btnMuzik3.Align = alTop;
    btnMuzik3.Width = 500;
    btnMuzik3.Height = 80;
    btnMuzik3.Margins.Top = 10;
    btnMuzik3.Margins.Left = 2;
    btnMuzik3.Margins.Right = 2;
    btnMuzik3.TextSettings.Font.Size = 14;
    muzikForm.AddNewEvent(btnMuzik3, tbeOnClick, 'BtnMuzik3OnClick');

    btnMuzik4 = muzikForm.AddNewButton(muzikForm, 'btnMuzik4', 'Müzik 4');
    btnMuzik4.Align = alTop;
    btnMuzik4.Width = 500;
    btnMuzik4.Height = 80;
    btnMuzik4.Margins.Top = 10;
    btnMuzik4.Margins.Left = 2;
    btnMuzik4.Margins.Right = 2;
    btnMuzik4.TextSettings.Font.Size = 14;
    muzikForm.AddNewEvent(btnMuzik4, tbeOnClick, 'BtnMuzik4OnClick');

    btnMuzik5 = muzikForm.AddNewButton(muzikForm, 'btnMuzik5', 'Müzik 5');
    btnMuzik5.Align = alTop;
    btnMuzik5.Width = 500;
    btnMuzik5.Height = 80;
    btnMuzik5.Margins.Top = 10;
    btnMuzik5.Margins.Left = 2;
    btnMuzik5.Margins.Right = 2;
    btnMuzik5.TextSettings.Font.Size = 14;
    muzikForm.AddNewEvent(btnMuzik5, tbeOnClick, 'BtnMuzik5OnClick');

    btnAnaKodaGidis = muzikForm.AddNewButton(muzikForm, 'btnAnaKodaGidis', 'Ana Sayfaya Dön');
    btnAnaKodaGidis.Align = alTop;
    btnAnaKodaGidis.Margins.Top = 100;
    btnAnaKodaGidis.Width = 300;
    btnAnaKodaGidis.Height = 80;
    muzikForm.AddNewEvent(btnAnaKodaGidis, tbeOnClick, 'anaFormGidis');
    
    muzikForm.Run;
}
Uygulamam bir pomodoro uygulaması bu Unit müzik ekleme Uniti burada btnMuzik1 butonuna bastığımda ses alabiliyorum ama diğer butonlara tıkladığım zaman farklı url ler denememe rağmen sesleri ekleyemedim çözümü nedir ?



Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net