XProfan

Français

G510s Keyboard LCD Display Snake Verwenden Ansteuern

Habe mir gestern pour 55 Euro chez Saturn une clavier gekauft: G510s

Tolles partie, Tasten super - tout autor gekauft. Schreibgefühl magnifique et seulement après ausgesucht.

comment De toute façon, cela partie hat un LCD-Display.

comment De toute façon, cela voulons wir naturellement verwenden avec XProfan.

So avec Pixel et mettons et Effacer - alors un Snake:

ici qui Code um eigene APP pour cela Display herstellen trop peut avec NativeProfanFree: [...]

Kompilieren Marque Séparation

 {$cleq}
//g510s lcd (160x43x1) display usage with XProfan
DEF LogiLcdInit(2) ! "LogitechLcd.dll","LogiLcdInit"
DEF LogiLcdIsConnected(1) ! "LogitechLcd.dll","LogiLcdIsConnected"
DEF LogiLcdMonoSetBackground(2) ! "LogitechLcd.dll","LogiLcdMonoSetBackground"
DEF LogiLcdUpdate(0) ! "LogitechLcd.dll","LogiLcdUpdate"
declare g510&
cls
g510.createDisplay()
long x=80,y=20

do {

    g510.setPixel(x,y,getTickCount\300 mod 2)
    g510.refresh(1)
    waitinput 300
    g510.setPixel(x,y,vrai)

    sélectionner %scankey

        caseof 37 : dec x

        caseof 38 : dec y

        caseof 39 : inc x

        caseof 40 : inc y

    endselect

}

end
/ /

g510.createDisplay(){

    usedll("LogitechLcd.dll")
    LogiLcdInit("X\zP\zr\zo\zf\za\zn\z.\zN\ze\zt\z\z" ,1)
    g510&=globalAlloc(gPTR,8192)
    rtlZeroMemory(g510&,8192)

}

nproc g510.cls{

    global g510&
    rtlZeroMemory(g510&,8192)

}

nproc g510.setPixel(long x,y,pixel){

    global g510&
    add x,y*160
    setbyte g510&,x,pixel+127

}

g510.refresh(long disp){

    LogiLcdMonoSetBackground(g510&,8192)
    LogiLcdUpdate(1)

}

Video:
Herunterladen

Exe:
Herunterladen

Nachtrag:

Viel plus beau wäre doch direct un hPic à cela LCD senden trop peut,
bitteschön:

Kompilieren Marque Séparation

 {$cleq}
//g510s lcd (160x43x1) display usage with XProfan
decimals 0
declare g510&,g510Pixels&
include pixels.inc
DEF LogiLcdInit(2) ! "LogitechLcd.dll","LogiLcdInit"
DEF LogiLcdIsConnected(1) ! "LogitechLcd.dll","LogiLcdIsConnected"
DEF LogiLcdMonoSetBackground(2) ! "LogitechLcd.dll","LogiLcdMonoSetBackground"
DEF LogiLcdUpdate(0) ! "LogitechLcd.dll","LogiLcdUpdate"
style de fenêtre 512 | 80
window 0,0 - 0,0
g510.createDisplay()

do {

    g510.startPaint()
    cls 0
    color 15,0
    imprimer "XProfan sur G510s"
    g510.endPaint()
    waitinput 10000

}

end
/ /
g510.startPaint(){pixels.startPaint(g510Pixels&)}

g510.endPaint(){

    pixels.endpaint()
    pixels.renewPixels(g510Pixels&)
    //pixels.drawSizedHPic(g510Pixels&,0,0,width(hwnd),height(hwnd),0)
    g510.pixels2lcd(g510Pixels&)
    g510.refresh(1)
    pixels.endPaint()

}

nProc g510.pixels2lcd(long pix){

    global g510&
    long p=0

    whileloop 0,6880 {

        setbyte g510&,loop,byte(pix,p)
        add p,4

    }

}

g510.createDisplay(){

    usedll("LogitechLcd.dll")
    LogiLcdInit("X\zP\zr\zo\zf\za\zn\z.\zN\ze\zt\z\z" ,1)
    g510&=globalAlloc(gPTR,8192)
    rtlZeroMemory(g510&,8192)
    g510Pixels&=pixels.createHPic(160,43,0)

}

nproc g510.cls{

    global g510&
    rtlZeroMemory(g510&,8192)

}

nproc g510.setPixel(long x,y,pixel){

    global g510&
    add x,y*160
    setbyte g510&,x,pixel+127

}

g510.refresh(long disp){

    LogiLcdMonoSetBackground(g510&,8192)
    LogiLcdUpdate(1)

}

et maintenant devrait cela partie juste encore den letzten Anruf sur meiner FritzBox Montrer... Tada:

Télécharger/ dans den Warenkorb

4,99 €

inkl. MwSt.

aucun Versandgebühr

20151220_141345.jpg Preview

513 kB

Hochgeladen:

20.12.2015

Downloadcounter:

Herunterladen

20151220_141232.mp4

17.420 kB

Hochgeladen:

20.12.2015

Downloadcounter:

Herunterladen

20151220_141346.jpg Preview

79 kB

Hochgeladen:

20.12.2015

Downloadcounter:

Herunterladen

g520s.png

49 kB

Hochgeladen:

20.12.2015

Downloadcounter:

Herunterladen

~~g510s.zip~~

536 kB

Hochgeladen:

20.12.2015

Downloadcounter:

~~Herunterladen~~

20151220_192012.jpg Preview

664 kB

Hochgeladen:

20.12.2015

Downloadcounter:

Herunterladen

20151220_192935.jpg Preview

40 kB

Hochgeladen:

20.12.2015

Downloadcounter:

Herunterladen

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

20.12.2015 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Viel plus beau wäre doch direct un hPic à cela LCD senden trop peut,
bitteschön:

Kompilieren Marque Séparation

 {$cleq}
//g510s lcd (160x43x1) display usage with XProfan
decimals 0
declare g510&,g510Pixels&
include pixels.inc
DEF LogiLcdInit(2) ! "LogitechLcd.dll","LogiLcdInit"
DEF LogiLcdIsConnected(1) ! "LogitechLcd.dll","LogiLcdIsConnected"
DEF LogiLcdMonoSetBackground(2) ! "LogitechLcd.dll","LogiLcdMonoSetBackground"
DEF LogiLcdUpdate(0) ! "LogitechLcd.dll","LogiLcdUpdate"
style de fenêtre 512 | 80
window 0,0 - 0,0
g510.createDisplay()

do {

    g510.startPaint()
    cls 0
    color 15,0
    imprimer "XProfan sur G510s"
    g510.endPaint()
    waitinput 10000

}

end
/ /
g510.startPaint(){pixels.startPaint(g510Pixels&)}

g510.endPaint(){

    pixels.endpaint()
    pixels.renewPixels(g510Pixels&)
    //pixels.drawSizedHPic(g510Pixels&,0,0,width(hwnd),height(hwnd),0)
    g510.pixels2lcd(g510Pixels&)
    g510.refresh(1)
    pixels.endPaint()

}

nProc g510.pixels2lcd(long pix){

    global g510&
    long p=0

    whileloop 0,6880 {

        setbyte g510&,loop,byte(pix,p)
        add p,4

    }

}

g510.createDisplay(){

    usedll("LogitechLcd.dll")
    LogiLcdInit("X\zP\zr\zo\zf\za\zn\z.\zN\ze\zt\z\z" ,1)
    g510&=globalAlloc(gPTR,8192)
    rtlZeroMemory(g510&,8192)
    g510Pixels&=pixels.createHPic(160,43,0)

}

nproc g510.cls{

    global g510&
    rtlZeroMemory(g510&,8192)

}

nproc g510.setPixel(long x,y,pixel){

    global g510&
    add x,y*160
    setbyte g510&,x,pixel+127

}

g510.refresh(long disp){

    LogiLcdMonoSetBackground(g510&,8192)
    LogiLcdUpdate(1)

}