Discussion :

[shodan47]

Bonjour

J'utilise Arduino et Access depuis de nombreuses années, j'utilise le VBA dans Access et le c/c++ de l'arduino en mode "petit amateur"

Je cherche a envoyer des données (un simple code) via bluetooth vers l'arduino.

J'arrive a envoyer ces données depuis un téléphone ou même l'ordi via un terminal série, donc j'identifie bien la liaison.

J'aimerai ajouter un module ou une sub dans ce genre (trouvé sur internet):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub SendSerialData(ByVal data As String)
    ' Send strings to a serial port.
    Using com1 As IO.Ports.SerialPort =
            My.Computer.Ports.OpenSerialPort("COM1")
        com1.WriteLine(data)
    End Using
End Sub

Merci de votre aide

[shodan47]

Bonjour

J'ai ajouté le code ci dessous dans un module(ca peut aider certain) mais en fait je pense que je me suis trompé dans ma recherche.
en fait je souhaite envoyer des données par le Bluetooth depuis Access pour les réceptionner sur un HM-10 connecté a l'arduino.... et je ne pense pas que cela passe par un port com...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Public Sub SerialPort()
    ' open a COM port, transmit a message, gather results, close the port.
 
    ' open the COM port as file #1
    Debug.Print "Open COM port 8"
    Open "COM9:9600,N,8,1" For Binary Access Read Write As #1
 
    transmit$ = Chr(2) + "Hello, World." + Chr(13)
    receiveDummy$ = "~~~"
 
    ' transmit a message
    Put #1, , transmit$
    Debug.Print "Message sent."
 
    ' wait a bit for a response
    Sleep 100
 
    ' check for received message
    Debug.Print "Look for incoming message."
    On Error Resume Next
    Do While True
        receive$ = receiveDummy$  'dummy value
        Input #1, receive$
        If receive$ = receiveDummy$ Then Exit Do  'the string didn't change, so move on
        MsgBox receive$
    Loop
    On Error GoTo 0
 
    ' do it again to show that the empty input queue doesn't stop the flow
    Debug.Print "Look again for incoming message (should not stop on error)."
    On Error Resume Next
    Do While True
        receive$ = receiveDummy$  'dummy value
        Input #1, receive$
        If receive$ = receiveDummy$ Then Exit Do  'the string didn't change, so move on
        Debug.Print receive$
    Loop
    On Error GoTo 0
 
    ' close the serial port
    Debug.Print "Close COM port."
    Close #1
 
    Debug.Print "Done."
End Sub