MikroElektronika Forum

Code: Select all

     const MSG_MainPRO as String[9][16] = ("Refresh Rate","Datalog Rate","Log Mode","Save CSV File","Save BIN File","Averaging","Backlight","Datalog File","Exit")

Code: Select all

lcd_out(2,1,MSG_MainPRO[Program_Value])

Code: Select all

program case_msg

const MSG_MainPRO1 as String[16] = "Refresh Rate"
const MSG_MainPRO2 as String[16] = "Datalog Rate"
const MSG_MainPRO3 as String[16] = "Log Mode"
const MSG_MainPRO4 as String[16] = "Save CSV File"
const MSG_MainPRO5 as String[16] = "Save BIN File"
const MSG_MainPRO6 as String[16] = "Averaging"
const MSG_MainPRO7 as String[16] = "Backlight"
const MSG_MainPRO8 as String[16] = "Datalog File"
const MSG_MainPRO9 as String[16] = "Exit"

dim Program_Value as byte
    text_20 as string[20]
    
Sub Procedure Get_Msg(dim location as byte, dim byref msg as string[20])
  select case location
    case 0 msg = MSG_MainPRO1
    case 1 msg = MSG_MainPRO2
    case 2 msg = MSG_MainPRO3
    case 3 msg = MSG_MainPRO4
    case 4 msg = MSG_MainPRO5
    case 5 msg = MSG_MainPRO6
    case 6 msg = MSG_MainPRO7
    case 7 msg = MSG_MainPRO8
    case 8 msg = MSG_MainPRO9
  end select
End Sub
    
main:
  Lcd_Init(PORTD)                  ' initialize  (4-bit interface connection)
  Lcd_Cmd( LCD_CURSOR_OFF)         ' send command to LCD (cursor off)
  Lcd_Cmd(LCD_CLEAR)               ' send command  to LCD (clear LCD)
  Program_Value = 0
  while Program_Value < 10
    Get_Msg(Program_Value,text_20)
    Lcd_Out(2,1,text_20)
    inc(Program_Value)
    delay_ms(2000)
  wend
End.