| |
| |
|
Pedro
Miguel | ¡Hola,
Möchte una gefüllten kreis dibujar en una Led a simulieren. Un graphic einlesen dauert demasiado tiempo.
Hintergrund: Aus el seriellen schnitstellen bekomme Yo statusbits el Yo como ON / OFF Mostrar möchte. Deswegen se el dibujar des Kreis muy rápidamente vorgehen. Denn una vez se una ungefüllten kreis y muy kurz darauf kann eventuell una gefüllten Kreis erscheinen necesario.
Weiss alguien como el al besten a hacer es?
Gruss
Pedro |
|
| |
| |
| |
|
|
 | Schnellste weg es por GDI en una hPic dibujar z.B. con el ellipse-Función y
entonces konvertierst simplemente z.B. el hPic-Pixel en una Pixelspeicher y voila.
Aus el hPic.inc a hPic -Pixel como Speicherpixel/ String a obtener:
cadena hPic.bgr2String(long h,_width,_height){
long sz=( (_width*32\8-1) | 3 +1) * abs(_height)
mem mem=bitmapInfoHeader
with mem
.biSize& = sizeof(mem)
.biWidth& = _width
.biHeight& = _height
.biPlanes% = 1
.biBitCount% = 32
.biCompression& = BI_RGB
.biSizeImage& = sz
endwith
mem data=sz
cadena ret=""
caso ~getDIBits(hDC,h,,_height,data,mem,) : ret=char$(data,,sz)
disponer data
disponer mem
volver ret
}
Si usted el Kreis aber wirklich incluso rechnen magst entonces simplemente veces el
Función getCircP anschauen: [...]  |
|
| |
| |
| |
|
|
Pedro
Miguel | ¡Hola,
Vielen Dank para Su Ayuda, aber verstehe el code no en lo anzuwenden. Bin todavía no muy fortgeschritten en Xprofan.
Ist el Farbe wählbar con el el Kreis gefüllt voluntad se?
Como rufe Yo esta code de?
cls
...
...
Gruss
Pedro |
|
| |
| |
| |
|
|
| Grüße!
Zeichne simplemente una Kreis mittels el XProfan-Möglichkeiten por usePen; useBrush
y ellipse al besten en una hPic (create("hNewPic"...).
So kannst Usted Farben samt Füllung bestimmen.
El Función oben es fortgeschrittenes XProfan en el Einsatz con el Prä-
komilierer y kann así como ellos es ausgeführt y ser esperado como Parámetro
una hPic-Handle y el Bildausmaße des hPics y liefert una Zeichenkette zurück
el el Pixel-Farbinformationen como Kette beinhaltet. Solltest Usted el Präkompi
no en el Einsatz haben entonces escribir Yo Usted esta Función auch en. |
|
| |
| |
| |
|
|
Pedro
Miguel | Hola si,
Solltest Usted el Präkompi
no en el Einsatz haben entonces escribir Yo Usted esta Función auch en.
Fals no alzu viel Tiempo es, wäre Yo danbar para el Función. Tal vez verstehe Yo entonces.
Franco ha ya qué Nuevo qué bajo Umstände nutzbar es, bin aber gespannt en deine Solución
Gruss
Pedro |
|
| |
| |
| |
|
|
| Yo muss gestehen Su Cuestión ahora sólo correcto verstanden a haben - Yo verstehe a Tiempo wohl sólo "Bahnhof". 
Zum Thema:
Meiner Meinung después de gehts al schnellsten con rein XProfan, si el LED-Bilder ya en un hPic gespeichert hast. Also el Bilder una vez con create("HPIC",... einladen.
Dann erzeugst Usted Mapa de bits-Statics con create("bitmap",...y si el Grafik uno Mapa de bits-Static ändern möchtest entonces nutzt simplemente esta Nachricht: sendMessage(bitMapControl,370,0,hPic) // stm_setImage en el Mapa de bits-Static una más hPic (más LED-Bild) zuzuweisen.
El de Franco beschriebene Método es en el Gegensatz a dieser Mapa de bits-Static-Método sólo para el hWnd geeignet y Usted müsstest auch beachten, dass Usted eben no sólo el hDC kopierst, pero zusätzlich auch el hDC2.
Diese Mapa de bits-Static-Método erspart Usted sin embargo en allenFestern/ Dialogen manuelles Neuzeichen y dürfte dank el Tatsache el Usted con un einzigen SendMessage el hPic ändern kannst en el Anwendung al einfachsten ser. |
|
| |
| |
| |
|
|
| Hier una vollständiger Ver código fuente hübsch blinkender LEDs:
Descargar
externer Descargar
cls
var orangeLEDBild&=create("HPIC",-1,"orange.png")
var gruenLEDBild&=create("HPIC",-1,"grün.png")
var cyanLEDBild&=create("HPIC",-1,"cyan.png")
var ausLEDBild&=create("HPIC",-1,"aus.png")
/ /
var orangeLEDBitmap&=create("bitmap",%hWnd,orangeLEDBild&,30,30)
var gruenLEDBitmap&=create("bitmap",%hWnd,gruenLEDBild&,50,30)
var cyanLEDBitmap&=create("bitmap",%hWnd,cyanLEDBild&,70,30)
mientras que 1
waitinput 50
if rnd(2)
sendMessage(orangeLEDBitmap&,370,0,orangeLEDBild&)
más
sendMessage(orangeLEDBitmap&,370,0,ausLEDBild&)
endif
if rnd(2)
sendMessage(gruenLEDBitmap&,370,0,gruenLEDBild&)
más
sendMessage(gruenLEDBitmap&,370,0,ausLEDBild&)
endif
if rnd(2)
sendMessage(cyanLEDBitmap&,370,0,cyanLEDBild&)
más
sendMessage(cyanLEDBitmap&,370,0,ausLEDBild&)
endif
wend
end
Sieht de como en una "Modem". |
|
| |
| |
| |
|
|
Pedro
Miguel | Hola si,
Vielen Dank. Yo wusste el Usted algo Tolles zauberst. Sehr bien y simplemente a verstehen.
Gut el Xprofan y Usted son.
Gruss
Pedro |
|
| |
| |
| |
|
(442)
Deutsch
English
Français
Español
Italia