Function in RB

Djamel · **Posted:** Sun Feb 17, 2013 6:07 am

Hello,
it's my first time in RB2012, i will start to convert all my applications from VB6 to RBasic.
I would like to Know how to call Func. and how to code it to be used in RB project: This function convert
Decimal deg. to DMS,

Example X=25.51--> 25° 30' 36"

Public Function DecDms(x As Double, xd As Double, xm As Double, xs As Double) As string
  Dim s As String
  Dim sn As Integer, xp As Double, a As Double
  sn = Sgn(x): xp = Abs(x): xd = Int(xp)
  a = (xp - xd) * 60: xm = Int(a)
  xs = Int((a - xm) * 600 + 0.5) / 10
  s = "+"
  If sn = -1 Then s = "-"
  If xs = 60 Then xs = 0: xm = xm + 1: xs = Int(xs): xm = Int(xm)
  If xm = 60 Then xm = 0: xd = xd + 1: xm = Int(xm): xd = Int(xd)
  If s = "-" Then xd = xd * -1
  
End Function

Regards

kermit · **Joined:** Mon May 30, 2011 12:56 am **Posts:** 702

Looks a lot older code than VB, to be honest.

Most of what needs doing is just lose the colons..

What is it supposed to do? It would be a good idea to change the variable names to be more meaningful.

Public Function DecDms(x As Double, xd As Double, xm As Double, xs As Double) As string
  Dim s As String
  Dim sn As Integer
  dim xp As Double
  dim  a As Double
  
  sn = Sgn(x)
  xp = Abs(x)
  xd = Int(xp)
  
  a = (xp - xd) * 60
  xm = Int(a)
  xs = Int((a - xm) * 600 + 0.5) / 10
  s = "+"
  If sn = -1 Then s = "-"
  If xs = 60 Then xs = 0
  xm = xm + 1
  xs = Int(xs)
  xm = Int(xm)
  If xm = 60 Then xm = 0
  xd = xd + 1
  xm = Int(xm)
  xd = Int(xd)
  If s = "-" Then
    xd = xd * -1
  end if
  
End Function

Djamel · **Posted:** Sun Feb 17, 2013 6:48 am

Hello,

Want to know the syntax in the function, how to return a string xd,xm,xs for a given x

pfargo · **Joined:** Mon Oct 13, 2008 4:26 am **Posts:** 63

At the end of your code add

Return str(xd) + "° " + str(xm) + "' " + str(xs) + chr(34)

pfargo · **Joined:** Mon Oct 13, 2008 4:26 am **Posts:** 63

This appears to do what you are looking for

Function DecDms(x As Double) As string
  Dim s As String
  Dim sn As Integer
  dim xp As Double
  dim a As Double
  
  Dim  xDegrees, xMinutes, xSeconds As Double
  
  sn = Sin(x)
  xp = Abs(x)
  xDegrees = floor(xp)
  
  a = (xp - xDegrees) * 60
  xMinutes = floor(a)
  xSeconds = floor((a - xMinutes) * 600 + 0.5) / 10
  s = "+"
  If sn = -1 Then s = "-"
  If xSeconds = 60 Then
    xSeconds = 0
    xMinutes = xMinutes + 1
    xSeconds = floor(xSeconds)
    xMinutes = floor(xMinutes)
  end if
  If xMinutes = 60 Then
    xMinutes = 0
    xDegrees = xDegrees + 1
    xMinutes = floor(xMinutes)
    xDegrees = floor(xDegrees)
  end if
  If s = "-" Then
    xDegrees = xDegrees * -1
  end if
  
  Return str(xDegrees) + "° " + str(xMinutes) + "' " + str(xSeconds) + chr(34)
End Function

Djamel · **Posted:** Sun Feb 17, 2013 2:24 pm

Hello,
Perfect, thank you every body !

Real Software Forums

Function in RB

Who is online

	Real Software Forums The forum for Real Studio and other Real Software products.
[ REAL Software Website \| Board Index ]