Visual Basic Script

Visual Basic – Serial communication

With this script you can send data to a serial port: Needed: Listbox First in the FORM LOAD section load the connected comports to the listbox:

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Haal COM Poorten op
        For Each sp As String In My.Computer.Ports.SerialPortNames
            ListBox1.Items.Add(sp)
            ListBox1.SelectedIndex = 0 'selecteer altijd een optie (de eerste)
        Next
    End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

'Haal COM Poorten op

For Each sp As String In My.Computer.Ports.SerialPortNames

ListBox1.Items.Add(sp)

ListBox1.SelectedIndex = 0 'selecteer altijd een optie (de eerste)

End Sub

Create a function for easy serial comport writing (using the comport selected in …

Visual Basic – Serial communication Lees meer »

Visual Basic – Colorpicker

Colorpicker With this script you can pick a color easily and set a color to a label (Visual Studio 2017): Needed: Button Label ColorDialog

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim colors As DialogResult
        colors = ColorDialog1.ShowDialog

        If colors = Windows.Forms.DialogResult.OK Then
            Label1.ForeColor = ColorDialog1.Color
        End If
    End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim colors As DialogResult

colors = ColorDialog1.ShowDialog

If colors = Windows.Forms.DialogResult.OK Then

Label1.ForeColor = ColorDialog1.Color

End If

End Sub

To get the RGB values 0-255 you can use:

Label1.Text = ColorDialog1.Color.R
Label2.Text = ColorDialog1.Color.G
Label3.Text = ColorDialog1.Color.B

Label1.Text = ColorDialog1.Color.R

Label2.Text = ColorDialog1.Color.G

Label3.Text = ColorDialog1.Color.B

Zoeken

Categorie: Visual Basic Script

Visual Basic – Serial communication

Visual Basic – Colorpicker