Anasayfa > Kodlar > Visual Basic 6 ile Selçuk alsan’ın anısına

Visual Basic 6 ile Selçuk alsan’ın anısına


Değerli hocamız Doç.Dr. Selçuk Alsan’ı rahmetle anarak basit bir sorusunun çözümünü yapan basit bir program.

‘Bu program sayin Doç.Dr. Selçuk Alsan’in Akid Yayincilik’tan çikardigi
“‘Düsünme Kutusu-1” adli zeka oyunlari kitabinda 27. sayfada bulunan
’58 numarali sorunun benim tarafimdan genisletilmis halinin cevabini
‘bulan bilgisayar programidir.
‘Hazirlayan: Selçuk Soner Akgül
‘Soru:
‘4 basamakli öyle sayilar bulun ki bunlari tek basamakli bir sayiyla
‘çarptigimizda ilk sayimizin tersten yazilmis halini elde edelim.


Private Sub cmdBul_Click()
‘butona 2.kez basilmasi sonucu dogacak problemleri önlemek için;
lstCevap.Clear ‘cevabin bulundugu listeyi temizler
txtAdet.Text = “” ‘cevap adedinin yazili oldugu metin kutusunu temizler

For i = 2 To 9 ‘1’den baslamadi, çünkü elde edilen sonuç ayni sayi olurdu
For j = 1 To 9 ‘0’dan baslamadi, çünkü binler basamagi 0 olamaz
For k = 0 To 9
For m = 0 To 9
For n = 1 To 9 ‘0’dan baslamadi, cunku sonucun binler basamagi 0 olamaz
‘sorunun matematiksel ifadesi
If i * (1000 * j + 100 * k + 10 * m + n) = 1000 * n + 100 * m + 10 * k + j Then
‘sonuc dogruysa listeye uygun bir sekilde ekler
lstCevap.AddItem j & k & m & n & ” * ” & i & ” = ” & n & m & k & j
End If
Next
Next
Next
Next
Next

lstCevap.Refresh ‘cevap bulunur bulunmaz listeye eklenir
‘aksi halde bütün cevaplar bulunana kadar liste bos kalirdi

txtAdet.Text = lstCevap.ListCount ‘cevap listesindeki eleman sayisi
End Sub

 


TD Software


  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. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: