• Sábado 21 de Diciembre de 2024, 11:25

Autor Tema:  Que Lenguaje Es Este?  (Leído 2596 veces)

dayler

  • Miembro activo
  • **
  • Mensajes: 45
    • Ver Perfil
Que Lenguaje Es Este?
« en: Martes 13 de Marzo de 2007, 16:17 »
0
Hola  :hola:

Tengo un problema, tengo varios programas y no se a que lenguaje de programación coresponden, y nesesito lerlos, yo soy electrónico y manejo java, c++, c, el código que les pongo supuestamente controla dos robots (Move Master 2 RM-501) mediante la interfase rs-232, quisiera que alguien me diga a que lenguage de programación coresponde el codigo, y bueno decirme que ace, omas especificamente que es lo que envia por rs-232.

Código: Text
  1.  
  2.  
  3. 32000  REM <<< PORT SET >>>
  4. 32010  POKE 56136!,12
  5. 32020  IF PT$<>''PR'' THEN 32040
  6. 32030  PT=0:GOTO 32100
  7. 32040  IF PT$<> ''C1''  THEN 32060
  8. 32050  PT=128:GOTO  32100
  9. 32060  IF PT$<>''C2''   THEN 32080
  10. 32070  PT=162:GOTO   32100
  11. 32080  IF PT$<>"RS"  THEN RETURN
  12. 32090  PT=64
  13. 32100  PT2=PEEK(3)
  14. 32110  PT2=PT2 AND 63
  15. 32020  PT=PT OR PT2
  16. 32030  POKE 3,PT
  17. 32040  RETURN
  18.  
  19.  
  20.  


Bueno espero que alguien pueda ayudarme

Saludos  . . . .

Eternal Idol

  • Moderador
  • ******
  • Mensajes: 4696
  • Nacionalidad: ar
    • Ver Perfil
Re: Que Lenguaje Es Este?
« Respuesta #1 en: Martes 13 de Marzo de 2007, 16:19 »
0
Tiene una pinta de BASIC que se cae ...

Nacional y Popular En mi país la bandera de Eva es inmortal.


Queremos una Argentina socialmente justa, económicamente libre y  políticamente soberana.
¡Perón cumple, Evita dignifica!


La mano invisible del mercado me robo la billetera.

JuanK

  • Miembro de ORO
  • ******
  • Mensajes: 5393
  • Nacionalidad: co
    • Ver Perfil
    • http://juank.io
Re: Que Lenguaje Es Este?
« Respuesta #2 en: Martes 13 de Marzo de 2007, 16:24 »
0
si, sin el animo de repetir, pero si en efecto es basic, aunque con lo corto del código algunos otros pueden entrar también a colación.
[size=109]Juan Carlos Ruiz Pacheco
[/size]
Microsoft Technical Evangelist
@JuanKRuiz
http://juank.io

dayler

  • Miembro activo
  • **
  • Mensajes: 45
    • Ver Perfil
Re: Que Lenguaje Es Este?
« Respuesta #3 en: Miércoles 14 de Marzo de 2007, 01:38 »
0
Gracias por responder  . . .  al parecer si copie el codigo incompleto, y aca les pongo el codigo tal como esta, lo que quisiera saber es ¿que es exactamente que envia por el puerto serial?, mi intuision mas básica me dice que lo que envia por el puero seri no es mas que el código ascii de las cadenas puestas en los comandos LPRINT. qui siera corroborar esto.

Codigo anterior.

Código: Text
  1.  
  2. 32000  REM <<< PORT SET >>>
  3. 32010  POKE 56136!,12
  4. 32020  IF PT$<>''PR'' THEN 32040
  5. 32030  PT=0:GOTO 32100
  6. 32040  IF PT$<> ''C1''  THEN 32060
  7. 32050  PT=128:GOTO  32100
  8. 32060  IF PT$<>''C2''   THEN 32080
  9. 32070  PT=162:GOTO   32100
  10. 32080  IF PT$<>"RS"  THEN RETURN
  11. 32090  PT=64
  12. 32100  PT2=PEEK(3)
  13. 32110  PT2=PT2 AND 63
  14. 32020  PT=PT OR PT2
  15. 32030  POKE 3,PT
  16. 32040  RETURN
  17.  
  18.  

Codigo faltante.

Código: Text
  1.  
  2. 1     PT$="C1"
  3. 20   LPRINT "PS 1,-1000,0,0,0,0,0"
  4. 30   LPRINT "MO 1"
  5. 40   PT$ = "C2" : GOSUB 32000
  6. 50   LPRINT "PS 1,5000,0,0,0,0,0"
  7. 60   LPRINT "MO 4"
  8. 70   PT$ = "RS" : GOSUB 32000
  9. 80   LPRINT "PS 5,0,-500,0,0,0,0"
  10. 90   LPRINT "MO 5"
  11. 100 PT$ = "PR" : GOSUB 32000
  12.       LLIST
  13.  
  14.  

Forly

  • Nuevo Miembro
  • *
  • Mensajes: 21
    • Ver Perfil
Re: Que Lenguaje Es Este?
« Respuesta #4 en: Jueves 15 de Marzo de 2007, 23:47 »
0
Estoy casi seguro de que es BASIC, "el original", el que no era estructurado.

El primer tramo, hasta el RETURN, es un subrutina a la que se ha invocado desde algun
GOSUB

saludos

alberick

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Re: Que Lenguaje Es Este?
« Respuesta #5 en: Domingo 18 de Noviembre de 2007, 04:53 »
0
no se si alguien tiene el catalogo del robot  rm 501 o me dice donde conseguirlo???