Új hozzászólás Aktív témák

• #44784 zsolti_20 senior tag lappy #44783

  Új Válasz 2020-09-05 15:13:54 #44784

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  zsolti_20

  senior tag

  válasz lappy #44783 üzenetére

  Próbáltam körül nézni találtam is valamit.
  
  Sub TestCOMPort
  Const ForWriting = 2, TriStateFalse = 0
  Dim fso, f

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("COM1:", ForWriting, False, TriStateFalse)
  ' Write data to the port
  f.Write Chr(26)
  f.Write Chr(32)
  f.Write Chr(27)
  f.Close
End Sub
  
  Megadtam neki hogy COM6:9600, illetve f.Write Chr(49), felprogramoztam az arduinot hogy figyelje a serial portot és ha kap egy 1-est akkor kapcsolja fel a ledet de semmi nem történik. Amikor futtatom a kódot, akkor felvillan a led, de aztán nem tudok rá küldeni semmit sem.

Új hozzászólás Aktív témák