LifeSux Posted September 24, 2011 Share Posted September 24, 2011 [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] Quote Link to comment Share on other sites More sharing options...
croteam Posted September 24, 2011 Share Posted September 24, 2011 (edited) '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 Quote Link to comment Share on other sites More sharing options...
LifeSux Posted September 24, 2011 Author Share Posted September 24, 2011 yo abi sen yanlış anladın Soruları ben yazıcam 10 tane falan olucak herhangi bir yerden çekmiycez Quote Link to comment Share on other sites More sharing options...
croteam Posted September 24, 2011 Share Posted September 24, 2011 (edited) '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 Quote Link to comment Share on other sites More sharing options...
blue_life Posted September 24, 2011 Share Posted September 24, 2011 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 Link to comment Share on other sites More sharing options...
croteam Posted September 24, 2011 Share Posted September 24, 2011 (edited) [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 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.