Süreli Mini Test (Soru Bankası) VB.NET
Public Class Form1 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
