8 lines
253 B
Text
8 lines
253 B
Text
Function MapRange(s As Integer, a1 As Integer, a2 As Integer, b1 As Integer, b2 As Integer) As Double
|
|
Return b1+(s-a1)*(b2-b1)/(a2-a1)
|
|
End Function
|
|
|
|
For i As Integer = 0 To 10
|
|
Print Using "## maps to ##.#"; i; MapRange(i,0,10,-1,0)
|
|
Next i
|
|
Sleep
|