[ASP Kodları] Mini Sınav

[ASP Kodları] Mini Sınav (tr) Sayfadaki formun action adresini sayfayla aynı adres yapın. Sorularınızı, şıkları ve doğru cevapları değişkenler bölümünde belirleyin. İstediğiniz güzelliği ekleyip kullanın "ASP ile Mini Sınav Kodlaması"Bu kod, tek sayfada, veritabanı kullanmaksızın soru sayısı değiştirilebilir, sonucu ve doğru cevapları görülebilir mini bir sınav kodudur."Arraylerin sayılarıyla oynayarak soru sayısını azaltıp artırabilir, şık sayılarını değiştirebilir, soru veya cevapların içine html kodları yazabilirsiniz."Arraylerin 0"dan başladığı dikkatten kaçmamalı. Yani Sorular(0) birinci soruyu kastediyor."İletişim için: Murat Çorlu, murat@muratcorlu.com"Not: Test soru ve cevapları http://www.saglikplatformu.com/test/default.asp adresinden alınmıştır."=========================================================================================="10 Soruluk bir sınav yapalım..Dim Sorular(10)"Cevaplar için 10 satırlı (10 soruluk), 3 sütunlu (3 şık) cevaplar arrayimizi oluşturalımDim Cevaplar(10,3)"Doğru cevaplar için de 10 soruluk arrayimizi oluşturalımDim DogruCevaplar(10)"Şıklar için kullanacağımız harfleri yazalım. M"den çok şık olmaz herhalde :)Harfler = Array("A","B","C","D","E","F","G","H","I","J","K","L","M")"1. sorumuzu ekleyelim:Sorular(0) = "Aşağıdakilerden hangisi doğrudur?""1. sorunun şıkları:Cevaplar(0,0) = "Günde iki kez fırçalamak diş sağlığı için yeterlidir."Cevaplar(0,1) = "Parmak emmek, tırnak yemek, yanak ısırmak ağız ve diş sağlığına zarar verir."Cevaplar(0,2) = "Sorun olmadıkça diş doktoruna gitmeye gerek yoktur.""1. sorunun doğru cevabı:DogruCevaplar(0) = 1"2. sorumuz:Sorular(1) = "Dişler nasıl fırçalanmalıdır?""2. sorunun şıkları:Cevaplar(1,0) = "Sağdan sola"Cevaplar(1,1) = "Aşağıdan yukarıya"Cevaplar(1,2) = "Dairesel şekilde""2. sorunun doğru cevabı:DogruCevaplar(1) = 2"3. sorumuz:Sorular(2) = "En doğru beslenme şekli hangisidir?""3. sorunun şıkları:Cevaplar(2,0) = "Protein ve kalsiyum ağırlıklı beslenmedir."Cevaplar(2,1) = "Beş grup besinden her gün yemektir."Cevaplar(2,2) = "Vücudun ihtiyacı olan besinlerden fazla tüketmektir.""3. sorunun doğru cevabı:DogruCevaplar(2) = 1"4. sorumuz:Sorular(3) = "Kansızlığın görülmemesi işin ne yapılmalıdır?""4. sorunun şıkları:Cevaplar(3,0) = "Protein ve demirden zengin beslenmelidir."Cevaplar(3,1) = "Bol su içilmelidir."Cevaplar(3,2) = "Vücudun ihtiyacı olan besinlerden fazla tüketmektir.""4. sorunun doğru cevabı:DogruCevaplar(3) = 0"5. sorumuz:Sorular(4) = "Aşağıdakilerden hangisi doğrudur?""5. sorunun şıkları:Cevaplar(4,0) = "Besinlerle bulaşan hastalıklar çoğunlukla tarım ilaçlarından kaynaklanmaktadır."Cevaplar(4,1) = "Besinlerle bulaşan hastalıklar ciddi zararlar vermez."Cevaplar(4,2) = "Besinlerle bulaşan hastalıklar çoğunlukla besinlerin hazırlanması ve saklanmasında yapılan hatalardan kaynaklanmaktadır.""5. sorunun doğru cevabı:DogruCevaplar(4) = 2"6. sorumuz:Sorular(5) = "Besinlerle bulaşan hastalıklardan korunmak için hangisi yapılmaz?""6. sorunun şıkları:Cevaplar(5,0) = "Sebze ve meyveler klorlu suda bekletilmelidir."Cevaplar(5,1) = "Mutfak tezgahı ıslak bırakılmamalıdır."Cevaplar(5,2) = "Yiyecekler plastik kaplara konarak saklanmalıdır.""6. sorunun doğru cevabı:DogruCevaplar(5) = 1"7. sorumuz:Sorular(6) = "Besinleri buzdolabında saklarken nelere dikkat edilmelidir?""7. sorunun şıkları:Cevaplar(6,0) = "Buzdolabına konan yiyecekler arasında boşluk bırakılmamalıdır."Cevaplar(6,1) = "Pişirilen yiyecekler bekletilmeden buzdolabına konulmalıdır."Cevaplar(6,2) = "Buzdolabına konan yiyecekler kapalı kaplarda saklanmalı ya da folyo ile sarılmalıdır.""7. sorunun doğru cevabı:DogruCevaplar(6) = 2"8. sorumuz:Sorular(7) = "Aşağıdakilerden hangisi yanlıştır?""8. sorunun şıkları:Cevaplar(7,0) = "Yumurta buzdolabına yıkanarak konulmalıdır."Cevaplar(7,1) = "Taze sebzeler büyükçe doğranıp pişirilmelidir."Cevaplar(7,2) = "Kuru baklagiller pişirilmeden önce 8-24 saat bekletilirse kolay pişirilir.""8. sorunun doğru cevabı:DogruCevaplar(7) = 0"9. sorumuz:Sorular(8) = "Gençleri bağımlılık yapan maddelerden korumak için hangisi yapılmalıdır?""9. sorunun şıkları:Cevaplar(8,0) = "Arkadaşlarını kendisinin seçmesine izin verilmemelidir."Cevaplar(8,1) = "Her zaman iyi ve etkili iletişim kurulmalıdır."Cevaplar(8,2) = "Başarısızlık, bu maddelere yakınlaştırdığından başarısız olmaması için mücadele edilmelidir.""9. sorunun doğru cevabı:DogruCevaplar(8) = 1"10. sorumuz:Sorular(9) = "Çocuğun bağımlılık yapan bir madde kullanıldığından şüphelenilirse ne yapılmalıdır?""10. sorunun şıkları:Cevaplar(9,0) = "Bir an önce tedavi olması için doktora götürülmelidir."Cevaplar(9,1) = "Emin olduktan sonra hassas yaklaşılmalı ve konuşulmaya çalışılmalıdır."Cevaplar(9,2) = "Bu maddeyi nereden bulduğu öğrenmeye çalışılmalıdır.""10. sorunun doğru cevabı:DogruCevaplar(9) = 1%> "Form gönderilmişse yukarıda sonuçları gösterelim:if  len(request.form())> 0  then        "Doğru sayısını tutacak değişkenimiz:    Dim  DogruSayisi    DogruSayisi = 0    "Boş sayısını tutacak değişkenimiz:    Dim  BosSayisi    BosSayisi = 0    "Yanlış sayısını tutacak değişkenimiz:    Dim  YanlisSayisi    "Bütün cevapları tek tek kontrol ediyoruz:    for  n = 0 to  UBound(Sorular) - 1        "Gelen cevap doğruysa DoğruSayısı"nı 1 artır:        if  request.form("Soru_" & n + 1) =  cstr(DogruCevaplar(n) + 1)  then            DogruSayisi = DogruSayisi + 1                "Cevap Yoksa BosSayisi"ni 1 artır:        elseif  len(request.form("Soru_" & n + 1)) = 0  then            BosSayisi = BosSayisi + 1        end  if    next    YanlisSayisi =  UBound(Sorular) - DogruSayisi - BosSayisi%>            SONUÇLAR                Doğru Sayısı : Yanlış Sayısı : Boş Sayısı :     end  if"Tüm soruları yazdırıyoruz:for  n = 0 to  UBound(Sorular) - 1%>            )         "Bu sorunun şıklarını yazıdırıyouz:    for  m = 0 to  UBound(Cevaplar, 2) - 1%>                    " name="Soru_" color="#000080"         "Eğer form gönderilmişse, işaretlenen şık bu mu?        if  len(request.form())> 0  then            if  request.form("Soru_" & n + 1) =  cstr(m + 1)  then                response.write " checked"            end  if        end  if        %>> )                "Eğer form gönderilmişse doğru cevap bu mu?        if  len(request.form())> 0  then            if  DogruCevaplar(n) = m  then                response.write " "            end  if        end  if        %>                nextnext%>                "response.write request.form()%>

Döküman Arama

Başlık :

Kapat