Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

Code Snippets / my fist program (db pro)

Author

Message

The Master

20

Years of Service

User Offline

Joined: 6th Nov 2005

Location:

Posted: 21st Feb 2006 17:30

hey i just made this program and i want you to tell me what you think!

thanx

Help is here

Back to top

Profile PM

Drew the G

User Banned

Posted: 21st Feb 2006 23:04

Did you try to exe your prog, it doesn't work. Look

Set text size 12
Set text to bold
Print "what is your name?"
input name$
millisecuprun-timer ()
Print " Hello name$ this computer has been running for," millisecuprun, "secounds"
print "right now the time is," Get Time ()
WAIT KEY
END

Make it like this:

Set text size 12
Set text to bold
comma$ = ","
input "What is your name? ";name$
cls 0 : print name$;comma$

do
gosub time
if returnkey()=1 then end
loop

Time:
a$=left$(get time$(),2)
a=val(a$)
if a>12
   a=a-12
   post$="pm"
else
   post$="am"
endif
set text font "Arial"
set text size 12
Print "The time is ";a;right$(get time$(),6);post$
return

Arr

Back to top

Profile

The Master

20

Years of Service

User Offline

Joined: 6th Nov 2005

Location:

Posted: 2nd Mar 2006 00:51

well sorry since i've waited 14 weeks of dbp vol 1 and only read first 4 chapters

Have No Fear Help Is Here
DELL 800MHZ 1GB RAM PENTIUM 4 MICROSOFT XP

Back to top

Profile PM

Ric

21

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 2nd Mar 2006 01:58

Didn't need to completely rewrite his program! Just a few small errors in it - try this instead:

Print "what is your name?"
input name$
millisecuprun=timer()/1000
Print "Hello ",name$,". This computer has been running for ", millisecuprun, " seconds."
print "Right now the time is ", Get Time$()
WAIT KEY
END

Back to top

Profile PM Email Website

Back to top

Login to post a reply

Server time is: 2026-06-11 11:46:00
Your offset time is: 2026-06-11 11:46:00