Programando fácil aquí

Código convertir numero  octal a decimal -Utilizaran   una caja de texto para ingresar el número octal -una label para poner la respuesta Hecho para visual FoxPro Esto lo tendrán que poner en un botton: T1=val(thisform.octal.value) L=len(alltrim(thisform.octal.value) D=0 For x=L   to 1   strp -1                 De=0                 S=substr(alltrim(thisform.octal.value),x,1)                 De=s * 8 ^D                 D=D+1                 Thisform.decimal.caption=str(val(thisform.decimal.caption)+De) next  fin *si les gusto recuerden darle compartir y l...

Código convertir numero de decimal a octa l -Utilizaran   una caja de texto para ingresar el número decimal. -una label para poner la respuesta Hecho para visual FoxPro Esto lo tendrán que poner en un botton: Store 0 to m,n re= space (30) t= Val ( thisform .t1. value ) do while t<8                 m= mod (t,8)                 n=t/8                 re=re+ str ( alltrim (m))                 t=n                 m=n                 if t<8          ...

http://programafacilaaqui.blogspot.com

para convertir un numero de decimal a hexadecimal en foxpro 9: Autor:Jose raul romero(pollo) esto lo pondras en un botton: WITH thisform n=VAL(.t1.value) m=0 c=0 IF n=16 .t2.value="10" n=0 ENDIF DO WHILE n>0 c=INT(n/16) IF n>16 m=MOD(n,16) ELSE m=n ENDIF IF m>=10 IF m=10 .t2.value="A"+ALLTRIM(.t2.value) ELSE IF m=11 .t2.value="B"+ ALLTRIM(.t2.value) ELSE IF m=12 .t2.value="C"+ALLTRIM(.t2.value) ELSE IF m=13 .t2.value="D"+ALLTRIM(.t2.value) ELSE IF m=14 .t2.value="E"+ALLTRIM(.t2.value) ELSE IF m=15 .t2.value="F"+ALLTRIM(.t2.value) ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ELSE .t2.value=STR(m)+ALLTRIM(.t2.value) IF n<16 n=0 c=0 ENDIF ENDIF n=c ENDDO ENDWITH Autor: Jose raul romero (pollo)

Este es un código para capturar la pantalla desde un programa en foxpro(lenguaje de programacion en base a objetos), esto ira en un botton: DECLARE INTEGER keybd_event IN Win32API INTEGER, INTEGER, INTEGER, INTEGER VK_SNAPSHOT = 44 VK_LMENU = 164 KEYEVENTF_KEYUP = 2 KEYEVENTF_EXTENDEDKEY = 1 DOEVENTS keybd_event(VK_SNAPSHOT, 1, 0, 0 ) keybd_event(VK_SNAPSHOT, 1, KEYEVENTF_KEYUP, 0 ) DOEVENTS DOEVENTS keybd_event( VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0 ) keybd_event( VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0 ) keybd_event( VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0 ) keybd_event( VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0 ) DOEVENTS oWord=CREATEOBJECT("Word.Application") oWord.WindowState=2 oWord.Documents.Add.Content.Paste oWord.Visible=.T.