Hi all,
I just want to ask how can my arduino code read the items in my combobox in vb 2010?
Someone told to convert the combobox to integer so that the arduino can read it.
but i dont really know how?
sorry for my poor english ;D
Please Help me!
VB 2010 code
Imports System
Imports System.IO
Imports System.IO.Ports
Imports System.Threading
Imports System.ComponentModel
Public Class Form1
Shared _continue As Boolean
Shared _serialPort As SerialPort
Delegate Sub SetTextCallback(ByVal [text] As String)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Windows.Forms.Control.CheckForIllegalCrossThreadCalls = False
SerialPort1.Close()
SerialPort1.PortName = "Com5"
SerialPort1.BaudRate = 9600
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
If ComboBox1.SelectedItem = "LONG" Then
SerialPort1.Open()
SerialPort1.Write(TextBox1.Text)
SerialPort1.Close()
ElseIf ComboBox1.SelectedItem = "SHORT" Then
SerialPort1.Open()
SerialPort1.Write(TextBox1.Text)
SerialPort1.Close()
End If
End Sub
End Class
Arduino Code
Its working but only for one stepper. i just copy the other code and change the stepper name.
#include <Stepper.h>
#define rev 500
#define rev1 500
Stepper myStepper(rev, 8, 9, 10, 11);
Stepper myStepper1(rev1, 4, 5, 6, 7);
int mot, val;
void setup() {
myStepper.setSpeed(60);
myStepper1.setSpeed(60);
Serial.begin(9600);
}
void loop() {
while (Serial.available() == 0) {
}
val = Serial.parseInt();
if (val > 0)
{
mot = val ;
while (mot > 0)
{
Serial.print("hulog: ");
Serial.println(mot);
myStepper.step(-455);
delay(500);
mot--;
}
}
if (val > 0)
{
mot = val ;
while (mot > 0)
{
Serial.print("hulog: ");
Serial.println(mot);
myStepper1.step(-5900);
delay(500);
mot--;
}
}
}