Skip to main content

AccessTr.neT


Başsağlığı-Üyelerimizden.

yorum70
yorum70
12
4494

Başsağlığı-Üyelerimizden.

#13
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da