PC ile sohbet edin & dini bilgiler oyunu - özgün konu
S.A Arkadaşlar;
Pc ile sohbet etmeye ne dersiniz? Peki ya dini bilgilerinizi sınamaya?
Öyleyse bu projeler tam size göre....
Geliştirmek isteyenlerin beni hatırlaması yeterlidir(Emeğe saygı duyunuz)...
Pc ile sohbet
Pc ile sohbet etmeye ne dersiniz? Peki ya dini bilgilerinizi sınamaya?
Öyleyse bu projeler tam size göre....
Geliştirmek isteyenlerin beni hatırlaması yeterlidir(Emeğe saygı duyunuz)...
Pc ile sohbet
Kod:
[COLOR="Cyan"]Private Sub Form_Load()
Dim isim
isim = InputBox("Sizin adınız ne?")
MsgBox ("Tanıştığımıza memnun oldum, " & isim)
Dim memleket
memleket = InputBox("Peki nerelisiniz?")
MsgBox ("Çok güzel memlekettir, " & memleket)
Dim yas
yas = InputBox("Kac yasındasınız? " & isim)
MsgBox ("Oooo daha çok gençsin :)")
Dim hack
hack = InputBox("Hacking hakkında ne düşünüyorsun?")
MsgBox ("Bence Turk Hack Team ı daha çok takip etmelisin " & isim)
Dim bitir
bitir = InputBox("Lütfen 1 yazınız")
If bitir = "1" Then
MsgBox ("Benim adım Kes-Mezar soru cevap.Teşekkür ederim sizi tanıdığıma memnun oldum.Görüşmek üzere...")
End If
End Sub[/COLOR]
Dini bilgiler oyunu
Kod:
[COLOR="Cyan"]Private Sub Form_Load()
Dim selam
selam = InputBox("Selamın Aleyküm.İslami sualler oyununa hoşgeldiniz.İsminiz?")
MsgBox ("Tanıştığımıza memnun oldum , " & selam)
Dim hazir
10 hazir = InputBox("Hazırmısınız? hazırsanız 1 , değilseniz 2 yazın")
If hazir = "1" Then
GoTo 20
Else: GoTo 10
End If
Dim iman
20 iman = InputBox("İmanın şartı kaçtır? 5 mi 6 mı?")
If iman = "6" Then
GoTo 30
30 MsgBox ("Evet bunlar; Allah a,Meleklere,Peygamberlere,Kitaplara,Ahirete,Kadere hayrın şerrin Allah tan olduğuna imandır")
Else: GoTo 20
End If
Dim islam
40 islam = InputBox("İslamın şartı kaçtır? 5 mi 4 mü?")
If islam = "5" Then
GoTo 50
50 MsgBox ("Evet bunlar;Namaz kılmak,Oruç tutmak,Zekat vermek,Hacca gitmek,Kelime-i Şehadet getirmektir...")
Else: GoTo 40
End If
End Sub[/COLOR]
Son düzenleme: