PureBasic

Code : Tout sélectionner

;-----------------------------------------------------------------------:
;     --- Choix du "bon" vieux mode console du temps du MS-DOS ---      :
;-----------------------------------------------------------------------:
OpenConsole()

;-------------------------------------------:
; Adresse du port série (11 dans mon cas)   :
;-------------------------------------------:
NPort.s = "COM11" 

;-----------------------:
;   Ouverture du port   :
;-----------------------:
PortId.i = OpenSerialPort(#PB_Any, NPort, 9600, #PB_SerialPort_NoParity  , 8, 1, #PB_SerialPort_XonXoffHandshake, 4, 4)   

;---------------------------------:
;   Texte à envoyer à l'Arduino   :
;---------------------------------:
Cmd.s = "0:25:0:0:0"

;--------------------------------------------:
;   Terminaison de la chaîne de caractères   :
;--------------------------------------------:
EOL = 13 

;-------------------------:
;   Ecriture surle port   :
;-------------------------:
WriteSerialPortString(PortId, Cmd", #PB_Ascii)       ; Envoi sur port série.
WriteSerialPortData(PortId, @EOL, 1)


;------------------------------------------:    
;    Dimensionnement buffer de réception   :    
;------------------------------------------:
    b_size = 100                                      ; Taille du buffer.
    *Byte = AllocateMemory(b_size)                    ; Pointeur pour retour.
      
    Bytes = AvailableSerialPortInput(NPort)           ; Initialisation 
    
    While(Bytes = 0)                                  ; Boucle jusqu'à retour réponse.
        Delay(100)
        Bytes = AvailableSerialPortInput(NPort)
    Wend
      
    Result = ReadSerialPortData(NPort, *Byte, Bytes)  ; Lecture réponse.
    
    Rep.s = PeekS(*Byte, Result, #PB_Ascii)           ; Transfert mémoire vers Rep 

a$=Input()                  ; Pause avant fermeture du programme.

CloseSerialPort(PortId)     ; Fermeture du port.

Code : Tout sélectionner

ardu.i=OpenSerialPort (#PB_Any,"COM3", 9600, #PB_SerialPort_NoParity,8,1, #PB_SerialPort_NoHandshake,0,0)
OpenConsole()
WriteSerialPortString (ardu.i, "V", #PB_Ascii)

Code : Tout sélectionner

Bytes = AvailableSerialPortInput (NPort)

Code : Tout sélectionner

Bytes = AvailableSerialPortInput (NPort)

Code : Tout sélectionner

; Read datas from Arduino who send random number 10-99
; Based on the infratec proposed solution on topic: RS-232 receive data
; http://www.purebasic.fr/english/viewtopic.php?f=13&t=64875&hilit=ReadSerialPortData

Enumeration
     #Win
     #Incoming
     #hPort
     #Sec
EndEnumeration

CompilerIf #PB_Compiler_OS = #PB_OS_Linux
     Port$ = "/dev/ttyACM0"
CompilerElseIf #PB_Compiler_OS = #PB_OS_Windows
     Port$ = "COM4"
CompilerEndIf

OpenWindow(#Win, 0, 0, 500, 300, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListViewGadget(#Incoming, 10, 10, 480, 280)
AddWindowTimer(#Win, #Sec, 100)

If OpenSerialPort(#hPort, Port$, 9600,
                  #PB_SerialPort_NoParity, 8, 1,
                  #PB_SerialPort_NoHandshake, 1024, 1024)
     Debug "OK Port " + Port$ + " Open"
     Debug "Waiting for incoming data..."
Else
     Debug ~"Serial Port not initialized.\r\nProgram Ends."
     End
EndIf     

Delay(2000)

Procedure Read_Arduino()
     While AvailableSerialPortInput(#hPort)
          If ReadSerialPortData(#hPort, @Buffer, 1)
               Debug Buffer
               AddGadgetItem(#Incoming, -1, Str(Buffer))
          EndIf
     Wend
EndProcedure 


Repeat
     Select WaitWindowEvent()
          Case #PB_Event_Timer
               Read_Arduino()
          Case #PB_Event_CloseWindow
               CloseSerialPort(#hPort)
               End
     EndSelect
ForEver

End 

Code : Tout sélectionner

ardu.i=OpenSerialPort (#PB_Any,"COM3", 9600, #PB_SerialPort_NoParity,8,1, #PB_SerialPort_NoHandshake,0,0)
OpenConsole()

OpenSerialPort (#PB_Any,"COM3", 9600, #PB_SerialPort_NoParity,8,1, #PB_SerialPort_NoHandshake,4,4)
Delay (5000)
b_size = 100
*Byte = AllocateMemory(b_size)
Bytes = AvailableSerialPortInput (NPort)

While(Bytes = 0)
  Delay(100)
  Bytes = AvailableSerialPortInput(NPort)
Wend
Result = ReadSerialPortData(NPort, *Byte, Bytes)
Rep.s = PeekS(*Byte, Result, #PB_Ascii)
Print (Rep)

Input()
CloseConsole()

Code : Tout sélectionner

Bytes = AvailableSerialPortInput (NPort)

Code : Tout sélectionner

ardu.i=OpenSerialPort (#PB_Any ...

Code : Tout sélectionner

OpenSerialPort (ardu ...

Code : Tout sélectionner

Bytes = AvailableSerialPortInput (ardui)

Code : Tout sélectionner

long randNumber;

void setup(){
  Serial.begin(9600);
  // if analog input pin 0 is unconnected, random analog
  // noise will cause the call to randomSeed() to generate
  // different seed numbers each time the sketch runs.
  // randomSeed() will then shuffle the random function.
  randomSeed(analogRead(0));
}

void loop() {
  // print a random number from 10 to 99
  randNumber = random(10, 99);
  Serial.println(randNumber);

  delay(1000);
}