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.
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
Ü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
- $regfile = "m328pdef.dat"
- $crystal = 16000000
- $hwstack = 34
- $swstack = 32
- $framesize = 40
- $baud = 9600
- Config Timer1 = Timer , Prescale = 8
- On Timer1 T1_irq
- Enable Timer1
- On Urxc Seriell_irq
- Enable Urxc
- Enable Interrupts
- Led Alias Portb.5
- Ddrb.5 = 1
- S_out Alias Portb.4
- Ddrb.4 = 1
- Dim Temp As Byte
- Dim Servo As Byte
- Dim Twert As Word
- Dim Timerwert As Word
- Dim Mitzaehler As Byte
- Dim S3 As String * 3
- Twert = Servo * 10
- Twert = Twert + 925
- Timerwert = 0 - Twert
- Do
- Led = 1
- Waitms 100
- Led = 0
- Waitms 900
- Loop
- Seriell_irq:
- Toggle Led
- Temp = Udr
- If Temp = 13 Then
- Servo = Val(s3)
- S3 = ""
- Mitzaehler = 0
- Else
- Incr Mitzaehler
- If Mitzaehler < 4 Then
- S3 = S3 + Chr(temp)
- End If
- End If
- Return
- T1_irq:
- Timer1 = Timerwert
- If S_out = 0 Then
- S_out = 1
- Timerwert = 45536
- Else
- S_out = 0
- Twert = Servo * 10
- Twert = Twert + 2000
- Timerwert = 0 - Twert
- End If
- Return
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
8.215 mal gelesen