option default integer
base = 1

'Page 3 GUI Elements

const Page3label_CH = 54
const Page3label_MaxAmps = 55
const Page3label_TripAmps = 56
const Page3label_Status = 57
const Page3label_Ch1 = 58
const Page3label_Ch2 = 59
const Page3label_Ch3 = 60
const Page3label_Ch4 = 61
const Page3MaxAmps_Ch1 = 62
const Page3MaxAmps_Ch2 = 63
const Page3MaxAmps_Ch3 = 64
const Page3MaxAmps_Ch4 = 65
const Page3TripAmps_Ch1 = 66
const Page3TripAmps_Ch2 = 67
const Page3TripAmps_Ch3 = 68
const Page3TripAmps_Ch4 = 69
const Page3Status_Ch1 = 70
const Page3Status_Ch2 = 71
const Page3Status_Ch3 = 72
const Page3Status_Ch4 = 73
const Page3Frame = 74

'Tab Elements
const Tab1 = 91
const Tab2 = 92
const Tab3 = 93
const Tab4 = 94

'Misc Variables
const Ok = 1
const Trip = 2
const Fail = 3
Dim as Float TripAmps(4), MaxAmps(4)

'------------------------------------------------------------------

'Main Program for testing

CLS
pwm 2, 500, 50 'Set backlight to on (MM+ LCD Backpack
font 1, 1 'Set font to #1, scale 1.

for I = 1 to 4
TripAmps(I) = 1.25 'Test figures for display
MaxAmps(I) = 1.43
next I

GuiSetup 'Setup Pages
page 3,9
gui show all

do
for I = 1 to 4
ChangeStatus(Page3Status_ch1,I)
ChangeStatus(Page3Status_ch2,I)
ChangeStatus(Page3Status_ch3,I)
ChangeStatus(Page3Status_ch4,I)
pause 500
next I
loop

'------------------------------------------------------------------

Sub ChangeStatus(Element,State)

select case State
Case Ok
gui fcolour rgb(green),Element
gui bcolour rgb(black),Element
ctrlval(Element) = "OK"
Case Trip
gui fcolour rgb(yellow),Element
gui bcolour rgb(red),Element
ctrlval(Element) = "TRIP"
case Fail
gui fcolour rgb(Black),Element
gui bcolour rgb(red),Element
ctrlval(Element) = "FAIL"
Case else
gui fcolour rgb(red),Element
gui bcolour rgb(black),Element
ctrlval(Element) = "????"
end select
end sub

'------------------------------------------------------------------

sub GuiSetup

'Tab Buttons

GUI SETUP 9
GUI Switch Tab1, "Main", 0, 0, 78, 30, RGB(white), RGB(Gray)
GUI Switch Tab2, "Relays", 80, 0, 78, 30, RGB(White)
GUI Switch Tab3, "Current", 160, 0, 78, 30, RGB(White)
GUI Switch Tab4, "Config", 240, 0, 78, 30, RGB(White)
CtrlVal(Tab1) = 0
CtrlVal(Tab2) = 1
CtrlVal(Tab3) = 1
CtrlVal(Tab4) = 1

'Page 3

GUI SETUP 3

Gui frame Page3Frame,"Current (Amps) Page",0,45,320,193,rgb(white)
gui caption Page3label_CH, "CH.", 10,60,,rgb(cyan)
gui caption Page3label_TripAmps, "Trip Amps", 68,60,,rgb(cyan)
gui caption Page3label_MaxAmps, "Max Amps", 159,60,,rgb(cyan)
gui caption Page3label_Status, "Status", 250,60,,rgb(cyan)
gui caption Page3label_Ch1, "1", 18,93,,rgb(cyan)
gui caption Page3label_Ch2, "2", 18,131,,rgb(cyan)
gui caption Page3label_Ch3, "3", 18,169,,rgb(cyan)
gui caption Page3label_Ch4, "4", 18,207,,rgb(cyan)

gui caption Page3TripAmps_Ch1,str$(TripAmps(1),2,2)+"A",76,93,,rgb(white)
gui caption Page3TripAmps_Ch2,str$(TripAmps(2),2,2)+"A",76,131,,rgb(white)
gui caption Page3TripAmps_Ch3,str$(TripAmps(3),2,2)+"A",76,169,,rgb(white)
gui caption Page3TripAmps_Ch4,str$(TripAmps(4),2,2)+"A",76,207,,rgb(white)

gui caption Page3MaxAmps_Ch1,str$(MaxAmps(1),2,2)+"A",163,93,,rgb(white)
gui caption Page3MaxAmps_Ch2,str$(MaxAmps(2),2,2)+"A",163,131,,rgb(white)
gui caption Page3MaxAmps_Ch3,str$(MaxAmps(3),2,2)+"A",163,169,,rgb(white)
gui caption Page3MaxAmps_Ch4,str$(MaxAmps(4),2,2)+"A",163,207,,rgb(white)

gui displaybox Page3Status_Ch1,250,87,45,25,rgb(green),rgb(black)
gui displaybox Page3Status_Ch2,250,125,45,25,rgb(green),rgb(black)
gui displaybox Page3Status_Ch3,250,163,45,25,rgb(green),rgb(black)
gui displaybox Page3Status_Ch4,250,201,45,25,rgb(green),rgb(black)

ctrlval(Page3Status_Ch1) = "OK"
ctrlval(Page3Status_Ch2) = "OK"
ctrlval(Page3Status_Ch3) = "OK"
ctrlval(Page3Status_Ch4) = "OK"
end sub

GuiSetup
page 3

sub GuiSetup
GUI SETUP 3
end sub