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

VİSUAL BASİC MÜKEMMEL SAYI

Bir cevap yazın

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

Makale Hizmeti