İPUCU

Visual Basic Öğrenilmesi ve kullanışı kolay olan Visual Basic’in dökümanlarının ve open source projelerin paylaşım alanı.

Seçenekler

Mini Test Programı yapalım Gelın :)

30-09-2011 02:26
#1
sR-77 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2010
Nereden:
Nereye
Mesajlar:
365
Teşekkür (Etti):
0
Teşekkür (Aldı):
39
Konular:
28
Ticaret:
(0) %
Süreli Mini Test (Soru Bankası) VB.NET






Alıntı:
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
Kullanıcı İmzası
Sseennllee Teşekkür etti.

30-09-2011 02:38
#2
Üyelik tarihi:
07/2009
Nereden:
KırşehiR
Yaş:
27
Mesajlar:
254
Teşekkür (Etti):
2
Teşekkür (Aldı):
89
Konular:
58
Ticaret:
(0) %
Güzel.
Kullanıcı İmzası
TurkHackTeam
30-09-2011 02:42
#3
sR-77 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2010
Nereden:
Nereye
Mesajlar:
365
Teşekkür (Etti):
0
Teşekkür (Aldı):
39
Konular:
28
Ticaret:
(0) %
Saolasın bos zamanlarımda su 1 2 gun full paylasım yaparım da sonra yoqm ısım ook
Kullanıcı İmzası
02-10-2011 12:09
#4
kopuk2 - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
09/2011
Mesajlar:
236
Teşekkür (Etti):
149
Teşekkür (Aldı):
24
Konular:
47
Ticaret:
(0) %
Güzel OLmus
02-10-2011 16:38
#5
sR-77 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2010
Nereden:
Nereye
Mesajlar:
365
Teşekkür (Etti):
0
Teşekkür (Aldı):
39
Konular:
28
Ticaret:
(0) %
Alıntı:
kopuk2´isimli üyeden Alıntı Mesajı göster
Güzel OLmus
eyw. saolasın
Kullanıcı İmzası
02-10-2011 17:12
#6
kopuk2 - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
09/2011
Mesajlar:
236
Teşekkür (Etti):
149
Teşekkür (Aldı):
24
Konular:
47
Ticaret:
(0) %
ne demek
02-10-2011 17:12
#7
kopuk2 - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
09/2011
Mesajlar:
236
Teşekkür (Etti):
149
Teşekkür (Aldı):
24
Konular:
47
Ticaret:
(0) %
Teşekkür Ettim Sana Facen Varmı SR77
02-10-2011 17:44
#8
QaPiTaLl - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2011
Nereden:
Ankara
Mesajlar:
454
Teşekkür (Etti):
27
Teşekkür (Aldı):
92
Konular:
35
Ticaret:
(0) %
Ellerine sağlık
02-10-2011 18:06
#9
evillord - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2009
Nereden:
Kod aklın di
Mesajlar:
1.576
Teşekkür (Etti):
165
Teşekkür (Aldı):
1077
Konular:
171
Ticaret:
(0) %
RadioButon Ve timerlara labelleri eklemen hoşuma gtti
Kullanıcı İmzası

Bizi eskiler tanır, yeniler örnek alır...
04-10-2011 19:59
#10
drkhcker - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
08/2011
Nereden:
Bakırköy
Mesajlar:
337
Teşekkür (Etti):
46
Teşekkür (Aldı):
87
Konular:
25
Ticaret:
(0) %
Düzenledım
Kod:
Public Class Form1
    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)

        End Sub
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
Kullanıcı İmzası
kişisel sitenizin yada iletişim bilgilerinizin imzanızda bulunması yasaktır.
HackerDarq Teşekkür etti.

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
Sizin eklenti yükleme yetkiniz yok
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı