XProfan

- Página 2 -

Sebastian
Sprenger

Jörg Sellmeyer

¿por qué incluso a través de la Lg(10) dividest. Todavía una o?

Real, Él es el?
*ausprobier*
Sí, es. Lo que conviene saber. Uno puede tomar el logaritmo a una base de ciertas (en mi caso 10) calcular, pero si el Lg-Función en 10 sowieso 1 ausgibt, kann's de hecho se omite.

Profan² 7.0e, XProfan 9, 11.2a, FreeProfan32

Windows Vista Home Premium 32-Bit, 2.8 Ghz, 4 GB RAM

Windows Me, 1.8 Ghz, 256 MB RAM

29.08.2008 ▲

Kompilieren Marca Separación

- Página 3 -

Jörg
Sellmeyer

Lg es el logaritmo común. Korrekterweise Es el Longitud un número:

Len% = Lg(Zahl&) + 1

Debido a que los potentados

(Así que el número del poder) determina el poder de los 10 se, Para obtener el número de:
10^0 = 1
10^0.nnnnn = Relación entr. 1 y 9.9Período
10^1 = 10
10^1.nnnnn = Relación entr. 10.nnnn y 99.9Período
10^2 = 100
10^2.nnnnn = Relación entr. 100.nnnn y 999.9Período
10^3 = 1000
10^3.nnnnn = Relación entr. 1000.nnnn y 9999.9Período
...

Kompilieren Marca Separación

Conjunto("Decimals",15)
Imprimir 10^3.64777486' = ~4444
imprimir "4444 hat",Int(Lg(4444)) + 1,"Stellen"
WaitInput

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

29.08.2008 ▲

Frank
Abbing

Buen intento...

Frank
Abbing

Por favor, introduzca sólo las tareas, a la que tú también una solución weißt...

Hey, Usted no debe decir, pero que esto no se da!

Also Por desgracia, no Solución a la parte inferior de la siguiente tarea. Prehistoria: Hace años, un programa de reconocimiento de voz llamado veces gabs G-Vox, había en lugar de un control de Windows a una ronda grünes Cosa con las encuestas más o menos ocultos, que eran de color amarillo con unos pocos clics del ratón, estaban deformados y en (zeitgefächerten) Liberar las opciones específicas de cada encendido (tan corto, longitud media y larga, haga clic en el efecto que diferentes).

La cosa podría aplicarse también a la Desktop-Hintergrund como un disco de goma y se rumgeschubst era de la Bildschirmkanten billardmässig refleja. Todos los demás Desktop-Elemente eran funcionalmente (!), y en un cierto modo, lo importante incluso desde el ratón, si se oculta, que uno tendría que hacer clic a continuación. Destinado protección de los diseños o algo en él, aber:
El principio en sí mismo, nämlich cómo hacer algo no-rechteckiges encima el escritorio de funcionamiento se puede mover, sería mis intereses.

Clásicas Hintgergrund: Yo sería como mi 3D-Papierflieger anno de la nieve encima Destop la mosca... Código de dunnemal adjunta.
Saludo, Pájaro carpintero

Papierflieger.prf	4 kB

Hochgeladen:	09.09.2008

Ladeanzahl:
		Descargar

Kompilieren Marca Separación

Jörg
Sellmeyer

Como gibt's lo que Thomas Hölzer, lo que permite ajustar podría:

 $H Windows.ph
 $I profalt.inc
' PRFellow - Presentación
' Espectáculos, cómo simular una ventana redonda
' Autor: Thomas Hölzer
' Benötigt Profano 6.0 (32)
Def CreateEllipticRgn(4) !"GDI32","CreateEllipticRgn"
Def DeleteObject(1) !"GDI32","DeleteObject"
Def InvertRgn(2) !"GDI32","InvertRgn"
Def PaintRgn(2) !"GDI32","PaintRgn"
Def SetWindowRgn(3) !"USER32","SetWindowRgn"
Def Captura de lanzamiento(0) !"USER32","ReleaseCapture"

Proc DrawTime

    Declarar t$
    Rectángulo 120,140-190,160
    Let t$=Time$(0);":";Left$(Time$(1),2)
    DrawText 120,140,t$

ENDPROC

'##################################

Proc Empuje

    SetWindowPos %hwnd = (Rnd(%maxx -300) + 300),(Rnd(%maxy -300) + 300) - 300,300

ENDPROC

'###################################
Declarar ende%,rgn&,x%,move%
SetTrueColor 1
Ventana de Estilo $78
Título de la ventana "Rundes Fenster"
Ventana 0,0-300,300
Mensajes del usuario 16
Let rgn&=CreateEllipticRgn(0,0,300,300)
SetWindowRgn(%hwnd,rgn&,1)
Cls RGB(0,0,255)
UseFont Arial,20,0,0,0,0
UseBrush 1,RGB(0,0,255)
USEP 5,0,0
Color del texto RGB(255,255,255),-1
DrawText 80,80,"Rechte Botón del ratón!"
DrawTime
SetTimer 1000
'#########################################
Var Timer& = ~SetTimer(%hwnd,1,1000,ProcAddr(Empuje,0))
'#########################################

Sinestar encargado ende%

    WaitInput
    Case %umessage = 16:Romper

    If %wmtimer

        DrawTime

        If move%

            SetWindowPos %hwnd=x%,0-300,300
            Add x%,10
            Case Gt(x%,%maxX):Let x%=0

        EndIf

    EndIf

    If Equ(%mensaje,$204)

        CreateMenu
        AppendMenu 1, "&Invertieren"

        IF move%

            AppendMenu 2,"&Anhalten"

        Más

            AppendMenu 2, "B&ewegen"

        EndIf

        AppendMenu 3,"&Farbe ändern"
        Separador
        AppendMenu 4,"&Beenden"
        TrackMenu %MouseX,%MouseY

        If MenuItem(1)

            InvertRgn(%hdc,rgn&)

        Elseif MenuItem(2)

            Let move%=Not(move%)

        ElseIf MenuItem(3)

            Selección aleatoria
            ' Mit Region-Función:
            ' UseBrush 1,RGB(Rnd(256),Rnd(256),Rnd(256))
            ' PaintRgn(%hdc,rgn&)
            ' El curso también tuts...
            Cls RGB(Rnd(256),Rnd(256),Rnd(256))
            DrawTime

        ElseIf MenuItem(4)

            Let ende%=1

        Endif

    Elseif Equ(%mensaje,$201)

        UseCursor 5
        SendMessage(%hwnd,$0112,$0F012,0);
        UseCursor 0
        Captura de lanzamiento()

    EndIf

Wend

KillTimer
'#####################
~KillTimer(%hwnd,Timer&)
'#####################
SetWindowRgn(%hwnd,0,0)
DeleteObject(rgn&)
End

Niza volar!

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

¿Te ha Winform [...]

primero debe aprender veces, lo que el ~-Dinger hacer...
Por favor, ¿dónde puedo obtener profalt.inc ? (Búsqueda Profano-Directorio y por desgracia negativos...)

1. Ergänzung: Esto suena con ventanas redondas siempre muy bien ...
2. Ergänzung: WOW, heißt El propio Windows ya se puede? Maldita sea, Todavía se API-Freund...
3. Ergänzung: Hola, he creado una ventana triangular! --> Schneekönig!!!
Gracias!

Jörg
Sellmeyer

y uno todavía puede CombineRgn diferentes Forma zusammenfügen.
El Profalt.inc No es necesario, ya que las funciones en XProfan10 Agregar, Sub u.s.w. siguen funcionando. Ab 11 son sólo todavía Operatoren zulässig.

El ~-Dinger (llamado de paso Tilde) conducir un sustituto de términos, el archivo externo de un (hier Ventana.ph) el real Werte/Funktionsnamen o.ä. leerse.
~KillTimer(...) es entonces para Externo("User32","KillTimer",....)
Busque bajo Encabezamiento-Archivos después de.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

10.09.2008 ▲

¡Hola,
Yo hätte auch una kleine Tarea para euch,
es aber una bischen schwerer, y zwar lo son bajo Windows 7 así una Función wo uno einstellt en welchen Modus el Rechner gerade se ejecuta (befindet se en el Systemtray). Lo son como el Energiesparmodus y el Hochleistungmodus.
Mi Cuestión dazu lautet puede ser con XProfan una Programa escribir qué autommatisch en el Moden wechselt, d.h. si z.B. el CPU-Nutzung niedriger como 50 es wechselt él en el Energiesparmodus y si ellos höher es en el Höchsleistungsmoodus oderr así. Am besten wäre natürlich si el Programa en Hintergrund laufen sería oder sólo en el Systemtray a sehen wäre? Naja vlt fällt euch sí ne Solución una oder, lo wäre echt muy Praktisch si él automáticamente en el Moden weckseln sería!!!!

mfg

Julian57

15.10.2010 ▲