NBATMAN
Üye
- Katılım
- 7 Şub 2008
- Mesajlar
- 136
- Puanları
- 1
Merhaba,
Tekboxa girilen 11.55 veya 10.45 gibi sayıları 12 veya 10 'a yuvarlayan kodları aşağıdaki gibi kullanıyorum. Umarım szinde işinize yarar.
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim sayi As Integer
Dim tamkismi As Integer
Dim satir As Integer
satir = Val(TextBox1.Text)
sayi = satir
tamkismi = Int(satir)
If sayi > tamkismi Then Label1.Text = tamkismi + 1 Else Label1.Text = sayi
End Sub
End Class
Tekboxa girilen 11.55 veya 10.45 gibi sayıları 12 veya 10 'a yuvarlayan kodları aşağıdaki gibi kullanıyorum. Umarım szinde işinize yarar.
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim sayi As Integer
Dim tamkismi As Integer
Dim satir As Integer
satir = Val(TextBox1.Text)
sayi = satir
tamkismi = Int(satir)
If sayi > tamkismi Then Label1.Text = tamkismi + 1 Else Label1.Text = sayi
End Sub
End Class
