Soru Programı Yapımı ?

[LifeSux]

[b]Bir soru programı yapsak sorular çıksa radioboxlardada şıklar. 10 soru falan yapsak en sonunda da cevaplara göre profesör vb gibi dereceler yazdırsak. Nasıl yapabiliriz böyle bir program [/b]

[croteam]

'LifeSux' Kardeşim Bence Böyle Bir Programla Hiç Uğraşma Derim.. Yapılabilir. ama Yapılması Bayağı Bir Zor Çünki (İmkansız Değil) ;

Misal : İçerisine Sorulu ve Cevaplı Olarak 5 Trilyon veya Bin Cümle veya Daha Çok, 10 Trilyon veya Bin Kelime (Sözcük) veya Daha Çok Programa Ekle men Gerekir. Not: Bunları PC ne veya Büyük Bir Deftere Kayıta Alman Gerekmekte Yani.. Çok Uğraşman Gerekir. Mükemmel Olması İçin.

Not: Bunu Sen 5 Trilyon Olarak ta Yapabilir, 5 Bin Olarak ta Yapabilir vs.. Bu Senin Ekliyeceğin Cümle ve Kelimeye Bağlı Olarak Değişebilir. Kardeş Çok Uzun Bir Süreçtir Böyle Programlar..


Sözlük Programı İçin İçine 5 Bin Tane Sözcük Koyuyorlar vs..

Senin Yapacağın Programı Ne Kadar Dikkatli Yapsan da Yinede Hata Yapma Olasılığın Yüksektir.

!!!Hiç Bir Şey İmkansız Değildir.!!! !!!Önemli Olan Başaracağım Diye bilmendir.!!!

Edited September 24, 2011 by croteam

[LifeSux]

yo abi sen yanlış anladın

Soruları ben yazıcam 10 tane falan olucak herhangi bir yerden çekmiycez

[croteam]

'LifeSux' Kardeşim..

Yap Yapabilirsin.. ama Daha Fazla ise Zor. (İmkansız Değil) :SS

Öyle Programlar Yapabilirsin ve İnternet te Mevcuttur.

Kusura Bakma Kardeşim..

Edited September 24, 2011 by croteam

[blue_life]

Böyle bir program yapılır ve yapması zor deyil. Tabi haliyle sorular ya bir dosyadan okuncak, yada scriptin içine yazılacak.
Ben şimdi basit bir kodlama yaptım ve scriptin içine 3 soru ekledim. Tabi örnekten yola çıkarak soru sayısını arttırabilirsin...
Neyse kolay gelsin...
[codebox]
#include <Array.au3>

Global $SORU_SAYISI = 3 ;Soru Sayısı

;Soru,BirinciSeçenek,IkinciSecenek,Üçüncü Seçenek,Dördüncü Seçenek,Doğru Cevap,Seçilen Cevap
Global $SORULAR[$SORU_SAYISI +1][8] = [[$SORU_SAYISI], _
["Türkiye'nin başkenti neresidir?","Adana","Istanbul","Ankara","Atina",3] , _
["2+7= ? işleminin sonucu kaçtır?","8","9","7","10",2], _
["Yılın en soğuk mevsimi hangisidir?","Kış","Ilk Bahar","Son Bahar","Yaz",1] _
]


Global $BlueForm = GUICreate("BlueLife Soru Matik", 600, 160)
Global $Icon1 = GUICtrlCreateIcon("user32.dll", -3, 5, 5, 32, 32)

Global $Soru = GUICtrlCreateLabel("", 50, 7, 545, 32)
GUICtrlCreateLabel("", 2, 2, 595, 40,1,1)
GUICtrlSetState(-1,128)
GUICtrlSetBkColor(-1,-2)

Global $Radio1 = GUICtrlCreateRadio("", 10, 45, 580, 17)
Global $Radio2 = GUICtrlCreateRadio("", 10, 65, 580, 17)
Global $Radio3 = GUICtrlCreateRadio("", 10, 85, 580, 17)
Global $Radio4 = GUICtrlCreateRadio("", 10, 105, 580, 17)

Global $Tamam = GUICtrlCreateButton("Tamam",5,130,590,25)

GUISetState(@SW_SHOW)

_SIRADAKI_SORU()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Tamam

If GUICtrlRead($Radio1) = 1 Then
$SORULAR[$SORULAR[0][1]][6] = 1
GUICtrlSetState($Radio1,4)

ElseIf GUICtrlRead($Radio2) = 1 Then
$SORULAR[$SORULAR[0][1]][6] = 2
GUICtrlSetState($Radio2,4)

ElseIf GUICtrlRead($Radio3) = 1 Then
$SORULAR[$SORULAR[0][1]][6] = 3
GUICtrlSetState($Radio3,4)

ElseIf GUICtrlRead($Radio4) = 1 Then
$SORULAR[$SORULAR[0][1]][6] = 4
GUICtrlSetState($Radio4,4)

EndIf

_SIRADAKI_SORU()
If @error Then _Sonuc()
EndSwitch
WEnd

Func _Sonuc()
For $I = 1 to $SORULAR[0][0]
If $SORULAR[$I][5] = $SORULAR[$I][6] Then
$SORULAR[$I][7] = "Doğru"
Elseif $SORULAR[$I][6] = "" Then
$SORULAR[$I][7] = "Boş"
Else
$SORULAR[$I][7] = "Yanlış"
EndIf
Next

_ArrayDisplay($SORULAR)
Exit
EndFunc

Func _SIRADAKI_SORU()
$SORULAR[0][1] += 1
If $SORULAR[0][0] < $SORULAR[0][1] Then Return SetError(1,0,0)
GUICtrlSetData($Soru,$SORULAR[$SORULAR[0][1]][0])

GUICtrlSetData($Radio1,$SORULAR[$SORULAR[0][1]][1])
GUICtrlSetData($Radio2,$SORULAR[$SORULAR[0][1]][2])
GUICtrlSetData($Radio3,$SORULAR[$SORULAR[0][1]][3])
GUICtrlSetData($Radio4,$SORULAR[$SORULAR[0][1]][4])


GUICtrlSetState($Radio2,4)
GUICtrlSetState($Radio3,4)
GUICtrlSetState($Radio4,4)

Return True
EndFunc[/codebox]

[croteam]

[quote name='blue_life' date='24 September 2011 - 08:37 ' timestamp='1316853424' post='1084700']
Böyle bir program yapılır ve yapması zor deyil. Tabi haliyle sorular ya bir dosyadan okuncak, yada scriptin içine yazılacak.
Ben şimdi basit bir kodlama yaptım ve scriptin içine 3 soru ekledim. Tabi örnekten yola çıkarak soru sayısını arttırabilirsin...
Neyse kolay gelsin...
[codebox]
#include <Array.au3>

Global $SORU_SAYISI = 3 ;Soru Sayısı

;Soru,BirinciSeçenek,IkinciSecenek,Üçüncü Seçenek,Dördüncü Seçenek,Doğru Cevap,Seçilen Cevap
Global $SORULAR[$SORU_SAYISI +1][8] = [[$SORU_SAYISI], _
["Türkiye'nin başkenti neresidir?","Adana","Istanbul","Ankara","Atina",3] , _
["2+7= ? işleminin sonucu kaçtır?","8","9","7","10",2], _
["Yılın en soğuk mevsimi hangisidir?","Kış","Ilk Bahar","Son Bahar","Yaz",1] _
]


Global $BlueForm = GUICreate("BlueLife Soru Matik", 600, 160)
Global $Icon1 = GUICtrlCreateIcon("user32.dll", -3, 5, 5, 32, 32)

Global $Soru = GUICtrlCreateLabel("", 50, 7, 545, 32)
GUICtrlCreateLabel("", 2, 2, 595, 40,1,1)
GUICtrlSetState(-1,128)
GUICtrlSetBkColor(-1,-2)

Global $Radio1 = GUICtrlCreateRadio("", 10, 45, 580, 17)
Global $Radio2 = GUICtrlCreateRadio("", 10, 65, 580, 17)
Global $Radio3 = GUICtrlCreateRadio("", 10, 85, 580, 17)
Global $Radio4 = GUICtrlCreateRadio("", 10, 105, 580, 17)

Global $Tamam = GUICtrlCreateButton("Tamam",5,130,590,25)

GUISetState(@SW_SHOW)

_SIRADAKI_SORU()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Tamam

If GUICtrlRead($Radio1) = 1 Then
$SORULAR[$SORULAR[0][1]][6] = 1
GUICtrlSetState($Radio1,4)

ElseIf GUICtrlRead($Radio2) = 1 Then
$SORULAR[$SORULAR[0][1]][6] = 2
GUICtrlSetState($Radio2,4)

ElseIf GUICtrlRead($Radio3) = 1 Then
$SORULAR[$SORULAR[0][1]][6] = 3
GUICtrlSetState($Radio3,4)

ElseIf GUICtrlRead($Radio4) = 1 Then
$SORULAR[$SORULAR[0][1]][6] = 4
GUICtrlSetState($Radio4,4)

EndIf

_SIRADAKI_SORU()
If @error Then _Sonuc()
EndSwitch
WEnd

Func _Sonuc()
For $I = 1 to $SORULAR[0][0]
If $SORULAR[$I][5] = $SORULAR[$I][6] Then
$SORULAR[$I][7] = "Doğru"
Elseif $SORULAR[$I][6] = "" Then
$SORULAR[$I][7] = "Boş"
Else
$SORULAR[$I][7] = "Yanlış"
EndIf
Next

_ArrayDisplay($SORULAR)
Exit
EndFunc

Func _SIRADAKI_SORU()
$SORULAR[0][1] += 1
If $SORULAR[0][0] < $SORULAR[0][1] Then Return SetError(1,0,0)
GUICtrlSetData($Soru,$SORULAR[$SORULAR[0][1]][0])

GUICtrlSetData($Radio1,$SORULAR[$SORULAR[0][1]][1])
GUICtrlSetData($Radio2,$SORULAR[$SORULAR[0][1]][2])
GUICtrlSetData($Radio3,$SORULAR[$SORULAR[0][1]][3])
GUICtrlSetData($Radio4,$SORULAR[$SORULAR[0][1]][4])


GUICtrlSetState($Radio2,4)
GUICtrlSetState($Radio3,4)
GUICtrlSetState($Radio4,4)

Return True
EndFunc[/codebox]
[/quote]


'blue_life' Kardeşim Haklı.. Böyle Programlar Yapılabilir..

Ben Zaten Yapılamaz Demedim..

işte Burada Yanlış Anlamıştım Ben Sandım ki : 5 Bin veya Daha Fazla Cümle-Kelime Soru-Cevap Programı.. Yapılamaz Değil.. İmkansız Hiç Değil.. Sadece Bayağı Zaman Alır.. Demiştim.
Sanmıştım. Yanlış Anlamıştım Kusuruma Bakmayınız Kardeşler..

Edited September 24, 2011 by croteam