none
displays seven items at a time on the screen RRS feed

  • Question

  • Hi all, I apologize for my English, I'm using google translator.
    I have an array of 28 elements, and I have to represent on-screen items through GraphicsWindow.DrawText. But I have to submit a video 7 items at a time, and change the screen by pressing the "Enter"

    Help Me

    T.U.

    Thursday, February 2, 2017 1:50 PM

Answers

  • Do some experimenting with the following program:

    for i=1 to 28
      a[i]="inhoud "+i
    EndFor
    GraphicsWindow.KeyUp=KU
    keyup=0
    
    For scr=0 To 3
      GraphicsWindow.Title="scr= "+scr
      For j=1 To 7
        GraphicsWindow.DrawText(20,50*j,a[7*scr+j])
      EndFor
      While keyup=0
        Program.Delay(10)
      EndWhile
      keyup=0
      GraphicsWindow.Clear()
    EndFor
    Program.End()
    
    Sub KU
      keyup=1
    endsub
      
    The program reacts to every key, not only "ENTER"


    Jan [ WhTurner ] The Netherlands

    • Marked as answer by Carmenello Friday, February 3, 2017 7:31 AM
    Thursday, February 2, 2017 4:11 PM
    Answerer

All replies

  • Do some experimenting with the following program:

    for i=1 to 28
      a[i]="inhoud "+i
    EndFor
    GraphicsWindow.KeyUp=KU
    keyup=0
    
    For scr=0 To 3
      GraphicsWindow.Title="scr= "+scr
      For j=1 To 7
        GraphicsWindow.DrawText(20,50*j,a[7*scr+j])
      EndFor
      While keyup=0
        Program.Delay(10)
      EndWhile
      keyup=0
      GraphicsWindow.Clear()
    EndFor
    Program.End()
    
    Sub KU
      keyup=1
    endsub
      
    The program reacts to every key, not only "ENTER"


    Jan [ WhTurner ] The Netherlands

    • Marked as answer by Carmenello Friday, February 3, 2017 7:31 AM
    Thursday, February 2, 2017 4:11 PM
    Answerer
  • thank you very much for your cooperation, this example it will be very helpful
    Friday, February 3, 2017 7:32 AM
  • for the express use of a single button you know how to do?
    because if I create a similar function using OnKeyDown, the function is blocked and does not provide any response = (
    Friday, February 3, 2017 11:09 AM
  • CarMenello,

    Add the following to "WHTurner34's" Subroutine. The "Enter" key is called "Return".

    Sub KU
      if GraphicsWindow.lastkey="Return" Then
        keyup=1
        Endif
    endsub


    JR

    Friday, February 3, 2017 12:32 PM
    Answerer