Başlangıç > Kodlar > Visual Basic 6 ile matematik işlemi

Visual Basic 6 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

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


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: