Welcome to Synthiam!

Program robots using technologies created from industry experts. ARC is our free-to-use robot programming software that makes features like vision recognition, navigation and artificial intelligence easy.

Get Started
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()

AI Support Bot
Related Content
Synthiam
Based on your post activity, we found some content that may be interesting to you. Explore these other tutorials and community conversations.
United Kingdom
#1  
Awesome, this should help Josh out with his project too.
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

Code:


say("The time is " )

IF ($hour>12)
$hour_word=$hour-12
ELSE
$hour_word=$hour
ENDIF

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

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

IF ($hour<12)
say ("a.m." )
ELSE
say ("p.m." )
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
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