Hello.
I found very easy solution, using a smartphone instead
of a Touch screen display connected to my electronics projects. www.gui-o.com or play.google.com/store/apps/details?id=com.guio.guioapp.
There you can find also examples of Bascom.
In my test case I checked this example with small modification. I use a Bluetooth connection (HC-06 9600bps) between the device (Adruino Nano)
and the smart phone. Communication is two-way. I read that GUI-O also allows communication over the internet. It is possible using also
hardware sensors on phone (accelometer, compass, GPS, SMS, ...)
There are simple objects (Label, Toggle Switch, LED and Image) that you need to use in the initialization process - procedure (Init_guio:)
and then change only individual parameters, or more together.
When I work with this, I feel like I’m using an LCD16x2.
Advice: Using image object, simply copy "Light.jpg" to your smart phone in directory:
Android > Data> com.gui.oapp > files > Pictures
YouTube link:
youtu.be/EN_tJgk79kU
Alles anzeigen
I found very easy solution, using a smartphone instead
of a Touch screen display connected to my electronics projects. www.gui-o.com or play.google.com/store/apps/details?id=com.guio.guioapp.
There you can find also examples of Bascom.
In my test case I checked this example with small modification. I use a Bluetooth connection (HC-06 9600bps) between the device (Adruino Nano)
and the smart phone. Communication is two-way. I read that GUI-O also allows communication over the internet. It is possible using also
hardware sensors on phone (accelometer, compass, GPS, SMS, ...)
There are simple objects (Label, Toggle Switch, LED and Image) that you need to use in the initialization process - procedure (Init_guio:)
and then change only individual parameters, or more together.
When I work with this, I feel like I’m using an LCD16x2.
Advice: Using image object, simply copy "Light.jpg" to your smart phone in directory:
Android > Data> com.gui.oapp > files > Pictures
YouTube link:
youtu.be/EN_tJgk79kU
Quellcode: GUI-o-TestB_V1_6.bas
- '------------------------------------------------------------------------------
- '
- ' Test GUI-o Board Arduino Nano ATMEGA328P
- ' HW:Arduino NANO ATMEGA328P
- '
- ' gammda 2021-03-04
- ' Ver-1.0
- ' Youtube: https://youtu.be/EN_tJgk79kU
- '------------------------------------------------------------------------------
- '$regfile = "m168pdef.dat"
- $regfile = "m328pdef.dat"
- $crystal = 16000000
- $baud = 9600
- $hwstack = 20
- $swstack = 20
- $framesize = 20
- Config Serialin = Buffered , Size = 100
- Enable Interrupts
- ' standard setup for arduino nano - bascom
- '-Definition LED -------------
- Config Portc.0 = Output
- Reset Portc.0
- Led Alias Portc.0
- '-Definition KEY -------------
- Config Pinc.2 = Input
- Set Portc.2
- Key Alias Pinc.2
- Dim Bt_key As Byte
- Dim Bdata As String * 10
- Gosub Init_guio
- '------------------------------------------------------------------------------
- Main: '
- Do
- If Ischarwaiting() = 1 Then 'Bluetooth
- Gosub Read_data
- End If
- If Key = 0 Then
- Toggle Led
- If Led = 1 Then
- Print "@si1 EN:1"
- Print "@tg1 EN:1"
- Waitms 300
- Else
- Print "@si1 EN:0"
- Print "@tg1 EN:0"
- Waitms 300
- End If
- End If
- Loop
- End
- '------------------------------------------------------------------------------
- Read_data:
- Bt_key = Inkey()
- If Bt_key = "@" Then
- Input Bdata Noecho
- End If
- If Bdata = "tg1 1" Then 'toggle switch ON
- Set Led
- Print "@si1 EN:1"
- Waitms 300
- End If
- If Bdata = "tg1 0" Then 'toggle switch OFF
- Reset Led
- Print "@si1 EN:0"
- Waitms 300
- End If
- If Bdata = "init" Then 'toggle switch OFF
- Gosub Init_guio
- End If
- Return
- '-Init GUIo -------------------------------------------------------------------
- Init_guio:
- Print "@cls"
- Print "|BSR UID:gb0 X:50 Y:50 W:100 H:100 VIS:1 ROT:0 RAD:0 BGC:#99A3A4 FGC:#F39C12 SHE:1 BTH:0.5" 'Group BOX
- Print "|LB UID:lb1 X:50 Y:70 FGC:#01F3FE TXT:" ; Chr(34) ; "GUI-O test LED" ; Chr(34) 'Label
- Print "|SI UID:si1 X:50 Y:50" 'status indicator - LED
- Print "|TG UID:tg1 X:50 Y:60 W:20 H:3" 'toggle switch
- Print "|IM UID:im1 X:50 Y:20 W:40 H:40 IP:" ; Chr(34) ; "Light.jpg" ; Chr(34) ' image
- Return
- '------------------------------------------------------------------------------