Programın Resimleri ;
Programın Kodları ;
PHP Code:
PublicClassForm1Dim 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 gosterme
GroupBox2.Visible = False '2.soruyu ekranda gosterme
GroupBox3.Visible = False '3.soruyu ekranda gosterme
GroupBox4.Visible = False '4.soruyu ekranda gosterme
Label6.Visible = False 'Kalan sure yazısını ekrada gosterme
Label8.Visible = False 'Toplam puan yazısını ekrada gosterme
Timer1.Enabled = False 'Timer durdur
Timer1.Interval = 1000 'Her saniyede timer1 deki işlemler calış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ı calıştır
Select Case sayac 'sayac deişkenine gore
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 surenin textini 03:00 olarak goster
GroupBox1.Visible = True 'soru1in bulunduğu groupbox1 ekrana getir
Label5.Visible = False 'Mini test yazısı ekranda gosterme
Label6.Visible = True 'Kalan sure yazsını ekranda goster
Label8.Visible = True 'Toplam puan yazsını ekranda goster
Label9.Text = tpuan 'toplam puanı label9da goster
Case 1 'sayac 1 ise
If RadioButton1.Checked = True Then tpuan += 25 'doğru cevap secildiyse tpuana 25 ekle
Label9.Text = tpuan 'label9 da tpuanı goster
GroupBox1.Visible = False '1.soruyu ekranda gosterme
GroupBox2.Visible = True '2.soruyu ekrana getir
Case 2 'sayac 2 ise
If RadioButton6.Checked = True Then tpuan += 25 'doğru cevap secildiyse tpuana 25 ekle
Label9.Text = tpuan 'label9 da tpuanı goster
GroupBox2.Visible = False '2.soruyu ekranda gosterme
GroupBox3.Visible = True '3.soruyu ekrana getir
Case 3
If RadioButton11.Checked = True Then tpuan += 25 'doğru cevap secildiyse tpuana 25 ekle
Label9.Text = tpuan 'label9 da tpuanı goster
GroupBox3.Visible = False '3.soruyu ekranda gosterme
GroupBox4.Visible = True '3.soruyu ekrana getir
Case 4
If RadioButton15.Checked = True Then tpuan += 25 'doğru cevap secildiyse tpuana 25 ekle
Label9.Text = tpuan 'label9 da tpuanı goster
GroupBox4.Visible = False '4.soruyu ekranda gosterme
Label5.Visible = True 'Label5 i ekranda goster
Timer1.Enabled = False 'timer1 durdur
Button1.Text = "Tekrardan" 'buton1 in yazısını başla olarak değiştir
sayac = -1 'Tekrarda ilk soruya donebilmek icin sayacı -1 yaptım.end selecten sonra 0 olacak ve başa donecek
If tpuan >= 50 Then 'test sonunda tpuan 50 veya 50 den buyukse
Label5.Text = "Başarılı" 'label5 in yazısını başarılı olarak değiştir
Else 'değilse yani 50 den kucukse
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 buyukse
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 gosterme
GroupBox2.Visible = False '2.soruyu gosterme
GroupBox3.Visible = False '3.soruyu gosterme
GroupBox4.Visible = False '4.soruyu gosterme
Timer1.Enabled = False 'timer1 i durdur
Label5.Visible = True 'label5 i ekranda goster
Label5.Text = "Sureniz Bitmiştir" 'label5 e sureniz bitmiştir yaz
Button1.Text = "Tekrardan" 'buton1 in yazısını başla olarak değiştir
sayac = 0 'Tekrarda ilk soruya donebilmek icin sayacı 0 yaptım.
tpuan = 0 'tpuan değişkenini sıfırla
End If
End Sub
EndClass
__________________