Delphi-Sıcaklık Değerini Değiştirme


Memory Mezarlığı    Forumda Gereksiz Bulanan veya Artık İşlevi Olmayan Konuların Taşındığı Kategori ( Bi Fatiha Okumadan Geçmeyiniz :) )

Yazar: ByClxon    0 Yorum    99 Görüntüleme
  • 0 Oy - 0 Yüzde
Konu Kapalı

Paylaşım Tarihi: 14.05.2016, 21:33:54 #1
ByClxon SEA !
Efsane Üye
Status: Çevrimdışı Yorum Sayısı:1,020 Konu Sayısı:444 Üyelik Tarihi:07.01.2016 Rep Puanı: 664

PHP Kod:
[color=yellowgreen][font=tahoma]procedure TForm1.Button1Click(SenderTObject);[/font][/color][color=YellowGreen]var
a,yenideger:real;
begin
a
:=strtofloat(edit1.text);
if 
radiobutton1.Checked then
yenideger
:=((a)*(9/5))+32;
edit2.text:=floattostr(yenideger);
if 
radiobutton2.checked then
yenideger
:=((a)-32)*(5/9);
edit2.text:=floattostr(yenideger);
end;
[/
color][color=yellowgreen][font=tahoma]end.[/font][/color



linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.

Kullanıcı İmzası
#fenerbahçeA.A.K.
İmage
İletişim İçin Facebook;

linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.


Öfkemiz sarsın her yanı, bozkurtlar yürüye yürüye
Dökülsün düşmanın kanı, yaşasın ırkçı TÜRKİYE!

Taşında gözü olanın yurduna MEZAR kazacağız
Hainin, soysuzun, döneğin alnına VATAN yaazcağız
Hainin, soysuzun alnına YAŞASIN TURAN yazacağız!



İmage






 

         




Konu Kapalı






Aradığınızı Bulamadınız Mı ?

Konuyu görüntüleyenler:
1 Misafir