İçerideki Formülü Programa Çevirebilecek Olan Varmı?

Tahribat.com Forumları
line

C#, Asp.Net, .Net Core
line

İçerideki Formülü Programa Çevirebilecek Olan Varmı?

23/Eyl/10 13:47 Kısayol Şikayet Özel Mesaj

sanane

Kayıt Tarihi: 24/Ağustos/2002

arkadaşlar bi formül var. cockroft-gault formülü. bunun için ufak bir programa ihtiyacım var. hayrına yapabilecek olan varmı acaba.

formül

(140-yaş)*kg
______________________

kreatinin * 88.6

bu yukarıdaki erkekler için olanı

bayanlar için ise sonuç 0.85 ile çarpılacak.

yukarıdaki formülde yaş, kg ve kreatinin değerleri elle girilecek diğerleri sabit rakamlar.

varmı bunu yapabilecek olan.

Naber la?

Alıntı yap
23/Eyl/10 14:47 Kısayol Şikayet Özel Mesaj

FCN

Kayıt Tarihi: 28/Eylül/2007

biraz aceleye geldi kontrol eedermisin iişini görürmü

http://www.fcn.tc/program.rar

Alıntı yap
23/Eyl/10 15:08 Kısayol Şikayet Özel Mesaj

sanane

Kayıt Tarihi: 24/Ağustos/2002

framework 4 istiyo galiba yükleyip deniyorum hemen. bu arada çok teşekkür ederim.

Naber la?

Alıntı yap
23/Eyl/10 15:11 Kısayol Şikayet Özel Mesaj

pc_worm

Banlanmış Üye

Kayıt Tarihi: 07/Haziran/2002

hoca excelde yapsana, programa ne gerek var.

jack daniels 160 yaşında

Alıntı yap
23/Eyl/10 15:13 Kısayol Şikayet Özel Mesaj

FCN

Kayıt Tarihi: 28/Eylül/2007

http://www.fcn.tc/program2.rar

framework 2.0 a derledim

Alıntı yap
23/Eyl/10 15:15 Kısayol Şikayet Özel Mesaj

sanane

Kayıt Tarihi: 24/Ağustos/2002

pc_worm bunu yazdı:
-----------------------------
hoca excelde yapsana, programa ne gerek var.
-----------------------------

Hocam excel de yaptım da bunu bizim doktorlardan biri istedi. onun için yani

Naber la?

Alıntı yap
23/Eyl/10 15:18 Kısayol Şikayet Özel Mesaj

manyaki

Kayıt Tarihi: 27/Temmuz/2005

Sırf meraktan fw kurdum :) Üşenmeyip yardım edenleri görmek çok güzel.

since 2005 // tbt

Alıntı yap
23/Eyl/10 15:18 Kısayol Şikayet Özel Mesaj

sanane

Kayıt Tarihi: 24/Ağustos/2002

FCN bunu yazdı:
-----------------------------

http://www.fcn.tc/program2.rar

framework 2.0 a derledim

-----------------------------

fcn çok teşekkür ederim ancak bunu arayüzlü olarak yapabilirmisin acaba

Naber la?

Alıntı yap
23/Eyl/10 15:21 Kısayol Şikayet Özel Mesaj

sanane

Kayıt Tarihi: 24/Ağustos/2002

manyaki bunu yazdı:
-----------------------------

Sırf meraktan fw kurdum :) Üşenmeyip yardım edenleri görmek çok güzel.

-----------------------------

tbt yi bu yüzden seviyoruz ya. herkes yardım ediyor birbirine :)

Naber la?

Alıntı yap

23/Eyl/10 15:28

Kısayol

Şikayet

Özel Mesaj

Tarikat Şeyhi
HolyOne

Kayıt Tarihi: 01/Haziran/2002

Aşşağıdaki kodu kopyalayıp vbs uzantılı dosya olarak save et çalıştır. istediğin değişikliği kolayca yapabilesin diye vbscript yaptım.

erkekmi =  (MsgBox("Adammisin lan?",vbYesNo ,"Cevap ver!") =vbYes )
  
yas=InputBox("Yasın kac?")
kontrol yas 
 
kg=InputBox("Kilon kac?")
kontrol kg 

kreatin=InputBox("kreatinin kac?")
kontrol kreatin

sonuc= cockroft(yas,kg,kreatin,erkekmi)

MsgBox( "Cockroft-Gault Sonucu: " &sonuc)
 
'------------Fonksiyonlar-------------
  
Function cockroft(ByVal yas, kg,kreatin,erkekmi)
islemsonucu=((140-yas)*kg) / (kreatin * 88.6)
If( erkekmi=true) Then cockroft=islemsonucu Else cockroft=(islemsonucu*0.85)
End Function
'------------------------------------
sub kontrol(ByVal val)
If( val="" or  not IsNumeric(val)) then  WScript.Quit 0 
End sub

Nush ile uslanmayanı etmeli tekdir, Tekdir ile uslanmayanın hakkı kötektir!

Alıntı yap

23/Eyl/10 15:52 Kısayol Şikayet Özel Mesaj

HeYeT

Kayıt Tarihi: 03/Ocak/2006

bende yardım edenlere arkadaş adına teşekkür ederim.

matematik24.com

Alıntı yap

Toplam Hit: 3527 Toplam Mesaj: 23

Cevapla