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

[Immortalqame]

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 ..

 

[B_Jackall]

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

 

[Immortalqame]

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ı?

 

[qweqqq]

Sanırım Bu Modül İşine Yarar Milli Eğitimin Modülü

http://rapidshare.com/files/202824904/gorsel_programlama_komutlari.zip.html

 

[Immortalqame]

Modülü indirmedim ama ßiz saten Modüllerden ders işliyoruz..

Modüllerde yok.

 

[B_Jackall]

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

 

[Immortalqame]

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

 

[B_Jackall]

ilk verdiğin kodda onu da görememiştim ama, akşama buraya yazayım kodunu, işyerinde Visual Studio yok, denemeden kod yazmak istemiyorum

 

[Immortalqame]

Neyse ben artık yarın nasıl olduğunu buraya yazarım Hoca qösterir yarın...
Baya merak ettim kimse yapamadı ..