Vb.net uygulamalarindan kuvvet ve faktoriyel uygulamasi, iç içe döngü uygulamasi, 153 sayisi uygulamasi, pisagor üçlüleri uygulamasini ve collatz problemi uygulamasini visual studio programi kullanarak olusturacagiz.

16. Uygulamamiz

Kodlarimiz;

Public Class Form1
    Dim sayi, kuvvet As Integer
    Dim sonuc As Long

    Private Sub btnfhesapla_Click(sender As Object, e As EventArgs) Handles btnfhesapla.Click
        sayi = txtsayi.Text
        sonuc = 1
        For i = 1 To sayi
            sonuc = sonuc * i
        Next
        txtfsonuc.Text = sonuc
    End Sub

    Private Sub btnkhesapla_Click(sender As Object, e As EventArgs) Handles btnkhesapla.Click
        sayi = txtsayi.Text
        kuvvet = txtkuvvet.Text
        sonuc = 1

        For i = 1 To kuvvet
            sonuc = sayi * sonuc
        Next

        txtsonuc.Text = sonuc
    End Sub
End Class

17. Uygulamamiz

Kodlarimiz;

Public Class Form1
    Private Sub btnbaslat_Click(sender As Object, e As EventArgs) Handles btnbaslat.Click
        For sayac1 = 0 To 9
            For sayac2 = 0 To 9
                For sayac3 = 0 To 9
                    listsayi.Items.Add(sayac1.ToString() & sayac2.ToString() & sayac3.ToString())
                    TextBox3.Text = sayac3
                    TextBox2.Text = sayac2
                    TextBox1.Text = sayac1
                    TextBox1.Refresh()
                    TextBox2.Refresh()
                    TextBox3.Refresh()
                    Threading.Thread.Sleep(100)' Her adimda 10 ms. bekle.
                Next sayac3
            Next sayac2
        Next sayac1
    End Sub
End Class

18. Uygulamamiz

Kodlarimiz;

Public Class Form1
    Dim sayi As Integer
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For yuzler = 1 To 10
            For onlar = 0 To 9
                For birler = 0 To 9
                    sayi = yuzler * 100 + onlar * 10 + birler
                    If sayi = yuzler ^ 3 + onlar ^ 3 + birler ^ 3 Then
                        ListBox1.Items.Add(sayi)
                    End If
                Next
            Next
        Next
    End Sub
End Class

19. Uygulamamiz

Kodlarimiz;

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For a = 1 To 99
            For b = 1 To 99
                For c = 1 To 99
                    If (c ^ 2 = a ^ 2 + b ^ 2) And (a < b) Then
                        ListBox1.Items.Add(a.ToString() & " - " & b.ToString() & " - " & c.ToString())
                    End If
                Next
            Next
        Next
    End Sub
End Clas

20. Uygulamamiz

Kodlarimiz;

Public Class Form1
    Dim sayi, sayac, enbuyuk As Long
    Private Sub btnbaslat_Click(sender As Object, e As EventArgs) Handles btnbaslat.Click
        sayi = txtsayi.Text
        ListSonuc.Items.Clear()
        sayac = 0
        enbuyuk = 0
        Do
            ListSonuc.Items.Add(sayi)
            If sayi Mod 2 = 0 Then
                sayi = sayi / 2
            Else
                sayi = sayi * 3 + 1
            End If
            sayac = sayac + 1
            If sayi > enbuyuk Then enbuyuk = sayi ' Sayi enbuyuk'ten daha buyuk ise yeni en buyuk degeri sayi olsun.
        Loop Until sayi = 1

        ListSonuc.Items.Add(1)
        TextBox2.Text = sayac + 1
        txtenbuyuk.Text = enbuyuk

    End Sub
End Class

Joker Uygulamamiz

EBOB BULMA: Iki sayiyi yan yana yazarak bölen listesi yapariz. En küçük asal sayidan baslayarak devam ederiz. Iki sayi da bölünmüyorsa bir büyük asal sayiya geçilir. Iki sayi da 1 olana kadar isleme devam edilir. Ancak burada önemli olan her iki sayiyi da bölen sayilari isaretlememiz gerektigidir.

Kodlarimiz;

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()

        If TextBox2.Text = Nothing Or TextBox2.Text = Nothing Then
            MessageBox.Show("Lütfen degerlerinizi kontrol ediniz !", "En Küçük Ortak Bölen EBOB", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
        Else
            Dim i As Integer = 2
            Dim sonuc As Integer = 1
            Dim sayi1, sayi2 As Integer
            Dim deger1, deger2 As Integer
            sayi1 = TextBox1.Text
            sayi2 = TextBox2.Text
            deger1 = sayi1
            deger2 = sayi2

            Do While True

                If sayi1 Mod i = 0 And sayi2 Mod i = 0 Then
                    sayi1 = sayi1 / i
                    sayi2 = sayi2 / i
                    sonuc *= i

                    ListBox1.Items.Add(i)
                    Continue Do
                ElseIf sayi1 Mod i = 0 And sayi2 Mod i <> 0 Then
                    sayi1 = sayi1 / i
                ElseIf sayi2 Mod i = 0 And sayi1 Mod i <> 0 Then
                    sayi2 = sayi2 / i
                End If

                If sayi1 = 1 And sayi2 = 1 Then
                    Exit Do
                ElseIf sayi1 Mod i <> 0 And sayi2 Mod i <> 0 Then
                    i += 1
                End If

            Loop

            MessageBox.Show(deger1 & " , " & deger2 & " " & "Sayilarinin en küçük ortak böleni" & " " & sonuc & " dir.", "En Küçük Ortak Bölen EBOB", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
        End If

    End Sub
End Class