Başsağlığı-Üyelerimizden. - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html) +--- Forum: Serbest Bölge (https://accesstr.net/forum-serbest-bolge.html) +--- Konu Başlığı: Başsağlığı-Üyelerimizden. (/konu-bassagligi-uyelerimizden.html) |
Cvp: Başsağlığı-Üyelerimizden. - aliyorga - 24/09/2014 Allah ü Teala Rahmet eylesin. private sub Dünya_hayatı() dim i i=nefes sayısı for i=0 to son_nefes if i=son_nefes then "Dünya durmayıp döner, İnsan sanki bir fener, Ne kadar çok yaşasa, Akıbet bir gün söner!":goto ahirethayatı else a=amel if amel=kötü then günah=günah+1 if amel=iyilik then sevap=sevap+1 next iff(sevap>günah,"Cennet","NoCennet") end sub |