www.mikrocontroller.net

Forum: PC-Programmierung Daten aus VB an Seriale Schnitstelle


Autor: Daniel (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Hallo zusammen ich habe folgendes Problem.

Ich habe ein Program in Visual Studio geschrieben das mir 3 Werte ( 
0-255 ; 0-255 ; 0-255 )an die Serielle Schnittstellen senden soll, und 
zwar setzen sich die 3 Werte aus 3 Schieberegler zusammen.

Die werte die ankommen sollen wenn ich die Regler betätige sollen so 
ausschauen


2 0 0
4 0 0
5 0 0
18 0 0
18 4 0
18 5 0
18 36 0
18 38 0
18 40 0
18 48 219
18 48 221
18 48 224

Mein Code in VB Schaut so aus !!!
Wäre super wenn mir jemand helfen könnte.



<System.Serializable()> Partial Public Class Form1

    Private Sub HScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
        
If SerialPort1.IsOpen = True Then
            SerialPort1.Write(HScrollBar1.Value, " ", HScrollBar2.Value, " ", HScrollBar3.Value, )
        End If
    End Sub

    Private Sub HScrollBar2_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar2.Scroll
        
If SerialPort1.IsOpen = True Then
            SerialPort1.Write(HScrollBar1.Value, " ", HScrollBar2.Value, " ", HScrollBar3.Value, )
        End If
    End Sub

    Private Sub HScrollBar3_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar3.Scroll
        
If SerialPort1.IsOpen = True Then
            SerialPort1.Write(HScrollBar1.Value, " ", HScrollBar2.Value, " ", HScrollBar3.Value, )
        End If

    End Sub

End Class


Autor: Wegstaben Verbuchsler (wegstabenverbuchsler)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
aha. ich les da nur :

hallo ... habe Programm geschrieben ... das und das soll da rauskommen 
... so sieht der Code aus.

Und wo ist nun der Absatz, welcher dein Problem möglichst präzise 
beschreibt?


--> dein Problem ist, daß du dein Problem nicht beschreibst ;-)

Autor: Daniel (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
er gibt mir immer hier einen fehler aus

SerialPort1.Write(HScrollBar1.Value, " ", HScrollBar2.Value, " ", 
HScrollBar3.Value, )

Autor: Wegstaben Verbuchsler (wegstabenverbuchsler)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
lass mich raten, die Fehlermeldung lautet: "es gibt kein Himbeereis mehr 
im Kühlschrank".

--> Himbeereis nachfüllen !

Autor: gast (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Kann kein VB, aber was mir auf den ersten Blick auffällt ist das nach 
dem HSrollBar3.Value, keine " " sind wie bei den anderen Werten

Autor: Denny (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Hallo!

schreib es mal so:

SerialPort1.Write(HScrollBar1.Value &  " " & HScrollBar2.Value & " " & 
HScrollBar3.Value )


Gruss Denny

Autor: Daniel (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Hy Denny,

Vielen dank für dein Tip ... bin etwas weiter gekommen???
jetzt gibt er schon mal so was aus

173189 223 173189 231 173189 236 173189 235 173189 229 173189 221 173189 
211 173189 169 173189 151 173189 133 173189 114 173189 96 173189 81 
173189 70 173189 62 173189 56 173189 53 173189 51 173189 52 173189 56 
173189 62 173189 71 173189 81 173189 94 173189 111 173189 127 173189 146 
173189 163 173189 205 173189 213 173189 220 173189 224 173189 223 173189 
220 173189 216 173189 211 173189 204 173189 177 173189 163 173189 146 
173189 128 173189 110 173189 94 173189 81 173189 69 173189 62 173189 56 
173189 52 173189 53 173189 54 173189 56 173189 60 173189 66 173189 74 
173189 82 173189 93 173189 108 173189 123 173189 137 173189 174 173189 
183 173189 191 173189 196 173189 200 173189 198 173189 195 173189 194 
173189 191 173189 177 173189 170 173189 163 173189 154 173189 145 17

Autor: Philipp H. (swissrookie)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Nach dem dritten Wert noch ein Zeilenumbruch. -> & "\n"
Hoffe das funktioniert in VB...

Autor: Daniel (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
ja das ist genau das was ich suche aber leider funktioniert -> & "\n" 
nicht als Zeilenumbruch.

aber vielen dank für die hilfe !!!

Autor: Daniel (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
so ich habs gelöst ->

SerialPort1.Write(HScrollBar1.Value & " " & HScrollBar2.Value & " " & 
HScrollBar3.Value & vbCrLf)

MFG Daniel

Antwort schreiben

Die Angabe einer E-Mail-Adresse ist freiwillig. Wenn Sie automatisch per E-Mail über Antworten auf Ihren Beitrag informiert werden möchten, melden Sie sich bitte an.

Wichtige Regeln - erst lesen, dann posten!

  • Groß- und Kleinschreibung verwenden
  • Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang

Formatierung (mehr Informationen...)

  • [c]C-Code[/c]
  • [avrasm]AVR-Assembler-Code[/avrasm]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] - Link zu Artikel
  • Verweis auf anderen Beitrag einfügen: Rechtsklick auf Beitragstitel,
    "Adresse kopieren", und in den Text einfügen




Bild automatisch verkleinern, falls nötig
Bitte das JPG-Format nur für Fotos und Scans verwenden!
Zeichnungen und Screenshots im PNG- oder
GIF-Format hochladen. Siehe Bildformate.
Hinweis: der ursprüngliche Beitrag ist mehr als 6 Monate alt.
Bitte hier nur auf die ursprüngliche Frage antworten,
für neue Fragen einen neuen Beitrag erstellen.

Mit dem Abschicken bestätigst du, die Nutzungsbedingungen anzuerkennen.