Hello,
I am trying to build a menu that is moving upwards and downwards with buttons on a 20x4 LCD.
I have 6 variables in this scenario and menu looks like this:
[display area]
============ (1)
[V1>15]
[V2=25]
[V3=30]
[V4=40]
V5=55
V6=60
============
Then when I keep pressing down it should move like this:
============ (2)
[V1=15]
[V2>25]
[V3=30]
[V4=40]
V5=55
V6=60
============ (3)
[V1=15]
[V2=25]
[V3>30]
[V4=40]
V5=55
V6=60
============ (4)
V1=15
[V2=25]
[V3=30]
[V4>40]
[V5=55]
V6=60
============ (5)
V1=15
V2=25
[V3=30]
[V4=40]
[V5>55]
[V6=60]
============ (6)
V1=15
V2=25
[V3=30]
[V4=40]
[V5=55]
[V6>60]
============
Here is my code:
So the main idea is to shift the menu downwards when last line is reached, or likewise to the upward direction.
As you can see from my code, my knowledge and experience is very limited. I have 3 questions:
1. I somehow managed to make it work with the code above but as you can see it is very inefficient. Is there an easier way to do this? Since string variables are not supported, I am having serious problems with writing a decent function that covers where to write in the LCD.
2. Is there a better way to handle a type_in function? I need to press ESC to clear the number otherwise it becomes messed up.
3. And the most important question: How can I turn this function into a generic one where I can use it for more or less variables?
Thanks in advance.
I am trying to build a menu that is moving upwards and downwards with buttons on a 20x4 LCD.
I have 6 variables in this scenario and menu looks like this:
[display area]
============ (1)
[V1>15]
[V2=25]
[V3=30]
[V4=40]
V5=55
V6=60
============
Then when I keep pressing down it should move like this:
============ (2)
[V1=15]
[V2>25]
[V3=30]
[V4=40]
V5=55
V6=60
============ (3)
[V1=15]
[V2=25]
[V3>30]
[V4=40]
V5=55
V6=60
============ (4)
V1=15
[V2=25]
[V3=30]
[V4>40]
[V5=55]
V6=60
============ (5)
V1=15
V2=25
[V3=30]
[V4=40]
[V5>55]
[V6=60]
============ (6)
V1=15
V2=25
[V3=30]
[V4=40]
[V5=55]
[V6>60]
============
Here is my code:
Code:
rak VAR WORD
ss VAR BYTE 'current line of selection in the menu
qq VAR BYTE 'number of the first line displayed in the LCD
ssmax VAR BYTE 'maximum number of variables
ss1 VAR BYTE 'where to write first variable in the LCD
ss2 VAR BYTE 'where to write second variable in the LCD
ss3 VAR BYTE
ss4 VAR BYTE
ss5 VAR BYTE
ss6 VAR BYTE
advanced:
ssmax=6
ss=1
gosub show_text
advanced_1:
if but=15 then 'up
ss=ss-1
if ss<1 then ss=6
gosub advanced_2
gosub show_text
gosub menu_arrow
endif
if but=16 then 'down
ss=ss+1
if ss>6 then ss=1
gosub ayarlar_advanced_2
gosub show_text
gosub menu_arrow
endif
IF but=17 Then 'enter
' for saving variables modified here
EndIF
gosub type_in
if rak>999 then
for k=0 to 9:p(k)=0:next k:k=0:rak=0
endif
goto advanced_1
advanced_2:
if ss=1 then rak=v1
if ss=2 then rak=v2
if ss=3 then rak=v3
if ss=4 then rak=v4
if ss=5 then rak=v5
if ss=6 then rak=v6
return
show_text:
lcdout$fe,1
qq=ss-2
if (ss-2<=0) then qq=1
if (ss=ssmax) then qq=ss-3
Select Case qq
Case 1:ss1=128:ss2=192:ss3=148:ss4=212:gosub y1:gosub y2:gosub y3:gosub y4
Case 2:ss2=128:ss3=192:ss4=148:ss5=212:gosub y2:gosub y3:gosub y4:gosub y5
Case 3:ss3=128:ss4=192:ss5=148:ss6=212:gosub y3:gosub y4:gosub y5:gosub y6
End Select
return
y1:
lcdout$fe,ss1,"VARIABLE1=",#v1
return
y2:
lcdout$fe,ss2,"VARIABLE2=",#v2
return
y3:
lcdout$fe,ss3,"VARIABLE3=",#v3
return
y4:
lcdout$fe,ss4,"VARIABLE4=",#v4
return
y5:
lcdout$fe,ss5,"VARIABLE5=",#v5
return
y6:
lcdout$fe,ss6,"VARIABLE6=",#v6
return
menu_arrow:
gosub menu_arrow_delete
lcdout$fe,159,">"
if (ss=1) then
gosub menu_arrow_delete
lcdout$fe,139,">"
endif
if (ss=2) then
gosub menu_arrow_delete
lcdout$fe,203,">"
endif
if (ss=ssmax) then
gosub menu_arrow_delete
lcdout$fe,223,">"
endif
' if ss=1 then lcdout$fe,$8b,">" 'I still need to work on this for modifying selected variable
' if ss=2 then lcdout$fe,$cb,">"
' if ss=3 then lcdout$fe,$9f,">"
' if ss=4 then lcdout$fe,$df,">"
return
menu_arrow_delete:
lcdout$fe,$8b,":":lcdout$fe,$cb,":":lcdout$fe,$9f,":":lcdout$fe,$df,":"
return
type_in:
p(k)=but
if but=10 then p(k)=0
k=k+1
if k>3 then
for k=0 to 9:p(k)=0:next k
p(0)=but:LCDOut$fe,155," ":k=1
rak=0
if ss=1 then lcdout$fe,$8c,#rak," "
if ss=2 then lcdout$fe,$cc,#rak," "
if ss=3 then lcdout$fe,$a0,#rak," "
if ss=4 then lcdout$fe,$e0,#rak," "
endif
Select Case k
Case 1:rak=p(0)
Case 2:rak=p(0)*10+p(1)
Case 3:rak=p(0)*100+p(1)*10+p(2)
End Select
returnAs you can see from my code, my knowledge and experience is very limited. I have 3 questions:
1. I somehow managed to make it work with the code above but as you can see it is very inefficient. Is there an easier way to do this? Since string variables are not supported, I am having serious problems with writing a decent function that covers where to write in the LCD.
2. Is there a better way to handle a type_in function? I need to press ESC to clear the number otherwise it becomes messed up.
3. And the most important question: How can I turn this function into a generic one where I can use it for more or less variables?
Thanks in advance.