Welcome to Synthiam!

Program robots using technologies created from industry experts. ARC is our free-to-use robot programming software that makes features like vision recognition, navigation and artificial intelligence easy.

Get Started
Asked — Edited

Vb 2008 Get Ping

Can someone help me with my VB 2008 code? I'm trying to read a ping sensor D00, D01. I tried to convert the C# code "Get Ping" to VB 2008 but it is missing to much. I am new to VB and having a difficult time with this. The connect works fine and will work if I put (') in front of the timer. I uploaded a file of my VB code.

AI Support Bot
Related Content
Synthiam
#1  
sorry my code did not show on my question so here it is.

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'
'EzB_Connect1
'
Me.EzB_Connect1.Location = New System.Drawing.Point(12, 12)
Me.EzB_Connect1.Name = "EzB_Connect1"
Me.EzB_Connect1.Port = ""
Me.EzB_Connect1.ShowDebugButton = True
Me.EzB_Connect1.Size = New System.Drawing.Size(283, 31)
Me.EzB_Connect1.TabIndex = 6
'
'Form1
''
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.Label3 = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
' progressBar1
'
Me.ProgressBar1.Location = New System.Drawing.Point(12, 60)
Me.ProgressBar1.Maximum = 255
Me.ProgressBar1.Name = "progressBar1"
Me.ProgressBar1.Size = New System.Drawing.Size(260, 23)
Me.ProgressBar1.[Step] = 1
Me.ProgressBar1.TabIndex = 1
'
' comboBox1
'
Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox1.FormattingEnabled = True

Me.ComboBox1.Location = New System.Drawing.Point(107, 106)
Me.ComboBox1.Name = "comboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(121, 21)
Me.ComboBox1.TabIndex = 2
'
' label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(39, 109)
Me.Label1.Name = "label1"
Me.Label1.Size = New System.Drawing.Size(62, 13)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Trigger Port"
'
' label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(47, 136)
Me.Label2.Name = "label2"
Me.Label2.Size = New System.Drawing.Size(54, 13)
Me.Label2.TabIndex = 5
Me.Label2.Text = "Echo Port"
'
' comboBox2
'
Me.ComboBox2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBox2.FormattingEnabled = True
Me.ComboBox2.Location = New System.Drawing.Point(107, 133)
Me.ComboBox2.Name = "comboBox2"
Me.ComboBox2.Size = New System.Drawing.Size(121, 21)
Me.ComboBox2.TabIndex = 4
'
' timer1
'
AddHandler .Timer1.Tick, New System.EventHandler(Me.Timer1_Tick)
'
'
' label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte(0))
Me.Label3.Location = New System.Drawing.Point(80, 187)
Me.Label3.Name = "label3"
Me.Label3.Size = New System.Drawing.Size(118, 42)
Me.Label3.TabIndex = 6
Me.Label3.Text = "label3"
'
End Sub
End Class