VBNET

VB.Net Örnek Uygulamalar
2 Kasım 2011
Açıklamalı Kodlar
Public Class Form1
Dim sayi, sayac, enbuyuk As Long
Private Sub btnbaslat_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnbaslat.Click
sayi = txtsayi.Text
lstdizi.Items.Clear()
sayac = 0
enbuyuk = 0
Do
lstdizi.Items.Add(sayi)
If sayi Mod 2 = 0 Then ‘Sayı çift ise.
sayi = sayi / 2
Else
‘Sayı tek ise.
sayi = sayi * 3 + 1
End If
sayac = sayac + 1
If sayi > enbuyuk Then enbuyuk = sayi ‘sayi enbuyuk’ten daha
büyük ise yeni enbuyuk değeri sayi olsun.
Loop Until sayi = 1
lstdizi.Items.Add(1)
lbladimsayisi.Text = sayac + 1
lblenbuyuk.Text = enbuyuk
End Sub
End Class
Tolga GÜYER Sayfa 34