'******************************************************************************
'* TEST PROGRAM FOR STM32F407VET6 WITH ILI9341_16 *
'* *
'******************************************************************************
'MM.VER=5.0508
'OPTION PRE-REQUISITES
'Option LCDPanel ILI9341_16, Landscape
'Option Touch 51, 34 (PB12, PC5)

CLS
Dim Clock$
Dim String$
SetPin PA6,Dout
SetPin PA7,Dout
Pause 500
Pin(PA6)=1
Pause 500
Pin(PA7)=1

Const ON = 1
Const OFF = 2
Const SVE = 3
Const LED = 4
Const TBOX = 5
Const AMNT = 60
GUI INTERRUPT PenDown

GUI BUTTON ON, "ON", 5, 5, 30, 20, RGB(black), RGB(green)
GUI BUTTON OFF, "OFF", 38, 5, 30, 20, RGB(white), RGB(red)
GUI BUTTON SVE, "Save",10, 150,50,20,RGB(black), RGB(yellow)
GUI LED LED,"ACTIVE", 95, 20, 15, RGB(red)
GUI BUTTON AMNT, "Amount",10,180,50,20,RGB(White),RGB(Blue)
'
Do
Clock$=Time$+" "+Date$
Text 165,0,Clock$,,1
Loop

Sub PenDown
Select Case Touch(REF)
Case ON
CtrlVal(LED) = 1
Pin(PA6)=0
Case OFF
CtrlVal(LED) = 0
Pin(PA6)=1
Case SVE
SaveData
Case AMNT
EntAmnt
End Select
End Sub

Sub SaveData
GUI TextBox TBOX,10,120,120,20
CtrlVal(TBOX) = "##Filename"
Pin(PA7)=0
String$=CtrlVal(TBOX)
Print " CtrlVal(TBOX)=";String$
GUI TextBox Cancel
Pin(PA7)=1
End Sub

Sub EntAmnt
GUI NumberBox AMNT,10,120,120,20
GUI NumberBox Cancel
Print "CtrlVal(AMNT)=";CtrlVal(AMNT)
End Sub

GUI INTERRUPT PenDown, PenUP

sub PenUP
if touch(lastref) = TBOX then
String$=CtrlVal(TBOX)
Print " CtrlVal(TBOX)=";String$
endif
end sub