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 pomodoro uygulaması bu sayfadan da ses seçim Uniti yapmaya çalıştım btnMuzik1 çalışıyor ama diğer butonlara tıkladığımda RUNTIME ERROR hatası alıyorum nasıl ses ekleyebilirim ?
|