AI2 APP Inventor 2 Teil 7 Bascom Programm

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

  • Unser AVR verarbeitet die Daten vom Android-Gerät
    Nach dem Öffnen der App erscheint unser Bildschirm mit den 3 Buttons und dem Slider und der rote Text oben "Getrennt"

    Über den Button "Bluetooth" wählen wir aus der Liste unser Modul (Horst bei mir) und bei erfolgreicher Verbindung hört das wilde Blinken des Bluetooth-Moduls auf und der Text erscheint grün.
    Ab jetzt wird jede Slider-Bewegung und die Tastendrücke über Bluetooth seriell an den AVR gesendet.

    Das Bascom-Programm dazu ist recht einfach gestrickt und erfüllt seinen Zweck.
    Es nimmt die maximal 3 Ascii-Ziffern entgegen und bei einem CR wird mit dem VAL-Befehl die Ziffernfolge in ein Byte umgewandelt.
    Das Byte dient dann dem Timer als Wert für die Erzeugung der Servo-Impulse.

    Ich hoffe, Euch hat der kurze Ausflug in den AppInventor2 gefallen und bin gespannt auf eure Projekte.




    BASCOM-Quellcode: Bluetooth_Servo

    1. $regfile = "m328pdef.dat"
    2. $crystal = 16000000
    3. $hwstack = 34
    4. $swstack = 32
    5. $framesize = 40
    6. $baud = 9600
    7. Config Timer1 = Timer , Prescale = 8
    8. On Timer1 T1_irq
    9. Enable Timer1
    10. On Urxc Seriell_irq
    11. Enable Urxc
    12. Enable Interrupts
    13. Led Alias Portb.5
    14. Ddrb.5 = 1
    15. S_out Alias Portb.4
    16. Ddrb.4 = 1
    17. Dim Temp As Byte
    18. Dim Servo As Byte
    19. Dim Twert As Word
    20. Dim Timerwert As Word
    21. Dim Mitzaehler As Byte
    22. Dim S3 As String * 3
    23. Twert = Servo * 10
    24. Twert = Twert + 925
    25. Timerwert = 0 - Twert
    26. Do
    27. Led = 1
    28. Waitms 100
    29. Led = 0
    30. Waitms 900
    31. Loop
    32. Seriell_irq:
    33. Toggle Led
    34. Temp = Udr
    35. If Temp = 13 Then
    36. Servo = Val(s3)
    37. S3 = ""
    38. Mitzaehler = 0
    39. Else
    40. Incr Mitzaehler
    41. If Mitzaehler < 4 Then
    42. S3 = S3 + Chr(temp)
    43. End If
    44. End If
    45. Return
    46. T1_irq:
    47. Timer1 = Timerwert
    48. If S_out = 0 Then
    49. S_out = 1
    50. Timerwert = 45536
    51. Else
    52. S_out = 0
    53. Twert = Servo * 10
    54. Twert = Twert + 2000
    55. Timerwert = 0 - Twert
    56. End If
    57. Return
    Alles anzeigen

    Hier noch ein Video, wie das dann aussieht



    PS: Weil die Nachfrage besteht, im Anhang noch die beiden gezippten Projektdateien aus dem App Inventor, mit den Endungen aia und apk.
    Die aia Datei kann man im App Inventor importieren und die apk ist die fertig compilierte Datei für das Android-Gerät
    Dateien

    528 mal gelesen