E' normale che Round non arrotondi?

[vuott]

.... paint.font.size (giustamente x me) se ne infischia del round e utilizza il valore completo del numero float

Comunque, io ho fatto una prova con un breve e semplice codice.... ed ho verificato che paint.font.size non ha problemi a conservare l'arrtondamento ! 

[Gianluigi]

.... paint.font.size (giustamente x me) se ne infischia del round e utilizza il valore completo del numero float

Comunque, io ho fatto una prova con un breve e semplice codice.... ed ho verificato che paint.font.size non ha problemi a conservare l'arrtondamento ! 

Scusa ma non potevi dimostrarla 

Comunque guardate un po qui io intravedo delle incongruenze fra il comportamento dei due tipi di ROUND con Quanti e senza 

Codice: [Seleziona]

' Gambas class file

Public Sub _new()

End

Public Sub Form_Open()
 
 Dim f As Float
 
  da.Cached = True
  Paint.Begin(da)
  
  Paint.Font.Size = 11
  Print Paint.Font.Size ' ===> 11
  
  f = (11 * 0.744)
  Print f               '===> 8.184
  
  Paint.Font.size = f
  Print Paint.Font.size '===> 8.18359375
  
  f = Round(11 * 0.744) 
  Print f               '===> 8
  
  Paint.Font.Size = f
  Print Paint.Font.size '===> 8 
  
  Paint.Font.Size = Round(11 * 0.744)
  Print Paint.Font.size '===> 8
  
  Paint.Font.Size = Round(11 * 0.744)
  f = 1.3441
  Paint.Font.Size = Round(Paint.Font.Size * f)
  Print Paint.Font.size  '===> 11
  
  f = Round(11 * 0.744, -2)
  Print f                '===> 8.18
  
  Paint.Font.Size = f
  Print Paint.Font.size  '===> 8,1796875
  
  Paint.Font.Size = Round(11 * 0.744, -2)
  Print Paint.Font.size  '===> 8.1796875
  
  Paint.Font.Size = Round(11 * 0.744, -2)
  f = 1.3441
  Paint.Font.Size = Round(Paint.Font.Size * f, -2)
  Print Paint.Font.size  '===> 10.9892578125
  Paint.End

End