Daha önceki yazilarda, Integer(tam sayi) tipinde veri türlerinden detayli olarak bahsetmistik. Bu yazida VB.NET dilinde bulunan ondalikli (Floating-point) sayilari tutan Single, Double ve Decimal veri tiplerinden bahsedecegiz. Hayatimizda ondalikli olarak ifade ettigimiz bazi sayilar vardir. Örnegin boyumuzu söylerken 1.80 m. olarak ifade ederiz. Ya da bir ürünün fiyatina baktigimizda 99.90 TL oldugunu görürüz. Iste bu tarz terimleri programlama yaparken degisken olarak tanimlamamiz gerektiginde, ondalikli sayi veri tiplerini kullanmamiz gerekmektedir.
1. Single Veri Tipi:
Single veri tipi; hafizada 32 bit (4 byte) boyutunda yer kaplayan, 7 basamaga kadar tamliga sahip olan, diger ondalikli veri tipleriyle kiyaslandiginda daha küçük boyuttaki ondalikli ve tam sayilari tutabilen bir veri tipidir. 1.5 x 10-45-3.4 x 1038 araligi arasindaki sayilar atanabilir. .Net Framework karsiligi System.Single olarak ifade edilir.
Module Module1
Sub Main()
Dim fiyat As Single
Dim indirim As Single
Dim indirimliFiyat As Single
fiyat = 1000
indirim = 0.35
indirimliFiyat = fiyat * (1 - indirim)
Console.WriteLine("Normal Fiyati: " & fiyat & " TL")
Console.WriteLine("Size Özel Fiyati: " & indirimliFiyat & " TL")
Console.Read()
End Sub
End Module
ÇIKTI :
Normal Fiyati: 1000 TL
Size Özel Fiyati: 650 TL
Örnek-2 Single Veri Tipi Max Degeri ve Hafiza Boyut
Module Module1
Public Sub Main()
Dim SingleMAX As Single = Single.MaxValue
Dim SingleBOYUT As Integer = Runtime.InteropServices.Marshal.SizeOf(SingleMAX.GetType)
Dim sonuc As New System.Text.StringBuilder
sonuc.AppendLine("Single Hafiza Boyutu:" & SingleBOYUT)
sonuc.AppendLine("Single MAX Degeri:" & SingleMAX)
Console.WriteLine(sonuc.ToString())
Console.Read()
End Sub
End Module
ÇIKTI :
Single Hafiza Boyutu:4
Single MAX Degeri:3,402823E+38
Örnek-3 Single Veri Tipi farkli boyutta degisken atamalari
Module Module1
Public Sub Main()
Dim dSingle1 As Single = 0.9876543
Dim dSingle2 As Single = 0.987654321098765
Dim dSingle3 As Single = 987654321098765
Dim dSingle4 As Single = 9876543
Console.WriteLine("Single1 Degeri: " & dSingle1)
Console.WriteLine("Single2 Degeri: " & dSingle2)
Console.WriteLine("Single3 Degeri: " & dSingle3)
Console.WriteLine("Single4 Degeri: " & dSingle4)
Console.Read()
End Sub
End Module
ÇIKTI :
Single1 Degeri: 0,9876543
Single2 Degeri: 0,9876543
Single3 Degeri: 9,876543E+14
Single4 Degeri: 9876543
Yararli olmasi dilegiyle !!!