Option Explicit
Sub cmdCalculate_OnClick
Dim salon
Dim oda
Dim mutfak
Dim banyo
Dim yukseklik 
Dim toplam 
Dim kalorifer
Dim ellicm
Dim atmiscm
Dim isi 
ellicm=1795
atmiscm=2228

dim radio1_deger
dim radio2_deger
dim radio3_deger
dim radio4_deger
dim katsayi

if document.hesap.radio1.checked = true then radio1_deger = document.hesap.radio1.dataFld
if document.hesap.radio2.checked = true then radio1_deger = document.hesap.radio2.dataFld
if document.hesap.radio3.checked = true then radio1_deger = document.hesap.radio3.dataFld

if document.hesap.radio4.checked = true then radio2_deger = document.hesap.radio4.dataFld
if document.hesap.radio5.checked = true then radio2_deger = document.hesap.radio5.dataFld

if document.hesap.radio6.checked = true then radio3_deger = document.hesap.radio6.dataFld
if document.hesap.radio7.checked = true then radio3_deger = document.hesap.radio7.dataFld

if document.hesap.radio8.checked = true then radio4_deger = document.hesap.radio8.dataFld
if document.hesap.radio9.checked = true then radio4_deger = document.hesap.radio9.dataFld

katsayi =  Cint(radio1_deger) + Cint(radio2_deger)+ Cint(radio3_deger)+ Cint(radio4_deger)



yukseklik=document.hesap.yukseklik.value
if yukseklik<70 Then
kalorifer=ellicm
else
kalorifer=atmiscm
end if

isi=(Cint(document.hesap.salon.value)+Cint(document.hesap.oda.value)+Cint(document.hesap.mutfak.value)+Cint(document.hesap.banyo.value))*katsayi
toplam=CDbl(isi)/kalorifer
document.hesap.isi.value=Round(isi,2)
document.hesap.toplam.value=Round(toplam,2)
End sub