R
Süreli Mini Test (Soru Bankası) VB.NET
Code:
Public Class Form1[/COLOR][/CENTER]
[COLOR=rgb(184, 49, 47)][CENTER]Dim sayac, tpuan, san, dak As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GroupBox1.Visible = False '1.soruyu ekranda gösterme
GroupBox2.Visible = False '2.soruyu ekranda gösterme
GroupBox3.Visible = False '3.soruyu ekranda gösterme
GroupBox4.Visible = False '4.soruyu ekranda gösterme
Label6.Visible = False 'Kalan süre yazısını ekrada gösterme
Label8.Visible = False 'Toplam puan yazısını ekrada gösterme
Timer1.Enabled = False 'Timer durdur
Timer1.Interval = 1000 'Her saniyede timer1 deki işlemler çalışsın diye intervalini 1000 olsun
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True 'Başla butonuna tıklandğında timerı çalıştır
Select Case sayac 'sayac deişkenine göre
Case 0 'sayac 0 ise
Button1.Text = "Sonraki" 'buton1in textini sonraki olarak değiştir
san = 0 'san değişkenini sıfırla
dak = 0 'dak değikenini sıfırla
Label7.Text = "03:00" 'label7 yani sürenin textini 03:00 olarak göster
GroupBox1.Visible = True 'soru1in bulunduğu groupbox1 ekrana getir
Label5.Visible = False 'Mini test yazısı ekranda gösterme
Label6.Visible = True 'Kalan süre yazsını ekranda göster
Label8.Visible = True 'Toplam puan yazsını ekranda göster
Label9.Text = tpuan 'toplam puanı label9da göster
Case 1 'sayac 1 ise
If RadioButton1.Checked = True Then tpuan += 25 'doğru cevap seçildiyse tpuana 25 ekle
Label9.Text = tpuan 'label9 da tpuanı göster
GroupBox1.Visible = False '1.soruyu ekranda gösterme
GroupBox2.Visible = True '2.soruyu ekrana getir
Case 2 'sayac 2 ise
If RadioButton6.Checked = True Then tpuan += 25 'doğru cevap seçildiyse tpuana 25 ekle
Label9.Text = tpuan 'label9 da tpuanı göster
GroupBox2.Visible = False '2.soruyu ekranda gösterme
GroupBox3.Visible = True '3.soruyu ekrana getir
Case 3
If RadioButton11.Checked = True Then tpuan += 25 'doğru cevap seçildiyse tpuana 25 ekle
Label9.Text = tpuan 'label9 da tpuanı göster
GroupBox3.Visible = False '3.soruyu ekranda gösterme
GroupBox4.Visible = True '3.soruyu ekrana getir
Case 4
If RadioButton15.Checked = True Then tpuan += 25 'doğru cevap seçildiyse tpuana 25 ekle
Label9.Text = tpuan 'label9 da tpuanı göster
GroupBox4.Visible = False '4.soruyu ekranda gösterme
Label5.Visible = True 'Label5 i ekranda göster
Timer1.Enabled = False 'timer1 durdur
Button1.Text = "Tekrardan" 'buton1 in yazısını başla olarak değiştir
sayac = -1 'Tekrarda ilk soruya dönebilmek için sayacı -1 yaptım.end selecten sonra 0 olacak ve başa dönecek
If tpuan >= 50 Then 'test sonunda tpuan 50 veya 50 den büyükse
Label5.Text = "Başarılı" 'label5 in yazısını başarılı olarak değiştir
Else 'değilse yani 50 den küçükse
Label5.Text = "Başarısız" 'label5 in yazısını başarılı olarak değiştir
End If
tpuan = 0
End Select
sayac += 1 'butona her tıklandğında sayacı 1 artır
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
san += 1 'san değişkenini 1 artır
If san > 50 Then 'kronometre rakamlar tek haneli olduğu zaman yanına sıfır yazılı olsun diye san değiişkeni 50 den büyükse
Label7.Text = "0" & (2 - dak) & " : 0" & (60 - san) 'label7 ye değikendeki değerleri yanında sıfır ekleyerek yaz
Else
Label7.Text = "0" & (2 - dak) & " : " & (60 - san) 'label7 ye değikendeki değerleri yanında sıfır olmadan yaz
End If
If san = 60 Then 'san değişkeni 60 ise
dak += 1 'dak değişkenini 1 artır
san = 0 'san değiişkenini sıfırla
End If
If dak = 3 Then 'dak değişkeni 3 ise
GroupBox1.Visible = False '1.soruyu gösterme
GroupBox2.Visible = False '2.soruyu gösterme
GroupBox3.Visible = False '3.soruyu gösterme
GroupBox4.Visible = False '4.soruyu gösterme
Timer1.Enabled = False 'timer1 i durdur
Label5.Visible = True 'label5 i ekranda göster
Label5.Text = "Süreniz Bitmiştir" 'label5 e süreniz bitmiştir yaz
Button1.Text = "Tekrardan" 'buton1 in yazısını başla olarak değiştir
sayac = 0 'Tekrarda ilk soruya dönebilmek için sayacı 0 yaptım.
tpuan = 0 'tpuan değişkenini sıfırla
End If
End Sub
End Class
