Entradas

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...
2 comentarios
Leer más

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 l...
1 comentario
Leer más

codigo de decimal a octal.

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          ...
Publicar un comentario
Leer más
http://programafacilaaqui.blogspot.com
Publicar un comentario
Leer más

convertidor de decimal a hexadecimal.

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)
Publicar un comentario
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.
Publicar un comentario
Leer más