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


Genel & Off Topic    Konu Dışı , Eğlence-Muhabbet , Tanışma , Yarışma & Etkinlik Bölümü

Yazar: lDarkAngeL    0 Yorum    90 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 01.08.2016, 12:49:33 #1
lDarkAngeL MaskeliHacker
Efsane Üye
Status: Çevrimdışı Yorum Sayısı:1,241 Konu Sayısı:508 Üyelik Tarihi:19.03.2016 Rep Puanı: 807

PHP Kod:

Kod:
[color=yellowgreen][font=tahoma]procedure TForm1.Button1Click(Sender: TObject);[/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] 




[Ziyaretçiler Linklerimizi Göremezler ! Kayıt Ol!] 

Kullanıcı İmzası

İmage










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

Konuyu görüntüleyenler:
1 Misafir