Use LOOKUP and LOOKDOWN Command instead of IF THEN Statements

Comments

• D Faust Posts: 608

  2007-08-09 00:38 edited 2007-08-09 00:38

  It would be easier if you combined hrs and minutes into one variable.· That said here is what I would do:

  DO
  SELECT mins
   CASE $30       'Sort by minute value
    GOSUB half
   CASE $00
    GOSUB oclock
  ENDSELECT                                 'Based on selcted subnumber run proper routine
  ON subnumber GOSUB t800, t730, t700, t630, t600, t530, t500, t430, t400
  LOOP
   
  half:                                          
  LOOKDOWN hrs, [noparse][[/noparse]$10, $11, $12, $13], looknum 'minute value of 30 is known, compare hour # and 
  LOOKUP looknum, [noparse][[/noparse]1, 3, 5, 7], subnumber     'assign value to looknum. ie: $11 = 1, or $13 = 3 
  RETURN                                      'Based on looknum select subroutine # ie: 3 >> 7 
                                              'or 1>>3
   
  oclock:
  LOOKDOWN hrs, [noparse][[/noparse]$10, $11, $12, $13, $14], looknum
  LOOKUP looknum, [noparse][[/noparse]0, 2, 4, 6, 8,], subnumber
  RETURN
   
  
  

  
  I don't mean to brag, but this isn't all that hard to learn,(I did·it tonight)·especially with the help file (check out the example code).· I think this covers all of it.· Feel free to ask questions, but look at the help file first.
  
  ▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
  

  ' {$STAMP BS2}
  ' {$PBASIC 2.5}
   
  This_Thread     VAR       Word
  My_Question     VAR       Word
  Your_Question   VAR       Word
  Cool_Thing      VAR       Word
  Abandoned       VAR       Word
   
  DO
   IF This_Thread = My_Question THEN
    DEBUG "Thank You For Your Time!"
   ELSEIF This_Thread = Your_Question THEN
    DEBUG "I Hope This Helps."
   ELSEIF This_Thread = Cool_Thing
    DEBUG "AWESOME!!"
   ELSE
    DEBUG "What Am I Supposed To Do?"
   ENDIF
   DEBUG "D Faust"
  LOOP UNTIL This_Thread = Abandoned
  

  
  
  ·
• sam_sam_sam Posts: 2,286

  2007-08-09 01:46 edited 2007-08-09 01:46

  D Faust
  Thank You For your help with this
  This an example that i can understand
  I did look at the· on line help first·but i did not understand the example that where given
  
  It would be easier if you combined hrs and minutes into one variable.· That said here is what I would do:

  DO
  SELECT mins
   CASE $30       'Sort by minute value
    GOSUB half
   CASE $00
    GOSUB oclock
  ENDSELECT                                 'Based on selcted subnumber run proper routine
  ON subnumber GOSUB t800, t730, t700, t630, t600, t530, t500, t430, t400
  LOOP
   
  half:                                          
  LOOKDOWN hrs, [noparse][[/noparse]$10, $11, $12, $13], looknum 'minute value of 30 is known, compare hour # and 
  LOOKUP looknum, [noparse][[/noparse]1, 3, 5, 7], subnumber     'assign value to looknum. ie: $11 = 1, or $13 = 3 
  RETURN                                      'Based on looknum select subroutine # ie: 3 >> 7 
                                              'or 1>>3
   
  oclock:
  LOOKDOWN hrs, [noparse][[/noparse]$10, $11, $12, $13, $14], looknum
  LOOKUP looknum, [noparse][[/noparse]0, 2, 4, 6, 8,], subnumber
  RETURN
   
  
  

  
  ▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
  ··Thanks for any··that you may have and all of your time finding them
  
  ·
  ·
  ·
  ·
  Sam
  
  Post Edited (sam_sam_sam) : 8/9/2007 1:56:48 AM GMT
• D Faust Posts: 608

  2007-08-09 13:55 edited 2007-08-09 13:55

  You are very welcome. FYI, I ran a test, and the Case...Select statement uses up more eeprom space. As I said earlier, if you combine the two the select...case at the top could be eliminated. I would make the variable in tenths of an hr, so $10 and $30 = $105. You can't use just hrs, because od decimal point restrictions.
  
  ▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
  

  LOOKDOWN ThisThread, [noparse][[/noparse]Your_?, My_?, Cool_Thing], looknum
  LOOKUP looknum, [noparse][[/noparse]1, 2, 3], subnum
  ON subnum GOTO Hope_this_helps, Thanks!, WOW!!
  END 
  
• BrightTassy Posts: 1

  2007-08-10 15:35 edited 2007-08-10 15:35

  do not think inside the box****************888888888888888888888888888888
  
  Pin U will get
  
  you will get pin ned
  
  infinitys endless journeys 888888888888888888 sideways
• D Faust Posts: 608

  2007-08-10 16:21 edited 2007-08-10 16:21

  What???· I get that the 8's are infinities, and you said to think outside the box, but what does that have to do with the lookup and down commands?· What do you mean by:

  BrightTassy said...
  Pin U will get
  
  you will get pin ned
  

  I am happy to help you with lookup/down commands, but I am not sure what you mean.
  
  ▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
  

  LOOKDOWN ThisThread, [noparse][[/noparse]Your_?, My_?, Cool_Thing], looknum
  LOOKUP looknum, [noparse][[/noparse]1, 2, 3], subnum
  ON subnum GOTO Hope_this_helps, Thanks!, WOW!!
  END 
  
• sam_sam_sam Posts: 2,286

  2007-08-10 20:51 edited 2007-08-10 20:51

  · D Faust
  
  Please explane this more for me
  
  I would make the variable in tenths of an hr, so $10 and $30 = $105.
  
  [noparse][[/noparse]How dose this· =·($105) ] = 10 and $30
  
  
  ·
  
  
  
  ·
  
  
  
  ▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
  ··Thanks for any··that you may have and all of your time finding them
  
  ·
  ·
  ·
  ·
  Sam
• D Faust Posts: 608

  2007-08-10 22:38 edited 2007-08-10 22:38

  What i meant was 105 without the $.· Because 10 hrs = 100 / 10 hrs and .5 hr = 5 /10 hrs.· Hope I am clear.
  
  ▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔
  

  LOOKDOWN ThisThread, [noparse][[/noparse]Your_?, My_?, Cool_Thing], looknum
  LOOKUP looknum, [noparse][[/noparse]1, 2, 3], subnum
  ON subnum GOTO Hope_this_helps, Thanks!, WOW!!
  END