Informática en general > Dudas informáticas

 Que Lenguaje Es Este?

(1/2) > >>

dayler:
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 ---  32000  REM <<< PORT SET >>>32010  POKE 56136!,1232020  IF PT$<>''PR'' THEN 3204032030  PT=0:GOTO 3210032040  IF PT$<> ''C1''  THEN 3206032050  PT=128:GOTO  3210032060  IF PT$<>''C2''   THEN 3208032070  PT=162:GOTO   3210032080  IF PT$<>"RS"  THEN RETURN32090  PT=6432100  PT2=PEEK(3)32110  PT2=PT2 AND 6332020  PT=PT OR PT232030  POKE 3,PT32040  RETURN   

Bueno espero que alguien pueda ayudarme

Saludos  . . . .

Eternal Idol:
Tiene una pinta de BASIC que se cae ...

JuanK:
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.

dayler:
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 --- 32000  REM <<< PORT SET >>>32010  POKE 56136!,1232020  IF PT$<>''PR'' THEN 3204032030  PT=0:GOTO 3210032040  IF PT$<> ''C1''  THEN 3206032050  PT=128:GOTO  3210032060  IF PT$<>''C2''   THEN 3208032070  PT=162:GOTO   3210032080  IF PT$<>"RS"  THEN RETURN32090  PT=6432100  PT2=PEEK(3)32110  PT2=PT2 AND 6332020  PT=PT OR PT232030  POKE 3,PT32040  RETURN  
Codigo faltante.


--- Código: Text --- 1     PT$="C1"20   LPRINT "PS 1,-1000,0,0,0,0,0"30   LPRINT "MO 1"40   PT$ = "C2" : GOSUB 3200050   LPRINT "PS 1,5000,0,0,0,0,0"60   LPRINT "MO 4"70   PT$ = "RS" : GOSUB 3200080   LPRINT "PS 5,0,-500,0,0,0,0"90   LPRINT "MO 5"100 PT$ = "PR" : GOSUB 32000      LLIST  

Forly:
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

Navegación

[0] Índice de Mensajes

[#] Página Siguiente