I frequently use some tiny, but handy tools, written in SB.
Tose are a shopping list, a ToDo list, and a password vault.
This post is about the ToDo list.
It runs well on iPhone and on iPad.
Basically it’s a scrollable list, kept on a “disk” file.
Below it is a field, to enter new ToDo items in plain text. Don’t forget the “enter” key to confirm the entry.
Deleting an an item on the list is done by just touching it.
The file is automatically saved after each entry or deletion.
That’s all there is to tell about using the tiny app
.The only thing to do right after installing the code is the location and name of the file which will be used by the program. You will find it in the yellow line in the code section.
- IMG_1285.png (138.5 KiB) Viewed 122 times
Code: Select all
' ToDo lijst (iPhone & iPad)
'
graphics ! graphics clear .8,.8,.8 ! draw color 0,0,0
option base 1 ! set toolbar off
get screen size sw,sh ! sh=520
fill color .8,.8,.8
button "stop" text "Quit" at 143,sh-60 size 100,40
field "input" text "" at 20,sh-100 size sw-40,30
dim item$(100) ! nr=0
'y'
f$="Data/ToDo.txt"
''
if file_exists(f$) then
file f$ input nr
for i=1 to nr
file f$ input item$(i)
next i
end if
c_list("todo","ToDo items",item$,nr,10,10,sw-10,sh-110)
do slowdown
if field_changed("input") then
a$=field_text$("input")
if a$<>"" then add(a$)
field "input" text ""
end if
k=list_selected("todo") ! if k>0 and nr>0 then del(k)
list "todo" select -1
until button_pressed("stop")
if file_exists(f$) then file f$ delete
if nr>0 then
file f$ print nr
for i=1 to nr
file f$ print """"&item$(i)&""""
next i
end if
end
def add(a$)
if .nr=100 then return
.nr+=1 ! .item$(.nr)=a$
c_list("todo","ToDo items",.item$,.nr,10,10,.sw-10,.sh-110)
end def
def del(k)
if k<.nr and .nr>1 then
for i=k to .nr-1 ! .item$(i)=.item$(i+1) ! next i
end if
.nr-=1 ! if .nr=0 then .item$(1)=""
c_list("todo","ToDo items",.item$,.nr,10,10,.sw-10,.sh-110)
end def
def c_list(id$,title$,cont$(),size,xt,yt,xb,yb)
size=max(size,1)
dim temp$(size) ! bl$=" "
for i=1 to size ! temp$(i)=cont$(i) ! next i
list id$ text temp$ at xt+2,yt+32 size xb-xt-4,yb-yt-34
draw size 3
draw rect xt,yt to xb,yb ! draw line xt,yt+30 to xb,yt+30
tw=text_width(title$) ! fill=floor((xb-xt-tw-4)/2)
draw color 0,0,1 ! draw text title$ at xt+fill,yt+5
end def
def db ! debug pause ! end def
