Visual Basic Armstrong Sayısı
Visual Basic programı gelişim aşamasında zaman zaman karşımıza visual basic armstrong sayısı olup olmadığı nasıl yapılır sorusu çıkıyor.
Bu kodlar ile birlikte armstrong sayısı olup olmadığı hesabını kolayca yapabileceksiniz.
Visual Basic Armstrong Sayısı
Armstrong sayısı olarak bilenen sayılar basamaklarında bulunan tüm rakamların sayı değerlerinin küplerinin toplamı kendisine eşit olan sayılara “Armstrong sayısı” denir. Algoritma bilginizi üst seviyelere çıkartmak için bu tarz sorular ile kendinizi geliştirebilirsiniz.
Private Sub Button1_Click(sender As Object, e As EventArgs) Button1.Click //Butona vermiş olduğunuz isme göre değişiklik yapabilirsiniz. Dim sayi, onlar, yuzler, birler, islem; sayi = TextBox1.Text birler = sayi Mod 10; onlar = (sayi Mod 100) / 10; yuzler = (sayi / 100) Mod 10; islem = (birler * birler * birler) + (onlar * onlar * onlar) + (yuzler * yuzler * yuzler) Label2.Text = birler / Label3.Text = onlar/ Label4.Text = yuzler/ If islem = sayi Then Label5.Text = " Armstrong Sayısı "; End If End Sub End
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. Kodlarda herhangi bir problem olduğunda lütfen yorum kısmından iletişime geçiniz.
Diğer örneklere de göz atabilirsiniz:
VİSUAL BASİC KAÇ GÜNDÜR YAŞADIĞIMIZI BULAN PROGRAM
3 ADET SAYIDAN EN BÜYÜĞÜNÜ VE EN KÜÇÜĞÜNÜ BULMA VİSUAL BASİC
