Transformacion de angulo en grados en signos, grados y minutos

 

 

 

 

Esta rutina esta escrita en Lyberty basic pero tamben se puede escribir con su version gratuita Just basic, transforma un angulo dado en grados por su equivalente en signos, grados y minutos. Basta con llamar a la rutina con

call gSm1 angulo

y se formara el angulo en el formato indicado planet$ y lo escribe en la pantalla que hemos denominado #gr (esto es arbitraio y se puede modificar)

 

sub gSm1 byref k
 if k=360 then k=0
 S.d=k/30         :S=int(S.d)+1
 g.d=(S.d-S+1)*30 :g=int(g.d)
 m.d=(g.d-g)*60
 mi=int(m.d) :if m.d-mi>0.5 then mi=mi+1
 restore [Sig1] :for n=1 to S : read Sig$: next
 planet$=using("##",g);left$(Sig$,2);using("##",mi)

  if cc>0 then #gr "place ";60*(c-1)+75;" ";15*hsL/s+Y1+5:#gr "\";planet$;
  cu=k
  if cc<13 then #gr co$(cc)

 [Sig1] data "Ari" , "Tau" , "Gem" , "Can" , "Leo" , "Vir" , "Lib" , "Esc" , "Sag" , "Kap" , "Acu" , "Pis"
end sub
 

(Rutina escrita por Antonio Martinez para Alba de Hermes)