Hallo ich hab mit vb das eine einfache on/off schaltung für mein Arduino UNO gebaut.
ARDUINO
Visual Basic
Meine Frage ist ob man auch einzelne Pins ansteuern kann. Bitte um Hilfe.
Gruß Julian
Verschoben aus "Sonstige Problemstellungen". Code-Tags eingefügt. ~Thunderbolt
ARDUINO
C-Quellcode
- int ledPin = 11;
- void setup() {
- Serial.begin(9600);
- pinMode(ledPin, OUTPUT);
- digitalWrite(ledPin, LOW);
- }
- void loop(){
- while (Serial.available() == 0);
- int val = Serial.read() - '0';
- if (val == 1) {
- Serial.println("LED on");
- digitalWrite(ledPin, HIGH);
- }
- else if (val == 0)
- {
- Serial.println("LED OFF");
- digitalWrite(ledPin, LOW);
- }
- else
- {
- }
- Serial.println(val);
- Serial.flush();
- }
Visual Basic
VB.NET-Quellcode
- Imports System.IO
- Imports System.IO.Ports
- Imports System.Threading
- Imports System.Security.Cryptography
- Public Class Form1
- Shared _continue As Boolean
- Shared _serialPort As SerialPort
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- SerialPort1.Close()
- SerialPort1.PortName = "com3" 'change com port to match your Arduino port
- SerialPort1.BaudRate = 9600
- SerialPort1.DataBits = 8
- SerialPort1.Parity = Parity.None
- SerialPort1.StopBits = StopBits.One
- SerialPort1.Handshake = Handshake.None
- SerialPort1.Encoding = System.Text.Encoding.Default 'very important!
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- SerialPort1.Open()
- SerialPort1.Write("1")
- SerialPort1.Close()
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- SerialPort1.Open()
- SerialPort1.Write("0")
- SerialPort1.Close()
- End Sub
- End Class
Meine Frage ist ob man auch einzelne Pins ansteuern kann. Bitte um Hilfe.
Gruß Julian
Verschoben aus "Sonstige Problemstellungen". Code-Tags eingefügt. ~Thunderbolt
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()