Arduino 按钮控制 VB6 形状填充颜色

Question

我正在创建一个程序，如果我在 Arduino 中单击按钮，VB6 中的形状填充颜色将变为红色，如果我再次单击按钮，填充颜色将变为绿色。我在读取 Arduino 发送到 VB6 的串行数据时遇到问题。

这是我的 Arduino 代码：

int pbuttonPin = 7;// push button

int LED = 8; // LED

int val = 0; // push value from pin 2

int lightON = 0;//light status

int pushed = 0;//push status

void setup() 
{
Serial.begin(9600);

pinMode(pbuttonPin, INPUT_PULLUP); 

pinMode(LED, OUTPUT);

digitalWrite(LED, HIGH);

}

void loop()
 {

  val = digitalRead(pbuttonPin);// read the push button value


  if(val == HIGH && lightON == LOW){

    pushed = 1-pushed;


    delay(100);

  }    

  lightON = val;

      if(pushed == HIGH)
     {
        Serial.print("Color Red\n");


        digitalWrite(LED, LOW); 


        delay(100);
       
      }
else
      {
        Serial.print("Color Green\n");


        digitalWrite(LED, HIGH);


        delay(100);
      }
   
}

这是我的 VB6 代码，

Private Sub Form_Load()

    With MSComm1
        .CommPort = 8
        .Settings = "9600,N,8,1"
        .Handshaking = comRTS
        .RTSEnable = True
        .DTREnable = True
        .RThreshold = 1
        .SThreshold = 1
        .InputMode = comInputModeText
        .InputLen = 0
        .PortOpen = True
    End With
    
    Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

    If MSComm1.Input = "Color Red" Then
        Shape1.FillColor = vbRed
        Shape1.FillStyle = vbSolid
    End If

    If MSComm1.Input = "Color Green" Then
        Shape1.FillColor = vbGreen
        Shape1.FillStyle = vbSolid
    End If

End Sub

非常感谢您为即将到来的

提供帮助

Answer 1

无法保证来自串口的数据不会被分解成多个部分，因此您应该实现一个缓冲区来跟踪接收到的所有部分。此外，由于 MSComm1.Input returns and removes characters from the receive buffer，您的第二个 If 语句将永远不会包含任何数据。您应该读取一次数据并将其存储在变量中。下面是一些实现此功能的代码：

Dim m_sBuffer As String

Private Sub Form_Load()

    ' Initialize Serial Port
    With MSComm1
        .CommPort = 8
        .Settings = "9600,N,8,1"
        .Handshaking = comRTS
        .RTSEnable = True
        .DTREnable = True
        .RThreshold = 1
        .SThreshold = 1
        .InputMode = comInputModeText
        .InputLen = 0
        .PortOpen = True
    End With
    
    ' Initialize FillStyle
    Shape1.FillStyle = vbSolid
        
    ' Clear buffer
    m_sBuffer = ""
    
    ' Start timer
    Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
    Dim sReceivedData As String
    
    ' Read data from serial port
    sReceivedData = MSComm1.Input
    
    ' Append Received Data to buffer
    m_sBuffer = m_sBuffer & sReceivedData
    
    ' Check buffer content
    Select Case m_sBuffer
        Case "Color Red"
            Shape1.FillColor = vbRed
            m_sBuffer = "" ' Clear buffer
        Case "Color Green"
            Shape1.FillColor = vbGreen
            m_sBuffer = "" ' Clear buffer
    End If

End Sub

Arduino 按钮控制 VB6 形状填充颜色

Arduino Pushbutton Controlling VB6 shape fill color

vb6

arduino