Author |
Topic: NOTE BOOK program improved March 8 2018 (Read 195 times) |
|
michael
Senior Member
member is offline
Posts: 335
|
 |
NOTE BOOK program improved March 8 2018
« Thread started on: Mar 4th, 2018, 04:45am » |
|
REQUEST: could someone test this program on BBCSDL android?
ANDROID: You will have to change the file write and read to:
(@usr$+"memo.txt")
----------------------------------------------------------------
NOTE: THIS VERSION TESTED ON
*** BBC BASIC for Windows, MAC (BBCSDL), Raspberry Pi 3 (BBCSDL)
**********************************************
>>>> FOR BBCSDL (all platforms) <<<<
IMPORTANT: you will want to change the write and read directory to (@usr$+"memo.txt) and be sure to save the program also in @usr$ to keep everything running smooth.
**********************************************
* I use this program for my recipes on my pi3 and Programming reference notes beside BBC Basic for windows. So it has become a useful tool.
On raspberry pi3 it runs cool 28% (you can modify WAIT times to reduce it. (but 28% is good)
NOTE: The first time you use, be sure to create a NEW FILE
Code: REM This program has some extra tools in case future mods are desired
PROCgraphics(500,250)
PROCsbox(10,10,1000,900,"100,100,100")
ON CLOSE PROCclose
REPEAT
r$=FNbuttonz(0,0,"clearitall")
IF FNbuttonz(100,400,"NEW FILE")="NEW FILE" THEN PROCnfile:CLG
IF FNbuttonz(100,300,"ADD TO FILE")="ADD TO FILE" THEN PROCapnd:CLG
IF FNbuttonz(100,200,"VIEW MY INFO")="VIEW MY INFO" THEN PROCview:CLG
IF FNbuttonz(100,100,"QUIT")="QUIT" THEN QUIT
WAIT 10
UNTIL FALSE
QUIT
DEFPROCnfile
A=OPENOUT("memo.txt")
REPEAT
CLG
PROCsbox(10,10,1000,900,"200,200,200")
PROCpr(10,500," Title, item 1, item 2, item 3, item 4","200,200,200")
title$=FNtype(20,450)
n1$=FNtype(20,380)
n2$=FNtype(20,310)
n3$=FNtype(20,240)
n4$=FNtype(20,170)
n5$=FNtype(20,100)
PRINT#A,title$,n1$,n2$,n3$,n4$,n5$
PROCcolor("b","150,150,150")
CLG
PROCpr(20,450,"Would you like to make another page? ","180,200,200")
r$=""
REPEAT
r$=FNbuttonz(0,0,"clearitall")
IF FNbuttonz(100,350,"YES")="YES" THEN r$="y"
IF FNbuttonz(100,250,"MENU")="MENU" THEN r$="n"
WAIT 10
UNTIL r$<>""
UNTIL r$<>"y"
CLOSE#A
ENDPROC
DEFPROCapnd
A=OPENUP("memo.txt")
PTR#A = EXT#A
REPEAT
CLG
PROCsbox(10,10,1000,900,"200,200,200")
PROCpr(10,500," Title, item 1, item 2, item 3, item 4","200,200,200")
title$=FNtype(20,450)
n1$=FNtype(20,380)
n2$=FNtype(20,310)
n3$=FNtype(20,240)
n4$=FNtype(20,170)
n5$=FNtype(20,100)
PRINT#A,title$,n1$,n2$,n3$,n4$,n5$
CLG
REPEAT
r$=FNbuttonz(0,0,"clearitall")
IF FNbuttonz(100,400,"ADD PAGE")="ADD PAGE" THEN r$="y"
IF FNbuttonz(100,300,"RETURN TO MAIN MENU")="RETURN TO MAIN MENU" THEN r$="n"
WAIT 10
UNTIL r$<>""
UNTIL r$<>"y"
CLOSE#A
ENDPROC
DEFPROCview
A=OPENIN("memo.txt")
REPEAT
CLG
PROCsbox(10,10,1000,900,"220,220,220")
INPUT#A,title$,n1$,n2$,n3$,n4$,n5$
IF title$="" THEN CLOSE#A:PROCpr(100,300,"EMPTY","249,249,249"):WAIT 200:ENDPROC
PROCcolor("f","000,000,000")
PROCpr(10,500,title$,"200,220,220")
MOVE 20,400:PRINT n1$
MOVE 20,350:PRINT n2$
MOVE 20,300:PRINT n3$
MOVE 20,250:PRINT n4$
MOVE 20,200:PRINT n5$
REPEAT
r$=FNbuttonz(0,0,"clearitall")
IF FNbuttonz(850,100,"NEXT")="NEXT" THEN r$="y"
IF FNbuttonz(30,100,"BACK")="BACK" THEN r$="n"
WAIT 10
UNTIL r$<>""
UNTIL r$<>"y"
CLOSE#A
ENDPROC
DEFPROCclose
QUIT
ENDPROC
DEFFNrgb(x%,y%)
LOCAL rgb%, r&, g&, b&
rgb%=TINT(x%,y%)
r&=rgb% :REM Use byte variable as mask.
g&=rgb% >>8
b&=rgb% >>16
=FNnumstr(r&)+","+FNnumstr(g&)+","+FNnumstr(b&)
DEF FNtype(x%,y%)
REM first define a efficient array a&() and retstr$- case of empty returned string
LOCAL a&(),retstr$,h%,v%,t&,k$,cp&,bc$,fc$
h%=x%:v%=y%
fc$="000,000,000":bc$="200,200,200":REM text color is black
REM l%,cp% line # and cursor position.l%- future(not used yet)
REM bc$-(text overwrite-background) fc$-foreground text colors-
REM now give a&() a dimension of 100
DIM a&(100)
REPEAT
h%=x%
REPEAT
k$=INKEY$(4)
REM Cursor
PROCcolor("f",fc$):MOVE cp&*16+h%,v%:PRINT"_"
WAIT 10:REM seems pretty smooth
PROCcolor("f",bc$):MOVE cp&*16+h%,v%:PRINT"_"
UNTIL k$<>""
IF k$<>"" THEN
IF ASC(k$)>31 AND ASC(k$)<127 AND cp&<100 THEN
a&(cp&)=ASC(k$):cp&=cp&+1
ENDIF
h%=x%:v%=y%:REM test
MOVE h%,v%:PROCcolor("f",bc$)
REM print every ascii value in a&() array except 0 -cool stuff
PRINT $$^a&(0)
t&=0
h%=x%:v%=y%:REM test
MOVE h%,v%:PROCcolor("f",fc$)
PRINT $$^a&(0)
t&=0
ENDIF
IF ASC(k$)=8 AND cp&>0 THEN
t&=0
h%=x%:v%=y%:REM test
MOVE h%,v%:PROCcolor("f",bc$)
PRINT $$^a&(0)
t&=0
t&=cp&-1
REPEAT
a&(t&)=a&(t&+1)
t&+=1
UNTIL t&=100
t&=0
h%=x%:v%=y%:REM test
MOVE h%,v%:PROCcolor("f",fc$)
PRINT $$^a&(0)
t&=0
cp&-=1
ENDIF
UNTIL ASC(k$)=13
retstr$ = $$^a&(0)
t&=0:PROCresetrgb
=retstr$
DEF PROCgraphics(x,y)
VDU 23,22,x;y;8,15,16,1
OFF
VDU 5
N%=0
N%=20
DIM X(20),Y(20),H(20),V(20)
ENDPROC
DEF PROCsbox(x%,y%,w%,h%,c$)
LOCAL ry%,sx%,sy%
sx%=x%:sy%=y%
IF x%>w% THEN x%=w%:w%=sx%
IF y%>h% THEN y%=h%:h%=sy%
ry%=y%
PROCcolor("f",c$)
REPEAT
LINE x%,y%,w%,y%
y%=y%+1
UNTIL y%=h%
y%=ry%
IF c$<>"0" THEN PROCcolor("f","000,000,000") ELSE PROCcolor("f","white")
LINE x%+2,y%+2,w%-2,y%+2
LINE w%-2,y%+2,w%-2,h%-4
LINE w%-2,h%-4,x%+2,h%-4
LINE x%+2,h%-4,x%+2,y%+2
PROCresetrgb
ENDPROC
DEFPROCresetrgb
COLOUR 0,0,0,0 :COLOUR 1,200,0,0 :COLOUR 2,000,200,000
COLOUR 3,200,200,000:COLOUR 4,000,000,200:COLOUR 5,200,000,200
COLOUR 6,000,200,200:COLOUR 7,200,200,200:COLOUR 8,056,056,056
COLOUR 9,248,056,056:COLOUR 10,056,248,056:COLOUR 11,248,248,056
COLOUR 12,056,056,248:COLOUR 13,248,056,248:COLOUR 14,056,248,248
COLOUR 15,248,248,248
ENDPROC
DEF PROCcolor(fb$,rgb$)
PRIVATE assemble$,br%,bg%,bb%
IF rgb$="0" OR rgb$="black" THEN rgb$="000,000,000"
IF rgb$="1" OR rgb$="red" THEN rgb$="200,000,000"
IF rgb$="2" OR rgb$="green" THEN rgb$="000,200,000"
IF rgb$="3" OR rgb$="yellow" THEN rgb$="200,200,000"
IF rgb$="4" OR rgb$="blue" THEN rgb$="000,000,200"
IF rgb$="5" OR rgb$="magenta" THEN rgb$="200,000,200"
IF rgb$="6" OR rgb$="cyan" THEN rgb$="000,200,200"
IF rgb$="7" OR rgb$="white" THEN rgb$="200,200,200"
IF rgb$="8" OR rgb$="grey" THEN rgb$="056,056,056"
IF rgb$="9" OR rgb$="light red" THEN rgb$="248,056,056"
IF rgb$="10" OR rgb$="light green" THEN rgb$="056,248,056"
IF rgb$="11" OR rgb$="light yellow" THEN rgb$="248,248,056"
IF rgb$="12" OR rgb$="light blue" THEN rgb$="056,056,248"
IF rgb$="13" OR rgb$="light magenta" THEN rgb$="248,056,248"
IF rgb$="14" OR rgb$="light cyan" THEN rgb$="056,248,248"
IF rgb$="15" OR rgb$="light white" THEN rgb$="248,248,248"
assemble$=rgb$
br%=VAL(MID$(assemble$,1,3)):bg%=VAL(MID$(assemble$,5,3)):bb%=VAL(MID$(assemble$,9,3))
IF fb$="f" OR fb$="F" THEN COLOUR 0,br%,bg%,bb% : GCOL 0
IF fb$="b" OR fb$="B" THEN COLOUR 1,br%,bg%,bb% : GCOL 128+1
ENDPROC
DEFFNnumstr(num)
LOCAL cov$,l%
cov$=STR$(num)
l%=LEN(cov$)
IF l%=1 THEN ret$="00"+cov$
IF l%=2 THEN ret$="0"+cov$
IF l%=3 THEN ret$=cov$
=ret$
DEF PROCpr(X,Y,msg$,c$)
LOCAL initialx%,fi%,reduction%,tx,ty
initialx%=LEN(msg$)
PROCcolor("f",c$)
GCOL 0
LET tx= X+initialx%+25
LET ty= Y:reduction%=0
reduction%=initialx%/2
reduction%=reduction%*6
IF initialx%<20 THEN reduction%=reduction%/2
initialx%=initialx%*22-reduction%
FOR fi%=12 TO 48
LINE X-3,Y+20-fi%,X+initialx%+8,Y+20-fi%
NEXT
COLOUR 0,0,0,0
GCOL 0
MOVE tx,ty
PRINT msg$
MOVE 0,0
ENDPROC
DEFFNbuttonz(X,Y,msg$)
LOCAL initialx%,fi%,reduction%,tx,ty,mx%,my%,mb%,ad%,ady%,c$
PRIVATE st$
IF msg$<> "clearitall" THEN
initialx%=LEN(msg$)
LET tx= X+initialx%+25
LET ty= Y:reduction%=0
reduction%=initialx%/2
reduction%=reduction%*6
IF initialx%<20 THEN reduction%=reduction%/2
initialx%=initialx%*22-reduction%
MOUSE mx%,my%,mb%
ad%=initialx%+8:ad%+=X:ady%=Y-28
IF mx% >X AND mx%<ad% AND my%<Y+8 AND my%>ady% THEN
c$="255,255,255"
IF mb%=4 THEN st$=msg$
ELSE c$="200,200,200"
ENDIF
IF FNrgb(X,Y)="000,000,000" THEN c$="200,200,200"
PROCcolor("f",c$)
IF FNrgb(X,Y)<>c$ THEN
FOR fi%=12 TO 48
LINE X-3,Y+20-fi%,X+initialx%+8,Y+20-fi%
NEXT
PROCcolor("f","000,000,000")
MOVE tx,ty
PRINT msg$
ENDIF
ENDIF
IF msg$="clearitall" THEN st$=""
MOVE 0,0
=st$
|
| « Last Edit: Mar 9th, 2018, 12:23am by michael » |
 Logged
|
I like making program generators and like reinventing the wheel
|
|
|
DDRM
Administrator
member is offline
Gender: 
Posts: 321
|
|
Re: NOTE BOOK program
« Reply #1 on: Mar 4th, 2018, 3:07pm » |
|
Hi Michael,
Is it more like a card file, rather than a note book? It looks like it has 4 fixed entries per "page", plus a title.
Would a table into which you could write make it clearer how it worked?
What are the limits on the length of each item?
Could you make the "card" pattern configurable by the user when they open a file? Perhaps a dialogue asking how many items, and how big they should be? Perhaps options to have numeric as well as text fields?
Best wishes,
D
|
|
Logged
|
|
|
|
michael
Senior Member
member is offline
Posts: 335
|
|
Re: NOTE BOOK program
« Reply #2 on: Mar 4th, 2018, 3:34pm » |
|
Quote:Is it more like a card file, rather than a note book? It looks like it has 4 fixed entries per "page", plus a title.
|
|
Yes. I designed it for small notes. (Because I actually wanted a small one for a tiny slide show reminder for recipes and other things.)
Its spread out to make it easier to read and I am thinking of improving it with a better layout and make it BBCSDL compatible because I have devices that need it.
My mac nor raspberry pi 3 have anything attractive for simple note management. So that's part of why I made it.
I may add more border decorations to make it aesthetically pleasing to view. And I may also have a fixed amount of cards so that it stays compact, because too much info can be an issue.
So I could have a list of files that you could name, each with 10 cards. So maybe 10 files and 10 cards per file?
I think that might be best. Then a person only needs to relocate the app in a folder and make a link to each one with different subjects.
Ideas anyone? (mind that it must remain very simple and small)
|
|
Logged
|
I like making program generators and like reinventing the wheel
|
|
|
|
