Sub ve function ların kullanımı nasıl yapılıyor....?

Başlatan Andromeda, 11 Eylül 2011, 15:09:14

Andromeda

Sub ve function ların kullanımı nasıl yapılıyor....?
" Tanrı, iradesini hakim kılmak için yeryüzündeki iyi insanları kullanır, yeryüzündeki kötü insanlar ise kendi iradelerini hakim kılmak için Tanrı'yı kullanırlar." ..." Tanrı'dan mesaj gelmiyor, biz Tanrı'ya mesaj gönderiyoruz"

muhittin_kaplan

C de olduğu gibi.

Sub Bekle(Sure as byte) ;Geri dönen bir deger yoktur
      delayms (Sure)
End Sub

function Carpma(A as byte,B as byte) sonuc as byte
      Sonuc=A*B
end function

Sub main
    bekle(10) ;geri dönen değer olmadığından bekleye gider işlemi yapa ve buraya geri döner
    Dim deger as Word
    Deger=carpma(10,20);geri dönen değer olduğundan  10 ile 20 yi çarpmaya gider sonucu alarak buraya döner ve Deger e atar
end sub

Sysntax hataları olabilir ama Kullanımı Bu şekildedir" Sub ile Functionu ayıran değer döndürüp döndürme mesidir.
www.ictr.club
www.muhittinkaplan.com

Andromeda

Sağolun.C diline şöyle bir baktım..
Alt programları incelemem gerekli sanırım
" Tanrı, iradesini hakim kılmak için yeryüzündeki iyi insanları kullanır, yeryüzündeki kötü insanlar ise kendi iradelerini hakim kılmak için Tanrı'yı kullanırlar." ..." Tanrı'dan mesaj gelmiyor, biz Tanrı'ya mesaj gönderiyoruz"

Yasal Uyarı: Picproje.org sitemizde 5651 sayılı kanunun 8. maddesine ve T.C.Knın 125. maddesine göre tüm üyelerimiz yaptıkları paylaşımlardan kendileri sorumludur. Picproje.org hakkında yapılacak tüm hukuksal şikayetleri İletişim sayfamızdan bize bildirdikten en geç 3 (üç) iş günü içerisinde ilgili kanunlar ve yönetmelikler çerçevesinde tarafımızca incelenerek gereken işlemler yapılacak ve site yöneticilerimiz tarafından bilgi verilecektir.