atmega>PC VB 2k8=Reaktion

[Dietmar (Gast)]

Hallo Jungs,

habe ein kleines Problem und ich hoffe das ihr mir helfen könnt.

ich habe einen AVR Atmega der ist vom Program ok, ich habe ihm jetzt 
gesagt er soll (1,2und3) senden, das tut er auch.

In meinem kleinen program VB 2008, sehe ich es auch in meinem textfeld 
ankommen, jetzt kommt meine frage.

Wie ist es ambesten möglich, die funktion einzubauen.
Empfange die >
("1") = OvalShape81.BackStyle = PowerPacks.BackStyle.Opaque
(Kreis wird mit fabe rot gefühlt)

("2") = OvalShape81.BackStyle = PowerPacks.BackStyle.Transparent
(Kreis farbe wechselt auf Durchsichtig)

Bin da schon am suchen wie ein verrückter, aber nicht so das richtige zu 
der sache gefunden.
Daher hoffe ich, das mir hier einer von dem Super Forum helfen kann.

danke im vorraus.
dietmar

[gast (Gast)]

Hallo Dietmar,

verwendest du ein Com-Controll?

[Dietmar (Gast)]

will mal hoffen das ich mich richtig aus druecke, ich sende vom avr ja 
nur den befehl print zb 1  2 und 3.

denn eingang sehe ich ja im vb in der textbox 1 2 3

jetzt will ich gerne mit den sachen halt zb kreis fühlen oder nicht 
fühlen sagen.

oder muss das anders vom avr gemacht werden.

[gast (Gast)]

Deine Daten ("1","2"..) kommen ja in den PC und dort
in VB. Aber wie ist es im VB-Programm?

Hast du dort ein Com-Controll, also Befehle wie z.B.

MSCom1.open=true

[Dietmar (Gast)]

achso ja.
zb.
öffne port

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button2.Click
        Me.myComPort.Open()
        Button2.BackColor = Color.Lime
        Button3.BackColor = Color.Red
        Timer1.Start()
        OvalShape1.BackStyle = PowerPacks.BackStyle.Opaque

schließe port

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button3.Click
        Me.myComPort.Close()
        Button3.BackColor = Color.Lime
        Button2.BackColor = Color.Red
        ProgressBar1.Value = 0
        Timer1.Stop()
        OvalShape1.BackStyle = PowerPacks.BackStyle.Transparent
    End Sub

[gast (Gast)]

Man sieht leider nicht was hinter
Me.myComPort.Open()steckt.
Aber evtl. ist das ein Aufruf einer Routine mit
einem normalen COM-Controll.

Dann könnte dies helfen:

http://www.activevb.de/tutorials/tut_com/com.html

Mit dem Event kannst du automatisch auf empfangene Zeichen
reagieren, dort eine Abfrage ob "1","2",...

[Dietmar (Gast)]

ich habe viel jetzt gegooooooogelt und bin auf eine sache gestozen die 
wohl ein ansatz ist aber ich noch nicht richtig verstanden habe oder 
besser der ansatz helt.

mit

 case 1
 case 2
 case 3

weiß einer genauer was damit gemeint ist oder besser wie der aufbau ist.

danke im vorraus.
dietmar

[gast (Gast)]

http://msdn.microsoft.com/de-de/library/cy37t14y.aspx