[]
Visual Basic 6.0 Yardım
Selam dünyalılar ben dostum yardım edin bana :)
Şimdilik pek muhterem programcı kardeşlerim. Visual basic'te öyle bi program yazmam gerekiyor ki bir textbox olacak 1000 karakter sınır olacak. Ayrıca bir command button olacak ve bu buttona basınca o textbox'taki kelimeleri sayacak ve msgbox olarak açılan pencerede top 10 most frequent words yazacak. Yardım edene gördüğüm de yerde bira ısmarlarım içmiyosa DONAS ısmarlarım gönlüm o kadar da geniş :P
Şimdilik pek muhterem programcı kardeşlerim. Visual basic'te öyle bi program yazmam gerekiyor ki bir textbox olacak 1000 karakter sınır olacak. Ayrıca bir command button olacak ve bu buttona basınca o textbox'taki kelimeleri sayacak ve msgbox olarak açılan pencerede top 10 most frequent words yazacak. Yardım edene gördüğüm de yerde bira ısmarlarım içmiyosa DONAS ısmarlarım gönlüm o kadar da geniş :P
Uzun zamandır vb6 kullanmadığım için bu dilde yazamadım ancak sırf senin için şuan c# ile dediğin şeyi yaptım belki işe yarar diye dursun burda.
private void button1_Click(object sender, EventArgs e)
{
string[] kelamlar =textBox1.Text.Split(' ');
Dictionary<string, int> kelamSayilari = new Dictionary<string, int>();
foreach (var item in kelamlar)
{
if (kelamSayilari.ContainsKey(item))
{
kelamSayilari[item]++;
}
else
{
kelamSayilari.Add(item, 1);
}
}
var siraladik = kelamSayilari.OrderByDescending(p => p.Value);
string top10 = "";
int k = 0;
foreach (var item in siraladik)
{
if (k == 10)
break;
top10 += item + Environment.NewLine;
k++;
}
MessageBox.Show(top10);
}
private void Form1_Load(object sender, EventArgs e)
{
textBox1.MaxLength = 1000;
}
private void button1_Click(object sender, EventArgs e)
{
string[] kelamlar =textBox1.Text.Split(' ');
Dictionary<string, int> kelamSayilari = new Dictionary<string, int>();
foreach (var item in kelamlar)
{
if (kelamSayilari.ContainsKey(item))
{
kelamSayilari[item]++;
}
else
{
kelamSayilari.Add(item, 1);
}
}
var siraladik = kelamSayilari.OrderByDescending(p => p.Value);
string top10 = "";
int k = 0;
foreach (var item in siraladik)
{
if (k == 10)
break;
top10 += item + Environment.NewLine;
k++;
}
MessageBox.Show(top10);
}
private void Form1_Load(object sender, EventArgs e)
{
textBox1.MaxLength = 1000;
}
- see sharp
(21.05.09 23:34:17)
1
