Fazla yazı paylaşamadım bu aralar, ve güzel bir yazı ile dönüş yapıyorum. Arkadaşlar bu programı kodu şu işe yarıyor. Kullanıcı tarafından girilen sayı aralığındaki (sayılar dâhil), kendi basamakları toplamına tam olarak bölünen (kalansız bölünen) sayıları listeleyen görsel C# programı yazılmak isteniyor. Minimum 1, maksimum 99999 değerleri girilecektir.

Örnek: 24 sayısı 2+4 basamakları toplamı olan 6 sayısına tam bölünüyor. Bunun gibi bir program işte kodlarına gelecek olursak ;

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace WindowsFormsApplication4
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}

private void button1_Click(object sender, EventArgs e)
{
listBox1.Items.Clear();
int s1, s2, bastop,i,birler,onlar,yuzler,binler,onbinler;
s1 = Convert.ToInt32(textBox1.Text);
s2 = Convert.ToInt32(textBox2.Text);
for (i = s1; i <= s2; i++)
{

if (i >= 0 && i <= 9)
{
if (i % i == 0)
{
listBox1.Items.Add(i);
}
}
if (i >= 10 && i <= 99)
{
onlar = i / 10;
birler = i % 10;
bastop = birler + onlar;
if (i % bastop == 0)
{
listBox1.Items.Add(i);
}


if (i >= 100 && i <= 999)
{
birler = i % 10;
onlar = i / 10;
onlar = onlar % 10;
yuzler = i / 100;
bastop = birler + onlar + yuzler;
if (i % bastop == 0)
{
listBox1.Items.Add(i);
}
}

if (i >= 1000 && i <= 9999)
{
binler = i / 1000;
yuzler = i / 100;
yuzler = yuzler % 10;
onlar = i / 10;
onlar = onlar % 10;
birler = i % 10;
bastop = birler + onlar + yuzler + binler;
if (i % bastop == 0)
{
listBox1.Items.Add(i);
}

}
if (i>= 10000 && i<=99999)
{


birler = i % 10;
onlar = i / 10;
onlar = onlar % 10;
yuzler = i / 100;
yuzler = yuzler % 10;
binler = i / 1000;
binler = binler % 10;
onbinler = i / 10000;
bastop = birler + onlar + yuzler + binler + onbinler;
if (i % bastop == 0)
{
listBox1.Items.Add(i);
}

//}
}

}
}
}


Yazının kaynağı ve proje dosyasını buradan indirebilirsiniz.
http://www.gokhanplt.com/c-basamaklara-ayirma-programi/