Visual Basic İle Robot Kontrol Programı Yapımı

Bilgisayardan robotik sistemleri kontrol etmenin birçok yolu vardır.Bu projemizde de visual basic programını kullanarak basit ve kullanışlı robot kontrol programı yapacağız.Yapacağımız bu programı herhangi robotta rahatlıkla kullanabilirsiniz.

Formumuz İçin Gereken Araçlar:

1. 13 Adet Buton
2. 2 Adet Combobox
3. 1 Adet Texbox
4. 1 Adet GroupBox
5. 1 Adet SerialPort

Formumuzun Tasarım Kısmı:

Tasarımı bu şekilde yapabilirsiniz.

Formun Yazılım Kısmı:

• İlk olarak sistem kütüphanelerini ekliyoruz.

Imports System.IO
Imports System
Imports System.ComponentModel
Imports System.Threading
Imports System.IO.Ports

• Formun load bölümüne serial port ve baudrate değerlerini ekliyoruz.

myPort = IO.Ports.SerialPort.GetPortNames()
ComboBox2.Items.Add(9600)
ComboBox2.Items.Add(19200)
ComboBox2.Items.Add(38400)
ComboBox2.Items.Add(57600)
ComboBox2.Items.Add(115200)
For i = 0 To UBound(myPort)
ComboBox1.Items.Add(myPort(i))
Next
ComboBox1.Text = ComboBox1.Items.Item(0)
ComboBox2.Text = ComboBox2.Items.Item(0)
Button12.Enabled = False

 

• Serial port nesnesi tanımlıyoruz.

Dim myPort As Array
 Delegate Sub SetTextCallback(ByVal  As String)
 Shared _continue As Boolean
 Shared _serialPort As SerialPort

 

• Porta bağlan butonunun görev tanımlanmasını yapalım.Seçtiğimiz porta bağlanmamızı sağlayacak.

 SerialPort1.PortName = ComboBox1.Text
SerialPort1.BaudRate = ComboBox2.Text
SerialPort1.Parity = IO.Ports.Parity.None
SerialPort1.StopBits = IO.Ports.StopBits.One
SerialPort1.DataBits = 8
SerialPort1.Open()
Button13.Enabled = False
Button12.Enabled = True

• Robotla bağlantıyı sonlandırmak için bağlantıyı kes butonuna tanımlamamızı yapalım.

SerialPort1.Close()
Button13.Enabled = True
Button12.Enabled = False

• Açık olan portları görebilmek için comboboxların birine tanımlamamızı yapalım.

If SerialPort1.IsOpen = False Then
SerialPort1.PortName = ComboBox1.Text
Else
MsgBox("BAĞLANTIYI, KAPALIYKEN DEĞİŞTİRİNİZ", vbCritical)
End If

• Baudrate değerini ayarlamamız için comboboxların diğerine tanımlamızı yapalım.

If SerialPort1.IsOpen = False Then
SerialPort1.BaudRate = ComboBox2.Text
Else
MsgBox("BAĞLANTIYI, KAPALIYKEN DEĞİŞTİRİNİZ", vbCritical)
End If

 

• Yön butonları için tanımlamamızı yapıyoruz.Butona bastığımızda her buton serial porttan farklı bir değer gönderecek.Örneğin ileri butonuna bastığımızda 1 değerini, geri butonuna bastığımızda 2 değerini göndersin.Bir buton için örnek tanımlamamızı yapalım.

SerialPort1.Write("2")

Burada serial porta 2 değerini yazdırdık.Diğer butonlar için sadece veri değerinideğiştirerek tanımlama yapmanız gerekecek.

• Son olarak robotunuzu klavye tuşlarından yönetmek isterseniz öncelikle formun özellikler bölümünden keydown kısmını true yapın ve formun keydown kısmına aşağıdaki tanımlamayı ekleyin.Bu tanımlama sadece bir buton içindir.Diğer butonların tanımlanmasını yaparken buton ismini ve klavye tuşunu değiştirmeniz yeterli olacaktır.

If (e.KeyCode = Keys.A) Then
Button1.PerformClick()
Button1.BackColor = Color.Red
TextBox1.Text = "SOLA GİDİYOR"
Else
Button1.BackColor = Color.Yellow
End If

Ayrıca burada butona basıldığında robotun durumunu gösteren ve butonun rengini değiştirme tanımlamalarını da yapmış olduk.

Robot programını aşağıdaki linkten indirebilirsiniz.

Arduino Robot Kontrol Programı