http://programafacilaaqui.blogspot.com

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

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