Info bar to add to your apps (2 versions)

[Dav]

This code is something you can add to your programs. It will show a top bar of info, like a clock in the middle and a picture battery level at top right. The example is set to draw it every minute, but you can change that. Just call the drawinfobar gosub routine to show it.

There are Two versions now - the second one uses transparent buttons so it can display over graphics. The original ones uses a black bar at top display.

- Dav

Version #1 - Black bar at top of screen

Code: Select all

'infobar shows device, clock, battery
'by Dav

graphics
graphics clear .5,0,0

sw=screen_width()
sh=screen_height()

gosub drawinfobar


do

'update infobar every minute
if time()>60 then
  gosub drawinfobar
  time reset
end if

'check for screen resize
if sw<>screen_width() then
  sw=screen_width()
  sh=screen_height()
  gosub drawinfobar
end if

until 0

end



drawinfobar:
fill color 0,0,0
fill rect 0,0 to sw,35
draw color 1,1,1
sv$=" "&system_version()
draw text device_type$()&sv$ at 10,7
ampm$="AM" ! hr=current_hour()
min$=str$(current_minute())
if len(min$)=1 then min$="0"&min$
if hr>11 then ampm$="PM"
if hr>12 then hr=hr-12
if hr=0 then hr=12
tm$=str$(hr)&":"&min$&" "&ampm$
draw text tm$ at ((sw/2)-text_width(tm$)/2),6
bat$=str$(battery_level())&"%"
draw text bat$ at sw-text_width(bat$)-80,7
draw rect sw-70,10 to sw-20,24
f=battery_level()/2
fill color 1,1,1
fill rect sw-70,10 to sw-70+f,24
fill rect sw-20, 14 to sw-17, 19

return

Version #2 - Transparent version - save over graphic displays

Code: Select all

'infobar-trans, shows device, clock, battery
'transparent button version, no black bar.
'safe for over graphic screens 
'by Dav

graphics

sw=screen_width()
sh=screen_height()

draw alpha .4
'draw something pretty.
for y=0 to screen_height() step 4
   draw color rnd(255)/255,rnd(255)/255,rnd(255)/255
   draw line 0,y to screen_width(),y
next y
draw alpha 1

gosub drawinfobar


do

'update infobar every minute
if time()>60 then
  gosub drawinfobar
  time reset
end if
'check for screen resize
if sw<>screen_width() then
  sw=screen_width()
  sh=screen_height()
  gosub drawinfobar
end if

until 0

end


'==========
drawinfobar:
'==========
set buttons custom
fill alpha 0
draw color 1,1,1
'=== show device info
sv$=device_type$()&" "&system_version()
button "dev" text sv$ at 10,7
'===show time
bat$=str$(battery_level())&"%"
button "bat" text bat$ at sw-text_width(bat$)-90,1
ampm$="AM" ! hr=current_hour()
min$=str$(current_minute())
if len(min$)=1 then min$="0"&min$
if hr>11 then ampm$="PM"
if hr>12 then hr=hr-12
if hr=0 then hr=12
tm$=str$(hr)&":"&min$&" "&ampm$
tx=((sw/2)-text_width(tm$)/2)
button "time" text tm$ at tx,1
'=== draw battery graphic
fill alpha 1
fill color 0,0,0
fill rect sw-70,10 to sw-20,24
draw rect sw-70,10 to sw-20,24
f=battery_level()/2
fill color 1,1,1
fill rect sw-70,10 to sw-70+f,24
fill rect sw-20, 14 to sw-17, 19
return

[Mr. Kibernetik]

Great!
If this toolbar will include Pause and Stop buttons (probably optional), then it could completely replace main toolbar...

When rotating screen it does not resize, so probably it should contain screen size function inside.

[Dav]

Thanks. I added a screen check/resize in the do/until. Should update when user turns device.

- Dav

[Mr. Kibernetik]

- Dav

I just checked your QBasic compiler on your website. It is a great work

[Dav]

Thank you very much! It was fun to make and a learning experience. It is really just an interpreter made in QB, and the compiled programs it makes are interpreters with code attached to it. When run, the compiled programs open the basic code attached, and executes that code. The code itself is encrypted so it can remain private. I didn't continue the project because I had reached the memory limit of QB.

Thanks for checking out my website! I'm working on an update to it, planning to add smart basic programs to it, changing the name to simply my Basic programming site, instead of only Qbasic. I think many QB programers should know about smart basic!

- Dav

[Mr. Kibernetik]

Thank you very much! It was fun to make and a learning experience. It is really just an interpreter made in QB, and the compiled programs it makes are interpreters with code attached to it. When run, the compiled programs open the basic code attached, and executes that code. The code itself is encrypted so it can remain private. I didn't continue the project because I had reached the memory limit of QB.

Thanks for checking out my website! I'm working on an update to it, planning to add smart basic programs to it, changing the name to simply my Basic programming site, instead of only Qbasic. I think many QB programers should know about smart basic!

- Dav

This is very interesting! Thank you very much for explanation!

[milby]

Very cool. I had added a simple time to the top of one of my programs and decided to switch over to this code. I wanted a smaller font (to match Apple's bar) and turned the code into a library.

Code: Select all

'infobar library shows device, clock, battery
'  by Dav
'  converted to library by milby
'
'add {infobar-lib} to beginning of program
'  (assumes that the file is named infobar-lib.txt)
'put "infobar" call into the event loop

'initialize variables
infobar.sw = screen_width()
infobar.sh = screen_height()
infobar.min = current_minute()-1 'force a draw on the first call

def infobar
  if sw <> screen_width() or min <> current_minute() then
    sw = screen_width()
    sh = screen_height()
    min = current_minute()
  else
    'neither time nor orientation changed, skipping redraw
    return
  end if
  draw font size 12
  draw size 1
  fill color 0,0,0
  fill rect 0,0 to sw,22
  draw color 1,1,1
  sv$=" "&system_version()
  draw text device_type$()&sv$ at 10,5
  ampm$="AM" ! hr=current_hour()
  min$=str$(current_minute())
  if len(min$)=1 then min$="0"&min$
  if hr>12 then
    hr=hr-12 ! ampm$="PM"
  end if
  tm$=str$(hr)&":"&min$&" "&ampm$
  draw text tm$ at ((sw/2)-text_width(tm$)/2),5
  bat$=str$(battery_level())&"%"
  draw text bat$ at sw-text_width(bat$)-48,5
  draw rect sw-40,6 to sw-20,14
  f=20*battery_level()/100
  fill color 1,1,1
  fill rect sw-40,6 to sw-40+f,14
  fill rect sw-20,9 to sw-18, 12
end def 'infobar

[Dav]

Nice, milby! You made it easier to use.

- Dav

[rbytes]

I haven't yet tried using your toolbar script in the library format. I liked very much what you had done with it. It seemed redundant to see two toolbars, so I added SET TOOLBAR OFF to the code to hide the standard toolbar. But then there was no stop button, so I shifted the battery gauge to the left a bit and added one where I think the user would expect it. I hope to use your toolbar in many of my future scripts. Thanks!

Code: Select all

'infobar shows device, clock, battery
'by Dav

GRAPHICS
GRAPHICS CLEAR .5,0,0
SET TOOLBAR OFF
sw=SCREEN_WIDTH()
sh=SCREEN_HEIGHT()
GOSUB drawinfobar

DO
IF BUTTON_PRESSED(n$) THEN    'New
END
ENDIF
'update infobar every minute
IF TIME()>60 THEN
  GOSUB drawinfobar
  TIME RESET
END IF

'check for screen resize
IF sw<>SCREEN_WIDTH() THEN
  sw=SCREEN_WIDTH()
  sh=SCREEN_HEIGHT()
  GOSUB drawinfobar
END IF

UNTIL 0

END

drawinfobar:
FILL COLOR 0,0,0
FILL RECT 0,0 TO sw,35
DRAW COLOR 1,1,1
sv$=" "&SYSTEM_VERSION()
DRAW TEXT DEVICE_TYPE$()&sv$ AT 10,7
ampm$="AM" ! hr=CURRENT_HOUR()
MIN$=STR$(CURRENT_MINUTE())
IF LEN(MIN$)=1 THEN MIN$="0"&MIN$
IF hr>12 THEN
  hr=hr-12 ! ampm$="PM"
END IF
tm$=STR$(hr)&":"&MIN$&" "&ampm$
DRAW TEXT tm$ AT ((sw/2)-TEXT_WIDTH(tm$)/2),6
bat$=STR$(BATTERY_LEVEL())&"%"
DRAW TEXT bat$ AT sw-80 - TEXT_WIDTH(bat$)-80,7
DRAW RECT sw-150,10 TO sw-100,24
f=BATTERY_LEVEL()/2
FILL COLOR 1,1,1
FILL RECT sw-150,10 TO sw-150+f,24
FILL RECT sw-100, 14 TO sw-97, 19
T$ = "X" ! n$ = "X"
BUTTON N$ TEXT T$ AT sw-50,8 SIZE 30,18   'New


RETURN
'Last edited by Dav ON Wed Mar 11, 2015 12:04 pm, edited 1 TIME in total.
'Visit My Basic programming website

[Dav]

Thanks, ricardobytes. Glad it is useful to others. I found your digital clock program useful - it looks nice.

- Dav