Infinity-Profan

/ /
// InfinityProfan Program
// funktionen v0.0.1
// created 2016-01-26
// micha12333
var text  ="verschiedene background Variationen"
var grid  =gui.grid(gui.hwnd,[4,3])
var text1 = "   Hunderte Opportunités zur Darstellung"
var text2 = "   de Grid's et Farben dans Infinity Profan."
var text3 = "Grid 2,3"
var gridX =gui.grid([grid,2,2],[3,3])
var gridY =gui.grid([grid,3,3],[5,5])
var gridZ =gui.grid([gridX,2,2],[3,3])
var gridA =gui.grid([gridZ,2,2],[3,3])
var gridB =gui.grid([grid,4,3],[3,3])
var btn
gui.background(grid,rgb(0,0,255))
gui.background([grid,1,1],rgb(255,255,0))
gui.background([grid,2,2],rgb(255,255,255))
gui.background([grid,3,2],rgb(0,255,0))
gui.background([grid,4,3],rgb(255,0,0))
gui.background([grid,1,2],rgb(90,90,255))
gui.background([grid,2,3],rgb(150,150,150))
gui.text[grid,2,1] text1
gui.text[grid,3,1] text2
gui.text[grid,2,3] text3
gui.text[grid,1,2] time(7)
gui.background([gridX,1,1],rgb(0,0,0))
gui.background([gridX,1,3],rgb(0,0,0))
gui.background([gridX,2,2],rgb(0,0,0))
gui.background([gridX,3,1],rgb(0,0,0))
gui.background([gridX,3,3],rgb(0,0,0))
gui.background([gridY,1,1],rgb(100,100,100))
gui.background([gridY,3,1],rgb(100,100,100))
gui.background([gridY,5,1],rgb(100,100,100))
gui.background([gridY,2,2],rgb(100,100,100))
gui.background([gridY,4,2],rgb(100,100,100))
gui.background([gridY,1,3],rgb(100,100,100))
gui.background([gridY,3,3],rgb(100,100,100))
gui.background([gridY,5,3],rgb(100,100,100))
gui.background([gridY,2,4],rgb(100,100,100))
gui.background([gridY,4,4],rgb(100,100,100))
gui.background([gridY,1,5],rgb(100,100,100))
gui.background([gridY,3,5],rgb(100,100,100))
gui.background([gridY,5,5],rgb(100,100,100))
gui.background([gridZ,2,2],rgb(0,0,255))
gui.background([gridA,2,2],rgb(255,255,255))
gui.background([gridB,2,2],rgb(0,0,150))
gui.text[gridB,2,2] msg msg.box,zéro,zéro,"ENDE",zéro,ende
// pourquoi erscheint dans grid 2,2 aucun Box avec 'ENDE'?
// quoi ist mon grundlegender faute?

proc ende (id, data)

    si id == ende.touchdown

        msg.box "  AUS UND VORBEI"
        end

    endif

    //end

endproc

gui.text [gridB,2,2] "testtext" @myProc

proc myProc ctrl state

    msg.toast ctrl+»+state

endproc

// Test
var la couleur1 = rgb 255  0 100 
var i = 1 // j=1  k=1    // déjà avec var ... ERROR
var grd1 = gui.grid gui.hwnd [4 4]

// tandis que i<5     // oder // if i==1
    // tandis que j<5
         gui.background [grd1 2 2]  la couleur1      // [grd1 i j] 
                       // rgb i*16-1 (16-i)*16 k
      // k++
      // j++
   // Wend
   // j=1
   // i++
// Wend        // ou bien //  endif

gui.text [grid 2 1] text1
gui.text [grid 3 1] text2
gui.text [grid 2 3] text3
gui.text [grid 1 2] time(7)