| |
| |
|
Pedro
Miguel | Salut,
voudrais un gefüllten kreis zeichnen um un Led trop simulieren. une graphic einlesen dauert trop longtemps.
Hintergrund: Aus qui seriellen schnitstellen bekomme je statusbits qui je comme ON / OFF Montrer voudrais. Deswegen soll cela zeichnen des Kreis très vite vorgehen. car einmal soll un ungefüllten kreis et très kurz puis peux eventuell un gefüllten Kreis erscheinen doit.
Weiss quelqu'un comment cela am besten trop faire ist?
Gruss
Pedro |
|
| |
| |
| |
|
|
 | Schnellste weg ist per GDI dans un hPic zeichnen z.B. avec qui ellipse-Funktion et
ensuite konvertierst simple z.B. qui hPic-Pixel dans une Pixelspeicher et voila.
Aus qui hPic.inc à hPic -Pixel comme Speicherpixel/ String trop conservé:
string 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
string ret=»
cas ~getDIBits(hDC,h,,_height,data,mem,) : ret=char$(data,,sz)
dispose data
dispose mem
return ret
}
si Du den Kreis mais wirklich selbst le calcul magst ensuite simple fois le
Funktion getCircP anschauen: [...]  |
|
| |
| |
| |
|
|
Pedro
Miguel | Salut,
Vielen Dank pour Votre Aider, mais verstehe den code pas um es anzuwenden. suis encore pas très fortgeschritten dans Xprofan.
Ist qui la couleur wählbar avec qui qui Kreis pleine volonté soll?
comment appelle je cette code aus?
cls
...
...
Gruss
Pedro |
|
| |
| |
| |
|
|
| Grüße!
Zeichne simple une Kreis mittels den XProfan-Opportunités per usePen; useBrush
et ellipse am besten dans un hPic (create("hNewPic"...).
So peux Du Farben velours Füllung bestimmen.
qui Funktion dessus ist fortgeschrittenes XProfan im Einsatz avec dem Prä-
komilierer et peux avec cela so comment vous ist fonctionnement volonté et erwartet comme paramètre
un hPic-Handle et qui Bildausmaße des hPics et liefert une Zeichenkette zurück
qui qui Pixel-Farbinformationen comme Kette beinhaltet. Solltest Du den Präkompi
pas im Einsatz avons ensuite schreibe je Dir cet Funktion aussi um. |
|
| |
| |
| |
|
|
Pedro
Miguel | allô iF,
Solltest Du den Präkompi
pas im Einsatz avons ensuite schreibe je Dir cet Funktion aussi um.
Fals es pas alzu viel Zeit ist, wäre je danbar pour qui Funktion. peut-être verstehe je es ensuite.
Frank hat déjà quoi posté quoi sous Umstände nutzbar ist, suis mais gespannt sur deine Solution
Gruss
Pedro |
|
| |
| |
| |
|
|
| je muss gestehen Votre Frage maintenant seulement richtig verstanden trop avons - je comprends zur Zeit wohl seulement "Bahnhof". 
Zum Thema:
Meiner attitude pour gehts am schnellsten avec rein XProfan, si Du qui LED-Bilder bereits dans einem hPic gespeichert la hâte. alors qui Bilder einmal avec create(«PCSI»,... inviter.
ensuite erzeugst Du Bitmap-Statics avec create("bitmap",...et si Du qui Grafik eines Bitmap-Static changement vouloir ensuite utilise simple cet nouvelle: sendMessage(bitMapControl,370,0,hPic) // stm_setImage um dem Bitmap-Static un d'autre hPic (d'autre LED-Bild) zuzuweisen.
qui de Frank beschriebene Methode ist im opposition trop cette Bitmap-Static-Methode seulement pour cela hWnd approprié et Du müsstest aussi tenir compte de, dass Du plan pas seulement sur cela hDC kopierst, mais zusätzlich aussi sur cela hDC2.
cet Bitmap-Static-Methode erspart Dir cependant sur allenFestern/ Dialogen manuelles Neuzeichen et pourrait dank qui Tatsache cela Du avec einem einzigen SendMessage cela hPic changement peux dans qui Anwendung am einfachsten son. |
|
| |
| |
| |
|
|
| ici un vollständiger Voir le texte source joli blinkender LEDs:
Herunterladen
externer Télécharger
cls
var orangeLEDBild&=create(«PCSI»,-1,"orange.png")
var gruenLEDBild&=create(«PCSI»,-1,"grün.png")
var cyanLEDBild&=create(«PCSI»,-1,"cyan.png")
var ausLEDBild&=create(«PCSI»,-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)
tandis que 1
waitinput 50
si rnd(2)
sendMessage(orangeLEDBitmap&,370,0,orangeLEDBild&)
d'autre
sendMessage(orangeLEDBitmap&,370,0,ausLEDBild&)
endif
si rnd(2)
sendMessage(gruenLEDBitmap&,370,0,gruenLEDBild&)
d'autre
sendMessage(gruenLEDBitmap&,370,0,ausLEDBild&)
endif
si rnd(2)
sendMessage(cyanLEDBitmap&,370,0,cyanLEDBild&)
d'autre
sendMessage(cyanLEDBitmap&,370,0,ausLEDBild&)
endif
Wend
end
Sieht aus comment chez einem "Modem". |
|
| |
| |
| |
|
|
Pedro
Miguel | allô iF,
Vielen Dank. je wusste cela Du quelque chose Tolles zauberst. très bien et simple trop comprendre.
bien cela Xprofan et toi gibt.
Gruss
Pedro |
|
| |
| |
| |
|
(612)
Deutsch
English
Français
Español
Italia