XProfan

Windowtitle "Dezimalgrad nach +/-DDD°MM'SS.SSSS"
'EARLY ALPHA, VORSICHT! (D) Demo 2018-04 P.Specht, Wien
Windowstyle 24:cls:set("decimals",15):font 2

Proc DMSc2Deg :parameters d&,m&,s!

    var sgn&=1-2*(d&<0):d&=abs(d&)
    return sgn&*(d&+m&/60+s!/3600)

Endproc

DEF Sgn(1) (@!(1)>0)-(@!(1)<0)
DEF Sg$(1) if(Sgn(@!(1))<0,"-","+")
def Dg°(1) int(int(abs(@!(1))) mod 360)
def Mn°(1) int(abs(int((@!(1)-Dg°(@!(1)))*60)) mod 60)
def Sc°(1) abs(((@!(1)-int(@!(1)))*60)-int((@!(1)-int(@!(1)))*60))*60
DEF Dg$(1) right$("   "+Sg$(@!(1))+str$( Dg°(@!(1)) ),4)+"°"
DEF Mn$(1) right$("00"+str$(Mn°(@!(1))),2)+"'"
DEF Sc$(2) format$("00."+mkstr$("0",@&(2)),Sc°(x!))'str$(Sc°(@!(1)))

proc Test°

    print if(x!>=0," ","");x!,tab(29);
    print Dg$(x!)+Mn$(x!)+Sc$(x!,4)'<<< 2.Param.: Nachkommastellen,

endproc'... 4 Kommastellen bei Sc° = Erdumfang auf 3.1 mm genau

var \
x!= 1.234567890 : Test°
x!=-1.234567890 : Test°
x!= 1.57 : Test°
x!=-1.57 : Test°
x!= 0.571 : Test°
x!=-0.571 : Test°
x!= 362.57 : Test°
x!=-362.57 : Test°
waitinput 5000:Print "\n\n Danke fürs Testen!":sound 30,50:waitinput 2500
print
print
'Experiment: String mit Deg°Min'Sec zerlegen und nach Dezimalgrad zurückkonvertieren
declare y!,DMSc$,v1&,v2&,v3&, w$
lup:
Font 2:print " Dezimalgrad: ";:input w$

if w$>"":x!=val(w$): else : x!=y!:endif

    locate %csrlin-1,40
    DMSc$ = Dg$(x!)+Mn$(x!)+Sc$(x!,4)
    print DMSc$
    v1&=InStr("°",DMSc$)
    v2&=InStr("'",DMSc$)
    v3&=InStr(chr$(34),DMSc$):case v3&=0:v3&=len(DMSc$)
    print " ";left$(DMSc$,v1&-1);"°";mid$(DMSc$,v1&+1,v2&-v1&-1);"'";mid$(DMSc$,v2&+1,v3&-v2&)
    font 0
    'Print val(left$(DMSc$,v1&-1)),\
    '      val(mid$(DMSc$,v1&+1,v2&-v1&-1)),\
    '      val(mid$(DMSc$,v2&+1,v3&-v2&))
    Y! = DMSc2Deg(val(left$(DMSc$,v1&-1)),\
    val(mid$(DMSc$,v1&+1,v2&-v1&-1)),\
    val(mid$(DMSc$,v2&+1,v3&-v2&)))
    Print tab(25);y!," Err:",format$("%g",x!-y!)
    goto "lup"