folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder Visual Basic 6.0Da Fonksiyon Tanımlama-Çağırma(Soru)



Visual Basic 6.0Da Fonksiyon Tanımlama-Çağırma(Soru)

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    iQsuz
    iQsuz's avatar
    Kayıt Tarihi: 21/Nisan/2008
    Erkek

    oncelikle herkese kolay gelsin

    vb6da fonksiyon yazıp çağırma olayı nasıl oluyo 
    yada kısaca bi faktoriyel  hesabı yapan bişey yazabilirmisiniz iki dakka ben boyle yapıyorum hata veriyo sorun nerde

    Option Explicit

    Function Faktoriyel(x As Integer) As Double

        Dim i As Integer, sonuc As Double

        sonuc = 1

        For i = 2 To x

            sonuc = sonuc * i

        Next

        Faktoriyel = sonuc

    End Function

     

     

    Private Sub Form_Load()

    Dim y, x As Integer

    x = Val(InputBox("Sayı gir amk"))

    y = Faktoriyel(x)

    MsgBox y

    End Sub 

    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DE5TROY3R
    DE5TROY3R's avatar
    Kayıt Tarihi: 04/Nisan/2007
    Erkek

    Matematikten hiç anlamam, yaptım sanırım. Birbiriyle çarpışıyolar :D

     

    Function Faktoriyel(x As Integer) As Double

For carpilacaklar = 1 To x
List1.AddItem carpilacaklar
Next carpilacaklar

sonuc = 1
For Faktoriyella = 1 To List1.ListCount - 1
sonuc = sonuc * List1.List(Faktoriyella)
Next Faktoriyella

MsgBox sonuc
End Function

Private Sub Form_Load()
Dim y, x As Integer
x = Val(InputBox("Sayı gir amk"))
Faktoriyel (x)
End Sub

     

    Reply With Quote Alıntı yap
Toplam Hit: 5533 Toplam Mesaj: 2