Visual Basic ile matematik işlemi

Basit bir matematik işlemi yapan program yaratılacaktır.
 
Aşagıdaki programda basit bir matematik işlemi yapan program yaratılacaktır.

1-Kullanıcı metin kutusuna, sorulan işlemin sonucunu yazıcak ve check işaretine bastığı zaman, metin kutusunun yanında bu işlemin doğru cevabı görüntülenecektir.Eğer işlem doğru ise aşağıdaki şekil ekranda görüntüleneceltir:



2-Eğer kullanıcı yanlış cevap girerse, aşağıdaki şakil ekranda gözükecek ve kullanıcı içinde ok olan sarı şekle basınca yeni bir soru başlayacaktır.


KODU:
--------------------------------------------------------------------------------
Private Sub Form_Load()
'Amaç: ilk ekranı yükleme ve ilk problemi gösterme
TxtUserAnswer.Text = " "
lblCorrectAnswer.Visible = False
Randomize 'rastgele bir sayı üretme
lblNumber1.Caption = Int(Rnd * 10) ' 1. sayyyy seçme
LblNumber2.Caption = Int(Rnd * 10) ' 2. sayıyı seçme
End Sub


--------------------------------------------------------------------------------

Private Sub picCheck_Click()
'Amaç: doğru cevabı hesaplama ve doğru yüzü gösterme

ImgBoy.Visible = False
imgGirl.Visible = False
lblCorrectAnswer.Visible = False

'öğrencinin cevap verip vermediğini kontrol etme
If TxtUserAnswer.Text = " " Then
Beep
Msgbox "cevap girmediniz"
picNext.SetFocus
Exit Sub
End If

'Doğru cevabı hesaplama
lblCorrectAnswer = Val(lblNumber1.Caption) + Val(LblNumber2.Caption)
lblCorrectAnswer.Visible = True
'Doğru ya da yanlış cevaba göre resmi gösterme
If (Val(lblCorrectAnswer)) = (Val(TxtUserAnswer)) Then
imgGirl.Visible = True
Else
ImgBoy.Visible = True
End If
picNext.SetFocus 'mouse pointer'ı cevap girmesi için ayarla
End Sub


--------------------------------------------------------------------------------

Private Sub picNext_Click()
'Amaç: tüm resimleri sakla ve yeni probleme hazırlık yapma

imgGirl.Visible = False
ImgBoy.Visible = False
lblCorrectAnswer.Visible = False
TxtUserAnswer.Text = " "
lblNumber1.Caption = Int(Rnd * 10) '1. sayyyy yenileme
LblNumber2.Caption = Int(Rnd * 10) '2. sayyyy yenileme
TxtUserAnswer.SetFocus ' mouse pointer'ı cevap girmesi için ayarla

End Sub