Liebe Forenmitglieder!
Möchte mich kurz vorstellen:
Lennart(schwedisch), 53J, Elektronikbastler seit Philips Baukästen 1972,
Modellbahner, früher PIC Programmierer über Parsic, Platinenfräser mit
eigener CNC....., Eagle cad...
Grundsätzlich ist ja "learning by
doing" mein ewiges erfolgreiches Motto, jetzt häng ich aber fest und
möchte um eure Hilfe bitten.
Ich sitze nun schon seit Tagen und versuche folgendes zu realisieren:
Kleines VB-Proggi mit 1 Button und 2 kleinen Bildern (Led in rot, Led in grün).
Klicke ich einmal kurz auf den Button soll das Bild mit der roten Led zu sehen sein, klicke ich
ein weiteres mal auf den GLEICHEN Button soll das Bild mit der grünen Led sichtbar sein.
Die Bilder liegen einfach nebeneinander. Soweit funktioniert das alles bereits,ausser das ich 2 Buttons brauche . Code dazu in rot unten...
Paralell dazu soll am Arduino die rote oder grüne Led leuchten.
Das Arduino-Proggi habe ich schon: LED 11-rot, Led 12-grün, funktioniert perfekt.
//Arduino Code:
// Lennart's1
void setup() {
pinMode (11,OUTPUT);
pinMode (12,OUTPUT);
Serial.begin(9600);
}
void loop() { int val;
if(Serial.available()){
while(Serial.available() >0){
val=Serial.read();
if(val=='1'){digitalWrite(11,HIGH);digitalWrite (12,LOW);}
else if (val=='0') {digitalWrite (11,LOW);digitalWrite (12,HIGH);}
}
}
}
aber nur mehr ein Problem:
Ich kann nur mit 2 Buttons hin und her schalten, möchte aber nur EINEN Button
Dazu der VB-CODE:
'Lennart's1
Imports System.IO
Imports System.IO.Ports
Imports System.Threading
Public Class Gleisstellpult
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
End Sub
Private Sub W0001ein_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles W0001ein.Click
RW1.Visible = True
GW1.Visible = False
SerialPort1.Open()
SerialPort1.Write("1")
SerialPort1.Close()
End Sub
Private Sub W0001aus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles W0001aus.Click
RW1.Visible = False
GW1.Visible = True
SerialPort1.Open()
SerialPort1.Write("0")
SerialPort1.Close()
End Sub
End Class
leider eben mit 2 Buttons statt mit 1'em
Was muss ich verändern, um nur mit einem Butten zurecht zu kommen?
Hätt ich nicht schon Kopfschmerzen würde ich nicht um Hilfe bitten
Danke für Eure Unterstützung
Lennart
Möchte mich kurz vorstellen:
Lennart(schwedisch), 53J, Elektronikbastler seit Philips Baukästen 1972,
Modellbahner, früher PIC Programmierer über Parsic, Platinenfräser mit
eigener CNC....., Eagle cad...
Grundsätzlich ist ja "learning by
doing" mein ewiges erfolgreiches Motto, jetzt häng ich aber fest und
möchte um eure Hilfe bitten.
Ich sitze nun schon seit Tagen und versuche folgendes zu realisieren:
Kleines VB-Proggi mit 1 Button und 2 kleinen Bildern (Led in rot, Led in grün).
Klicke ich einmal kurz auf den Button soll das Bild mit der roten Led zu sehen sein, klicke ich
ein weiteres mal auf den GLEICHEN Button soll das Bild mit der grünen Led sichtbar sein.
Die Bilder liegen einfach nebeneinander. Soweit funktioniert das alles bereits,ausser das ich 2 Buttons brauche . Code dazu in rot unten...
Paralell dazu soll am Arduino die rote oder grüne Led leuchten.
Das Arduino-Proggi habe ich schon: LED 11-rot, Led 12-grün, funktioniert perfekt.
//Arduino Code:
// Lennart's1
void setup() {
pinMode (11,OUTPUT);
pinMode (12,OUTPUT);
Serial.begin(9600);
}
void loop() { int val;
if(Serial.available()){
while(Serial.available() >0){
val=Serial.read();
if(val=='1'){digitalWrite(11,HIGH);digitalWrite (12,LOW);}
else if (val=='0') {digitalWrite (11,LOW);digitalWrite (12,HIGH);}
}
}
}
aber nur mehr ein Problem:
Ich kann nur mit 2 Buttons hin und her schalten, möchte aber nur EINEN Button
Dazu der VB-CODE:
'Lennart's1
Imports System.IO
Imports System.IO.Ports
Imports System.Threading
Public Class Gleisstellpult
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
End Sub
Private Sub W0001ein_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles W0001ein.Click
RW1.Visible = True
GW1.Visible = False
SerialPort1.Open()
SerialPort1.Write("1")
SerialPort1.Close()
End Sub
Private Sub W0001aus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles W0001aus.Click
RW1.Visible = False
GW1.Visible = True
SerialPort1.Open()
SerialPort1.Write("0")
SerialPort1.Close()
End Sub
End Class
leider eben mit 2 Buttons statt mit 1'em
Was muss ich verändern, um nur mit einem Butten zurecht zu kommen?
Hätt ich nicht schon Kopfschmerzen würde ich nicht um Hilfe bitten
Danke für Eure Unterstützung
Lennart