ช่วยหน่อยครับ aduino รับค่าจาก VB ผ่าน serialport (ผมพึ่งหัดเขียนโปรแกรมครับ)

Code arduino ครับ หัดเขียนนะครับ ผมก็อายโค้ดยุ5555
int i = 1;
void setup() {
  // put your setup codยิ้ม, to run once:
  Serial.begin(9600);
  pinMode(28, OUTPUT);
  pinMode(27, OUTPUT);
  pinMode(26, OUTPUT);
  pinMode(25, OUTPUT);
  pinMode(24, OUTPUT);
  pinMode(23, OUTPUT);
  pinMode(22, OUTPUT);
  pinMode(21, OUTPUT);
  pinMode(20, OUTPUT);
  pinMode(19, OUTPUT);
  pinMode(18, OUTPUT);
  pinMode(17, OUTPUT);
  pinMode(16, OUTPUT);
  pinMode(15, OUTPUT);
  pinMode(14, OUTPUT);
  pinMode(13, OUTPUT);
  pinMode(12, OUTPUT);
  pinMode(11, OUTPUT);
  pinMode(10, OUTPUT);
  pinMode(9, OUTPUT);
  pinMode(8, OUTPUT);
  pinMode(7, OUTPUT);
  pinMode(6, OUTPUT);
  pinMode(5, OUTPUT);
  pinMode(4, OUTPUT);
  pinMode(3, OUTPUT);
}

void loop() {
  // put your main codยิ้ม, to run repeatedly:
  if (Serial.available()>0){
  i = Serial.read();
  Serial.println(i);
  }
  if (i == '0'){
  digitalWrite(13, HIGH);
  digitalWrite(12, HIGH);
  digitalWrite(11, HIGH);
  digitalWrite(10, HIGH);
  digitalWrite(9, HIGH);
  digitalWrite(8, HIGH);
  digitalWrite(7, HIGH);
  digitalWrite(6, LOW);
  }
  if (i =='1'){
  digitalWrite(13, HIGH);
  digitalWrite(12, HIGH);
  digitalWrite(11, LOW);
  digitalWrite(10, LOW);
  digitalWrite(9, HIGH);
  digitalWrite(8, LOW);
  digitalWrite(7, LOW);
  digitalWrite(6, LOW);
  }
  if (i =='2'){
  digitalWrite(13, HIGH);
  digitalWrite(12, LOW);
  digitalWrite(11, HIGH);
  digitalWrite(10, HIGH);
  digitalWrite(9, HIGH);
  digitalWrite(8, HIGH);
  digitalWrite(7, LOW);
  digitalWrite(6, HIGH);
  }
  if (i =='3'){
  digitalWrite(13, HIGH);
  digitalWrite(12, HIGH);
  digitalWrite(11, HIGH);
  digitalWrite(10, LOW);
  digitalWrite(9, HIGH);
  digitalWrite(8, HIGH);
  digitalWrite(7, LOW);
  digitalWrite(6, HIGH);
  }

------------------------------------------------------------

Code VB ครับ หัดเขียนนะครับ555
Public Class Form1
    Public score1 As Integer = 0
    Public score2 As Integer = 0
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SerialPort1.PortName = "COM3"'เลือก Port ที่จะส่งข้อมูล
        SerialPort1.BaudRate = 9600
        SerialPort2.PortName = "COM3" 'เลือก Port ที่จะส่งข้อมูล
        SerialPort2.BaudRate = 9600
    End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Label1.Text = score1 + 1
        score1 = score1 + 1
        SerialPort1.Open()
        SerialPort1.Write(score1)
        SerialPort1.Close()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Label2.Text = score2 + 1
        score2 = score2 + 1
        SerialPort1.Open()
        SerialPort1.Write(score2) ' ส่งค่า 1 ออกจาก Port เป็น Char
        SerialPort1.Close()
End Sub
------------------------------------------------

ผมสร้าง Button1ฝั่งซ้าย และ Button2ฝั่งขวาคับ โดยคลิกที่ button1 1ครั้ง ให้แสดงเลข1 คลิก2ครั้ง ให้แสดงเลข2 ที่ arduino  และbutton2 ก็เหมือนกันครับ คลิกbutton1และbuttuon2แล้วตัวเลขมันออกทางฝั่งซ้ายฝั่งเดียวครับ ผมอยากให้มันคลิกซ้ายออกทางซ้าย คลิกขวาออกทางขวาครับ
คลิกเพื่อดูคลิปวิดีโอ
แสดงความคิดเห็น
โปรดศึกษาและยอมรับนโยบายข้อมูลส่วนบุคคลก่อนเริ่มใช้งาน อ่านเพิ่มเติมได้ที่นี่