XProfan

Titre de la fenêtre "Klaviatur"
declare x1&,y1&,x2&,y2&,sc&,breite&,spalt&,wlaenge&,slaenge&,yy&
Cls rgb(0,0,90)
sc&=30
breite&=sc&
wlaenge&=sc&*4
slaenge&=sc&*3
spalt&=sc&/4

WHILELOOP 0,2:yy&=&Boucle*sc&*4.5

    WhileLoop 0,20

        USEP 1,5,rgb(100,100,100):UseBrush 1,rgb(100,100,100)
        Roundrect &Boucle*breite&+1, (10+wlaenge&+yy&) - ((&Boucle+1)*breite&-spalt&-1), 14+wlaenge&+yy&;sc&/6;sc&/6
        USEP 1,5,rgb(255,255,255):UseBrush 1,rgb(255,255,255)
        Roundrect &Boucle*breite&,10+yy& - ((&Boucle+1)*breite&-spalt&),10+wlaenge&+yy&;sc&/6;sc&/6

    Endwhile

    WhileLoop 0,20

        sélectionner &Boucle

            caseof 0,1,3,4,5,7,8,10,11,12,14,15,17,18,19

            USEP 1,5,rgb(0,0,0):UseBrush 1,rgb(40,40,100)
            Roundrect &Boucle*breite&+breite&/2+spalt&/2,5+yy& - ((&Boucle+1)*breite&+breite&/7),5+slaenge&+yy&;sc&/6;sc&/6
            USEP 1,3,rgb(0,0,0+4*&Boucle):UseBrush 1,rgb(50,50,50)
            Roundrect &Boucle*breite&+breite&/2+spalt&/2 , 5+slaenge&*32/40+yy& - ((&Boucle+1)*breite&+breite&/7),5+slaenge&+yy&;sc&/6;sc&/6
            USEP 0,2,rgb(220,220,200)
            Line &Boucle*breite&+breite&/2+spalt&/2, 5+yy& - (&Boucle*breite&+breite&/2+spalt&/2),(5+slaenge&*4/5+yy&)

        endselect

    Endwhile

ENDWHILE

WaitInput
Fin