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    127 Görüntüleme
Konu Kapalı

Paylaşım Tarihi: 14.05.2016, 21:33:54 #1
ByClxon SEA !
Efsane Üye
Status: Çevrimdışı Yorumları:1,012 Konuları:442 Kayıt Tarihi:07.01.2016 Rep Puanı: 667

[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



Ads%C4%B1z.jpg

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

https://www.facebook.com/profile.php?id=100012991933980


Ö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!



LQgldG.png






 

         





Önceki Konu Sonraki Konu

Konu Kapalı




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

Konuyu Okuyanlar:
1 Ziyaretçi