
TextBox'lara girilen herhangi bir sayıların Button'a basarak büyükten küçüğe doğru en basit şekliyle sıralanışını hep beraber yapalım.
Form'a eklemeniz gereken nesneler aşağıda:
3 Tane TextBox ve bir adet Button ekleyelim.
İlk olarak değişken tanımlayacağız. Değişkeni tanımlamak için aşağıdaki kodu, form'da Public Class Form1'in hemen altına yazınız.
Dim a, b, c, d As Integer
Sonrasında Buttona çift tıklayarak button1_click olayına aşağıdaki kodları yazın.
a = TextBox1.Text b = TextBox2.Text c = TextBox3.Text If a > b Then a = b b = d End If If a > c Then d = a a = c c = d End If If b > c Then d = c c = b b = d End If TextBox1.Text = a TextBox2.Text = b TextBox3.Text = c
Hiç yorum yok: