' inc file for nextion*******************************************************
'JP Duval 19-05-2017
' usable with Basic Bascom without any warranty
'****************************************************************************
$nocompile

'---------------macro--------------------------------------------------------

Macro Nexend       'to end a tx sequence--------------------------
     Printbin &HFF ; &HFF ; &HFF
End Macro

Macro Nexq       ' to send quote before or after a sentence---------
     Printbin &H22
End Macro

Macro Comma       'to send a , after a numeric value-----     '
     Printbin &H2C
End Macro

Macro Nex_init       'to init the nextion display
     Print "rest";
     Nexend
End Macro

Macro Ret_init 'to init the return from nextion
     For Jbyte = 1 To 12
          Tabreturn(jbyte) = 0
     Next
     Clear Serialin       'clear the buffer
     Cls
End Macro


'*******************************************************************************
' get a value from a tool sending a simple value in 1 byte
'*******************************************************************************
Function Nex_onevalue(byval Text_id As String) As Byte
     Local Area As String * 10
     Area = "get " + Text_id + ".val"       'Request The Actual Value
        '  Locate 3 , 10 : Lcd Area
     Print Area;
     Nexend       'macro which send &hFF,&hFF,&hFF
     Call Nex_return()
     Call Follow()
     Nex_onevalue = Tabreturn(2)
End Function

'*******************************************************************************
' use an  on/off button : Letter_id,  bt_color, font_color, modif
'*******************************************************************************

Sub Nex_onoff(byval Letter_id As String , Byval Bt As Byte ) As Byte
     Local Area As String * 10

     If Bt = 1 Then

          Area = Letter_id + ".txt="       ' send the text
          Print Area;
          Nexq       'to send quote
          Print "OFF";
          nexq
          Nexend       'to send "end char ff ff ff"
          'Locate 2 , 20 : Lcd "bt off:" ; Bt : Wait 2
     Elseif Bt = 0 Then
          Area = Letter_id + ".txt="       ' send the text
          Print Area;
          Nexq 'to send quote
          Print "ON";
          Nexq
          Nexend       'to send "end char ff ff ff"
         ' Locate 2 , 20 : Lcd "bt on: " ; Bt : Wait 2
     End If

End Sub

 '*******************************************************************************
' config slider  Letter_id,Cursor Width, Cursor Height, maxval, minval  cursor_color, back_color
'*******************************************************************************
Sub Nex_configslider(byval Letter_id As String , Byval Cursor_wid As Byte , Byval Cursor_hig As Byte , Byval Maxval As Byte , Byval Minval As Byte , Byval Pt_color As Word , Byval Back_color As Word) As Byte
     Local Area As String * 10       ' 0 , 2 , 30 , 100 , 0 , Red , Gold

     Area = Letter_id + ".bco="       'change the Back color
     Print Area ; ; Back_color;
     Nexend

     Area = Letter_id + ".pco="       'change the cursor color
     Print Area ; Pt_color;
     Nexend

     Area = Letter_id + ".wid="       'change the cursor thicness
     Print Area ; Cursor_wid;
     Nexend

     Area = Letter_id + ".hig="       'change the cursor size
     Print Area ; Cursor_hig;
     Nexend

     Area = Letter_id + ".maxval="       'change the maximum value
     Print Area ; Maxval;
     Nexend

     Area = Letter_id + ".minval="       'change the minnimum value
     Print Area ; minval;
     Nexend

End Sub



 '*******************************************************************************
' use a gauge    val_id, number, width of neddle(1-5) ,needle color, back color
' val must be 0 to 360 in degre
' if you use an image you must
'*******************************************************************************
Sub Nex_gauge(byval Text_id As String , Byval Degre As Word , Byval Wid As Byte , Byval Pt_color As Word , Byval Back_color As Word )
     Local Area As String * 10

     Area = Text_id + ".bco="
     Print Area ; ; Back_color;       'change the Back color
     Nexend

     Area = Text_id + ".pco="       'change the neddle color
     Print Area ; Pt_color;
     Nexend

     Area = Text_id + ".wid="       'change the neddle thicness
     Print Area ; Wid;
     Nexend

     Area = Text_id + ".val="       ' send the text
     Print Area;
     Print Degre;
     Nexend    'to send "end char ff ff ff"
End Sub

 '*******************************************************************************
' use a progress bar    val_id, number, val color, back color
' val must be 0 to 100
'*******************************************************************************
Sub Nex_bar(byval Text_id As String , Byval Bar As Byte , Byval Txt_color As Word , Byval Back_color As Word )

     Local Area As String * 10

     Area = Text_id + ".bco="       'change the Back color
     Print Area ; ; Back_color;
     Nexend

     Area = Text_id + ".pco="       'change the val color
     Print Area ; Txt_color;
     Nexend
     :
     Area = Text_id + ".val="       ' send the text
     Print Area;
     Print Bar;
     Nexend    'to send "end char ff ff ff"
End Sub
 '*******************************************************************************
' write number in a number area    val_id, number, val color, back color, font
' val for nextion can be only  whole number, you must use the Basic Bascom format or using instruction
'*******************************************************************************
Sub Nex_val(byval Text_id As String , Byval Number As Long , Byval Txt_color As Word , Byval Back_color As Word , Byval Font As Byte)
     Local Area As String * 10

     Area = Text_id + ".bco="
     Print Area ; ; Back_color;       'change the Back color
     Nexend

     Area = Text_id + ".pco="       'change the val color
     Print Area ; Txt_color;
     Nexend

     Area = Text_id + ".font="       'change the font
     Print Area ; Font;
     Nexend

     Area = Text_id + ".val="       ' send the text
     Print Area;
     Print Number;
     Nexend    'to send "end char ff ff ff"

End Sub

'*******************************************************************************
' change button attributes    val_id, text, text color, back color, font
'*******************************************************************************
Sub Nex_button(byval Text_id As String , Byval Sentence As String , Byval Txt_color As Word , Byval Back_color As Word , Byval Font As Byte)
     Local Area As String * 10

     Area = Text_id + ".bco="       'change the Back color
     Print Area ; ; Back_color;
     Nexend

     Area = Text_id + ".pco="       'change the text color
     Print Area ; Txt_color;
     Nexend

     Area = Text_id + ".font="       'change the font
     Print Area ; Font;
     Nexend

     Area = Text_id + ".txt="       ' send the text
     Print Area;
     Nexq 'to send quote
     Print Sentence;
     nexq
     Nexend    'to send "end char ff ff ff"
End Sub

'*******************************************************************************
' write text in a text area    val_id, text, text color, back color, font
'*******************************************************************************
Sub Nex_text(byval Text_id As String , Byval Sentence As String , Byval Txt_color As Word , Byval Back_color As Word , Byval Font As Byte)
     Local Area As String * 10


     Area = Text_id + ".bco="       'change the Back color
     Print Area ; Back_color;
     Nexend

     Area = Text_id + ".pco="       'change the text color
     Print Area ; Txt_color;
     Nexend


     Area = Text_id + ".font="       'change the font
     Print Area ; Font;
     Nexend

     Area = Text_id + ".txt="       ' send the text
     Print Area;
     Nexq 'to send quote
     Print Sentence;
     Nexq
     Nexend       'to send "end char ff ff ff"
End Sub

'*******************************************************************************
' write a scrolling text in a text area    text_id, text, text color, back color, font
'*******************************************************************************
Sub Nex_scrollingtext(byval Text_id As String , Byval Sentence As String , Byval Txt_color As Word , Byval Back_color As Word , Byval Font As Byte)
     Local Area As String * 10

     Area = Text_id + ".bco="
     Print Area ; ; Back_color;       'change the Back color
     Nexend

     Area = Text_id + ".pco="       'change the text color
     Print Area ; Txt_color;
     Nexend

     Area = Text_id + ".font="       'change the font
     Print Area ; Font;
     Nexend

     'Area = "ref " + Text_id       'refresh the attribute of the text area not needed with the last version of nextion
     'Print Area;
     'Nexend

     Area = Text_id + ".txt="       ' send the text
     Print Area;
     Nexq 'to send quote
     Print Sentence;
     nexq
     Nexend    'to send "end char ff ff ff"
End Sub
'*******************************************************************************
' draw Line   Xstart - Ystart Xend -Yend - Color
'*******************************************************************************
Sub Nex_line(byval X1 As Word , Byval Y1 As Word , Byval X2 As Word , Byval Y2 As Word , Byval Color As Word)
     Print "line ";
     Print X1;
     Comma
     Print Y1;
     comma
     Print X2;
     comma
     Print Y2;
     Comma
     Print Color;
     Nexend
End Sub
'*******************************************************************************
 ' draw a  dot, a dot is a line with Xend=xstart, Yend=Ystart +color
'*******************************************************************************

Sub Nex_dot(byval X1 As Word , Byval Y1 As Word , Byval Color As Word)

     Print "line ";
     Print X1;
     comma
     Print Y1;
     comma
     Print X1;
     comma
     Print Y1;
     comma
     Print Color;
     nexend
End Sub

'*******************************************************************************
' draw Circle  X - Y Center - Radius - Color
'*******************************************************************************

Sub Nex_circle(byval X1 As Word , Byval Y1 As Word , Byval Radius As Word , Byval Color As Word)

     Print "cir ";
     Print X1;
     Comma
     Print Y1;
     Comma
     Print Radius;
     Comma
     Print Color;
     nexend
End Sub

'******************************************************************************
' draw a fill circle   X - Y Center - Radius - Color
'******************************************************************************

Sub Nex_circlesolid(byval X1 As Word , Byval Y1 As Word , Byval Radius As Word , Byval Color As Word)
     Print "cirs ";
     Print X1;
     Comma
     Print Y1;
     Comma
     Print Radius;
     Comma
     Print Color;
     nexend
End Sub

'******************************************************************************
' draw a box  Xstart - Ystart Xend -Yend  - Color
'******************************************************************************
Sub Nex_box(byval X1 As Word , Byval Y1 As Word , Byval X2 As Word , Byval Y2 As Word , Byval Color As Word)

     Print "draw ";
     Print X1;
     comma
     Print Y1;
     comma
     Print X2;
     comma
     Print Y2;
     comma
     Print Color;
     Nexend
End Sub

'******************************************************************************
' draw a fill box  Xstart - Ystart- Width- height - Color
'******************************************************************************
Sub Nex_boxsolid(byval X1 As Word , Byval Y1 As Word , Byval X2 As Word , Byval Y2 As Word , Byval Color As Word)

     Print "fill ";
     Print X1;
     comma
     Print Y1;
     comma
     Print X2;
     comma
     Print Y2;
     comma
     Print Color;
     Nexend
End Sub
'----------------------------------------------------------------------------------------------------------------------
'---------------------------------sub and function to adjust the screen or the components------------------------------
  '******************************************************************************
' change the page
'******************************************************************************
Sub Nex_page(byval Xbyte As Byte)
     Print "page ";
     Print Xbyte;
     Nexend
End Sub
'******************************************************************************
' clear a screen with a color
'******************************************************************************
Sub Nex_cls(byval Color As Word)
     Print "cls ";
     Print Color;
     Nexend
End Sub
 '******************************************************************************
' change the backlight of the screen    0= none 100= full
'******************************************************************************
Sub Nex_light(byval Xbyte As Byte)
     Print "dim=";
     Print Xbyte;
     Nexend
End Sub
 '******************************************************************************----3----

'****************************************************************************** ----1----
' to know the reply from nextion
' this version use a 4 lines lcd display to visualize so you have to remark
'the lcd lines
'******************************************************************************
Sub Nex_return()
     Local Dummy As Byte
     Nbyte = 0
     Do
          If Ischarwaiting() = 1 Then       'we fill an array of byte received---
               Jbyte = Inkey()
               Incr Nbyte
               Tabreturn(nbyte) = Jbyte
               If Jbyte = 255 Then       'we count the "end char"
                    Flagcar = Flagcar + 1
               End If
               If Flagcar > 3 Then Flagcar = 3
          Elseif Ischarwaiting() = 0 And Flagcar = 3 Then       'We are waiting for the end of the reception  nbyte>0
               If Flagcar = 3 Then
                    Flagcar = 0
               End If
             '  For Dummy = 1 To Nbyte       'remarque these 3 lines if you dont use LCD display
             '       Lcd Tabreturn(dummy) ;
             '  Next
               Nbyte = 0
               Exit Do
          End If
     Loop

End Sub


'******************************************************************************
'sub to do something following the return

Sub Follow()


     Select Case Tabreturn(1)

          Case 101
               Screen_id = Tabreturn(2)
               Device_id = Tabreturn(3)
               State_id = Tabreturn(4)
            '   Locate 4 , 1 : Lcd Spc(20)
            '   Locate 4 , 1 : Lcd "Scr:" ; Screen_id ; " Dev:" ; Device_id ; " Sta:" ; State_id
          Case 113
            '   Locate 4 , 1 : Lcd Spc(20)
            '   Locate 4 , 1 : Lcd "S1:" ; Tabreturn(2) ; " S2:" ; Tabreturn(3) ; " S3:" ; Tabreturn(4) ; " S4:" ; Tabreturn(5)
          Case 112
          Case 103
          Case 104
'                    Case 136
'                         Cls
'                         Locate 1 , 1 : Lcd "Init ok"
'                         Waitms 300
'                         Cls
'                    Case 1 To 34
'                         Cls
'                         Locate 1 , 1 : Lcd "ERREUR: " ; Tabreturn(1)
'                         Locate 3 , 1 : Lcd Spc(20)
'                         Locate 4 , 1 : Lcd Spc(20)
'                         Locate 3 , 1 : Lcd "Scr:" ; Tabreturn(1) ; " Dev:" ; Tabreturn(2) ; " STa:" ; Tabreturn(3)
'                         Wait 3
'                         Cls
'                    Case Else
'                         Locate 3 , 1 : Lcd Spc(20)
'                         Locate 4 , 1 : Lcd Spc(20)
'                         Locate 3 , 1 : Lcd "T1:" ; Tabreturn(1) ; " T2:" ; Tabreturn(2) ; " T3:" ; Tabreturn(3)
'                         Locate 4 , 1 : Lcd "T4:" ; Tabreturn(4) ; " T5:" ; Tabreturn(5) ; " T6:" ; Tabreturn(6)
'                         Locate 1 , 1 : Lcd "info: " ; Tabreturn(1)
'                         Waitms 300
'                         Cls
     End Select


End Sub
'******************************************************************************-----2----