Étape 2: Faire le programme VB
Dans ce instructable, nous allons faire un programme pour contrôler les leds, à l’aide de 4 touches. Suivez les étapes suivantes.
- Cliquez sur nouveau projet
- Sélectionnez les nouvelles fenêtres d’Application
- Entrez un nom pour votre application
- Glisser-déposer les 4 boutons de la boîte à outils vers le formulaire Form1
- Glisser / déposer un SerialPort aussi
- Double-cliquez sur le formulaire. Vous verrez la région codante.
- Copier-coller le code suivant là.
Imports System.IO
Imports System.IO.Ports
Imports System.Threading
Public Class Form1
Partagé _continue As Boolean
Static _serialPort SerialPort
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SerialPort1.Close()
SerialPort1.PortName = InputBox ("entrez le port COM")
SerialPort1.BaudRate = InputBox ("entrez le taux en bauds")
SerialPort1.DataBits = 8
SerialPort1.Parity = Parity.None
SerialPort1.StopBits = StopBits::One
SerialPort1.Handshake = Handshake.None
SerialPort1.Encoding = System.Text.Encoding.Default
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SerialPort1.Open()
SerialPort1.Write("1")
SerialPort1.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SerialPort1.Open()
SerialPort1.Write("2")
SerialPort1.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SerialPort1.Open()
SerialPort1.Write("3")
SerialPort1.Close()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SerialPort1.Open()
SerialPort1.Write("4")
SerialPort1.Close()
End Sub
End Class