TextBox’a girilen Sayıları Sıralamak Vb.Net
1-Bu soruda ikinci defa sayı girişi gerçekleştirmek için sırala butonun sonunda sayac değişkenini sıfırlamanız gerekir.(sayac=0)
2-10 dan fazla sayı girildiği zaman hata mesajı almamak için try-catch hata yakalama komutları kullanılabilir.
[code lang=”vbnet”]
Public Class Form1
Dim sayilar(100) As Integer
Dim sayac As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
If TextBox1.Text <> "" Then
sayac = sayac + 1
sayilar(sayac) = TextBox1.Text
ListBox1.Items.Add(TextBox1.Text)
TextBox1.Clear()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
On Error Resume Next
ReDim Preserve sayilar(sayac)
Dim i As Integer
Dim sayac2, gecici As Integer
ListBox2.Items.Clear()
If RadioButton1.Checked = True Then
For i = 1 To sayac – 1
For sayac2 = i + 1 To sayac
If sayilar(sayac2) > sayilar(i) Then
gecici = sayilar(i)
sayilar(i) = sayilar(sayac2)
sayilar(sayac2) = gecici
End If
Next
Next
For i = 1 To sayac
ListBox2.Items.Add(sayilar(i))
Next
End If
If RadioButton2.Checked = True Then
For i = 1 To sayac – 1
For sayac2 = i + 1 To sayac
If sayilar(sayac2) < sayilar(i) Then
gecici = sayilar(i)
sayilar(i) = sayilar(sayac2)
sayilar(sayac2) = gecici
End If
Next
Next
For i = 1 To sayac
ListBox2.Items.Add(sayilar(i))
Next
End If
End Sub
End Class
[/Code]
<span style="color: #ff0000;"><strong><span style="text-decoration: underline;">2. Yol</span></strong> </span>
<span style="color: #000000;"> </span>
[code language="vbnet"]
Public Class Form1
Dim sayilar(100) As Integer
Dim sayac As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
If TextBox1.Text <> "" Then
sayilar(sayac) = TextBox1.Text
ListBox1.Items.Add(TextBox1.Text)
TextBox1.Clear()
sayac = sayac + 1
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
On Error Resume Next
ReDim Preserve sayilar(sayac – 1)
Dim i As Integer
Dim sayac2, gecici As Integer
ListBox2.Items.Clear()
If RadioButton1.Checked = True Then
Array.Sort(sayilar)
Array.Reverse(sayilar)
For i = 0 To sayac
ListBox2.Items.Add(sayilar(i))
Next
End If
If RadioButton2.Checked = True Then
Array.Sort(sayilar)
For i = 0 To sayac
ListBox2.Items.Add(sayilar(i))
Next
End If
End Sub
End Class[/code]
3. Yol (Redim Kullanmadan)
[code language=”vbnet”]
Public Class Form1
Dim sayilar(10) As Integer
Dim sayac As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sayac = sayac + 1
sayilar(sayac) = TextBox1.Text
ListBox1.Items.Add(TextBox1.Text)
TextBox1.Clear()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim sayac2, gecici As Integer
ListBox2.Items.Clear()
If RadioButton1.Checked = True Then
For sayac = 1 To 9
For sayac2 = sayac + 1 To 10
If sayilar(sayac2) > sayilar(sayac) Then
gecici = sayilar(sayac)
sayilar(sayac) = sayilar(sayac2)
sayilar(sayac2) = gecici
End If
Next
Next
For sayac = 1 To 10
ListBox2.Items.Add(sayilar(sayac))
Next
End If
If RadioButton2.Checked = True Then
ListBox2.Items.Clear()
For sayac = 1 To 9
For sayac2 = sayac + 1 To 10
If sayilar(sayac2) < sayilar(sayac) Then
gecici = sayilar(sayac)
sayilar(sayac) = sayilar(sayac2)
sayilar(sayac2) = gecici
End If
Next
Next
For sayac = 1 To 10
ListBox2.Items.Add(sayilar(sayac))
Next
End If
End Sub
End Class
[/code]
Admin abi bu sitedeki Bütün programlar sana mı Ait? Yani bizim programlarıda sitende tanıtabiliriz miyiz.
görselprogramlama ailesine ait.dışarıdan kendi örneklerini yayınlamak isteyenler oldu. Şimdilik dışarıdan örnek almıyoruz.Ama teşekkürler yinede.
abi bana 3 tane NumericUpDown kullanarak =örnek;
NumericUpDown1 ile NumericUpDown2=Örnek 12 ile 24 arasında;
NumericUpDown3 de Adet sayısı;örnek 12 ile 24 arasında 5 adet rasgele sayı üret
yardımcı olursanız.teşekkürler
soru tam açık değil.ayrıntılarıyla yazarmısın.
3 tane NumericUpDown kullanacağız.
numudwn1 ile numudwn2 arasında bir değer seçeceğiz.
numudwn3 adet sayısı seçeceğiz.
en iyi örnekte anlarsın;
numudwn1 23 seçtin,numudwn2 34 seçtin.numudwn3 7 seçtin.
abi 23ile 34 arasında bulunan sayılardan 7 tanesini rasgele gösterecek.Bu abi
teşekkürler:d
Sorunun cevabı yayınlandı. link : http://www.gorselprogramlama.com/sinirlari-numericupdown-ile-belirlenmis-rastgele-sayi-uretmek-vb-net
Ellerine Sağlık.Teşekkürler
abi Elimde Kendi Yaptğığm ve Seninde Yardımcı olduğun Konulardan 5,6 tane
Güzel örnekler var.internette yok bunlardan.Sitende tanıtabilirmiyim.
biraz bizim katkımız olsun.sen O kadar Yardım Ettin bunun karşılığında sitende tanıtmak istiyorum.Beğenmesen Koymassın.Teşekkürler.
cevap Bekliyorum…
gorselprogram@gmail.com gönderirsen bakarız.İlgin için teşekkürler.
Abi gönderdim.İnşallah gelmiştir
gönderdiğin örnekler bizim daha önceki program örnekerinin içerisinde geçiyo bir şekilde.Ama yinede paylaşımın için teş.
tamam
slmlar bana input box ta 10 tane sayi girip ve bu sayıları büyükten küçüğe sıralayıp kendi aralarında toplayan programın kodlarını verir misiniz?
sorunun cevabı yayınlandı link : http://www.gorselprogramlama.com/inputboxdan-girilen-sayilari-sirala-ve-topla-vb-net
Merhaba. ReDim Preserve yerine kullanacağımız başka bir dizi olamaz mı acaba. Benim ödevim de aynı konu ben de bu kodlar ile yapmayı düşünüyorum yalnız hoca ReDim Preserve dizisini öğretmediği için bu konuda takılacağım. Başka bir altarnetif yok mudur ?
redim kaç sayı girildiyse dizinin boyutunu ona göre ayarlıyor(küçültüyor).Redim kaldırsan oradan çalışır yine ama diziyi 100 elemanlı tanımladığımız için diziye az giridiğimizde diğer geri kalanları sıfır olarak alır.Mesela diziyi 20 elamanlı yap.On sayı girilmesini iste.Redime gerek kalmaz.
@admin
Redim’i kaldırdım. Diziyi 20 elemanlı yaptım ancak sıralama butonuna bastığım da sıralama yapmıyor. On sayı girilmesini nasıl sağlayacağız. Rica etsem biraz daha açabilir misiniz ?
redim kullanmadan yapılmış halini yukarıda 3.yol olarak ekledim.
@admin
Çok teşekkür ederim. Emeğine sağlık.
@admin
Bana bu programın dizi kullanmadan yapılan hali gerekiyor.Şöyleki listbox’ın sorted özelliğini true yaptığımızda sayılar ; 12 , 13 , 134, 14, 155, 16 şeklinde gidiyor bunu düzeltecek programı hazırlamamızı istedi ama o kadar çok kafa yormamam rağmen bir sonuca varamadım.Bu programı rica etsem Dizi olmadan sadece , döngü ve değişkenlerle yapabilirmisiniz.
soruyu tam anlamadım.list’e atılan sayıları sıralamayı mı soruyon.
Evet listbox’a atılan sayıları sıralıcak (bu program gibi olacak) fakat dizi kullanılmayacak.Ben denedim ama dizileri yok edemedim :(.Şimdiden teşellürker.
yayınladı sorunun cevabı link : http://www.gorselprogramlama.com/textboxtan-listboxa-eklenen-sayilari-dizi-kullanmadan-siralamak-vb-net
Arkadaşlar merhaba, staj dosyası tamamlıyorum ve takıldığım bir yer var uğraştım ama yapamadım yardım ederseniz çok sevinirim.
Klavyeden girilen x değerine göre aşağıdaki gibi tanımlanan F(x) fonksiyonunu hesaplayan programı yazınız.
F(x)= 3×2+4x+2 , x>0 ise
F(x)=x+1 , x=0 ise
F(x)=4×3+2x+4 , x<0 ise
Sorumuz bu
Visual Basic .Net ortamında yapılacak bir soru basic ile
Abi dizi kullanarak 5 değer gircez ve bunları küçükten büyüğe doğru sıralayacak yardımcı olursanız çok sevinirim
Ve c# form dan olcak
Muhammed:
Aşağıdaki linkleri incele.
http://www.gorselprogramlama.com/klavyeden-sayi-gir-ve-girilen-sayilari-kucukten-buyuge-sirala-fonksiyon-ile-csharp-console/
http://www.gorselprogramlama.com/sayilari-buyukten-kucuge-kucukten-buyuge-siralama/