locked
How do i make a loading text in Small Basic? RRS feed

  • Question

  • Hi, i just wanna know on how to make a Loading text in TextWindow like, it automatically shows text using a Timer in Small Basic.
    Sunday, December 20, 2015 7:45 AM

Answers

  • Do you want something like:

    TextWindow.WriteLine("Just wait a second . . ")
    Program.Delay(1000)
    TextWindow.WriteLine("Let us continue")
    Program.Delay(1000)
    TextWindow.WriteLine("Ready")


    Jan [ WhTurner ] The Netherlands

    • Marked as answer by LuaPHP Tuesday, December 22, 2015 5:48 AM
    Sunday, December 20, 2015 10:04 AM
    Answerer
  • Or with Timer:

    m[1]="Just wait a second . . "
    m[2]="Let us continue"
    m[3]="Ready"
    Timer.Tick=show
    Timer.Interval=2000
    
    Sub show
      i=i+1
      TextWindow.WriteLine(m[i])
      If i>3 Then
        Program.End()
      EndIf
    EndSub


    Jan [ WhTurner ] The Netherlands

    • Marked as answer by LuaPHP Tuesday, December 22, 2015 5:48 AM
    Sunday, December 20, 2015 11:29 AM
    Answerer
  • Or Dis:

    TextWindow.Write("Loading ")
    
    While 1 = 1
      Program.Delay(200)
      show()
    EndWhile
    
    
    Sub show
    TextWindow.Write(Text.GetCharacter(166))
    EndSub


    It is written: "'As surely as I live,' says the Lord, 'every knee will bow before me; every tongue will acknowledge God.'" Romans 14:11

    • Marked as answer by LuaPHP Tuesday, December 22, 2015 5:48 AM
    Monday, December 21, 2015 4:20 AM
    Answerer
  • Or this:

    CR=Text.GetCharacter(13)
    str="demo slow appearing text
    strL=Text.GetLength(str)
    for i=strL to 1 step -1
      TextWindow.Write(Text.GetSubTextToEnd(str,i)+CR)
      Program.Delay(500)
    EndFor
    TextWindow.WriteLine("") 
    TextWindow.WriteLine("")


    Jan [ WhTurner ] The Netherlands

    • Marked as answer by LuaPHP Tuesday, December 22, 2015 5:48 AM
    Monday, December 21, 2015 11:34 AM
    Answerer

All replies

  • Do you want something like:

    TextWindow.WriteLine("Just wait a second . . ")
    Program.Delay(1000)
    TextWindow.WriteLine("Let us continue")
    Program.Delay(1000)
    TextWindow.WriteLine("Ready")


    Jan [ WhTurner ] The Netherlands

    • Marked as answer by LuaPHP Tuesday, December 22, 2015 5:48 AM
    Sunday, December 20, 2015 10:04 AM
    Answerer
  • Or with Timer:

    m[1]="Just wait a second . . "
    m[2]="Let us continue"
    m[3]="Ready"
    Timer.Tick=show
    Timer.Interval=2000
    
    Sub show
      i=i+1
      TextWindow.WriteLine(m[i])
      If i>3 Then
        Program.End()
      EndIf
    EndSub


    Jan [ WhTurner ] The Netherlands

    • Marked as answer by LuaPHP Tuesday, December 22, 2015 5:48 AM
    Sunday, December 20, 2015 11:29 AM
    Answerer
  • Or Dis:

    TextWindow.Write("Loading ")
    
    While 1 = 1
      Program.Delay(200)
      show()
    EndWhile
    
    
    Sub show
    TextWindow.Write(Text.GetCharacter(166))
    EndSub


    It is written: "'As surely as I live,' says the Lord, 'every knee will bow before me; every tongue will acknowledge God.'" Romans 14:11

    • Marked as answer by LuaPHP Tuesday, December 22, 2015 5:48 AM
    Monday, December 21, 2015 4:20 AM
    Answerer
  • Or this:

    CR=Text.GetCharacter(13)
    str="demo slow appearing text
    strL=Text.GetLength(str)
    for i=strL to 1 step -1
      TextWindow.Write(Text.GetSubTextToEnd(str,i)+CR)
      Program.Delay(500)
    EndFor
    TextWindow.WriteLine("") 
    TextWindow.WriteLine("")


    Jan [ WhTurner ] The Netherlands

    • Marked as answer by LuaPHP Tuesday, December 22, 2015 5:48 AM
    Monday, December 21, 2015 11:34 AM
    Answerer
  • ... Or dadh: ID: LLJ132 :-)

    Monday, December 21, 2015 12:59 PM
    Answerer
  • While we are getting goofy here:

    Sound.PlayMusic("O5 C80 E80 G1 C80 E80 G4 D80 F80 A4 E80 G80 B4 F80 A80 C2 O6 D4 C4 O5 F80 A80 C4 E80 G80 B4 D80 F80 A4 C80 E80 G1 C80 E80 G4 D80 F80 A4 E80 G80 B4 B80 D80 F1 C80 E80 G1")


    It is written: "'As surely as I live,' says the Lord, 'every knee will bow before me; every tongue will acknowledge God.'" Romans 14:11

    Monday, December 21, 2015 6:40 PM
    Answerer
  • Then simply ignore it.
    Right carnival season would last from 11.Nov 11:11:11 to holy Ash Wednesday.
    Serious practical example btw.
    Friday, December 25, 2015 11:39 AM
    Answerer