Loading ...
Sorry, an error occurred while loading the content.
 

Text Scroll & Sound question

Expand Messages
  • Gordon Sweet
    REF TO : Message: 25 Date: Fri, 31 Jan 2003 19:32:57 -0500 From: Jose M. Alvarez (Manolo ) Subject: Sound question Message: 24 Date:
    Message 1 of 1 , Jan 31, 2003
      REF TO : Message: 25
      Date: Fri, 31 Jan 2003 19:32:57 -0500
      From: "Jose M. Alvarez \(Manolo\)" <manolo@...>
      Subject: Sound question

      Message: 24
      Date: Fri, 31 Jan 2003 19:22:10 -0500
      From: "Jose M. Alvarez \(Manolo\)" <manolo@...>
      Subject: Re: Text Scroll

      Jose, Because LINE INPUT appears to input the whole of a file in one go, the following appears to work OK. But remove any blank lines or spaces especially at the start, or you will sit for ages thinking nothing happens. Let us hope someone can devise an API call that scrolls the screen smoothly like the Sprite scroll function.

      On your second point, I have very little expertise on controlling hardware to control, which speaker is activated. A very simple solution would be to create Stereo WAV files operating on only one channel with something like SoundForge or some Shareware WAV Editor Gordon

      nomainwin
      WindowWidth = 800 : WindowHeight = 600
      open "Crude Text Scroller" for graphics_nsb as #d
      button #d, "HELP", [help], UL 200, 450
      #d "trapclose [quit]; fill 0 150 0; backcolor 0 150 0; down"
      #d "font ariel 200 bold; color red; place 0 360"
      F$="" : filedialog "Open ONLY a true TXT File","*.txt",F$
      IF F$="" then [quit]
      OPEN F$ FOR INPUT AS #2
      line$ = "" : ok = 0
      WHILE ok = 0
      IF EOF(#2) < 0 THEN ok = 1 : GOTO [fend]
      line input #2, txt$
      [fend] WEND : CLOSE #2
      ' must insert 4 spaces at the end
      txt$ = txt$ + " "
      txlen = len(txt$)
      [start]
      while ever = 0
      n = 1
      while n < txlen
      #d "place 0 360"
      #d "\";mid$(txt$,n,n+4)
      timer 500, [go]
      wait
      [go]
      timer 0
      n = n +1
      wend
      wend
      notice "Should never stop!"

      [quit]
      close #d : end





      [Non-text portions of this message have been removed]
    Your message has been successfully submitted and would be delivered to recipients shortly.