Check if fraction exist ?

hobby · Joined: 12 Apr 2004 Posts: 109 Location: Brussels

Hi,

I search solution to get if fraction exist, the value of fraction is needed for me.

The original value is byte.
A this time i check is fraction exist like this:

Dim Value as byte
Dim a as single
Value= 30
a = Value / 8 ' 3,75
If frac(a) > = 0 Then
....
End If

Another simple method exist without using single variable ?

Thanks
Olivier

(BASCOM-AVR version : 2.0.7.9 , Latest : 2.0.7.8 )

Plons · Posted: Wed Aug 05, 2015 12:06 am Post subject:

Use Modulo math: see Bascom Help "mod"

hobby · Joined: 12 Apr 2004 Posts: 109 Location: Brussels

Many thanks.

Bye
Olivier

Duval JP · Joined: 22 Jun 2004 Posts: 1161 Location: France

I had some problem with the use of modulo with single and double, maybe in the last version is fixed
but , sorry I forgot the name of the friend who gave me the solution but it is clever , very simple and works for all kind of variable (change the dim) !

Function Modsingle(byval Number As Single , Byval Modulo As Single) As Single
While Number > Modulo
Number = Number - Modulo
Wend
Modsingle = Number
End Function

jp