• Lunes 18 de Enero de 2021, 11:32

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - nike425

Páginas: [1]
1
Power Builder / Re: Linea en Tiempo de Ejecucion ???
« en: Jueves 30 de Julio de 2009, 22:03 »
q tal ... mmm ??? en Power Builder se puede utilizar funciones ubicadas en librerias .DLLs dentro de windows, a estas funciones se les denomina la API de Windows  :D

  • Declaras estas 3 funciones en 'Global External Functions' dentro de tu aplicacion
    Citar
    FUNCTION uLong GetDC (uLong hwnd) &
       LIBRARY "user32.dll" ALIAS FOR "GetDC; ansi"
       
    FUNCTION uLong LineTo (uLong hdc, uLong x, uLong y) &
       LIBRARY "gdi32.dll" ALIAS FOR "LineTo; ansi"

    FUNCTION uLong MoveToEx (uLong hdc, uLong x, uLong y, REF POINTAPI lpPoint) &
       LIBRARY "gdi32.dll" ALIAS FOR "MoveToEx; ansi"
  • Si te das cuenta la funcion 'MoveToEx' en el arg4 necesita una referencia a una estructura del tipo 'POINTAPI', por lo tanto creas una dentro de tu aplicacion.
    File -> New -> Pestaña 'PBObject' -> Structure  y Ok.
    Creas dos variables:
    Citar
    unsignedlong | X
    unsignedlong | Y
    y guardas la estructura como 'pointapi'

  • Utilizas las funciones API antes declaradas en tu codigo, ya tu ves en donde. Aqui te puse dos ejemplos.
    Dibujando una Linea:
    Citar
    uLong dc
    dc = GetDC(HANDLE(Parent))

    POINTAPI lpPoint // estructura POINTAPI
    lpPoint.x = 0; lpPoint.y = 0

    // Linea Simple
    MoveToEx(dc, 10, 10, lpPoint)
    LineTo(dc, 120, 50)
    Dibujando una funcion Seno:
    Citar
    uLong dc
    dc = GetDC(HANDLE(Parent))

    POINTAPI lpPoint // estructura POINTAPI
    lpPoint.x = 0; lpPoint.y = 0

    // Dibujando Sin(x)
    Integer dx, dy
    dx = 10; dy = 20
    Double pX, pY
    pX = 0 ;
    pY = Sin(pX/5) * 15
    MoveToEx(dc, dx + pX, dy + pY, lpPoint)
    FOR pX = 0 TO 100
       pY = Sin(pX/5) * 15
       LineTo(dc, dx + pX, dy + pY)
    NEXT
Aqui puedes ver como salieron las gráficas:
[attachment=0:3ct8zlmi]outImages.png[/attachment:3ct8zlmi]
Bueno espero que te sirva  :devil:, nos vemos  :good:

Salu2 !!!

2
Power Builder / Como Utilizar MSflexgrid
« en: Viernes 29 de Septiembre de 2006, 22:52 »
...

Páginas: [1]