3 Basamaklı Sayıların Farkını Bulmak

ads

ads

Bu basit programla TextBox'a girilen 3 basamaklı sayıların farklarını gösteren kolay bir program yapacağız.


Forma eklemeniz gerekenler:

1 tane Label
1 tane Button
2 Adet TextBox ekleyin ve tasarımı resimdeki gibi yapabilirsiniz.

Button'a çift tıklayın ve içine aşağıdaki kodları yazın

a = TextBox1.Text  100
        b = TextBox1.Text Mod 10
        c = TextBox1.Text Mod 100
        d = c  10
        f = a + b + d
        g = TextBox2.Text  100
        h = TextBox2.Text Mod 10
        ı = TextBox2.Text Mod 100
        j = ı  10
        k = g + h + j


        If k > f Then
            Label1.Text = k - f
        Else
            Label1.Text = f - k
        End If

ve son olarak değişkenleri tamamlayın program hazırdır.

Dim a, b, c, d, f, g, h, ı, j, k As Integer

ads