Döngü ile Form2 yi 9 Kere Göstermek ve Textboxdaki Sayıları Almak..

Immortalqame

Atatürkçü
Katılım
12 May 2006
Mesajlar
1,461
Reaction score
0
Puanları
0
Konum
den haber yok...
Merhaba. Bİyerde takıldım daha doğrusu yapamadım :)

Şimdi geçen Inputbox ile ;
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a(9), i, j, b, c(9) As Integer

a(0) = Val(InputBox("1.Değer Girin", "Sıralama"))
a(1) = Val(InputBox("2.Değer Girin", "Sıralama"))
a(2) = Val(InputBox("3.Değer Girin", "Sıralama"))
a(3) = Val(InputBox("4.Değer Girin", "Sıralama"))
a(4) = Val(InputBox("5.Değer Girin", "Sıralama"))
a(5) = Val(InputBox("6.Değer Girin", "Sıralama"))
a(6) = Val(InputBox("7.Değer Girin", "Sıralama"))
a(7) = Val(InputBox("8.Değer Girin", "Sıralama"))
a(8) = Val(InputBox("9.Değer Girin", "Sıralama"))
a(9) = Val(InputBox("10.Değer Girin", "Sıralama"))

For i = 0 To 9
For j = i + 1 To 9
If a(i) < a(j) Then
b = a(i)
a(i) = a(j)
a(j) = b
End If
Next
Next
For i = 0 To 9
Label1.Text = Label1.Text & vbCrLf & a(i)
Next

End Sub
End Class

Bunu yaptık Yani 9 Kez Inputbox çıkıcak Her birine sayı yazıcağız ve O sayıları büyükten Küçüğe Label1 e yazıcak

Şunu yapamadım:

2 Tane form olcak
1.Formda Label ve Buton
2.Formda ise Textbox ve Buton

Şimdi 1.formdaki butona basınca İkinci form açılıcak (buraları biliyorumda döngülerde iyi değilim)
2.Form 9 kere veya istediğimiz kadar açılıcak diyelim ki 9 kere ..
Her açılışta textbox a bi değer atıycağız 9 kere bu atadığımız değerleri Form1 deki Label e yazdırıcak..


Evet yardıma İhtiyacım var Teşekkür ederim ..
 
Module Module1
Public sayi1 As Integer
Public i as Integer
End Module


Bunu form1 in başına yaz, Public Class Form1 in üstüne

form 1 üstüne bi label, bir de buton koy

form 2 üstüne 1 textbox bir de buton koy


şimdi gelelim kodumuza

form1 load event kısmına

i = 0

yaz ki herhangi negatif bir sayı gigrersen işi bozmasın ;)

sonrasında form1 buton kısmına
form2.show()
i = i+ 1
if i>9 then
me.buton1.enabled = false
me.buton1.text = "döngü bitti"
endif


bu sayede 9. kez butona bastığında 10. için form2 açılmayacak

form2 de butonun kodu olarak da

sayi1 =me.textbox1.text.tostring
form1.label1.text = sayi1.tostring
me.close()


bu şekilde girilen sayıları sırasıyla görebilirsin
 
Yardım için teşekkür ederim ama İşe yaramadı ne yazık ki..
Form1 deki butona tıkladığımda Form2 1 Kez açılıyo
Textbox a değer giriyorum Label1 e yazıyor..

Şöyle yapalım Ben bugün Okulda da Uğraştım;
FORM1 Butondaki kod​
Dim a(9), i As Integer


'Burada yazdığımız sayı kadar Form2 yi tekrarlar'

For i = 0 To 9
Me.Hide()
a(i) = Form2.ShowDialog
Next



'9 Kez tekrarlarken Form2 nin textbox ındaki sayıları yazar'

For i = 0 To 9
Label1.Text = Label1.Text & vbCrLf & Form2.TextBox1.Text
Next

Form2 Butondaki Kod
Form1.Label1.Text = Form1.Label1.Text & vbCrLf & TextBox1.Text
TextBox1.Text = ""


Me.Close()
Form1.Show()

Açıklamaları üstünde yazıyor .. Ben bunu yaptım Peki Girilen o 9 Sayıyı büyük ten Küçüğe nasıl sıralatıcam Onu buLamadım.

Inptutbox ile sıralatırken şu kodu kullanıyordum;

Dim a(9), i, j, b As Integer


For i = 0 To 9
For j = i + 1 To 9
If a(i) < a(j) Then
b = a(i)
a(i) = a(j)
a(j) = b
End If
Next
Next

İnputbox'da bu işe yarıyor ama Form2 den alırken yaramıyor ..

Burdan sonra yardım edebilicek olan varmı?
 
Bu kadar da beleşçi olmayın kafa yorun biraz :victory
tek yapman gereken
buton1 koduna (form1 için)
form2.show()
i = i+ 1
me.buton1.enabled = false
me.buton1.text = "döngü bitti"

yazacaksın

tekrarlı otomatik açılmasını istiyorsan
sonra gidip form2 nin onexit olayı için (tam hatırlamıyorum ama onexit olması lazım geliyo)

if i<9 then
form2.show()
i = i+ 1


yaz yeter
kalan kısım aynen kalacak

en son olarak sıralama demişsin, onu da akşama yazıp öyle vereyim hem kodu hemde derlenmiş exe'yi
 
Ya ben saten Otomatik açılmayı ve Sayıları form1 'in Label ine yazdırdım Beleşçi olma diyosun ya..

Sadece Sıralamayı yaptıramaadım Orda bi yardımcı Olursan Son gün Salı günü sabah 11 e kadar
 
Neyse ben artık yarın nasıl olduğunu buraya yazarım Hoca qösterir yarın...
Baya merak ettim kimse yapamadı ..
 
Geri
Üst