Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Pete on December 17, 2020, 03:42:47 pm

Title: You learn something new every decade...
Post by: Pete on December 17, 2020, 03:42:47 pm
I was surprised this worked, putting a conditional IF/THEN inside a SELECT CASE, without making it a case!

Code: QB64: [Select]
  2.     DO
  3.         _LIMIT 30
  4.         b$ = INKEY$
  5.     LOOP UNTIL LEN(b$)
  6.  
  7.     SELECT CASE b$
  8.         IF UCASE$(b$) = "A" THEN
  9.             PRINT "A, look at this!"
  10.             b$ = "" ' Note this WON'T avoid CASE ELSE.
  11.         END IF
  12.  
  13.         CASE "1"
  14.             PRINT "one..."
  15.         CASE "2"
  16.             PRINT "two..."
  17.         CASE ELSE
  18.             PRINT "else..."
  19.     END SELECT
  20. LOOP UNTIL b$ = CHR$(27)

Pete
Title: Re: You learn something new every decade...
Post by: FellippeHeitor on December 17, 2020, 03:44:16 pm
Lol, that shouldn’t have worked, I suppose 😂
Title: Re: You learn something new every decade...
Post by: OldMoses on December 17, 2020, 07:02:10 pm
Fascinating. Now I'm wondering if this can be something that can be relied upon...
Title: Re: You learn something new every decade...
Post by: STxAxTIC on December 17, 2020, 07:22:10 pm
I wouldn't go there. Nothing to see here folks, don't pay attention to that man behind the curtain.
Title: Re: You learn something new every decade...
Post by: FellippeHeitor on December 17, 2020, 07:31:18 pm
Yeah. Don't do it.
Title: Re: You learn something new every decade...
Post by: Kernelpanic on December 17, 2020, 07:40:25 pm
https://www.youtube.com/watch?v=NCwzCQcjC0M (https://www.youtube.com/watch?v=NCwzCQcjC0M)
Title: Re: You learn something new every decade...
Post by: Pete on December 17, 2020, 07:45:15 pm
F YouTube and the Progressive a-holes who ruin it.

Pete
Title: Re: You learn something new every decade...
Post by: STxAxTIC on December 17, 2020, 07:56:31 pm
yeah im also sick of progressive on youtube
Title: Re: You learn something new every decade...
Post by: Kernelpanic on December 17, 2020, 08:37:52 pm
Quote from: Pete on December 17, 2020, 07:45:15 pm
F YouTube and the Progressive a-holes who ruin it.

Pete
A f. . . .

https://www.youtube.com/watch?v=0qanF-91aJo (https://www.youtube.com/watch?v=0qanF-91aJo)
Title: Re: You learn something new every decade...
Post by: FellippeHeitor on December 17, 2020, 09:10:00 pm
It is known that on the C++ translated side all SELECT CASE blocks are a bunch of IFs, but this has gone too far.
Title: Re: You learn something new every decade...
Post by: Pete on December 17, 2020, 09:14:46 pm
Quote from: STxAxTIC on December 17, 2020, 07:56:31 pm
yeah im also sick of progressive on youtube

Bill, since when did you pick up a sense of humor, and did you purchase or lease?

Pete :D

 - Only NASCAR drivers are safe with Progressive because they only insure left turns.
Title: Re: You learn something new every decade...
Post by: FellippeHeitor on December 17, 2020, 11:46:24 pm
Fix to the issue pushed into the repository. Please help test it, @Pete and everyone else: https://www.qb64.org/portal/development-build/

Turns out issue went deeper than IF being allowed - all control block structures were being allowed, like DO/LOOP, WHILE/WEND, FOR/NEXT. All of that has been fixed now.

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: You learn something new every decade...
Post by: Cobalt on December 18, 2020, 01:17:52 am
Bad form exists every where, I guess.
Title: Re: You learn something new every decade...
Post by: gaslouk on December 18, 2020, 01:25:34 am
  [ This attachment cannot be displayed inline in 'Print Page' view ]    [ This attachment cannot be displayed inline in 'Print Page' view ]    [ This attachment cannot be displayed inline in 'Print Page' view ]    [ This attachment cannot be displayed inline in 'Print Page' view ]  
Text Only | Text with Attachments