GUI-O Android applications instead of Touch Screen Display

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    Aufgrund technischer Veränderungen ist der Mailverkehr innerhalb des Forums (Private Nachrichten) nur noch eingeschränkt möglich. Die Einschränkung ist notwendig, um zusätzliche Betriebskosten für das Forum zu vermeiden. Näheres zu den Hintergründen im Thread "Aktuelles zum Forum".Wir bitten um Verständnis.

    Hinweis kann nach Kenntnisnahme deaktiviert werden!

    • GUI-O Android applications instead of Touch Screen Display

      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


      Quellcode: GUI-o-TestB_V1_6.bas

      1. '------------------------------------------------------------------------------
      2. '
      3. ' Test GUI-o Board Arduino Nano ATMEGA328P
      4. ' HW:Arduino NANO ATMEGA328P
      5. '
      6. ' gammda 2021-03-04
      7. ' Ver-1.0
      8. ' Youtube: https://youtu.be/EN_tJgk79kU
      9. '------------------------------------------------------------------------------
      10. '$regfile = "m168pdef.dat"
      11. $regfile = "m328pdef.dat"
      12. $crystal = 16000000
      13. $baud = 9600
      14. $hwstack = 20
      15. $swstack = 20
      16. $framesize = 20
      17. Config Serialin = Buffered , Size = 100
      18. Enable Interrupts
      19. ' standard setup for arduino nano - bascom
      20. '-Definition LED -------------
      21. Config Portc.0 = Output
      22. Reset Portc.0
      23. Led Alias Portc.0
      24. '-Definition KEY -------------
      25. Config Pinc.2 = Input
      26. Set Portc.2
      27. Key Alias Pinc.2
      28. Dim Bt_key As Byte
      29. Dim Bdata As String * 10
      30. Gosub Init_guio
      31. '------------------------------------------------------------------------------
      32. Main: '
      33. Do
      34. If Ischarwaiting() = 1 Then 'Bluetooth
      35. Gosub Read_data
      36. End If
      37. If Key = 0 Then
      38. Toggle Led
      39. If Led = 1 Then
      40. Print "@si1 EN:1"
      41. Print "@tg1 EN:1"
      42. Waitms 300
      43. Else
      44. Print "@si1 EN:0"
      45. Print "@tg1 EN:0"
      46. Waitms 300
      47. End If
      48. End If
      49. Loop
      50. End
      51. '------------------------------------------------------------------------------
      52. Read_data:
      53. Bt_key = Inkey()
      54. If Bt_key = "@" Then
      55. Input Bdata Noecho
      56. End If
      57. If Bdata = "tg1 1" Then 'toggle switch ON
      58. Set Led
      59. Print "@si1 EN:1"
      60. Waitms 300
      61. End If
      62. If Bdata = "tg1 0" Then 'toggle switch OFF
      63. Reset Led
      64. Print "@si1 EN:0"
      65. Waitms 300
      66. End If
      67. If Bdata = "init" Then 'toggle switch OFF
      68. Gosub Init_guio
      69. End If
      70. Return
      71. '-Init GUIo -------------------------------------------------------------------
      72. Init_guio:
      73. Print "@cls"
      74. 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
      75. Print "|LB UID:lb1 X:50 Y:70 FGC:#01F3FE TXT:" ; Chr(34) ; "GUI-O test LED" ; Chr(34) 'Label
      76. Print "|SI UID:si1 X:50 Y:50" 'status indicator - LED
      77. Print "|TG UID:tg1 X:50 Y:60 W:20 H:3" 'toggle switch
      78. Print "|IM UID:im1 X:50 Y:20 W:40 H:40 IP:" ; Chr(34) ; "Light.jpg" ; Chr(34) ' image
      79. Return
      80. '------------------------------------------------------------------------------
      Alles anzeigen
      Dateien
      • GUI-o Sketch_bb.jpg

        (182,07 kB, 28 mal heruntergeladen, zuletzt: )
      • GUI-o-TestB_V1_6.bas

        (2,55 kB, 17 mal heruntergeladen, zuletzt: )
      • Light.jpg

        (66,8 kB, 11 mal heruntergeladen, zuletzt: )