Milisekunde

[Laz61]

Arkadaslar merhaba

Timer interval'inin Milisecond (milisekunde)sini saniyeye ceviren bir funksiyon varmi. Veya nasil yapilabilir.

Selamlar

[mkysoft]

bine yada yüze bölünüz.

[Laz61]

Arkadaslar merhaba

Bir ritim-tempo programi yapiyorum. Timeri sekunde olarak almam gerek; sadece bölmeyle olmaz. Yani millisecond'u saniye olarak vermesi lazim. Programla Ritmi 40'dan 208'e kadar ayarlama imkani olsun.

Selamlar

[aslangeri]

s.a.
senin editine saniyeyi girer.
sende saniyeyi milisaniyeye nasıl çeviren bir fonksiyon yazarsın.
saniye ile milisaniye arasındaki ilişkiyi biliyorsun değilmi?

[Laz61]

Arkadaslar merhaba

Isin dogrusu beceremedim. Bir sürü hesap kitap yaptim olmadi. Yaptigim seylerin cok dogru olduklarindan da emin degilim. Nette bir sürü siteler var saniye, ns, ms. ceviren. Hepinizin bildigi bir ''Tempo-Ritim'' nasil yapilir? Arka planda milisaniye olarak calisssada, görünürde reel sayilarla artirilip eksilmesi lazim.

Yani Timer intervalini 1000 olarak alirsak, arti artirarak, 1001, 1002, 1003, 1004, 1005 degilde 1,2, 3, 4, 5 vs. Veya eksi olarak: 5, 4, 3, 2, 1 gibi.

Tesekkürler

[emin_as]

Aşagıdakine benzer bir kod işini görür.
Sanırım saniyeyi de integer tutmaya kalktın ve integerla ondalık gösteremediğinden kafan karıştı.
Ondalık sayılarla işlem yapman gerekirse, double tipini kullanmalısın.

Kod: Tümünü seç

var
  saniye, milisaniye     : double;
begin
   saniye:=milisaniye / 1000;  // 350 milisaniye  0.350 saniye olarak yazılacaktır
   label1.Caption:=FormatFloat('#,##0.000',saniye)+' saniye ';
end;  

Daha basit bir yöntem ise convert fonksiyonunu kullanmandır.

Kod: Tümünü seç

uses convutils,stdconvs;
var
  saniye, millisaniye : double;
....
saniye:=convert(millisaniye,tumilliseconds,tuseconds);