Clomosy Kitapta Verilen Pusula Kodu Tam Çalışmıyor


   var
 anaForm: TCLForm;
 hareketImg,yonImg: TClProImage;
 zamanlayici: TClTimer;
void sensorDurum;
var
 YHeading,XHeading,ZHeading: Double;
{
 if (not anaForm.FormOrientationSensor.Sensor == nil)
 {
 YHeading = anaForm.FormOrientationSensor.Sensor.HeadingY;
 XHeading = anaForm.FormOrientationSensor.Sensor.HeadingX;
 ZHeading = anaForm.FormOrientationSensor.Sensor.HeadingZ;
 
 hareketImg.RotationAngle = YHeading;
 
 }
}
{
 anaForm = TCLForm.Create(Self);
 
 anaForm.SetFormBGImage('https://clomosy.com/demos/compassbg.png');
 
 hareketImg = anaForm.AddNewProImage(anaForm,'hareketImg');
 clComponent.SetupComponent(hareketImg,'{"Align" : "Center", 
"Width":350,"Height":350,"ImgUrl":"https://clomosy.com/demos/compass2.png", 
"ImgFit":"yes"}');
 
 yonImg = anaForm.AddNewProImage(anaForm,'yonImg');
 clComponent.SetupComponent(yonImg,'{"Align" : "Center", 
"Width":350,"Height":350,"ImgUrl":"https://clomosy.com/demos/compass_arrow2.png", 
"ImgFit":"yes","MarginBottom":100,"MarginRight":28}');
 
 anaForm.FormOrientationSensorType = ostHeading;
 anaForm.FormOrientationSensor.Active = True;
 
 zamanlayici = anaForm.AddNewTimer(anaForm, 'zamanlayici', 500);
 zamanlayici.Enabled = True;
 anaForm.AddNewEvent(zamanlayici, tbeOnTimer, 'sensorDurum');
 
 anaForm.Run;
}

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
steelwing Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 10 Temmuz 2024 Konum: Konya Durum: Aktif Değil Puanlar: 14	Mesaj Seçenekleri Yanıt Yaz Alıntı steelwing Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Clomosy Kitapta Verilen Pusula Kodu Tam Çalışmıyor Gönderim Zamanı: 16 Temmuz 2024 Saat 16:54
	var anaForm: TCLForm; hareketImg,yonImg: TClProImage; zamanlayici: TClTimer; void sensorDurum; var YHeading,XHeading,ZHeading: Double; { if (not anaForm.FormOrientationSensor.Sensor == nil) { YHeading = anaForm.FormOrientationSensor.Sensor.HeadingY; XHeading = anaForm.FormOrientationSensor.Sensor.HeadingX; ZHeading = anaForm.FormOrientationSensor.Sensor.HeadingZ; hareketImg.RotationAngle = YHeading; } } { anaForm = TCLForm.Create(Self); anaForm.SetFormBGImage('https://clomosy.com/demos/compassbg.png'); hareketImg = anaForm.AddNewProImage(anaForm,'hareketImg'); clComponent.SetupComponent(hareketImg,'{"Align" : "Center", "Width":350,"Height":350,"ImgUrl":"https://clomosy.com/demos/compass2.png", "ImgFit":"yes"}'); yonImg = anaForm.AddNewProImage(anaForm,'yonImg'); clComponent.SetupComponent(yonImg,'{"Align" : "Center", "Width":350,"Height":350,"ImgUrl":"https://clomosy.com/demos/compass_arrow2.png", "ImgFit":"yes","MarginBottom":100,"MarginRight":28}'); anaForm.FormOrientationSensorType = ostHeading; anaForm.FormOrientationSensor.Active = True; zamanlayici = anaForm.AddNewTimer(anaForm, 'zamanlayici', 500); zamanlayici.Enabled = True; anaForm.AddNewEvent(zamanlayici, tbeOnTimer, 'sensorDurum'); anaForm.Run; }

Developer Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Forum Yöneticisi Kayıt Tarihi: 14 Haziran 2023 Durum: Aktif Değil Puanlar: 354	Mesaj Seçenekleri Yanıt Yaz Alıntı Developer Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 16 Temmuz 2024 Saat 17:25
	Merhaba steelwing, Bende kod doğru çalışıyor. Biraz daha ayrıntı verir misin ? Düzenleyen Developer - 16 Temmuz 2024 Saat 17:26