Hallo Forumgemeinde,
nach ewiger Pause mit den AVR wollte ich wieder mal was probieren.
Richtige Projekte hab ich leider nicht, sind mehr Spielereien zum lernen.
Hardwareinfo vorab:
Bascom Version 2.0.83
Arduino Nano ATMega328P @ 16MHz (Programierung über USB-Bootloader) -> Funktioniert
I2C OLed Display (erst seit kurzem) -> läuft dank euren Codeschnipseln (Suche genutzt)
HC-05 läuft über SW-Uart (lief mit Empfang und Senden (Einzelnes Zeichen als Befehl)) LED blinkt langsam. Hab das in den AT-Modus geschickt.
Ich wollte die AT Kommandos an das HC-05 schicken und die Antwort auf das Display schreiben.
Leider weiß ich nicht wie ich die AntwortDaten des HC-05 einlese
Mit AT+Name? frage ich den Namen ab, zurück müsste dann HC-05 kommen
Das Modul hängt an einer Soft UART.
Das aktuelle Programm:
Alles anzeigen
Könnt ihr mir erklären wie ich die Antwort vom Bluetooth Modul erhalte?
Grüße Counter
nach ewiger Pause mit den AVR wollte ich wieder mal was probieren.
Richtige Projekte hab ich leider nicht, sind mehr Spielereien zum lernen.
Hardwareinfo vorab:
Bascom Version 2.0.83
Arduino Nano ATMega328P @ 16MHz (Programierung über USB-Bootloader) -> Funktioniert
I2C OLed Display (erst seit kurzem) -> läuft dank euren Codeschnipseln (Suche genutzt)
HC-05 läuft über SW-Uart (lief mit Empfang und Senden (Einzelnes Zeichen als Befehl)) LED blinkt langsam. Hab das in den AT-Modus geschickt.
Ich wollte die AT Kommandos an das HC-05 schicken und die Antwort auf das Display schreiben.
Leider weiß ich nicht wie ich die AntwortDaten des HC-05 einlese
Mit AT+Name? frage ich den Namen ab, zurück müsste dann HC-05 kommen
Das Modul hängt an einer Soft UART.
Das aktuelle Programm:
BASCOM-Quellcode
- $regfile = "m328pdef.dat"
- $crystal = 16000000
- $hwstack = 64
- $swstack = 64
- $framesize = 64
- '$baud = 9600
- Open "comd.3:9600,8,N,1" For Output As #1
- Open "comb.2:9600,8,N,1" For Input As #2
- Config Portb.5 = Output
- 'Config Portc.1 = Output
- LED Alias portb.5
- 'A5 = SCL PC.5
- 'A4 = SDA PC.4
- '--------------------------------------------------------'
- ' I2C Definieren '
- '--------------------------------------------------------'
- Config Clockdiv = 1 ' make sure the chip runs at 8 MHz
- Config Scl = Portc.5 ' used i2c pins
- Config Sda = Portc.4
- Config Twi = 400000 ' i2c speed
- I2cinit
- $lib "i2c_twi.lbx" ' we do not use software emulated I2C but the TWI
- $lib "glcdSSD1306-I2C.lib"
- '--------------------------------------------------------'
- ' Interrupts einschalten '
- '--------------------------------------------------------'
- Enable Interrupts
- '--------------------------------------------------------'
- ' Funktionen und Subs declarieren '
- '--------------------------------------------------------'
- '--------------------------------------------------------'
- ' Variablen und Array definieren '
- '--------------------------------------------------------'
- Dim Test As Word
- Dim Zeilen As Byte
- Dim X As Byte
- dim y as byte
- Dim Speed as Byte
- Dim Dummy as string * 1
- 'Dim Antwort as string * 25
- Dim Antwort as byte
- Speed = 100
- Test = 0
- 'For Zeilen = 1 To 10
- ' Print #1 , ""
- ' Next
- Print #1 , "Arduino Nano mit HC-05 Bluetooth und I2C-OLED-Display in Bascom!"
- Print #1 , "" : Print #1 , "" : Print #1 , ""
- Print #1 , "Warte auf Eingaben :-)"
- #if _build < 20784
- Dim ___lcdrow As Byte , ___lcdcol As Byte ' dim these for older compiler versions
- #endif
- waitms 200
- Config Graphlcd = Custom , Cols = 128 , Rows = 64 , Lcdname = "SSD1306"
- Cls
- waitms 200
- Setfont Font8x8tt ' select font
- Lcdat 1 , 1 , "I2C-OLED und HC-05"
- Lcdat 2,1,"in Bascom"
- LED =1
- 'Lcdat 2 , 10 , "Company"
- 'Lcdat 8 , 5 , "Schöneberg 2021" , 1 'invers
- Waitms 3000
- LED = 0
- 'Showpic 0 , 0 , Markus
- ' Print #1, "AT+UART?" + CHR(13) + CHR(10)
- Dim A As String * 2
- Dim B As Integer
- Print #1, "AT+NAME?" + CHR(13) + CHR(10) ' Name abfragen
- ' Bis "Wend" Schnipsel aus dem Forum, geht leider nicht
- Input #2 , A
- B = Val(A)
- While B > 0
- Input #2 , A
- B = Val(A)
- LCDat 3,1,B,0
- Wend
- 'Programm scheint zu hängen, der Text unten erscheint nicht wenn input "Scharf" ist
- LCDat 8,1,"Bluetooth!",1
- do
- Loop
- End
- $include "font8x8TT.font" ' this is a true type font with variable spacing
Grüße Counter
Grüße
Counter
Counter
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von Counter () aus folgendem Grund: Info ergänzt das das Modul im AT-Modus ist