Moving menu down in LCD

[rikaine]

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:

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     
return

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.

[Art]

In very rough syntax:

VV var byte[6] ‘ number of values in VV byte array
work var byte ‘ work variable
index var byte ‘ first counter
indexb var byte ‘ second counter
selected var byte ‘ selected array index
lcdline var byte ‘ lcd line address
‘
selected = 0 ‘ reset selection for startup
‘
‘ reset and init lcd here
‘
cycle:
‘
‘write lcd display
for index = 0 to 3 ‘ one less than the number of lcd lines
‘
gosub get line ‘ get lcd line address
work = VV[index]
LCDOUT $FE,lcdline,[“V”,#selected,” “,”value = “,#work]
‘
if index = 1 then
LCDOUT “<-“ ‘ print arrow on second line
endif
‘
next index
‘
‘ check button here somehow
if buttonpressed = 1 then
gosub rotatearray
endif
‘
‘
goto cycle
‘
‘
getline:
lookup index,[$80,$C0,$94,$D4],lcdline
return
‘
rotatearray: ' bitwise rotate array right eight times
for indexb = 0 to 5
  @ rrf 	_VV+7		,F		;
  @ rrf		_VV+6		,F		;
  @ rrf		_VV+5		,F		;
  @ rrf		_VV+4		,F		;
  @ rrf		_VV+3		,F		;
  @ rrf		_VV+2		,F		;
  @ rrf		_VV+1		,F		;
  @ rrf		_VV+0		,F		;
  @ bcf		_VV+7		,7		;clear MSB
next indexb
return
‘

[rikaine]

Thank you Art, I will try and report back on Monday.

[Art]

I see errors (late at night). In the last asm routine bitwise rotate
should be index = 0 to 7 (not 0 to 5),
and I did not increment the “selected” value.

IF button presses = 1 then
‘should also include
selected = selected + 1
if selected > 5 then
selected = 0
endif
gosub rotatearray
endif

The selected value tells you what sensor you’re looking at while you’re pointed at zero.

The first thing you should do is learn to start counting from zero like all computers and programming languages do.
Then only when it comes to displaying something like “sensor 0 is reading 32 degrees” to the Humans,
is the point you increment everything by 1 to make it readable to the outside world of Humans.

[rikaine]

Thank you Art, but rotatearray is not working for me.

To simplify the question, I used text on the left side as: V1, V2, V3 but actually they are different strings, that is what creates the problem.

1.MY FIRST VARIABLE=20
================
2.SECOND VALUE =25
3.THIRD ONE =30
4.DIFFERENT >40
5.FIFTH VAR =50
================
6.SIXTH VAR =60

Since I can only show 4 lines on the LCD, when the user presses DOWN button I need to know the following:
selected_variable: Which variable is the user currently on (in the above example: 4)
first_line_displayed: Which lines should be displayed OR which line should be on the top (in the above example: 2)

Here is a table I created:

Dark grey is the currently selected variable
Light grey are displayed in the LCD

Based on this table:
first_line_displayed = selected_variable - 2
IF (selected_variable - 2 <= 0) THEN first_line_displayed = 1
IF (selected_variable = max_number_of_variables) THEN first_line_displayed = selected_variable - 3

This very simple method works for display purposes. However, the problem is I cannot form a loop to go through all 8 (or less/more) variables and display only the ones that should be played based on the table above (and on the correct place). Can you help me form such a loop?

[Amoque]

I think that Select and Case will work:

DG=Dark Grey number
LSD = Line Start Display
MNV = Max Number of Variables

Select case DG
Case is < 4
LSD = 1 : GOSUB Display
Case is 4 to MNV - 1 'MNV calculated or hard coded. Only first 3 and last one are special cases.
LSD = DG - 2 : GOSUB Display
Case = MNV
LSD = MNV - 3: GOSUB Display
End select




Display:
For LP = LSD to LSD + 3
DIPLAY LINE LP
NEXT LP
Return