New Zealand
Asked — Edited

Stating The Time

Tidied up the time routine a bit to include AM and PM and some other stuff...

Enjoy!

#________________________________________________

Print ("+---------------------+") Print ("| Announcing the time |") Print ("+---------------------+")

say("The time is ")

IF ($hour>12) $hour_word=$hour-12 $hour_word+":" ENDIF IF ($Minute = 0) Say ("$hour") goto (AM_PM) ELSEIF ($minute 1 and $hour<12) say ("a.m.") ELSE say ("p.m.") ENDIF

halt()


ARC Pro

Upgrade to ARC Pro

ARC Pro will give you immediate updates and new features needed to unleash your robot's potential!

United Kingdom
#1  

Awesome, this should help Josh out with his project too.

PRO
New Zealand
#2  

Made a few mods so this can be called over and over again without getting confused

------|

Time |

------|

:Initialise $hour_word=$hour say("The time is " )

IF ($hour>12) $hour_word=$hour-12 Elseif ($hour="0" ) $hour_word=12 ENDIF

$hour_word+":"

IF ($Minute = 0) Say ("$hour" ) goto (AM_PM) ELSEIF ($minute <10) Say ("$minute minutes past $hour_word" ) ELSE say("$hour_word $minute" ) goto(AM_PM) ENDIF halt()

:AM_PM IF ($hour<12) say ("a.m." ) ELSE say ("p.m." ) ENDIF

halt()

#3  

Much appreciated Tameion for all your scripts! They are great as is and also for modify/adapting/learning to unique circumstances!

#4  

i think i'll use this as a wake up alarm for my robot! thank you for sharing.:D

#5  

not to mention its beeroclock time!

#6  

@Tameion

When trying to run this script I get a error here?

$hour_word+":"

What am I doing wrong?

Herr

United Kingdom
#7  

Try


say(&quot;The time is &quot; )

IF ($hour&gt;12)
  $hour_word=$hour-12
ELSE
  $hour_word=$hour
ENDIF

IF ($hour_word=0)
  $hour_word=12
ENDIF

IF ($Minute = 0)
  Say (&quot;$hour_word&quot; )
ELSEIF ($minute &lt;10)
  Say (&quot;$minute minutes past $hour_word&quot; )
ELSE
  say(&quot;$hour_word $minute&quot; )
ENDIF

IF ($hour&lt;12)
  say (&quot;a.m.&quot; )
ELSE
  say (&quot;p.m.&quot; )
ENDIF

Removed some redundant code and fixed a couple of errors. To be honest I'm not sure what the $hour_word+":" was for, it didn't look like it was needed.

Hope you don't mind my doing that @tameion

#8  

@Rich

Sorry but recieved an error too.

Syntax Error on line 12. This command requires 0 parameters. You passed one parameters.

I believe line 12 here is

Else say("$hour_word $minute")

United Kingdom
#9  

That should be on 2 lines. Else Say("$hour_word $minute")

#10  

@Rich

Works:)

Thanks for the help, very grateful:) I think it's about time I try my hand at a little scripting. I took a couple of programming classes MANY years back so we will see just how much a old man can remember ... lol

Your a good asset to our community, hope you keep up the good work!

Herr

PRO
New Zealand
#11  

@Rich & @ Herr Ball

Hi Guys

Apologies @Herr Ball for the error in the script and thanks @Rich for the modifications.

@Rich - The $hour_word+":" was purely cosmetic and designed to make the printout in the script window look correct. If I remember it worked fine in the version of ARC at the time so I am going to blame the error on @DJSures for upgrading the code. (NOT! - LOL)

I smacked my own hand for this one - If we post we have an obligation to make sure our scripts work.... and I guess that extends to making sure they work in later updated versions of the code.

Fortunately we have a pritty good forum and awesome people like yourself willing to contribute, correct and educate.

Myself I do what I can but life is pritty full on and unless I make time I ain't got time - that's why I need robots and A.I.'s to do 'stuff' for me.....

@Tameion