Código convertir numero octal a decimal



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 like...


Comentarios

Publicar un comentario

Entradas populares de este blog

uso de web cam en vfp

Este es un programa para usar la web-cam desde un formulario de visual foxpro (vfp). noesmio el codigo, me lo paso un amigo- Nexis Mejía. Espero les sirva y lo usen. ATT. luis lagos amaya LOCAL oForm oForm = CREATEOBJECT("Tform") oForm.show(1) return DEFINE CLASS Tform As Form #DEFINE WM_CAP_START 0x0400 #DEFINE WM_CAP_DRIVER_CONNECT (WM_CAP_START+10) #DEFINE WM_CAP_DRIVER_DISCONNECT (WM_CAP_START+11) #DEFINE WM_CAP_DRIVER_GET_CAPS (WM_CAP_START+14) #DEFINE WM_CAP_SET_PREVIEW (WM_CAP_START+50) #DEFINE WM_CAP_SET_OVERLAY (WM_CAP_START+51) #DEFINE WM_CAP_SET_PREVIEWRATE (WM_CAP_START+52) #DEFINE WM_CAP_GET_STATUS (WM_CAP_START+54) #DEFINE WM_CAP_GRAB_FRAME (WM_CAP_START+60) *Width=540 && para poner imagenes del click. Width=340 Height=310 Autocenter=.T. Caption="Captura de Foto del Interno" MinButton=.F. MaxButton=.F. hWindow=0 hCapture=0 capWidth=0 capHeight=0 capOverlay=0 ADD OBJECT cmdGetFrame As CommandButton WITH Def...
Leer más
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.
Leer más