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


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

Bir Yanıt Bırakı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: