Arduino <> Firmata <> Visual Basic .NET


рдЗрд╕ рд▓реЗрдЦ рдореЗрдВ, рдореИрдВ Arduino рд╣рд╛рд░реНрдбрд╡реЗрдпрд░ рдкреНрд▓реЗрдЯрдлреЙрд░реНрдо рдХреЗ рд╕рд╛рде рдмрд╛рддрдЪреАрдд рдХреЗ рд▓рд┐рдП .NET рд▓рд╛рдЗрдмреНрд░реЗрд░реА рдХреА рд╕рдореАрдХреНрд╖рд╛ рдХрд░рдирд╛ рдЪрд╛рд╣рддрд╛ рд╣реВрдВред
рдЪреВрдВрдХрд┐ рд╣реЗрдмреНрд░рд╛ рдХреЗ рдЦреБрд▓реЗ рд╕реНрдерд╛рдиреЛрдВ рдореЗрдВ, рдореИрдВрдиреЗ рдЗрд╕ рдкреБрд╕реНрддрдХрд╛рд▓рдп рдХрд╛ рдЙрд▓реНрд▓реЗрдЦ рдирд╣реАрдВ рджреЗрдЦрд╛, рдЗрд╕рд▓рд┐рдП рдореИрдВрдиреЗ рдЗрд╕ рдкрд╣рд▓ рдХреЛ рдЕрдкрдиреЗ рд╣рд╛рдереЛрдВ рдореЗрдВ рд▓реЗрдиреЗ рдХрд╛ рдлреИрд╕рд▓рд╛ рдХрд┐рдпрд╛ред
рдЗрд╕ рд▓реЗрдЦ рдореЗрдВ рдореИрдВ рд╡рд┐рд╢реЗрд╖ рд░реВрдк рд╕реЗ VB.NET рднрд╛рд╖рд╛ рдореЗрдВ рдЙрджрд╛рд╣рд░рдг рджреВрдВрдЧрд╛, рд▓реЗрдХрд┐рди рдЖрдк рдХрд┐рд╕реА рдЕрдиреНрдп .NET рднрд╛рд╖рд╛ рдореЗрдВ рдЗрд╕ рдкреБрд╕реНрддрдХрд╛рд▓рдп рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ

рдореЗрд░реА рдЬрд╝рд░реВрд░рдд рдХреЗ рдХрд╛рд░реНрдпреЛрдВ рдХреЛ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдПрдХ рд╡рд┐рд╢реЗрд╖ рдкрд░рд┐рд╕рд░ рд╡рд┐рдХрд╕рд┐рдд рдХрд░рддреЗ рд╕рдордп, рдореИрдВ рдЗрд╕ рд╕рдорд╕реНрдпрд╛ рдореЗрдВ рднрд╛рдЧ рдЧрдпрд╛ рдХрд┐, рдЕрдЧрд░ рдореБрдЭреЗ рдЗрд╕рдХреА рдЖрд╡рд╢реНрдпрдХрддрд╛ рд╣реИ, рддреЛ рд╕рднреА рдХреЛрдб рдорд╛рдЗрдХреНрд░реЛрдХрдВрдЯреНрд░реЛрд▓рд░ рдХреА рдореЗрдореЛрд░реА рдореЗрдВ рдлрд┐рдЯ рдирд╣реАрдВ рд╣реЛ рд╕рдХрддреЗ рд╣реИрдВ, рдпрд╣ рдзреНрдпрд╛рди рдореЗрдВ рд░рдЦрддреЗ рд╣реБрдП рдХрд┐ рдбрд┐рд╡рд╛рдЗрд╕ рдХреЛ рдкреАрд╕реА рдХреЗ рд╕рд╛рде рдЗрдВрдЯрд░реИрдХреНрдЯ рдХрд░рдирд╛ рдЪрд╛рд╣рд┐рдП рдпрд╛ рдкреАрд╕реА рдХреА рдЕрдиреБрдкрд╕реНрдерд┐рддрд┐ рдореЗрдВ рд╕рдорд╛рди рдХрд╛рд░реНрдпрдХреНрд╖рдорддрд╛ рджреЗрдиреА рдЪрд╛рд╣рд┐рдПред ред

Arduino <> Firmata <> Visual Basic .NET


рдЦреЛрдЬреЛрдВ рдХреЗ рдкрд░рд┐рдгрд╛рдорд╕реНрд╡рд░реВрдк, рдореИрдВ Arduino рд╣рд╛рд░реНрдбрд╡реЗрдпрд░ рдкреНрд▓реЗрдЯрдлрд╝реЙрд░реНрдо рдХреЗ рд▓рд┐рдП рдлрд░реНрдореЗрдЯрд╛ рдкреНрд░реЛрдЯреЛрдХреЙрд▓ рдореЗрдВ рдЖрдпрд╛, рдФрд░ рдЪреВрдВрдХрд┐ рдореЗрд░рд╛ Arduino рдореЗрдЧрд╛ 2560 рдзреВрд▓ рдЗрдХрдЯреНрдард╛ рдХрд░ рд░рд╣рд╛ рдерд╛, рдЗрд╕рд▓рд┐рдП рдореИрдВрдиреЗ рдЗрд╕рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдиреЗ рдХрд╛ рдирд┐рд░реНрдгрдп рд▓рд┐рдпрд╛ред рдореЗрд░реЗ рд╕рд╛рде рдкрд░рд┐рдЪрд┐рдд рд╣реЛрдиреЗ рдХреА рдкреНрд░рдХреНрд░рд┐рдпрд╛ рдореЗрдВ, рдХрд┐рд╕реА рдХрд╛рд░рдг рд╕реЗ, рдпрд╣ рдкреНрд░реЛрдЯреЛрдХреЙрд▓ рдПрдВрдбреНрд░рдпреВ рдХреНрд░реИрдЧреА рдкреГрд╖реНрда рдкрд░ рдЖрдиреЗ рддрдХ рдХрдо рд╕реЗ рдХрдо рдкрд╕рдВрдж рдХрд┐рдпрд╛ рдЬрд╛рдиреЗ рд▓рдЧрд╛, рдЬрд┐рд╕рдиреЗ .NET рднрд╛рд╖рд╛рдУрдВ рдХреЗ рд╕рд╛рде рдлрд░реНрдордЯрд╛ рдкреНрд░реЛрдЯреЛрдХреЙрд▓ рдХреЗ рдЗрдВрдЯрд░реИрдХреНрд╢рди рдХреЗ рд▓рд┐рдП рдПрдХ рдкреБрд╕реНрддрдХрд╛рд▓рдп рд▓рд┐рдЦрд╛ рдерд╛ред

рд▓реЗрдЦрдХ рдХреА рд╕рд╛рдЗрдЯ рдореБрдлреНрдд рдЙрджрд╛рд╣рд░рдг рдФрд░ рд╕реНрд░реЛрдд рдХреЛрдб рдкреНрд░рджрд╛рди рдХрд░рддреА рд╣реИ, рдЬрд┐рд╕реЗ рдЖрдк рдЕрдкрдиреЗ рдЖрдк рдХреЛ рд╕рдордЭрдиреЗ рдХреЗ рд▓рд┐рдП рдбрд╛рдЙрдирд▓реЛрдб рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ, рд╕рд┐рджреНрдзрд╛рдВрдд рд░реВрдк рдореЗрдВ, рдкрд╣рд▓реЗ рд╕реЗ рддреИрдпрд╛рд░ рдореЙрдбреНрдпреВрд▓ рд╣реИрдВ рдЬреЛ рдЖрдк рдЕрдкрдиреЗ рд▓рд┐рдП рдЙрдкрдпреЛрдЧ рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ

Arduino рддреИрдпрд╛рд░ рдбрд┐рдЬрд┐рдЯрд▓ рдкрд┐рдВрд╕ рдореЙрдбреНрдпреВрд▓

рдЕрд░реБрдбрд┐рдиреЛ рдмреЛрд░реНрдб рдХреЗ рдПрдирд╛рд▓реЙрдЧ рдЗрдирдкреБрдЯ рдХреЗ рд╕рд╛рде рдХрд╛рдо рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рддреИрдпрд╛рд░ рдореЙрдбреНрдпреВрд▓


рд▓реЗрдХрд┐рди рдореИрдВ рдХреЗрд╡рд▓ Firmata.Vb рдШрдЯрдХ рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдиреЗ рдХреА рд╕рд▓рд╛рд╣ рджреЗрддрд╛ рд╣реВрдВ


рдЙрджрд╛рд╣рд░рдг рдФрд░ рдЙрдкрдпреЛрдЧ рдХреИрд╕реЗ рдХрд░реЗрдВ

рдЗрд╕ рд▓рд╛рдЗрдмреНрд░реЗрд░реА рдХреЗ рд╕рд╛рде рдХрд╛рдо рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рд╣рдорд╛рд░реЗ рдЙрджрд╛рд╣рд░рдгреЛрдВ рд╕реЗ рд╣рдорд╛рд░реЗ Arduino: Standart Firmata рдореЗрдВ рдбрд╛рдЙрдирд▓реЛрдб рдХрд░рдирд╛ рд╣рдорд╛рд░реЗ рд▓рд┐рдП рдкрд░реНрдпрд╛рдкреНрдд рд╣реИред
рдпрд╣ рд╡рд╣ рдЬрдЧрд╣ рд╣реИ рдЬрд╣рд╛рдВ рдмреЛрд░реНрдб рдХреЗ рд╕рд╛рде рдкреНрд░реЛрдЧреНрд░рд╛рдорд┐рдВрдЧ рд╣рдорд╛рд░реЗ рд▓рд┐рдП рд╕рдорд╛рдкреНрдд рд╣реЛ рдЧрдИ рд╣реИред
рдЕрдм, рд╕реНрдЯреВрдбрд┐рдпреЛ рдХреЛ рд▓реЛрдб рдХрд░рдиреЗ рдФрд░ рдШрдЯрдХ рдХреЛ рдЬреЛрдбрд╝рдиреЗ рд╕реЗ рд╣рдо рдХрд╛рдо рдХрд░ рд╕рдХрддреЗ рд╣реИрдВ

рд╣реИрд▓реЛ рд╡рд░реНрд▓реНрдб >> рдкрд░ рдПрд▓рдИрдбреА!

рдмрд╕ рдмреЛрд░реНрдб рдкреЛрд░реНрдЯ рд╕реЗ рдЬреБрдбрд╝реЗ рдПрд▓рдИрдбреА рдХреЛ рд╣рд▓реНрдХрд╛ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рдпрд╣ рдирд┐рдореНрдирд▓рд┐рдЦрд┐рдд рдХреЛрдб рдХреЛ рдкрдВрдЬреАрдХреГрдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдкрд░реНрдпрд╛рдкреНрдд рд╣реИ:
рдлрд╝рд░реНрдореИрдЯрд╡реАрдмреА рдШрдЯрдХ рдХреЛ рдлреЙрд░реНрдо рдореЗрдВ рдЬреЛрдбрд╝реЗрдВ
<code>Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load FirmataVB1.COMPortName = "COM5" ''  COM   FirmataVB1.Baud = "57600" ''   FirmataVB1.Connect() ''   End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click FirmataVB1.PinMode(6, 1) ''     ,    6-    FirmataVB1.DigitalWrite(6, 1) ''   6-  End Sub Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed FirmataVB1.Disconnect() ''     End Sub End Class</code> 


PWM

PWM (PWM) рдХрд╛ рдЙрдкрдпреЛрдЧ рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рдЖрдкрдХреЛ рдХреЛрдб рдореЗрдВ рдЫреЛрдЯреЗ рдмрджрд▓рд╛рд╡ рдХрд░рдиреЗ рд╣реЛрдВрдЧреЗред
 FirmataVB1.PinMode(6,3) ''  3 -     PWM FirmataVB1.DigitalWrite(6,x) ''  x -    0  255 

рдЕрдиреБрд░реВрдк

рдПрдирд╛рд▓реЙрдЧ рдЗрдирдкреБрдЯ рдХреЗ рд╕рд╛рде рдХрд╛рдо рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП, рд╣рдо рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдХрд░рддреЗ рд╣реИрдВ
 FirmataVB1.PinMode(6,0) '' 0 -     x = FirmataVB1.AnalogRead(6) ''  x -       ,  6 -  

рдирд┐рд╖реНрдХрд░реНрд╖


рдореЗрд░реЗ рд▓рд┐рдП, рдкреБрд╕реНрддрдХрд╛рд▓рдп рд╡реНрдпрд░реНрде рдирд╣реАрдВ рд▓рд┐рдЦрд╛ рдЧрдпрд╛ рдерд╛ рдФрд░ рдореИрдВрдиреЗ рд╡реНрдпрдХреНрддрд┐рдЧрдд рд░реВрдк рд╕реЗ рдмрд╣реБрдд рд╕рдордп рдмрдЪрд╛рдпрд╛ред
рдореБрдЭреЗ рдЙрдореНрдореАрдж рд╣реИ рдХрд┐ рдпрд╣ рд▓реЗрдЦ рдХрд┐рд╕реА рдХреЗ рд▓рд┐рдП рджрд┐рд▓рдЪрд╕реНрдк рдФрд░ рдЙрдкрдпреЛрдЧреА рд╣реЛрдЧрд╛ред

рдлрд░реНрдо рдХреА рд╡реЗрдмрд╕рд╛рдЗрдЯ редata.VB.NET рд▓рд╛рдЗрдмреНрд░реЗрд░реА
рдлрд░реНрдордЯрд╛рдЯрд╛ рдкреНрд░реЛрдЯреЛрдХреЙрд▓ рд╡реЗрдмрд╕рд╛рдЗрдЯ

рдкреБрдирд╢реНрдЪ: рдпрджрд┐ рдпрд╣ рдереЛрдбрд╝рд╛ рдЬрд╛рдирдХрд╛рд░реАрдкреВрд░реНрдг рдирд┐рдХрд▓рд╛ рдпрд╛ рдкреНрд░рд╢реНрди рд╣реИрдВ, рддреЛ рдореИрдВ рдЙрдирдореЗрдВ рд╕реЗ рдХрд┐рд╕реА рдХрд╛ рднреА рдЙрддреНрддрд░ рджреЗрдиреЗ рдХреЗ рд▓рд┐рдП рддреИрдпрд╛рд░ рд╣реВрдВ

Source: https://habr.com/ru/post/In169707/


All Articles