Visual Basic 3 Adet Sayıdan En Büyüğünü Ve En Küçüğünü Bulma

Visual Basic programı gelişim aşamasında  karşımıza visual basic girilen 3 adet sayıdan en büyüğünü ve en küçüğünü bulma nasıl yapılır sorusu çıkıyor.

Bu kodlar ile birlikte visual basic programında girilen 3 adet sayıdan en büyüğünü ve en küçüğünü bulma hesabını kolayca yapabileceksiniz.

En küçüğü Ve En büyüğü Bulan Program 

Öncelikle bilmemiz gereken aşağıda verilen kodlar ile sadece 3 sayıyı karşılaştırabileceğimiz. Daha fazla sayı veya veriyi karşılaştırmak için bizlere lazım olan sıralama algoritmalarıdır. Web sitemizin arama kısmına sıralama algoritması yazarak ulaşabilirsiniz. 

Visual Basic 3 Adet Sayıdan En Büyüğünü Ve En Küçüğünü Bulma Programı

 

Private Sub Button1_Click(sender As Object, e As EventArgs) 
Handles Button1.Click 
If Val(TextBox1.Text) > Val(TextBox2.Text) And Val(TextBox1.Text) > Val(TextBox3.Text) 
Then TextBox4.Text = TextBox1.Text 
End If 
If Val(TextBox2.Text) >Val(TextBox1.Text) And Val(TextBox2.Text)> Val(TextBox3.Text) 
Then TextBox4.Text = TextBox2.Text 
End If 
If Val(TextBox3.Text) > Val(TextBox1.Text) And Val(TextBox3.Text) > Val(TextBox2.Text) 
Then TextBox4.Text = TextBox3.Text 
End If 
If Val(TextBox1.Text) > Val(TextBox2.Text) And Val(TextBox1.Text)> Val(TextBox3.Text) Then TextBox5.Text = TextBox1.Text 
End If 
If Val(TextBox2.Text) > Val(TextBox1.Text) And Val(TextBox2.Text) > Val(TextBox3.Text) 
Then TextBox5.Text = TextBox2.Text
End If 
If Val(TextBox3.Text) > Val(TextBox1.Text) And Val(TextBox3.Text) > Val(TextBox2.Text) 
Then TextBox5.Text = TextBox3.Text 
End If
End Sub 
End Class

 

Sizlerde kendi yazdığınız programları, istek ve sorularınızı bizlere iletişim kısmından iletebilirsiniz.

Visual Basic ile ilgili kavramlara ek olarak, Visual Basic öğrenimini teşvik etmek için karar verme ve döngü kontrolleri dahil olmak üzere bazı örnekler ve örnek uygulamalar vardır.
Diğer örneklere de göz atabilirsiniz:
Visual Basic Basit Hesap Makinesi
Girilen Sayının Kuvvetini ve Faktöriyelini Hesaplama

Kodlarda herhangi bir problem olduğunda lütfen yorum kısmından iletişime geçiniz.

Bir cevap yazın

E-posta hesabınız yayımlanmayacak.

Makale Hizmeti