Dereceyi Fahrenheit'e çeviren fonksiyon

[Seceren]

Fonksiyonun tanımı:

Function Fahrenheit(x)
Fahrenheit = x * 9 / 5 + 32
End Function

Fonksiyonun kullanımı:

Private Sub Command1_Click()
Dim Değer As Integer
Değer = InputBox(" ")
MsgBox Fahrenheit(Değer)
End Sub

Çalıştığım kitaptaki veriler bunlar

MsgBox Fahrenheit = Değer

Bu şekide yapıp çalıştırdım buraya kadar tamam. Peki yazdığım 25 dereceyi Fahrenheit'e niye çevirmiyor, hatam nerede.

 

[Levent Menteşoğlu]

Ã?ncelikle fonksiyonunuz dosyada yok. Fonksiyonu bir modüle kopyalayın sonrada yukarıdaki kodunuzu aşağıdaki gibi değiştirin.

[vb:1:e34bb5a40a]Private Sub CommandButton1_Click()
Dim Değer As Integer
Değer = InputBox("Hatam nerede")
MsgBox Fahrenheit(Değer)
End Sub[/vb:1:e34bb5a40a]

 

[Seceren]

Anladım fonksiyonlar modüle teşekkürler.