Nachkommastellen werden nicht berechnet
Andreas
So habe jetzt mal eine Funktion dazu geschrieben aber diese zeigt mir nur ganze werte an.
kann mir jemand sagen warum sie mir keine nachkommastellen anzeigt?
z.b. laut meinem taschenrechner ist 199/4=49,75 und nicht 50
(wie debug.print Pix_per_real für Pix_real=199 und Distance_normal =4 anzeigt) ich verstehs einfach nicht.
Integer kann doch 10 Nachkommastellen!?
[code]
Function pixel_to_normal(Pix_all As Integer, pix_waste_up As Integer, Pix_waste_down_as_integer, _
Pix_Test As Integer, normal_start As Integer, normal_end As Integer) As Integer
Dim Pix_real As Integer
Dim Distance_normal As Integer
Dim Pix_per_normal As Integer
Dim Pix_test_minus_waste As Integer
Dim Normal_test_minus_waste As Integer
Pix_real = Pix_all - pix_waste_up - pix_waste_down
Distance_normal = normal_end - normal_start
Pix_per_normal = Pix_real / Distance_normal
Normal_test_minus_waste = Pix_test_minus_waste / Pix_per_normal
pixel_to_normal = normal_end - Normal_test_minus_waste
End Function
[/code]
Danke für eure Hilfe, ist übrigens für meine Facharbeit