[اسلام الكبابى]

هذا الكود لاظهار عدد N من الأرقام بعد العلامة العشرية

كود :

X = Val(Text1.Text)
Rem"هى الرقم المطلوب تحويله X"
N = Val(Text2.Text)
Rem"هى عدد الأرقام العشريةالمطلوبة N"
I = Int(X * 10 ^ N)
Y = I / 10 ^ N
Text3.Text = Val(Y)

وان كنت تريد اظهار أول رقم بعد العلامة ولن تريد غير ذلك فهذا هو الكود

كود :

X = Val(Text1.Text)
Rem"هى الرقم المطلوب تحويله X"
Y = Int(X * 10) / 10
Text1.Text = Val(Y)