Qbasic, Quickbasic/Qbasic Clock

Advertisement


Question
QUESTION: I saw your QBASIC analog clock program and was wondering if you had a text-only version.

Thanks,
Mike

ANSWER: Hi Mike,

If by text only, you mean looping and printing TIME$, I don't know that you need any help with that.

DO
  LOCATE 1, 1 : PRINT TIME$
  SLEEP 1
LOOP


Is that what you want, or could you better describe what you're after?

-Alex

---------- FOLLOW-UP ----------

QUESTION: I'm look for just the numbers (xx:xx:xx AM/PM, without the clock face or hands.

Thanks

Answer
DO
  ctime$ = TIME$
  ampm$ = "AM"
  hour% = VAL(LEFT$(ctime$, 2))
  IF hour% > 12 THEN
    ampm$ = "PM"
    hour% = hour% - 12
  END IF
  IF hour% = 0 THEN hour% = 12
  minute% = VAL(MID$(ctime$, 4, 2))
  second% = VAL(RIGHT$(ctime$, 2))

  LOCATE 1, 1: PRINT LTRIM$(RTRIM$(STR$(hour%))); ":"; LTRIM$(RTRIM$(STR$(minute%))); ":"; LTRIM$(RTRIM$(STR$(second%)));
LOOP

Qbasic, Quickbasic

All Answers


Ask Experts

Volunteer


Alex Barry

Expertise

I have been a qbasic programmer since 2000, creating games, minor libraries and various small programs. I have experience using interrupts, graphics, file input/output, the mouse cursor, and using libraries. I have also learned FreeBASIC, QB64, c/c++, python, lua, php and html.
I do not claim to be an absolute authority in any language, but I don't mind looking things up and learning with you.

Experience

I have been programming in *Basic dialects since 2000, as mentioned in my expertise. After a year of QBasic, I learned C and C++, and dabbled a little in ASM (I don't program in ASM - I literally just played around to see how things work). When QB64 and FreeBASIC were released, I played with those languages. At the time, FreeBASIC offered more functionality and I sided with that language for a while. During that time, while I was learning new languages, that I would see what scripting languages are available, where I took up python and lua. I started to notice a staleness to QB64's development (which I kept tabs on from time to time), and am now trying to be active in it's community and maybe in it's development in the future. Currently, I am only active on the QB64.net forums, but I appear on occasion on FreeBASIC.net's forums as well.

Education/Credentials
Highschool - 2007

©2016 About.com. All rights reserved.